delete.asp

来自「动态网站制作,担任源码的. 本站不保证所提供软件或程序的完整性和安全性。 ║」· ASP 代码 · 共 30 行

<%
	Dim sID
	Dim SendFlag
	DelFlag=0
	sID=request("idNumber")
	IF Session("AdminLogged")=1 THEN
		IF isempty(sID) THEN
			SendFlag=2
		ELSE 
			ConnectionString="Driver=Microsoft Access Driver (*.mdb);dbq=" & Server.MapPath("Database/GuestBook.mdb")
			set con=Server.CreateObject("ADODB.Connection")
			con.Open connectionstring
			Set rs=Server.CreateObject("ADODB.RecordSet")
				rs.Open "select * from guestbook where number="&sID,con,3,3
			IF rs.eof and rs.bof THEN
				SendFlag=3
			ELSE
				rs.Delete
				rs.close
				SendFlag=1
			END IF
				set rs=nothing
				con.close
				set con=nothing
		END IF
	ELSE 
		SendFlag=4
	END IF
	Response.Write "&&SendFlag="&SendFlag
%>