<% dim cls if session("admin")="" then Response.Redirect("index.asp?err=4") else if session("flag")<>"0" then cls = Instr(session("flag"), "link") if cls <= 0 then %> <% end if end if end if %> 管理中心——>合作伙伴管理
当前位置:网站管理中心--合作伙伴管理
<% action=request("action") '栏目列表 if action="" then call leibie() end if '修改栏目 if action=3 then call classedit() end if '删除栏目 if action=2 then conn.execute "delete * from links where id="&request("id")&"" response.write "" response.end end if %>
<% sub leibie() '增加栏目名称 if request("add")="ok" then set rs=server.createobject("adodb.recordset") sql = "select * from links" rs.open sql,conn,1,3 rs.addnew rs("Name")=request("linkName") rs("link")=request("linklink") rs("logo")=request.form("linklogo") rs("xuhao")=request("xuhao") rs("note")=request("note") rs("online")=request("online") rs.update response.write "" rs.close else '显示详细资料 set rs = server.createobject("adodb.recordset") sql = "select * from links order by xuhao desc " rs.open sql,conn,1,3 %>
添加合作伙伴
合作伙伴名称：   排序 <% if rs.eof and rs.bof then %> <%else%> "> <%end if %>  请输入数字
合作伙伴LOGO：
网　　址：  *如果不清楚，可以不填
合作伙伴说明：
是否设置为推荐： 是 否

<% set rswzclass=server.createobject("adodb.recordset") sqlwz = "select * from links order by xuhao asc" rswzclass.open sqlwz,conn,1,3 if rswzclass.bof and rswzclass.eof then response.write "" else Do While Not rswzclass.eof %> <% rswzclass.movenext if rswzclass.eof then exit do end if loop end if rswzclass.close set rswzclass=nothing %>
<%=rswzclass("xuhao")%> <% if rswzclass("logo")<>"" then %>" border="0" width="88" height="31"><%else%> 暂无LOGO图片 <% end if %> "><%=rswzclass("Name")%> <% if rswzclass("online")="1" then %>[推荐]<% end if %> &action=3">修改 &action=2">删除
<% rs.close set rs=nothing end if end sub %> <% sub classedit() '修改栏目名称 if request("edit")="ok" then set rs=server.createobject("adodb.recordset") sql = "select * from links where id ="&request("id")&"" rs.open sql,conn,1,3 rs("Name")=request("linkName") rs("link")=request("linklink") rs("logo")=request.form("linklogo") rs("xuhao")=request("xuhao") rs("note")=request("note") rs("online")=request("online") rs.update response.write "" rs.close 'response.write "" 'response.end else set rs=server.createobject("adodb.recordset") sql = "select * from links where id ="&request("id")&"" rs.open sql,conn,1,3 %> ">
添加合作伙伴
合作伙伴名称： " size="40">   排序 ">
合作伙伴LOGO： " size="50" maxlength="100">
网　　址： ">  *如果不清楚，可以不填
合作伙伴说明：
设置为推荐： checked <% end if %>>是 checked <% end if %>> 否
  [返回上一页]
<% rs.close set rs=nothing end if end sub %>