delnes.asp

能自动计算总分、平均分及格率等各种统计数据。在统计时你还可以选择统计全部学科或部分学科；在使用中可自由增删成绩、人员

<%if session("password")<>"" then%>

<%
arrdel=Request("id")
kind=session("kind")
set rs=server.createobject("adodb.recordset")
conn = "DBQ=" + server.mappath("class_cj.mdb") + ";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="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%>