update.asp

在线考试系统

<%@ Language=VBScript%> 
<%option explicit

'''''''''''''''''''''''''''''''''''''''''''''''''''  
	%> <!-- #INCLUDE FILE = "connect_ama.asp" --> <%
	dim myrs
	set myrs = server.createobject("ADODB.recordset")
	myrs.open "select * from q_bank where q_id=" & request.form("q_id"),myconn,1,3 
																	''removing 1,3 will give error!
''''''''''''''''''''''''''''''''''''''''''''''''''	
dim qno 
qno=Session.contents("qno")

'myrs.move qno

'myrs("q_id").value= val(request.form("q_id"))
myrs("code")= request.form("code")
myrs("question")= request.form("question")
myrs("optA")= request.form("optA")
myrs("optB")= request.form("optB")
myrs("optC")= request.form("optC")
myrs("answer")= request.form("answer")
myrs("image").value=request.form("image")
myrs.update


'''''''''''''''''''''''''''''''''
'closing order important'''''''''
myrs.close
myconn.close
set myconn=nothing
set myrs=nothing
'''''''''''''''''''''''''''''''''


''get back to editor page
 Response.Redirect("editor.asp")
%>