nosave.asp

来自「在线考试系统源代码下载」· ASP 代码 · 共 38 行

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