del.asp

来自「计算器源码」· ASP 代码 · 共 13 行

<!--#include file="conn.asp"-->
<% if session.Contents("admin")="ok" then
dim sql6
    sql6="delete * from message where id=" & request("id")
    conn.execute sql6
    response.Redirect("index.asp")
    response.end
else 
    response.Redirect("index.asp")
end if
    conn.close
set conn=nothing
%>