创建表、删除表和删除表的记录（一种窗口的判断和跳转）+ 链接确定大小的新页面

<%

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