create.asp

ASP写的在线考试系统

<%
papername=request("papername")
'response.write papername
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("examination.mdb")
Set rs = Server.CreateObject("ADODB.Recordset")
%>
<%
sql="create table "&papername&"(题目类型 long,题目序号 long ,题目 char(50) ,本题分数 long,选择项1 char(50) ,选择项2 char(50),选择项3 char(50),选择项4 char(50),正确答案 char(50)  );"
conn.execute sql%>
<%rs.open "select * from 试卷信息",conn,3,2
flag=false
while not rs.eof
if rs("试卷名称")=papername then
flag=true
end if
rs.movenext
wend
if flag=true then
%>
<script language="vbscript">
msgbox "该名称已存在，请选用其他名称！"
location.href="javascipt:history.back()"
</script>
<% rs.close

else

rs.addnew
rs("试卷名称")=papername
rs("创建日期")=now()
rs.update
end if
rs.close

%>




 
<script language="vbscript">
msgbox"创建成功，要输入数据请在管理主页修改！"
location.href="javascript:window.close()"
</script>