📄 admin_class_ok.asp
字号:
<%@ codepage ="936" %><%if instr(session("flag"),"71")=0 thenresponse.redirect "../login.asp"response.endend if%><!--#include file="../../conn/dbconn2.asp" --><html><head><meta http-equiv="Content-Type" content="text/html; charset=gb2312"><BODY topMargin=0 leftmargin="0" marginheight="0"><LINK href="../style.css" rel=stylesheet type=text/css></head><%dim bodycall main()rs1.closeset rs1=nothingset rs=nothingconn.closeset conn=nothingsub main()%><CENTER><table cellpadding=0 cellspacing=0 border=0 width=100% align=center><tr><td><table cellpadding=4 cellspacing=1 border=0 width=100%><tr><td width="100%" valign=top><font color="<%=TableContentColor%>"><%if request("action") ="add_class_1" then call add_class_1()elseif request("action")="add_class_1_ok" thencall add_class_1_ok()elseif request("action")="add_class_2" thencall add_class_2()elseif request("action")="add_class_2_name" thencall add_class_2_name()elseif request("action")="add_class_2_ok" thencall add_class_2_ok()elseif request("action")="edit_class_1" thencall edit_class_1()elseif request("action")="edit_class_2" thencall edit_class_2()elseif request("action")="savedit_1" thencall savedit_1()elseif request("action")="savedit_2" thencall savedit_2()elseif request("action")="del_class_1" thencall del_class_1()elseif request("action")="del_class_2" thencall del_class_2()elsecall linkinfo()end if%><p><%=body%></p></font></td></tr></table></td></tr></table><%end subsub add_class_1()%><SCRIPT language=javascript>function FORM1_onsubmit(){if(document.FORM1.class_name.value.length<1){alert("您必须输入大类名称!");document.FORM1.class_name.focus();return false;}}</SCRIPT><FORM name=FORM1 onsubmit="return FORM1_onsubmit()" action=admin_class_ok.asp?action=add_class_1_ok method=post><TABLE cellSpacing=1 cellPadding=4 width=600><TBODY><TR vAlign=middle><TD><TABLE cellPadding=4 cellSpacing=0 width=100% border="0"><TBODY><TR><TD colSpan=2 height="28" bgcolor=#e8f4ff>行业大类添加--</TD></TR><TR><TD width=40% height=25><b>行业大类名称</b></TD><TD width=60% height=25><INPUT maxLength=16 size=25 name=class_name></TD></TR><TR><TD colSpan=2 height="27" align=center bgcolor=#e8f4ff><INPUT type=submit value='确 定' name=Submit2></TD></TR></TBODY></TABLE></TD></TR></TABLE></FORM><%end subsub add_class_2()set rs=server.createobject("adodb.recordset")sqltext2="select * from Class_1 "rs.open sqltext2,conn,1,1%><FORM name=FORM1 action=admin_class_ok.asp?action=add_class_2_name method=post><br><br><TABLE cellPadding=4 cellSpacing=0 width=600 border="0"><TBODY><TR><TD colSpan=2 height="32" bgcolor=#e8f4ff>行业小类添加--(第一步)</TD></TR><TR><TD width=40% height=25><b>所属行业大类</b><br>请选择你的要添加的行业小类所属的大类。</TD><TD width=60% height=25><select size="1" name="class_1_id" style="font-size: 9pt"><%While Not rs.EOF%><option value=<%=rs("sortid")%>><% =rs("sort")%></option><%rs.MoveNextWendrs.close%></select></TD></TR><TR><TD colSpan=2 height="27" align=center bgcolor=#e8f4ff><INPUT class=smallInput type=submit size=3 value='下一步' name=Submit2></TD></TR></TBODY></TABLE></form><%end subsub add_class_2_name()set rs=server.createobject("adodb.recordset")sqltext2="select * from Class_1 where sortid="+Cstr(request("class_1_id"))rs.open sqltext2,conn,1,1%><SCRIPT language=javascript>function FORM1_onsubmit(){if(document.FORM1.class_2_name.value.length<1){alert("您必须输入行业小类名称!");document.FORM1.class_2_name.focus();return false;}}</SCRIPT><FORM name=FORM1 onsubmit="return FORM1_onsubmit()" action=admin_class_ok.asp?action=add_class_2_ok method=post><INPUT type=hidden value="<%=request.form("class_1_id")%>" name="class_1_id"><TABLE cellPadding=4 cellSpacing=0 width=100% border="0"><TBODY><TR><TD colSpan=2 height="32" bgcolor=#e8f4ff>行业小类添加--(第二步)</TD></TR><TR><TD width=40% height=25><b>所属行业大类</b><br>这里显示的是你刚选择的行业大类的名称，如需修改请点击上一步。</TD><TD width=60% height=25><%=rs("sort")%></TD></TR><TR><TD width=40% height=25><b>行业小类名称</b></TD><TD width=60% height=25><input type="text" name="class_2_name" size="18"></TD></TR><TR><TD colSpan=2 height="27" align="center" bgcolor=#e8f4ff><input type="button" value="上一步" name="B4" onclick="javascript:window.history.go(-1)"> <INPUT type=submit size=3 value='确 定' name=Submit2></TD></TR></TBODY></TABLE> </form><%end subsub add_class_2_ok()set rs=server.createobject("adodb.recordset")sqltext="select * from Class_2 where typename='"&request.form("class_2_name")&"' and sortid=" & request.form("class_1_id")&""rs.open sqltext,conn,1,1'查找数据库，检查二级分类是否已经存在if rs.recordcount >= 1 then if rs("typename")=Lcase(request.form("class_2_name")) thenresponse.write"<SCRIPT language=JavaScript>alert('此二级分类已经存在，请选用其它名称!');"response.write"this.location.href='javascript:history.back();'</SCRIPT>"rs.closeend ifelseset rs=server.createobject("adodb.recordset")sqltext="select * from Class_2"rs.open sqltext,conn,3,3'添加一个二级分类到数据库rs.addnewrs("typename")=request.form("class_2_name")rs("sortid")=request.form("class_1_id")rs.updateresponse.redirect "sort.asp"end ifend subsub edit_class_1()set rs=server.createobject("adodb.recordset")sqltext="select * from Class_1 where sortid="+Cstr(request("id"))rs.open sqltext,conn,1,1%><form name=form1 action="Admin_Class_Ok.asp?action=savedit_1" method=post><input type=hidden name=id value="<%=Cstr(request("id"))%>"><center><br><br><table width="100%" border="0" cellspacing="4" cellpadding="0"><TR><TD colSpan=2 height="28" bgcolor="#e8f4ff">行业大类修改</TD></TR><tr> <td width="40%"><b>大类名称</b></td><td width="60%"> <input type="text" name="class_1_name" size='40' value=<%=rs("sort")%>></td></tr><tr> <td height="30" colspan="2" bgcolor="#e8f4ff" align="center"> <input type="submit" name="Submit" value="修改"></td></tr></table></form><%rs.closeset rs=nothingend subsub edit_class_2()set rs=server.createobject("adodb.recordset")sqltext="select * from Class_2 where typeid="+Cstr(request("id"))rs.open sqltext,conn,1,1set rs2=server.createobject("adodb.recordset")sqltext2="select * from Class_1 where sortid="+Cstr(rs("sortid"))rs2.open sqltext2,conn,1,1%><form name=form1 action=Admin_Class_Ok.asp?action=savedit_2 method=post><input type=hidden name=id value=<%=Cstr(request("id"))%>><center><br><br><table width="100%" border="0" cellspacing="4" cellpadding="0"><TR><TD colSpan=2 height="28" bgcolor="#e8f4ff">商品二级分类修改</TD></TR><tr> <td width="40%"><b>一级分类名称</b></td><td width="60%"><%=rs2("sort")%></td></tr><tr> <td width="40%"><b>二级分类名称</b></td><td width="60%"> <input type="text" name="class_2_name" size='40' value=<%=rs("typename")%>></td></tr><tr> <td height="30" colspan="2" bgcolor="#e8f4ff" align="center"><input type="submit" name="Submit" value="修改"></td></tr></table></form><%rs.closers2.closeset rs=nothingset rs2=nothingend subsub savedit_1()set rs= server.createobject ("adodb.recordset")sql ="select * from class_1 where sortid="+Cstr(request("id"))rs.Open sql,conn,1,3if rs.eof and rs.bof thenbody=body+"<br>"+"错误，数据库操作错误，没有找到此条信息。"elsers("sort")=Trim(Request.Form ("class_1_name"))rs.Updateend if response.redirect "sort.asp"end subsub savedit_2()set rs= server.createobject ("adodb.recordset")sql ="select * from class_2 where typeid="+Cstr(request("id"))rs.Open sql,conn,1,3if rs.eof and rs.bof thenbody=body+"<br>"+"错误，数据库操作错误，没有找到此条信息"elsers("typename")=Trim(Request.Form ("class_2_name"))rs.Updateend if response.redirect "sort.asp"end subsub del_class_1()set rs1=server.createobject("adodb.recordset")sqltext1="select * from class_2 where sortid="+Cstr(request("id"))rs1.open sqltext1,conn,1,1If rs1.eof and rs1.bof then set rs=server.createobject("adodb.recordset")sqltext="delete from class_1 where sortid="+Cstr(request("id"))rs.open sqltext,conn,3,3response.redirect "sort.asp"elseresponse.write"<SCRIPT language=JavaScript>alert('对不起，本类别下面还有小类！');"response.write"this.location.href='javascript:history.back();'</SCRIPT>"End ifend subsub del_class_2()set rs=server.createobject("adodb.recordset")sqltext="delete from class_2 where typeId="+Cstr(request("id"))rs.open sqltext,conn,3,3response.redirect "sort.asp"end subsub add_class_1_ok()set rs=server.createobject("adodb.recordset")sqltext="select * from Class_1 where sort='"&request.form("class_name")&"'"rs.open sqltext,conn,1,1'查找数据库，检查商品大类是否已经存在if rs.recordcount >= 1 then if rs("Class_1_name")=request.form("class_name") thenresponse.write"<SCRIPT language=JavaScript>alert('此类别已经存在，请选用其它名称！');"response.write"this.location.href='admin_class_ok.asp?action=add_class_1';</SCRIPT>"end ifelseset rs=server.createobject("adodb.recordset")sqltext="select * from Class_1"rs.open sqltext,conn,3,3rs.addnewrs("sort")=request.form("class_name")rs.updateresponse.redirect "sort.asp"end ifend sub%></body></html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -