admin_del.asp

此系统对学校教师的工资信息加以管理,大大提高学校的办公效率.

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