📄 admin_class_ok.asp
字号:
<%@ codepage ="936" %>
<%
if instr(session("flag"),"71")=0 then
response.redirect "../login.asp"
response.end
end 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 body
call main()
rs1.close
set rs1=nothing
set rs=nothing
conn.close
set conn=nothing
sub main()
%>
<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" then
call add_class_1_ok()
elseif request("action")="add_class_2" then
call add_class_2()
elseif request("action")="add_class_2_name" then
call add_class_2_name()
elseif request("action")="add_class_2_ok" then
call add_class_2_ok()
elseif request("action")="edit_class_1" then
call edit_class_1()
elseif request("action")="edit_class_2" then
call edit_class_2()
elseif request("action")="savedit_1" then
call savedit_1()
elseif request("action")="savedit_2" then
call savedit_2()
elseif request("action")="del_class_1" then
call del_class_1()
elseif request("action")="del_class_2" then
call del_class_2()
else
call linkinfo()
end if
%>
<p><%=body%></p></font>
</td>
</tr>
</table>
</td>
</tr>
</table>
<%
end sub
sub 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=100%>
<TBODY>
<TR vAlign=middle>
<TD>
<TABLE cellPadding=4 cellSpacing=0 width=100% border="0">
<TBODY>
<TR><TD colSpan=2 height="28" bgcolor=#f5f5f5>行业大类添加</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=#f5f5f5>
<INPUT type=submit value='确 定' name=Submit2>
</TD>
</TR>
</TBODY>
</TABLE>
</TD>
</TR>
</TABLE>
</FORM>
<%
end sub
sub 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=#f5f5f5>行业小类添加--(第一步)</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.MoveNext
Wend
rs.close
%>
</select></TD>
</TR>
<TR>
<TD colSpan=2 height="27" align=center bgcolor=#f5f5f5>
<INPUT class=smallInput type=submit size=3 value='下一步' name=Submit2>
</TD>
</TR>
</TBODY>
</TABLE>
</form>
<%
end sub
sub 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=#f5f5f5>行业小类添加--(第二步)</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=#f5f5f5><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 sub
sub 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")) then
response.write"<SCRIPT language=JavaScript>alert('此二级分类已经存在，请选用其它名称!');"
response.write"this.location.href='javascript:history.back();'</SCRIPT>"
rs.close
end if
else
set rs=server.createobject("adodb.recordset")
sqltext="select * from Class_2"
rs.open sqltext,conn,3,3
'添加一个二级分类到数据库
rs.addnew
rs("typename")=request.form("class_2_name")
rs("sortid")=request.form("class_1_id")
rs.update
response.redirect "sort.asp"
end if
end sub
sub 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"))%>">
<br><br>
<table width="100%" border="0" cellspacing="4" cellpadding="0">
<TR>
<TD colSpan=2 height="28" bgcolor="#f5f5f5">行业大类修改</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="#f5f5f5" align="center">
<input type="submit" name="Submit" value="修改">
</td>
</tr>
</table>
</form>
<%
rs.close
set rs=nothing
end sub
sub edit_class_2()
set rs=server.createobject("adodb.recordset")
sqltext="select * from Class_2 where typeid="+Cstr(request("id"))
rs.open sqltext,conn,1,1
set 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"))%>>
<br><br>
<table width="100%" border="0" cellspacing="4" cellpadding="0">
<TR>
<TD colSpan=2 height="28" bgcolor="#f5f5f5">二级分类修改</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="#f5f5f5" align="center">
<input type="submit" name="Submit" value="修改">
</td>
</tr>
</table>
</form>
<%
rs.close
rs2.close
set rs=nothing
set rs2=nothing
end sub
sub savedit_1()
set rs= server.createobject ("adodb.recordset")
sql ="select * from class_1 where sortid="+Cstr(request("id"))
rs.Open sql,conn,1,3
if rs.eof and rs.bof then
body=body+"<br>"+"错误，数据库操作错误，没有找到此条信息。"
else
rs("sort")=Trim(Request.Form ("class_1_name"))
rs.Update
end if
response.redirect "sort.asp"
end sub
sub savedit_2()
set rs= server.createobject ("adodb.recordset")
sql ="select * from class_2 where typeid="+Cstr(request("id"))
rs.Open sql,conn,1,3
if rs.eof and rs.bof then
body=body+"<br>"+"错误，数据库操作错误，没有找到此条信息"
else
rs("typename")=Trim(Request.Form ("class_2_name"))
rs.Update
end if
response.redirect "sort.asp"
end sub
sub del_class_1()
set rs1=server.createobject("adodb.recordset")
sqltext1="select * from class_2 where sortid="+Cstr(request("id"))
rs1.open sqltext1,conn,1,1
If 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,3
response.redirect "sort.asp"
else
response.write"<SCRIPT language=JavaScript>alert('对不起，本类别下面还有小类！');"
response.write"this.location.href='javascript:history.back();'</SCRIPT>"
End if
end sub
sub del_class_2()
set rs=server.createobject("adodb.recordset")
sqltext="delete from class_2 where typeId="+Cstr(request("id"))
rs.open sqltext,conn,3,3
response.redirect "sort.asp"
end sub
sub 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") then
response.write"<SCRIPT language=JavaScript>alert('此类别已经存在，请选用其它名称！');"
response.write"this.location.href='admin_class_ok.asp?action=add_class_1';</SCRIPT>"
end if
else
set rs=server.createobject("adodb.recordset")
sqltext="select * from Class_1"
rs.open sqltext,conn,3,3
rs.addnew
rs("sort")=request.form("class_name")
rs.update
response.redirect "sort.asp"
end if
end sub
%>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -