bakverification.asp

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

<!--#include file="safe.asp" -->
<!--
****************************************************************
*
*                  『fixty作品』 OnlineExam V1.1
*
*              版权所有: 『fixty』
*
*              程序制作:  fixty『fixty』
*           
*              主页地址:  http://www.fixty.cn/
*              E-MAIL:  [e-mail]
*
****************************************************************
*      Copyright (C) 2007 fixty.com All Rights Reserved
****************************************************************
*
*                         【 版权声明 】
*
*     本系统只作为一种技术交流，不能用于商业，希望能给予合作。
*
****************************************************************
*
*　　如果你在使用这个程序的过程中有什么错误、意见、建议，请及时
*    告诉我，谢谢！
*
****************************************************************
*
* 安装说明：
*
*   默认的后台数据管理员用户名和密码都是：admin
*   默认的验证密码都是：fixty
*　
****************************************************************几几点说明:

	题库中的数据只作测试，不为真实，若要实施还需删除各题表，重新建表。具体过程如下：
a)	先点击题库信息浏览，删除无用题表，注意：正修改的数据题表不能删除!
b)	添加题库建表，注意：数据表名是一次性的，建了就不能修改表名
c)	在试题后台设置中，选择要修改的考试题目，点击修改否
d)	再点击添加试题数据，添加相关考试试题，注意：在判断题中，对的写“A”，错的写“B”
e)	最后浏览选择试题，检查修改您所添加的试题。
****************************************************************
*      Copyright (C) 2007 fixty.com All Rights Reserved
****************************************************************
-->
<!--#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
%>