addnew_code.asp

在线考试系统

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

dim qno 
qno=Session.contents("qno")

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

myrs("q_id").value= cint(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

'''''''''''''''''''''''''''''''''''''''''''''''''
dim totalrec 
totalrec=Session.contents("totalrec")
totalrec=totalrec+1
Session.contents("totalrec")=totalrec

'''''''''''''''''''''''''''''''''
'关闭数据库连接'''''''''
myrs.close
myconn.close
set myconn=nothing
set myrs=nothing
'''''''''''''''''''''''''''''''''

'返回编辑页面
 Response.Redirect("editor.asp")

%>