gusucode.com > ASP+ACCESS在线考试系统设计(源代码+论文) > ASP+ACCESS在线考试系统设计(源代码+论文)\郭晓璇论文第二稿\nosave.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") sql="select * from 计算机基础培训" set base=conn.execute(sql) while not base.eof a=base("试题题型") if a="单项选择" then sql="update 计算机基础培训 set 附加参数=1 where 试题题型='单项选择'" conn.Execute(sql) conn.Close end if 'if a="多项选择" then ' sql="update 计算机基础培训 set 附加参数=4 where 试题题型='多项选择'" ' conn.Execute(sql) ' conn.Close 'end if 'if a="判断" then ' sql="update 计算机基础培训 set 附加参数=1 where 试题题型='判断'" ' conn.Execute(sql) ' conn.Close 'end if 'if a="排序" then ' sql="update 计算机基础培训 set 附加参数=1 where 试题题型='排序'" ' conn.Execute(sql) ' conn.Close 'end if base.movenext wend reponse.write "" %>