📄 class.asp
字号:
<%
if session("admin_name")="" then
response.write "<script LANGUAGE='javascript'>alert('对不起，登陆超时！');</script>"
response.end
end if
%>
<!--#include file="conn.asp"-->
<%
del=request.QueryString("del")
add=request.QueryString("add")
del2=request.QueryString("del2")
add2=request.QueryString("add2")
if del="删除" then
op=request.QueryString("select")
sql="delete from [bclass] where bclass_id="&op&""
sql2="delete from [sclass] where sclass_parent="&op&""
conn.execute(sql)
conn.execute(sql2)
message="删除成功！"
end if
if add="添加" then
bclass_name=request.QueryString("bclass_name")
set rs=server.createobject("adodb.recordset")
sql="select * from [bclass] where bclass_name='"&bclass_name&"'"
rs.open sql,conn,1,1
if not rs.eof then
message="添加失败，该类名已经存在！"
rs.close
else
sql="insert into bclass(bclass_name) values('"&bclass_name&"') "
conn.execute(sql)
message="添加大类成功!"
end if
end if
if del2="删除" then
sclass=request.QueryString("sclass")
sql="delete from [sclass] where sclass_id="&sclass&""
conn.execute(sql)
message="删除成功！"
end if
if add2="添加" then
sclass_name=request.QueryString("sclass_name")
bclass=request.QueryString("bclass")
set rs=server.createobject("adodb.recordset")
sql="select * from [sclass] where sclass_name='"&sclass_name&"'"
rs.open sql,conn,1,1
if not rs.eof then
message="添加失败，该类名已经存在！"
rs.close
else
sql="insert into sclass(sclass_name,sclass_parent) values('"&sclass_name&"',"&bclass&")"
conn.execute(sql)
message="添加小类成功!"
end if
end if
%>
<html>
<head>
<link href=../css.css rel=STYLESHEET type=text/css>
<base target="_self">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"></head>
<body>
<%
set rs=server.createobject("adodb.recordset")
sql = "select * from sclass"
rs.open sql,conn,1,1
%>
<script language = "JavaScript">
var onecount;
onecount=0;
subcat = new Array();
<%
count = 0
do while not rs.eof
%>
subcat[<%=count%>] = new Array("<%= trim(rs("sclass_name"))%>","<%= trim(rs("sclass_parent"))%>","<%= trim(rs("sclass_id"))%>");
<%
count = count + 1
rs.movenext
loop
rs.close
%>
onecount=<%=count%>;
function changelocation(locationid)
{
document.form.sclass.length = 0;
var locationid=locationid;
var i;
for (i=0;i < onecount; i++)
{
if (subcat[i][1] == locationid)
{
document.form.sclass.options[document.form.sclass.length] = new Option(subcat[i][0], subcat[i][2]);
}
}
}
</script>
<div align="center">
<table width="504" border="0" cellpadding="0" cellspacing="0" >
<!--DWLayoutTable-->
<tr>
<td width="56" height="66"> </td>
<td width="386"><font color="#FF0000"><%=message%></font></td>
<td width="62"> </td>
</tr>
<tr>
<td height="200"> </td>
<td valign="top"><table width="100%" border="0" cellpadding="1" cellspacing="1" bgcolor="#66CCFF">
<!--DWLayoutTable-->
<tr>
<td width="382" height="24" valign="middle" bgcolor="#00FFFF"> <div align="center">信息大类管理</div></td>
</tr>
<tr><%
set rs=server.createobject("adodb.recordset")
sql="select * from [bclass]"
rs.open sql,conn,1,1
%>
<td height="180" valign="top" bgcolor="#FFFFFF">
<form method="get" action="class.asp">
<table width="100%" height="161" border="0">
<tr>
<td width="17%"> </td>
<td width="46%"> </td>
<td width="37%"> </td>
</tr>
<tr>
<td> </td>
<td><select name="select">
<option selected>请选择要删除的大类</option>
<%do while not rs.eof%>
<option value="<%=rs("bclass_id")%>"><%=rs("bclass_name")%></option>
<%rs.movenext
loop
rs.close
%>
</select></td>
<td><input type="submit" name="del" value="删除"></td>
</tr>
<tr>
<td> </td>
<td> </td>
<td> </td>
</tr>
<tr>
<td> </td>
<td> 大类名：
<input name="bclass_name" type="text" size="15"></td>
<td><input type="submit" name="add" value="添加"></td>
</tr>
<tr>
<td height="15"> </td>
<td> </td>
<td> </td>
</tr>
</table>
</form>
</td>
</tr>
</table></td>
<td> </td>
</tr>
<tr>
<td height="120"> </td>
<td><table width="100%" border="0" cellpadding="1" cellspacing="1" bgcolor="#66CCFF">
<!--DWLayoutTable-->
<tr>
<td width="382" height="24" valign="middle" bgcolor="#00FFFF"> <div align="center">信息小类管理</div></td>
</tr>
<tr>
<%
set rs=server.createobject("adodb.recordset")
sql="select * from [bclass]"
rs.open sql,conn,1,1
%>
<td height="177" valign="top" bgcolor="#FFFFFF"><form method="get" action="class.asp" name="form">
<table width="100%" height="178" border="0">
<tr>
<td width="17%"> </td>
<td width="46%"> </td>
<td width="37%"> </td>
</tr>
<tr>
<td> </td>
<td><select name="bclass" onChange="changelocation(document.form.bclass.options[document.form.bclass.selectedIndex].value)">
<option selected>请先选择大类</option>
<%do while not rs.eof%>
<option value="<%=rs("bclass_id")%>"><%=rs("bclass_name")%></option>
<%rs.movenext
loop
rs.close
%>
</select></td>
<td> </td>
</tr>
<tr>
<td> </td>
<td><select name="sclass">
</select></td>
<td><input type="submit" name="del2" value="删除"></td>
</tr>
<tr>
<td> </td>
<td> </td>
<td> </td>
</tr>
<tr>
<td> </td>
<td>小类名：
<input name="sclass_name" type="text" size="15"></td>
<td><input type="submit" name="add2" value="添加"></td>
</tr>
<tr>
<td> </td>
<td> </td>
<td> </td>
</tr>
</table>
</form></td>
</tr>
</table></td>
<td> </td>
</tr>
</table>
</div>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -