📄 delmsg.asp
字号:
<%@ Language=VBScript %>
<!--#include file=globals.asp -->
<%
userid=trim(session("userid"))
curclassid=trim(session("classid"))
if userid="" then
response.redirect "../error.asp?info=对不起,您已经掉线了,请重新申请!"
end if
set rs = createobject("ADODB.recordset")
sql="select * from classinfo where classid='"&curclassid&"'"
rs.open SQL,schooldb
if not rs.eof then
monitor=rs("monitor")
monitor1=rs("monitor1")
end if
rs.close
if userid<>monitor or userid<>monitor1 then
response.write"<SCRIPT language=JavaScript>alert(' 您没有此权力!');window.open('ClassBBSList.asp','_self')</script>"
else
set rs = createobject("ADODB.recordset")
sql="delete from message where id="&request("id")
rs.open SQL,schooldb
response.write"<SCRIPT language=JavaScript>alert('删除成功!');window.open('ClassBBSList.asp','_self')</script>"
end if
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -