save_db_tryinfo_add.asp

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

<!--#include file="conn2.asp"-->
<!--#include file="numString.asp"-->
<%
'on error resume next


tryId=int(trim(request("Id")))

tryName=trim(request("TryName"))
dbname=trim(request("dbname"))

tryinfoSql="select DB_TRYNAME from tryinfo1 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 tryinfo1 (id,db_tryname,db_name,db_modfiyflag,db_onofft) values("&tryid&",'"&tryName&"','"&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(200) 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,mark int null)"
'增加一个数据库表  表名为 dbname  字段有 ID , TRY_TYPE试题的类型（单选题或多选题）, TRY_DIFF（试题的分类科目）,TRY_CENT（试题的分值）,TRY_SUBJECT（试题的题目内容）,a（答案的内容）,b,c,d,TRY_KEY（答案的选项）
set rsT=conn.execute(CreateTablesql)

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