Create | link | page <%
Timeout value for ' session.timeout=10 ' Session object
' 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& "(Topic type Long, topic serial number long, topic char (50), subject fractional long, select 1 char (50), select item 2 char (50), select item 3 Char (50), select item 4 char (50), correct answer MEMO);
Conn.execute sql%>
<%
Subject=request.querystring ("id")
Delsql= "Delete from quiz paper information where quiz paper name = ' &Subject& '"
Conn.execute Delsql
t_delsql= "DROP table" &subject
Conn.execute T_delsql
%>
<script language= "VBScript" >
MsgBox "Delete Quiz paper success!" "
Location.href= "Javascript:history.back ()"
</script>
<a href= "#" onclick= "window.open (' madepaper.htm ', ' create ', ' scrollbars=no,resizable=no,width=353,height=191 ')" > Create </a>