bakverification.asp

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

<!--#include file="safe.asp" -->


<!--#include file="include/conn.asp"-->
<%
'on error resume next
Session("stuFlag")=0
stu_numT=trim(request("stu_numT"))
'rsTs_submit为STU_SUBMIT0,1,2
loginSql="select * from Verification where STU_NUM='"&stu_numT&"'"
'loginSql="select * from Verification"
set rsT=Conn.execute(loginSql)

if rsT.eof then
	Session("onlinehelp")="没有这样的STU_NUM！"
	response.redirect("loginWrong.asp")
end if

Session("NumT_Stu")=rsT("STU_NUM")
Session("NameT_Stu")=rsT("STU_NAME")
loginFlag=rsT("STU_LOGIN")
submitFlag=rsT("STU_SUBMIT")
if loginFlag="0" and submitFlag="0" then
	updateSql="update verification set STU_LOGIN='1' "
	set rsT=Conn.execute(updateSql)
	stuIP=request.servervariables("remote_addr")
	updateSql="update verification set STU_IPADD='"&stuIP&"'")
	set rsT=Conn.execute(updateSql)
	Session("stuFlag")	=1
	server.Transfer("agreement.asp")
else
	Session("onlinehelp")="你可能已STU_LOGIN或已STU_SUBMIT！"
	response.Write("sdklfjsdlfkj")
end if

rsT.close
set rsT=nothing
conn.close
set conn=nothing
%>