delmsg.asp

来自「中国创网同学录1.02」· ASP 代码 · 共 27 行

<%@ 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
%>