广告：
网页制作参考
千千学园
雨路开发频道
雨路技术文档
技术问答
编程技术

作者： 整理

<%
‘’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>