search_code.asp

在线考试系统

<%@ Language=VBScript%> 
<%option explicit
  
'''''''''''''''''''''''''''''''''''''''''''''''''''  
 %> <!-- #INCLUDE FILE = "connect_ama.asp" --> <%

	dim myrs
	set myrs = server.createobject("ADODB.recordset")
	myrs.open "select q_id from q_bank",myconn
''''''''''''''''''''''''''''''''''''''''''''''''''	
dim temp,qno
qno=1
'if		request.form("go")="Go" then
			temp=val(request.form("q_id"))
			myrs.movefirst
			while not myrs.EOF 
					if myrs("q_id") <> temp then
					qno=qno+1
					end if
      		myrs.movenext
    	  	wend

			Session.contents("qno")=qno
'			myrs.move qno
			
			'''''''''''''''''''''''''''''''''''''''''
'end if
%>
<%=qno%>