<%Session.CodePage=65001%>
BdeCMS网站后台管理登陆
<%call log_chk()%>
<%if request.QueryString("act")="add" then
if request.Form("Furl")="" then
call BackUrl("必须填写网址！")
end if
if request("theBj")="1" then
Set rs=Server.Createobject("Adodb.Recordset")
sql="select * from bdlink where F_id="&request("thex")&""
rs.open sql,conn,1,3
rs("F_title")=request.Form("Ftitle")
rs("picpath")=request.Form("picpath")
rs("F_url")=request.Form("Furl")
rs("F_odr")=request.Form("F_odr")
rs("F_time")=now()
rs.update
rs.close
set rs=nothing
call GoUrl("Flink.asp","修改成功!")
else
Set rs=Server.Createobject("Adodb.Recordset")
sql="select * from bdlink"
rs.open sql,conn,1,3
rs.addnew
rs("F_title")=request.Form("Ftitle")
rs("picpath")=request.Form("picpath")
rs("F_url")=request.Form("Furl")
rs("F_odr")=request.Form("F_odr")
rs("F_time")=now()
rs.update
rs.close
set rs=nothing
end if
end if%>
<%if request.QueryString("act")="del" then
Set rs=Server.Createobject("Adodb.Recordset")
sql="select * from bdlink where F_id="&request("thex")&""
rs.open sql,conn,1,3
rs.delete
rs.close
set rs=nothing
call GoUrl("Flink.asp","删除成功!")
end if%>
<%if request.QueryString("act")="mod" then
theBJ=1
Set rs=Server.Createobject("Adodb.Recordset")
sql="select * from bdlink where F_id="&request("thex")&""
rs.open sql,conn,1,3
theId=rs("F_id")
theT=rs("F_title")
theP=rs("picpath")
theU=rs("F_url")
theO=rs("F_odr")
rs.update
rs.close
set rs=nothing
end if%>
后台管理：>> 友情链接
合作客户
名 称
图 片
网 址
操作
<%Set rs=Server.Createobject("Adodb.Recordset")
sql="select * from bdlink order by F_odr asc"
rs.open sql,conn,1,3
if rs.eof then
else
do while not rs.eof%>
