input.asp

网上在线考试系统,方便快捷, 界面美观大方, visual basic 语言实现, 下载后直接解压缩就可以了

<%@ Language=VBScript %>                       
<%                        
Session.TimeOut=200                       

name=session("user")                        
jk=session("tab")                        

Set conn = Server.CreateObject("ADODB.Connection")                        
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("../试题库.mdb")                        
set rs= server.createobject("adodb.recordset")                        
ycorrect=0                        
rsCount=0                        
stzs=0                       
stzs=session("stzs")                       


tab1=session("tab")                       
sql="select * from "& name & jk &"暂时"
set base=conn.execute(sql)                       
on error resume next 
J=0                       
do while not  base.eof                       
	ID=base("试题ID")                       
	cs=base("附加参数")                       
	tm=base("试题")                       
	fs=base("试题分数")                       
	an=base("答案")                       
	tx=base("试题题型")                        
	daaa=""                       

 	for i=1 to cs                       
		J=J+1                       
		stid=id & "a" & i                       
'		answer=request.form(stid)                       
		answer=request.querystring(stid)
		answer=Ucase(answer)
		if tx="排序" then
			answer=trim(answer)
		end if
		if answer<>"" then                       
			daaa=daaa & answer                       
		end if             
		
		if  isnull(answer) or len(answer)=0 then                       
			answer=""                       
		end if            
		answer=replace(answer,"'","‘")                       
	next
	sql="update "& name & jk &"暂时 set 用户答案='"& daaa &"' where 试题ID='"&ID& "'"                     
	conn.execute(sql)                       
	on error resume next  
	
	base.movenext 
loop                       
%>