<%
session.timeout=10session对象的超时值
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>
