admin_footer.asp

电子商城代码

<!--#include file="conn.asp"-->
<%
'on error resume next
call admintop()
Dim admin_flag
admin_flag=",48,"
	if session("admin_name")="" or instr(","&session("flag")&",",admin_flag)=0 then
	adminflag()	
	else
dim action, linkid
linkid=request.QueryString("id")
f_s_id=request.QueryString("id")
action=request.QueryString("action")


Sub add 
if trim(request("f_name"))<>"" then
set rs=server.CreateObject("adodb.recordset")
rs.Open "select * from [56770_footer]", conn, 1, 3
rs.AddNew
rs("f_name")=trim(request("f_name"))
rs("f_paixu")=int(request("f_paixu"))
rs("f_url")=trim(request("f_url"))
rs("f_target")=trim(request("f_target"))
rs.Update
rs.Close:set rs=nothing
response.Redirect "admin_footer.asp"
response.end
end If
End Sub  

Sub add_s
if trim(request("f_s_name"))<>"" then
set rs=server.CreateObject("adodb.recordset")
rs.Open "select * from [56770_footer_s]", conn, 1, 3
rs.AddNew
rs("f_id")=int(request("f_id"))
rs("f_s_name")=trim(request("f_s_name"))
rs("f_s_paixu")=int(request("f_s_paixu"))
rs("f_s_url")=trim(request("f_s_url"))
rs("f_s_target")=trim(request("f_s_target"))
rs.Update
rs.Close:set rs=nothing
response.Redirect "admin_footer.asp"
response.end
end If
End Sub  

Sub edit 
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from [56770_footer] where f_id=" &linkid, conn, 1, 3
rs("f_name")=trim(request("f_name"))
rs("f_paixu")=int(request("f_paixu"))
rs("f_url")=trim(request("f_url"))
rs("f_target")=trim(request("f_target"))
rs.update
rs.close
response.Redirect "admin_footer.asp"
response.end
set rs=Nothing
End Sub  

Sub edit_s
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from [56770_footer_s] where f_s_id=" &linkid, conn, 1, 3
rs("f_id")=int(request("f_id"))
rs("f_S_name")=trim(request("f_s_name"))
rs("f_s_paixu")=int(request("f_s_paixu"))
rs("f_s_url")=trim(request("f_s_url"))
rs("f_s_target")=trim(request("f_s_target"))
rs.update
rs.close
response.Redirect "admin_footer.asp"
response.end
set rs=Nothing
End Sub  

Sub del 
conn.execute "delete from [56770_footer] where f_id="&linkid
conn.execute "delete from [56770_footer_s] where f_id="&linkid
response.Redirect "admin_footer.asp"
response.End 
End Sub 

Sub del_s 
conn.execute "delete from [56770_footer_s] where f_s_id="&linkid
response.Redirect "admin_footer.asp"
response.End 
End Sub 

Sub up_s
conn.execute "update [56770_footer_s] set f_s_paixu=f_s_paixu+1 where f_s_id="&f_s_id
response.Redirect "admin_footer.asp"
response.End 
End Sub 

Sub down_s
conn.execute "update [56770_footer_s] set f_s_paixu=f_s_paixu-1 where f_s_id="&f_s_id
response.Redirect "admin_footer.asp"
response.End 
End Sub 
%>
<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>
<%
select case action
       Case "add" :add()
	   Case "add_s" : add_s()
	   Case "edit" : edit()
	   Case "edit_s" : edit_s()
	   Case "modi" : modi()
	   Case "modi_s" : modi_s()
	   Case "del" :del()
	   Case "del_s" :del_s()
	   Case "up_s" : up_s()
	   Case "down_s" : down_s()
	   Case Else
	        main()
End Select 
Sub main%>
<tr><td colspan=7>
   <table border="0" cellspacing="1" cellpadding="0" class=classtd align="center" width="100%">
   <tr>
   <%
   set rs=server.CreateObject("adodb.recordset")
   sql="select * from [56770_footer] order by f_paixu desc"
   rs.open sql,conn,1,1
   i=1 
   If rs.eof Then 
   response.write"鏆傛棤鏍忕洰"
   Else
   Do While Not rs.eof 
   %>
   <td width="25%" valign=top>
     <table cellspacing="0" cellpadding="0"  width="100%">
	  <tr>
	    <td height="25" class="classtop" align=center><%If Trim(rs("f_url"))<>"" Then%><a href="<%=Trim(rs("f_url"))%>" target="<%=Trim(rs("f_target"))%>"><%=rs("f_name")%></a><%else%><%=rs("f_name")%><%End if%></td>
		<td height="25" class="classtop" align=center><a href="?action=modi&f_id=<%=rs("f_id")%>" title="缂栬緫"><img src="images/edit.gif" align="absmiddle" border="0"></a> <a href=?action=del&id=<%=rs("f_id")%> onClick="return ConfirmDel();" title="鍒犻櫎"><img src="images/del.gif" align="absmiddle" border="0"></a></td>
	  </tr>
  	     <%
   	    set rs_s=server.CreateObject("adodb.recordset")
   	    sql_s="select * from [56770_footer_s] where f_id="&rs("f_id")&" order by f_s_paixu desc"
   	    rs_s.open sql_s,conn,1,1
   	    If rs_s.eof Then 
   	    response.write"<tr><td class=classtd height=50 valign=middle>鏆傛棤鏍忕洰</td></tr>"
   	    Else
   	    Do While Not rs_s.eof 
         %>
		 <tr>
		   <td class="classtd" height="20"><a href=?action=up_s&id=<%=rs_s("f_s_id")%> title="鎺掑簭鍚戜笂绉诲姩">鈫