savepaper.asp

本网络考核系统采用现在比较先进的基于B-S模式的全新的网络考试系统。服务器端对数据库进行管理

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