save_db_tryinfo_add.asp

OnlineExam校园在线考试系统 v1.1源码

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

	题库中的数据只作测试，不为真实，若要实施还需删除各题表，重新建表。具体过程如下：
a)	先点击题库信息浏览，删除无用题表，注意：正修改的数据题表不能删除!
b)	添加题库建表，注意：数据表名是一次性的，建了就不能修改表名
c)	在试题后台设置中，选择要修改的考试题目，点击修改否
d)	再点击添加试题数据，添加相关考试试题，注意：在判断题中，对的写“A”，错的写“B”
e)	最后浏览选择试题，检查修改您所添加的试题。
****************************************************************
*      Copyright (C) 2002 cnsohow.com All Rights Reserved
****************************************************************
-->
<!--#include file="../include/conn2.asp"-->
<!--#include file="../include/numString.asp"-->
<%
'on error resume next
MaxIdSql="select ID from tryInfo order by ID desc"
set rsT=conn.execute(MaxIdSql)
NextId=rsT("ID")+1

tryName=trim(request("TryName"))
examName=trim(request("examName"))
tryTime=request("tryTime")
tryNum=request("tryNum")
tryS=request("tryS")
dbname=trim(request("dbname"))
if not TestString(tryTime) or not TestString(tryNum) or not TestString(tryS) then
	Session("sa_help")="对不起，添加失败，请准确填写数据!"
	server.Transfer("db_tryinfo_add.asp")
end if
tryinfoSql="select DB_TRYNAME from tryinfo where DB_NAME='"&dbname&"'"
set rsT=conn.execute(tryinfoSql)
if not rsT.eof then
	Session("sa_help")="对不起，这个数据表名已经有了！请重试！"
	response.redirect("db_tryinfo_add.asp")
end if


saveAddSql="insert into tryinfo values("&NextId&",'"&tryName&"','"&examName&"',"&tryTime&","&tryNum&","&tryS&",'"&dbname&"','1','1')"
'response.Write(saveAddSql)
'response.End()
set rsT=conn.execute(saveAddSql)

Session("sa_help")="上条记录添加完毕！"
CreateTablesql="create table ["&dbname&"](ID int not null identity primary key,TRY＿TYPE char(1) null,TRY＿DIFF char(1) null,TRY_CENT int null,TRY_SUBJECT char(200) null,a char(200) null,b char(200) null,c char(200) null,d char(200) null, TRY_KEY char(4) null)"
set rsT=conn.execute(CreateTablesql)

conn.close
set conn=nothing
server.transfer("db_tryinfo_add.asp")
%>