gusucode.com > ASP+ACCESS在线考试系统设计(源代码+论文) > ASP+ACCESS在线考试系统设计(源代码+论文)\郭晓璇论文第二稿\test\savepaper.asp
<%@ Language=VBScript %> <% Set conn = Server.CreateObject("ADODB.Connection") conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("../试题库.mdb") set rs= server.createobject("adodb.recordset") name=session("user") jk=session("tab") if name<>"guest" then 'sql= "create table "& name & jk &"保存 (ID text(50),试题 memo,试题分数 text(10),答案 memo,试题ID text(50),用户答案 memo,用户得分 text(50),试题题型 text(50),附加参数 number) " 'conn.execute(sql) 'on error resume next 'sql="select * from "&name & jk&"" 'set base=conn.execute(sql) 'j=1 'do while not base.eof 'ID=base("试题ID") 'cs=base("附加参数") 'tm=base("试题") 'fs=base("试题分数") 'an=base("答案") 'tx=base("试题题型") 'useranswer=base("用户答案") 'df=base("用户得分") 'sql="insert into "& session("user") & session("tab") &"保存(ID,试题ID,试题分数,试题,答案,用户答案,用户得分,试题题型,附加参数) values ("& j &","& ID &","& fs &",'"& tm &"','"& an &"','"& useranswer &"','"& df &"','"& tx &"','"& cs &"')" 'conn.execute(sql) 'on error resume next 'j=j+1 'base.movenext 'loop 'base.close sql="drop table "& name & jk &"" conn.execute(sql) sql="drop table "& name & jk &"暂时" conn.execute(sql) response.redirect "allselect.asp" else sql="drop table "& name & jk &"暂时" conn.execute(sql) sql="drop table "& name & jk &"" conn.execute(sql) sql="delete * from 成绩登记表 where 用户名='"&name&"'" conn.execute(sql) response.redirect "allselect.asp" end if %>