delxue.asp

来自「查询,基于ASP的开发环境!数据库是ACCESS [成绩查询.rar] - 网上」· ASP 代码 · 共 23 行

<!--#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
xueqi=request("xueqi")
sql="delete * from xueqi where xueqi='"&xueqi&"'"
rs.open sql,conn,3,3

response.redirect "returnOK.asp"%>