📄 classmana1.asp
字号:
<%@ LANGUAGE="VBSCRIPT" %>
<%option explicit%>
<!--#include file="conn.asp"-->
<%
'检查用户是否已经经过登陆验证了
if session("admin") = "" Then
'如果没有登陆，则输出出错信息
'要求用户进行登陆
response.write " <br><br><br>"
response.write " <table align='center' width='300' border='1' cellpadding='0' cellspacing='0' bordercolor='#999999'>"
response.write " <tr bgcolor='#999999'> "
response.write " <td colspan='2' height='15'> "
response.write " <div align='center'><font color='#FFFFFF'>操作: 确认身份失败!</font></div>"
response.write " </td>"
response.write " </tr>"
response.write " <tr> "
response.write " <td colspan='2' height='23'> "
response.write " <div align='center'><br><br>"
response.write " 非法登陆,您的操作已经被记录!!! <br><br>"
response.write " <a href='javascript:onclick=history.go(-1)'>返回</a>"
response.write " <br><br></div></td>"
response.write " </tr> </table>"
'终止响应
response.end
end If
'如果用户不是超级管理员
if session("flag")>1 Then
'提示用户
response.write "<br><p align=center>您没有操作的权限</p>"
'终止响应
response.end
end If
'变量定义
dim sql,rs,cmdTemp
'判断操作类型
select case request.form("options")
'修改栏目名称
case "rename"
on error resume Next
'命令对象
Set cmdTemp = Server.CreateObject("ADODB.Command")
'记录集对象
set rs=server.createobject("adodb.recordset")
'选择所有一级栏目
cmdTemp.CommandText = "SELECT * FROM class where id=" & request.form("subject")
cmdTemp.CommandType = 1
Set cmdTemp.ActiveConnection = conn
'打开记录集
rs.Open cmdTemp, , 1, 3
'是否出现错误
if err.Number<>0 then
err.clear
response.write " 数 据 库 操 作 失 败 ! "
Else
'修改栏目信息
rs("class") = trim(request.form("reTitle"))
'提交更改
rs.Update
'关闭记录集,释放对象
rs.Close
set rs=nothing
set cmdTemp=nothing
finished
end If
'删除子栏目
case "del"
on error resume Next
'删除所有该栏目下的短消息
sql="delete from message where classid=" & request.form("subject")
conn.execute sql
'删除该一级栏目下所有的二级栏目信息
sql="delete from subclass where parentid=" & request.form("subject")
'执行操作
conn.execute sql
'删除该一级栏目
sql="delete from class where id=" & request.form("subject")
'执行操作
conn.execute sql
if err.Number<>0 then
err.clear
response.write " 数 据 库 操 作 失 败 ! "
else
finished
end If
'添加新栏目
case "new"
'命令对象
Set cmdTemp = Server.CreateObject("ADODB.Command")
'记录集对象
set rs=server.createobject("adodb.recordset")
'添加新的二级栏目
cmdTemp.CommandText = "SELECT * FROM class where (id IS NULL)"
cmdTemp.CommandType = 1
Set cmdTemp.ActiveConnection = conn
'打开记录集
rs.Open cmdTemp, , 1, 3
if err.Number<>0 then
err.clear
response.write " 数 据 库 操 作 失 败 ! "
Else
'添加新纪录
rs.AddNew
'新纪录的信息
rs("class") = request.form("newTitle")
'提交更新
rs.Update
'关闭记录集,释放对象
rs.Close
set rs=nothing
set cmdTemp=nothing
finished
end if
end select
'结束过程
sub finished()
%>
<html>
<head>
<title>修改成功</title>
<meta http-equiv="refresh" content='2; URL=classmana.asp'>
</head>
<body>
<p align="center"><b>专题修改成功！</b></p>
<%
end sub
%>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -