delcj.asp

查询,基于ASP的开发环境!数据库是ACCESS [成绩查询.rar] - 网上成绩查询系统 把学生姓名成绩输入数据库...[

<!--#include file="conn.asp"-->
<%
dim rs,conn
number=session("number")
passwd=session("Passwd")
set rs=server.CreateObject("ADODB.RecordSet")
sql="select * from admin1 where number='"&number&"'and passwd='"&Passwd&"'"
rs.open sql,conn,3,3
if rs.eof then
response.redirect "index.asp"
response.end
end if
key1=rs("oskey")
IF not(KEY1="super") THEN
	response.redirect "error.asp?id=065"
	response.end
END IF
rs.close
number1=request("number")
xueqi=request("xueqi")
sql="delete * from c1 where cj='"&number1&"' and xueqi='"&xueqi&"'"
rs.open sql,conn,3,3

response.redirect "returnOK.asp"%>