gusucode.com > ASP+ACCESS在线考试系统设计(源代码+论文) > ASP+ACCESS在线考试系统设计(源代码+论文)\郭晓璇论文第二稿\test\input.asp
<%@ 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 %>