<% '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> 
|