<%
'session.timeout=10'session对象的超时值
'on error resume next
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("examination.mdb")
Set rs = Server.CreateObject("ADODB.Recordset")
%>

<%
papername=request("papername")
sql="create table "&papername&"(题目类型 long,题目序号 long ,题目 char(50) ,本题分数 long,选择项1 char(50) ,选择项2 char(50),选择项3 char(50),选择项4 char(50),正确答案 MEMO );"
conn.execute sql%>

<%
Subject=request.querystring("id")
delsql="delete from 试卷信息 where 试卷名称='"&Subject&"'"
conn.execute delsql
t_delsql="drop table "&Subject
conn.execute t_delsql
%>

<script language="vbscript">
msgbox"删除试卷成功！"
location.href="javascript:history.back()"
</script>

<a href=../../"#" onclick="window.open('madepaper.htm','create','scrollbars=no,resizable=no,width=353,height=191')">创建</a>