verification.asp

一个相当不错的考试系统源代码

<!--#include file="safe.asp" -->
<!--#include file="include/conn.asp"-->
<%
Session("stuFlag")=0
stu_numT=trim(request("stu_numT"))
stu_nameT=trim(request("stu_nameT"))
loginSql="select * from Verification where STU_NUM='"&stu_numT&"'"
set rsT=Conn.execute(loginSql)
TrueName = trim(rsT("STU_NAME"))
if rsT.eof and rsT.bof then
	response.write"<SCRIPT language=JavaScript>alert('准考证号不正确！');"
    response.write"javascript:history.go(-1)</SCRIPT>"
	response.End()
	elseif stu_nameT <> TrueName then
	response.write"<SCRIPT language=JavaScript>alert('姓名输入错误！');"
    response.write"javascript:history.go(-1)</SCRIPT>"
	response.End()
end if


Session("NumT_Stu")=rsT("STU_NUM")
Session("NameT_Stu")=rsT("STU_NAME")
loginFlag=rsT("STU_LOGIN")+1
	updateSql="update verification set STU_LOGIN="&loginFlag&"  where STU_NUM='"&stu_numT&"'"
	set rsT=Conn.execute(updateSql)
	stuIP=request.servervariables("remote_addr")
	updateSql="update verification set STU_IPADD='"&stuIP&"' where STU_NUM='"&stu_numT&"'"
	set rsT=Conn.execute(updateSql)
	Session("stuFlag")	=1	
	server.Transfer("agreement.asp")
conn.close
set conn=nothing
%>