delete.asp

来自「基于ASP的在线考试系统的设计与实现,想下一的可以看一下基于ASP的在线考试系统」· ASP 代码 · 共 30 行

<%@ 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!
''''''''''''''''''''''''''''''''''''''''''''''''''	

myrs.delete

dim totalrec 
totalrec=Session.contents("totalrec")
totalrec=totalrec-1
Session.contents("totalrec")=totalrec

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

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

%>