admin_del.asp

来自「一个用ASP编写的 关于火车售票的系统 写得还很详细的值得借鉴阿」· ASP 代码 · 共 80 行

<%if session("password")<>"" then%>
<!--#include file="inc/conn.asp"-->

<%if request.querystring("type")="user" then%>
<% 
arrdel=Request.querystring("id")
kind=request.querystring("kind")
'Response.Write arrdel
sql="delete from "& kind &" where id in ("&arrdel&")"
'Response.Write sql
conn.Execute sql
set conn=nothing
response.write"<SCRIPT language=JavaScript>alert('删除成功.刷新才可以看到效果！');"
response.write"javascript:history.go(-1)</SCRIPT>"
Response.Redirect session("return")
response.end
%>
<%end if%>

<%if request.querystring("type")="admin" then%>
<% 
arrdel=Request("id")
'Response.Write arrdel
sql="delete from bbs1 where id in ("&arrdel&")"
'Response.Write sql
conn.Execute sql
set conn=nothing
response.write"<SCRIPT language=JavaScript>alert('删除成功.刷新才可以看到效果！');"
response.write"javascript:history.go(-1)</SCRIPT>"
Response.Redirect(session("return"))
response.end
%>
<%end if%>

<%if request.querystring("type")="liuyan" then%>
<% 
arrdel=Request("id")
'Response.Write arrdel
sql="delete from liuyan where id in ("&arrdel&")"
'Response.Write sql
conn.Execute sql
set conn=nothing
response.write"<SCRIPT language=JavaScript>alert('删除成功.刷新才可以看到效果！');"
response.write"javascript:history.go(-1)</SCRIPT>"
Response.Redirect(session("return"))
response.end
%>
<%end if%>

<%if request.querystring("type")="search" then%>
<%
arrdel=Request("id")
kind=session("kind")
set rs=server.createobject("adodb.recordset")
conn = "DBQ=" + server.mappath("#25175class_cj.asp") + ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
sql="select "&kind&" from bbs1 where id in ("&arrdel&")"
rs.Open sql,conn,1,1
session("mes")=rs(kind)
rs.close
set rs=nothing
set conn=nothing
%>
<!--#include file="inc/conn.asp"-->
<%
'Response.Write arrdel
sql="delete from bbs1 where id in ("&arrdel&")"
'Response.Write sql
conn.Execute sql
set conn=nothing
response.write"<SCRIPT language=JavaScript>alert('删除成功.刷新才可以看到效果！');"
response.write"javascript:history.go(-1)</SCRIPT>"
Response.Redirect "seadmin.asp?kind="&session("kind")&"&"&session("kind")&"="&session("mes")
response.end
%>
<%end if%>

<%else
response.redirect "admpost.asp"
end if%>