admin_color.asp

电子商城代码

<!--#include file="conn.asp"-->
<script language=JavaScript src="inc/dialog.js"></script>
<%
'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")
select case action
case "add"
if trim(request("c_name"))<>"" then
set rs=server.CreateObject("adodb.recordset")
rs.Open "select * from [56770_color]", conn, 1, 3
rs.AddNew
rs("c_name")=trim(request("c_name"))
rs("c_color")=trim(request("strcolor"))
rs("c_paixu")=int(request("c_paixu"))
rs.Update
rs.Close:set rs=nothing
response.Redirect "admin_color.asp"
response.end
end if
'----------------------------------------
case "edit"
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from [56770_color] where c_id=" &linkid, conn, 1, 3
rs("c_name")=Trim(request("c_name"))
rs("c_color")=trim(request("color"))
rs("c_paixu")=int(request("c_paixu"))
rs.update
rs.close
response.Redirect "admin_color.asp"
response.end
set rs=nothing
'--------------------------------
case "del"
conn.execute "delete from [56770_color] where c_id="&linkid
response.Redirect "admin_color.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_color] order by c_paixu desc", 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">鎺掑簭</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>杩樻病鏈夋暟鎹