www.gusucode.com > 随缘网络产品管理系统 2.0码程序 > manage/ClassManage.asp
<%@language=VBScript codepage=936 %> <% if not session("check")="checked" then response.Redirect "login.asp" end if %> <!--#include file="conn.asp"--> <% dim sql,rsBigClass,rsSmallClass,ErrMsg set rsBigClass=server.CreateObject("adodb.recordset") rsBigClass.open "Select * From BigClass",conn,1,3 %> <script language="JavaScript" type="text/JavaScript"> function checkBig() { if (document.form1.BigClassName.value=="") { alert("大类名称不能为空!"); document.form1.BigClassName.focus(); return false; } } function checkSmall() { if (document.form2.BigClassName.value=="") { alert("请先添加大类名称!"); document.form1.BigClassName.focus(); return false; } if (document.form2.SmallClassName.value=="") { alert("小类名称不能为空!"); document.form2.SmallClassName.focus(); return false; } } function ConfirmDelBig() { if(confirm("确定要删除此大类吗?删除此大类同时将删除所包含的小类和该类下的所有产品,并且不能恢复!")) return true; else return false; } function ConfirmDelSmall() { if(confirm("确定要删除此小类吗?删除此小类同时将删除该类下的所有产品,并且不能恢复!")) return true; else return false; } </script> <head> <link href="images/private.css" rel="stylesheet" type="text/css" /> <script language='javascript' src='images/private.js'></SCRIPT> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <style type="text/css"> <!-- .style1 { color: #00FF00; font-weight: bold; } --> </style> </head> <div align="center"> <table width="100%" border="0" cellpadding="0" cellspacing="0"> <tr> <td align="center" valign="top"> <table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#FF0000" class="list"> <tr> <th height="30" align="center" bgcolor="#FF0000" colspan="2"> <a href="ClassAddBig.asp"><strong><font color="#FFFFFF"> <span style="text-decoration: none">添加产品一级分类</span></font></strong></a><font color="#000000"> </font> </th> </tr> <tr> <td width="50%" height="30" align="center" bgcolor="#FF0000"><span class="style1"> <font color="#000000">栏目名称</font></span></td> <td height="30" align="center" bgcolor="#FF0000"><span class="style1"> <font color="#000000">操作选项</font></span></td> </tr> <% do while not rsBigClass.eof %> <tr bgcolor="#E3E3E3" class="tdbg"> <td width="233" height="22" bgcolor="#FFD0DF"><img src="images/1.gif"><%=rsBigClass("BigClassName")%></td> <td align="right" bgcolor="#FFD0DF" style="padding-right:10"><a href="ClassAddSmall.asp?BigClassName=<%=rsBigClass("BigClassName")%>"><font color="#FF0000">添加二级分类</font></a> | <a href="ClassModifyBig.asp?BigClassID=<%=rsBigClass("BigClassID")%>">修改</a> | <a href="ClassDelBig.asp?BigClassName=<%=rsBigClass("BigClassName")%>" onClick="return ConfirmDelBig();">删除</a></td> </tr> <% set rsSmallClass=server.CreateObject("adodb.recordset") rsSmallClass.open "Select * From SmallClass Where BigClassName='" & rsBigClass("BigClassName") & "'",conn,1,1 if not(rsSmallClass.bof and rsSmallClass.eof) then do while not rsSmallClass.eof %> <tr bgcolor="#FFFFFF" class="tdbg"> <td width="233" height="22"> <img src="images/2.gif"><%=rsSmallClass("SmallClassName")%></td> <td align="right" style="padding-right:10"><a href="ClassModifySmall.asp?SmallClassID=<%=rsSmallClass("SmallClassID")%>">修改</a> | <a href="ClassDelSmall.asp?SmallClassID=<%=rsSmallClass("SmallClassID")%>&SmallClassName=<%=rsSmallClass("SmallClassName")%>" onClick="return ConfirmDelSmall();">删除</a></td> </tr> <% rsSmallClass.movenext loop end if rsSmallClass.close set rsSmallClass=nothing rsBigClass.movenext loop %> </table> <br> </td> </tr> </table> </div> <% rsBigClass.close set rsBigClass=nothing %>