delete.asp

ASP+SQL Server动态网站开发从基础到实践教程

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

%>