delete.asp

动态网站制作,担任源码的. 本站不保证所提供软件或程序的完整性和安全性。 ║ ║ 2) 请在使用前查毒。 ║ ║ 3) 转载本站提供的资源请勿删除本说明文件。 ║ ║ 4) 本站提供的

<%
	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
%>