📄 sort.asp

📁 本实例为一个完整的网上购物商城的完整例子程序,里面有所以的源代码.希望对大家学习有用.

💻 ASP

字号:

<!--#include file="conn.asp" -->
<%
if session("admin_name")="" then
        response.redirect "error.asp?error=001"
end if
%>
<link rel="stylesheet" type="text/css" href="css.css">
<body bgcolor="#FFFFCC" text="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table width="100%" border="0" cellspacing="1" cellpadding="2" bgcolor="#FFFFFF" vspace="0" hspace="0">
<tr >
<td height="27" background="images/admin_bg_1.gif">.:: 您可以在这里进行商品类别相关操作</td>
</tr>
</table>
<table border="0" cellspacing="1" cellpadding="2" bgcolor="#FFFFFF" width="100%" align="center">
<tr>
<td height="22" bgcolor="#FFCC33" colspan="6" background="images/admin_bg_1.gif">
<div align="left"><a href="sort_edit.asp?a=add"><font color=red>添加一级分类</font></a></div>
</td>
</tr>
<tr>
<td height="22" bgcolor="#6699CC" width="49%">一级分类名称</td>
<td height="22" bgcolor="#6699CC" width="14%">编号</td>
<td colspan="4" bgcolor="#6699CC">操作</td>
</tr>
<%
dim rscsort
set rs=server.CreateObject("adodb.recordset")
rs.open "Select * From 56770_sort", conn, 1, 3
do while not rs.eof
%>
<tr bgcolor="#B0CBE6">
<td height="22" width="49%"><%=rs("sort_name")%>  [<a href="csort_edit.asp?sort_name=<%=rs("sort_name")%>&a=add"><font color=red>添加二级分类</font></a>]</td>
<td width="10%"><%=rs("number")%></td>
<td width="13%"><a href="sort_edit.asp?delsort=<%=rs("sort_name")%>&a=del">删除</a></td>
<td width="12%"><a href="sort_edit.asp?modisort=<%=rs("sort_name")%>&a=modi">修改</a></td>
<td width="12%"><a href="sort_edit.asp?unitesort=<%=rs("sort_name")%>&a=unite">合并</a></td>
</tr>
<%
set rscsort=server.CreateObject("adodb.recordset")
rscsort.open "Select * From 56770_csort Where sort_name='" & rs("sort_name") & "'", conn, 1, 1
if not(rscsort.bof and rscsort.eof)then
        do while not rscsort.eof
%>
<tr bgcolor="#E8F1FF">
<td height="22" width="49%"><%=rscsort("csort_name")%></td>
<td height="22" width="10%"><%=rscsort("cnumber")%></td>
<td width="13%"><a href="csort_edit.asp?delcsort=<%=rscsort("csort_name")%>&sort_name=<%=rscsort("sort_name")%>&cnumber=<%=rscsort("cnumber")%>&a=des">删除</a></td>
<td width="12%"><a href="csort_edit.asp?modicsort=<%=rscsort("csort_name")%>&sort_name=<%=rscsort("sort_name")%>&cnumber=<%=rscsort("cnumber")%>&a=modi">修改</a></td>
<td width="12%"><a href="csort_edit.asp?unitecsort=<%=rscsort("csort_name")%>&sort_name=<%=rscsort("sort_name")%>&cnumber=<%=rscsort("cnumber")%>&a=unite">合并</a></td>
</tr>
<%
rscsort.movenext
loop
end if
rscsort.close
set rscsort=nothing
rs.movenext
loop
%>
</table>
</body>
</html>
<%
rs.close
set rs=nothing
%>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -