📄 artdelt.asp
字号:
<!-- #include file="ChkPwd.asp" -->
<html>
<head>
<title>保存用户信息</title>
</head>
<body>
<%
'定义变量
Dim sql, vContId
'从参数中接收数据到变量中
vContId = CLng(Request("ContId"))
'Server对象的CreateObject方法建立Connection对象
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.ConnectionString="driver={SQL Server};server=Ntserver;UID=sa;PWD=sa;Database=Discuss"
Conn.Open
sql="SELECT UserName FROM Content WHERE ContId=" & vContId
Set rs = Conn.Execute(sql)
'判断是否有删除权限
If Session("UserName") <> "Admin" And Session("UserName") <> rs("UserName") Then
%>
<Script Language="JavaScript">
alert("没有删除的权限");
history.go(-1);
</Script>
<%
Else
sql = "SELECT * FROM Content WHERE ContId=" & vContId
Set rs = Conn.Execute(sql)
If Not rs.EOF Then
'如果为主题留言，则返回index.asp，否则返回view.asp，查看留言
vUpperId = rs("UpperId")
If vUpperId=0 Then
vLink = "index.asp"
Else
vLink = "view.asp?ContId=" & vUpperId
End If
sql = "DELETE FROM Content WHERE ContId=" & vContId & " Or UpperId=" & vContId
Conn.Execute(sql)
Response.Redirect vLink
Else
%>
<Script Language="JavaScript">
alert("已经删除");
history.go(-1);
</Script>
<%
End If
End If %>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -