📄 classmanage.asp
字号:
<!--#include file = include.asp-->
<!--#include file = CheckPurview.asp-->
<body background="images/BLogo.gif">
<table width="100%" border="0" cellspacing="1" cellpadding="0" align="center" bgcolor="#4397c5">
<tr>
<td colspan=3 width=100%><!--#include file = topMenu.htm--></td>
</tr>
<tr bgcolor="#FFFFFF">
<td rowspan="2" height="457" valign="top" width="24%" background="images/BLogo.gif">
<table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td> </td>
</tr>
<tr>
<td>
<form name="form1" method="POST" action="ClassSubmit.asp?operation=AddBigClass">
<table style="border-left: 1px solid #A4CEE4;border-top: 1px solid #A4CEE4;border-bottom: 1px solid #A4CEE4; border-right: 1px solid #A4CEE4" width="100%" border="0" cellpadding="0" align="center" cellspacing="0">
<tr bgcolor="#a4cee4">
<td height="25" colspan="2" align="center" valign="middle"><b>增加商务区域</b></td>
</tr>
<tr>
<td height="25" colspan="2" align="center" valign="middle">区域名称</td>
</tr>
<tr>
<td height="25" colspan="2" align="center" valign="middle">
<input type="text" name="BigClass" size="20" >
</td>
</tr>
<tr>
<td valign="middle" colspan="2" align="center">
<hr size=1 color=#accee4>
</td>
</tr>
<tr>
<td align="right">
<input type="submit" value="增加" name="B12">
</td>
<td>
<input type="reset" value="还原" name="B13">
</td>
</tr>
</table>
</form>
</td>
</tr>
<tr>
<td> </td>
</tr>
<tr>
<td>
<form name="form1" method="POST" action="ClassSubmit.asp?operation=AddSmallClass">
<table style="border-left: 1px solid #A4CEE4;border-top: 1px solid #A4CEE4;border-bottom: 1px solid #A4CEE4; border-right: 1px solid #A4CEE4" width="100%" border="0" cellpadding="0" align="center" cellspacing="0">
<tr>
<td height="25" bgcolor="#a4cee4" colspan="2" align="center" valign="middle"><b>增加市场分布</b></td>
</tr>
<tr>
<td height="20" colspan="2" align="center" valign="middle">所属区域</td>
</tr>
<tr> <%
set rs = server.createobject("adodb.recordset")
rs.source = "select BigClass from bigclass order by id desc "
rs.open rs.source,conn,1,1
%>
<td height="20" colspan="2" align="center" valign="middle">
<select name="BigClass">
<%
while not rs.eof
%>
<option value="<%=rs("BigClass")%>"><%=rs("BigClass")%></option>
<%
rs.movenext
wend
rs.close
%>
</select>
</td>
</tr>
<tr>
<td height="20" colspan="2" align="center" valign="middle">地区市场分布</td>
</tr>
<tr>
<td height="20" colspan="2" align="center" valign="middle">
<input type="text" name="SmallClass" size="20" >
</td>
</tr>
<tr>
<td height="0" colspan="2" align="center" valign="middle">
<hr size=1 color=#accee4>
</td>
</tr>
<tr valign="middle">
<td align="right">
<input type="submit" value="增加" name="B122">
</td>
<td>
<input type="reset" value="还原" name="B132">
</td>
</tr>
</table>
</form>
</td>
</tr>
</table>
</td>
<td width="48%" height="528" valign="top" rowspan="2" background="images/BLogo.gif">
<br>
<table style="border-left: 1px solid #A4CEE4;border-top: 1px solid #A4CEE4;border-bottom: 1px solid #A4CEE4; border-right: 1px solid #A4CEE4" width="95%" border="0" cellpadding="0" align="center" cellspacing="0">
<tr bgcolor="#a4cee4">
<td height="25" colspan="2" align="center" valign="middle"><b>市场划分</b></td>
</tr>
<tr valign="top">
<td colspan="2" height="425"> <%
set rs = server.createobject("adodb.recordset")
rs.source = "select BigClass from bigclass order by id desc "
rs.open rs.source,conn,1,1
if rs.recordcount=0 then
response.write("你没有添加栏目")
end if
while not rs.eof
BigClass=rs("BigClass")
response.write(" <img src=images/list.gif border=0 align=absMiddle ><font color=red> "&rs("BigClass")&"</font></img><br> ")
set rsSmallClass = server.createobject("adodb.recordset")
rsSmallClass.source = "select SmallClass from SmallClass where BigClass='"&BigClass&"' order by id desc "
rsSmallClass.open rsSmallClass.source,conn,1,1
while not rsSmallClass.eof
response.write("├ "&rsSmallClass("SmallClass")&"<br>")
rsSmallClass.movenext
wend
rsSmallClass.Close
rs.movenext
wend
%> </td>
</tr>
</table>
</td>
<td width="28%" height="528" valign="top" rowspan="2" background="images/BLogo.gif">
<table width="90%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td> </td>
</tr>
<form name="form1" method="POST" action="ClassSubmit.asp?operation=DelBigClass">
<tr>
<td>
<table style="border-left: 1px solid #A4CEE4;border-top: 1px solid #A4CEE4;border-bottom: 1px solid #A4CEE4; border-right: 1px solid #A4CEE4" width="100%" border="0" cellpadding="0" align="center" cellspacing="0">
<tr bgcolor="#a4cee4">
<td height="25" colspan="2" align="center" valign="middle"><b>删除商务区域</b></td>
</tr>
<tr>
<td height="25" colspan="2" align="center" valign="middle">区域名称</td>
</tr>
<tr>
<td height="25" colspan="2" align="center" valign="middle">
<select name="BigClass">
<%
set rs = server.createobject("adodb.recordset")
rs.source = "select BigClass from Bigclass order by id desc "
rs.open rs.source,conn,1,1
while not rs.eof
%>
<option value="<%=rs("BigClass")%>"><%=rs("BigClass")%></option>
<%
rs.movenext
wend
rs.close
%>
</select>
</td>
</tr>
<tr>
<td valign="middle" colspan="2" align="center">
<hr size=1 color=#accee4>
</td>
</tr>
<tr align="center">
<td colspan="2">
<table width="90%" border="0" cellspacing="1" cellpadding="0" bgcolor="#CCCCCC">
<tr bgcolor="#F6F6F6">
<td><font color="#FF0000">注意：</font>删除区域后，该区域的地区市场及相应的商务信息将一起删除。</td>
</tr>
</table>
</td>
</tr>
<tr align="center">
<td colspan="2">
<input type="submit" value="删除" name="B123" onclick="return Del()">
</td>
</tr>
</table>
</td>
</tr>
</form>
<form name="form1" method="POST" action="ClassSubmit.asp?operation=DelSmallClass">
<tr>
<td height="73">
<table style="border-left: 1px solid #A4CEE4;border-top: 1px solid #A4CEE4;border-bottom: 1px solid #A4CEE4; border-right: 1px solid #A4CEE4" width="100%" border="0" cellpadding="0" align="center" cellspacing="0">
<tr bgcolor="#a4cee4">
<td height="25" colspan="2" align="center" valign="middle"><b>删除地区市场</b></td>
</tr>
<tr>
<td height="25" colspan="2" align="center" valign="middle">地区市场分布</td>
</tr>
<tr>
<td height="25" colspan="2" align="center" valign="middle">
<select name="SmallClassID">
<%
set rs = server.createobject("adodb.recordset")
rs.source = "select BigClass from bigclass order by id desc "
rs.open rs.source,conn,1,1
if rs.recordcount=0 then
response.write("你没有添加栏目")
end if
while not rs.eof
BigClass=rs("BigClass")
%>
<option value="" style=background-color:#a4cee4 >╋<%=rs("BigClass")%></option>
<%
set rsSmallClass = server.createobject("adodb.recordset")
rsSmallClass.source = "select SmallClass,ID from SmallClass where BigClass='"&BigClass&"'"
rsSmallClass.open rsSmallClass.source,conn,1,1
while not rsSmallClass.eof
%>
<option value=<%=rsSmallClass("ID")%>> ├<%=rsSmallClass("SmallClass")%></option>
<%
rsSmallClass.movenext
wend
rsSmallClass.Close
rs.movenext
wend
rs.close
set rs=nothing
%>
</select>
</td>
</tr>
<tr>
<td valign="middle" colspan="2" align="center">
<hr size=1 color=#accee4>
</td>
</tr>
<tr align="center">
<td colspan="2">
<table width="90%" border="0" cellspacing="1" cellpadding="0" bgcolor="#CCCCCC">
<tr bgcolor="#F6F6F6">
<td><font color="#FF0000">注意：</font>删除地区市场后，该地区的商务信息将一并删除。</td>
</tr>
</table>
</td>
</tr>
<tr align="center">
<td colspan="2">
<input type="submit" value="删除" name="B1232" onclick="return Del()">
</td>
</tr>
</table>
</td>
</tr>
</form>
<tr>
<td> </td>
</tr>
<form name="form1" method="POST" action="ClassModify.asp?operation=ModifyBigClass">
<tr>
<td height="2">
<table style="border-left: 1px solid #A4CEE4;border-top: 1px solid #A4CEE4;border-bottom: 1px solid #A4CEE4; border-right: 1px solid #A4CEE4" width="100%" border="0" cellpadding="0" align="center" cellspacing="0">
<tr>
<td height="25" colspan="2" align="center" valign="middle" bgcolor="#a4cee4"><b>修改区域名称</b></td>
</tr>
<tr>
<td height="25" colspan="2" align="center" valign="middle">区域名称</td>
</tr>
<tr>
<td height="25" colspan="2" align="center" valign="middle">
<select name="BigClassID">
<%
set rs = server.createobject("adodb.recordset")
rs.source = "select BigClass,ID from bigclass order by id desc "
rs.open rs.source,conn,1,1
while not rs.eof
%>
<option value="<%=rs("ID")%>"><%=rs("BigClass")%></option>
<%
rs.movenext
wend
rs.close
set rs=nothing
%>
</select>
</td>
</tr>
<tr>
<td valign="middle" colspan="2" align="center">
<hr size=1 color=#accee4>
</td>
</tr>
<tr align="center" valign="middle">
<td colspan="2">
<input type="submit" value="修改" name="B12322">
</td>
</tr>
</table>
</td>
</tr>
</form>
<form name="form1" method="POST" action="ClassModify.asp?operation=ModifySmallClass">
<tr>
<td height="99">
<table style="border-left: 1px solid #A4CEE4;border-top: 1px solid #A4CEE4;border-bottom: 1px solid #A4CEE4; border-right: 1px solid #A4CEE4" width="100%" border="0" cellpadding="0" align="center" cellspacing="0">
<tr bgcolor="#a4cee4">
<td height="25" colspan="2" align="center" valign="middle"><b>修改市场名称</b></td>
</tr>
<tr>
<td height="25" colspan="2" align="center" valign="middle">市场名称
</td>
</tr>
<tr>
<td height="25" colspan="2" align="center" valign="middle">
<select name="SmallClassID">
<%
set rs = server.createobject("adodb.recordset")
rs.source = "select BigClass from bigclass order by id desc "
rs.open rs.source,conn,1,1
if rs.recordcount=0 then
response.write("你没有添加栏目")
end if
while not rs.eof
BigClass=rs("BigClass")
%>
<option value="" style=background-color:#a4cee4 >╋<%=rs("BigClass")%></option>
<%
set rsSmallClass = server.createobject("adodb.recordset")
rsSmallClass.source = "select ID,SmallClass from SmallClass where BigClass='"&BigClass&"'"
rsSmallClass.open rsSmallClass.source,conn,1,1
while not rsSmallClass.eof
%>
<option value=<%=rsSmallClass("ID")%>> ├<%=rsSmallClass("SmallClass")%></option>
<%
rsSmallClass.movenext
wend
rsSmallClass.Close
rs.movenext
wend
rs.close
%>
</select>
</td>
</tr>
<tr>
<td valign="middle" colspan="2" align="center">
<hr size=1 color=#accee4>
</td>
</tr>
<tr align="center" valign="middle">
<td colspan="2">
<input type="submit" value="修改" name="B1233">
</td>
</tr>
</table>
</td>
</tr>
</form>
</table>
</td>
</tr>
<tr bgcolor="#FFFFFF"> </tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -