addproduct.asp

电子商城代码

<!--#include file="conn.asp" -->
<%
admintop()
Dim admin_flag
admin_flag=",11,"
	if session("admin_name")="" or instr(","&session("flag")&",",admin_flag)=0 then
	adminflag()	
	else
dim rscsort
set rs=server.CreateObject("adodb.recordset")
rs.open "Select * From [56770_sort] order by paixu desc", conn, 1, 3
%>
<table width="98%" border="0" cellspacing="1" cellpadding="0" vspace="0" hspace="0" bgcolor="#183789" align="center">
 <tr>
 <td>
  <table border="0" cellspacing="1" cellpadding="4" bgcolor="#FFFFFF" align="center" width="100%">
  <tr>
<td height="27" class="classtop" align="center" colspan="6">鍟嗗搧娣诲姞</td>
</tr>
<%do while not rs.eof%>
<tr class=classtop1>
<td height="22" width="100%" colspan="6"><img src="../images/+.gif"><%=rs("sort_name")%> </td>
</tr>
<tr>
<%
set rscsort=server.CreateObject("adodb.recordset")
rscsort.open "Select * From [56770_csort] Where sort_id=" & rs("sort_id") & " order by paixu desc", conn, 1, 1
if not(rscsort.bof and rscsort.eof)then
i=1
        do while not rscsort.eof
%>
<td height="22" width="20%" class="classtd">&nbsp;&nbsp;<img src="../images/-.gif"><%=rscsort("csort_name")%></td><td align="center" class=classtd><input type="button" name="Submit2" value="娣诲姞鍟嗗搧" onClick="location.href='product_add.asp?sort_id=<%=rscsort("sort_id")%>&csort_id=<%=rscsort("csort_id")%>'" class="button"></td>
<%if i mod 3 = 0 then
response.write"</tr>"
end if
rscsort.movenext
i=i+1
loop 
end if
rscsort.close
set rscsort=nothing
%>

<%rs.movenext
loop
rs.close
set rs=nothing
end if
%>
</table>
</td>
</tr>
</table>