admin_links.asp

电子商城代码

<!--#include file="conn.asp"-->
<%
on error resume next
call admintop()
Dim admin_flag
admin_flag=",32,"
	if session("admin_name")="" or instr(","&session("flag")&",",admin_flag)=0 then
	adminflag()	
	else
dim action, linkid
linkid=request.QueryString("id")
action=request.QueryString("action")
xs=request("xs")
show=request("show")
if xs="on" then
       xs1=1
else
       xs1=0
end if
if show="on" then
        show1=1
else
        show1=0
end if
select case action
case "add"
if trim(request("wordlink"))<>"" then
xs=request("xs")
show=request("show")
if xs="on" then
       xs1=1
else
       xs1=0
end if
if show="on" then
        show1=1
else
        show1=0
end if
set rs=server.CreateObject("adodb.recordset")
rs.Open "select * from [56770_huoban]", conn, 1, 3
rs.AddNew
rs("wordlink")=trim(request("wordlink"))
rs("url")=trim(request("url"))
rs("logo")=trim(request("logo"))
rs("bs")=int(request("bs"))
rs("xs")=xs1
rs("show")=show1
rs.Update
rs.Close
set rs=nothing
response.Redirect "admin_links.asp"
response.end
end if
'----------------------------------------
case "edit"
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from [56770_huoban] where id=" &linkid, conn, 1, 3
rs("wordlink")=request("wordlink")
rs("url")=trim(request("url"))
rs("logo")=trim(request("logo"))
rs("bs")=int(request("bs"))
rs("xs")=xs1
rs("show")=show1
rs.update
rs.close
response.Redirect "admin_links.asp"
response.end
set rs=nothing
'--------------------------------
case "del"
conn.execute "delete from [56770_huoban] where id="&linkid
response.Redirect "admin_links.asp"
response
end select
%>
<table border="0" cellspacing="1" cellpadding="0" height="0" align=center width="98%" bgcolor="#183789">
  <tr>
  <td>
   <table border="0" cellspacing="1" cellpadding="4" bgcolor="#FFFFFF" align="center" width="100%">
  <tr>
 <td height=27 class=classtop align=center colspan=7>鍙嬫儏杩炴帴绠＄悊</td>
</tr>
<%set rs=server.CreateObject("adodb.recordset")
rs.open "select * from [56770_huoban] order by bs", conn, 1, 1
dim i
i=rs.recordcount%>
<tr>
<td class=classtop1 height="25" align="center">缃戠珯鍚嶇О</td>
<td class=classtop1 height="25" align="center">缃戠珯鍦板潃</td>
<td class=classtop1 height="25" align="center">LOGO</td>
<td class=classtop1 height="25" align="center">鍥剧墖</td>
<td class=classtop1 height="25" align="center">鏄剧ず</td>
<td class=classtop1 height="25" align="center">鎺掑簭</td>
<td class=classtop1 height="25" align="center">鎿嶄綔</td>
</tr>
<%if rs.eof and rs.bof then
response.write "<tr><td class=classtd align=center height=30 colspan=7>杩樻病鏈夋暟鎹