admin_del.asp

管理员功能: 1.添加单个成绩 2.批量添加成绩 3.通过搜索并修改与删除 4.直接修改 5.可以批量删除 6.可以直接GO到达你想到达的页 7.清空登陆次数 8.管理课程表

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