delserver.asp

来自「个人备忘系统一个不错的备忘软件.专供刚学ASP的人学习. 代码简单易懂 m」· ASP 代码 · 共 30 行

<!--#include file="conn.asp"-->
<%
dim typ
typ=request.QueryString("typ")
if typ="" then
response.write("<script>alert('非法提交参数！');window.location.href('addserver.asp')</script>")
response.end
end if
set rs1=server.CreateObject("adodb.recordset")
cmd1="select * from question where id="&typ

rs1.open cmd1,conn,1,3
if rs1("type")=5 then
if session("user")="" or session("group")<>1 then
response.write("<script>alert('您没有权限，请与管理员联系');window.location.href('vir.asp')</script>")
response.end
end if
end if 
if rs1.eof then
response.write("<script>alert('无此文章！');window.location.href('addserver.asp')</script>")
response.end
else
rs1.delete
rs1.update
rs1.close
conn.close
response.write("<script>alert('删除文章成功！');window.location.href('searchserver.asp')</script>")
end if

%>