delmess.asp

来自「俄罗斯方块另类.zip - 又一个俄罗斯方块的代码（转）用vc写的著名游戏俄罗斯」· ASP 代码 · 共 25 行

<%@ language=vbscript %>
<%
if session("username")="" then
response.redirect "log.asp"
end if
set conn=server.createobject("adodb.connection")
dbpath=server.mappath("mis.mdb")
conn.open "driver={microsoft access driver (*.mdb)};dbq=" & dbpath
sql1 = "select * from message where id="&request("id")
set rs1=server.createobject("adodb.recordset")
rs1.open sql1,conn,3,3
laccname=rs1("accname")
if session("username")=laccname then
sql = "delete * from message where id="&request("id")
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
response.redirect "per.asp"
else 
response.write "非法拥护！"
end if
%>