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