📄 addarea.asp
字号:
<!--#include file="adminconn.inc" -->
<html>
<head>
<title>腾科B2C购物系统-商品管理</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="../inc/guhongying.css" type="text/css">
</head>
<body bgcolor="#6699CC" text="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table width="100%" border="0" cellspacing="1" cellpadding="2" bgcolor="#000000" vspace="0" hspace="0">
<tr>
<td bgcolor="#316395" height="27"><font color="#FFFFFF">.:: 您可以在这里添加和删除分类别</font></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="50"> </td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="6">
<tr>
<td align="center">
<form name="modibigarea" method="post" action="addarea.asp">
<table border="0" cellspacing="1" cellpadding="4" bgcolor="#000000" width="300">
<tr>
<td bgcolor="#336699" colspan="2">
<p><b><font color="#FFFFFF">添加一个分类别</font></b></p>
</td>
</tr>
<tr>
<td bgcolor="#7C96B8" align="center" height="25" width="69"><font color="#FFFFFF">所属主分类</font></td>
<td bgcolor="#7C96B8" align="center" height="25" width="210">
<select name="bigarea" class="bk">
<option value="0" selected>请选择主分类</option>
<%
sql="select * from bigarea"
set rs=server.createobject("ADODB.Recordset")
rs.open sql,conn,1,1
while not rs.eof
%>
<option value="<%=rs("bigarea")%>"><%=rs("bigarea")%></option>
<%
rs.movenext
wend
rs.Close()
%>
</select>
</td>
</tr>
<tr>
<td bgcolor="#7C96B8" align="center" height="25" width="69"><font color="#FFFFFF">分类别名：</font></td>
<td bgcolor="#7C96B8" align="center" height="25" width="210">
<input type="text" name="addarea" size="13">
</td>
</tr>
<tr>
<td bgcolor="#336699" align="center" colspan="2">
<input type="submit" name="Submit" value="添加" class="Tips_bo">
<input type="hidden" name="action" value="addarea">
</td>
</tr>
</table>
</form>
</td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="6">
<tr>
<td align="center">
<form name="modibigarea" method="post" action="addarea.asp">
<table border="0" cellspacing="1" cellpadding="4" bgcolor="#000000" width="300">
<tr>
<td bgcolor="#336699" colspan="2">
<p><b><font color="#FFFFFF">删除一个分类别</font></b></p>
</td>
</tr>
<tr>
<td bgcolor="#7C96B8" align="center" height="25" width="69"><font color="#FFFFFF">选择分类别</font></td>
<td bgcolor="#7C96B8" align="center" height="25" width="210">
<select name="delarea" class="bk">
<option value="0" selected>请选择分类别</option>
<%
sql="select * from area"
set rs=server.createobject("ADODB.Recordset")
rs.open sql,conn,1,1
while not rs.eof
%>
<option value="<%=rs("area")%>"><%=rs("area")%></option>
<%
rs.movenext
wend
rs.Close()
%>
</select>
</td>
</tr>
<tr>
<td bgcolor="#336699" align="center" colspan="2">
<p>
<input type="submit" name="Submit" value="删除" class="Tips_bo">
<input type="hidden" name="action" value="delarea">
</p>
<p><font color="#FFFFFF">(此功能谨用，将删除所有此分类别商品<br>
为不可逆操作) </font> </p>
</td>
</tr>
</table>
</form>
</td>
</tr>
</table>
</body>
</html>
<%
if request("action")<>"addarea" and request("action")<>"delarea" then
response.end
else
if request("action")="addarea" then
bigarea=request("bigarea")
area=request("addarea")
if bigarea="0" then
response.write"<SCRIPT language=JavaScript>alert('请选择分类别所在的主分类！');"
response.write "</SCRIPT>"
response.end
end if
if area="" then
response.write"<SCRIPT language=JavaScript>alert('请输入分类别名！');"
response.write "</SCRIPT>"
response.end
end if
conn.execute "insert into area (bigarea,area) values ('"&bigarea&"','"&area&"')"
response.write"<SCRIPT language=JavaScript>alert('分类别添加成功！');"
response.write "</SCRIPT>"
end if
if request("action")="delarea" then
conn.execute "delete * from area where area='"&request("delarea")&"'"
conn.execute "delete * from subs where area='"&request("delarea")&"'"
response.write"<SCRIPT language=JavaScript>alert('分类别删除成功！');"
response.write "</SCRIPT>"
end if
end if
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -