checkusr.asp

来自「这是一个用ASP写的在线考试系统.特别一点 就是考试试卷有两种考法,一种为系统」· ASP 代码 · 共 34 行

<link href="css/Style.css" rel="stylesheet" type="text/css"> 

<!--#include file="conn2.asp"-->
<%
   stunum=trim(request("stu_num"))
   session("stunum")=stunum
   'response.Write(stunum)
   'response.End()
%>
<%
'登录权限

stu_num=request("stu_num")
stu_pwd=request("stu_pwd")
'安全
sapsT=replace(sapsT,"'","*")
sapsT=replace(sapsT,"""","*")
adminSql="select * from stuinit where stu_num='"&stu_num&"' and stu_pwd='"&stu_pwd&"'"
set rsT=conn.execute(adminSql)
if not rsT.eof then
    session("stu_retset")=rst("stu_num")
	session("stu_retset")=0
	'response.Cookies("stu_num")=rsT("stu_num")
	response.redirect "ksliucheng.htm"
	'response.Write("<p>&nbsp;</p><center><img src='img/succ.gif' border='1'></center>")
	response.End()
	conn.close()
	set conn=nothing
end if
server.Transfer("indexmain.asp")
conn.close()
set conn=nothing
%>