memberdelete.asp

一个ＡＳＰ网站博克程序

<% Option Explicit %>
<!-- #Include File = "common/LarrixDBMS.asp" -->
<!-- #Include File = "object/Item.asp" -->
<!-- #Include File = "object/Comment.asp" -->

<%
	If Session("Passport") = "" Or Session("Passport") <= 0 Or Session("UsrLevel") <> True Then
		Response.Redirect("../Default.asp")
	End If
%>

<%
	If Trim(Request.QueryString("id")) = "" Or IsNumeric(Trim(Request.QueryString("id"))) = False Then
		Response.Redirect("MemberExplor.asp")
	End If
%>

<%
	Dim objDBMS
	Dim objItem
	Set objDBMS = New LarrixDBMS
	objDBMS.Open "SELECT * FROM [Members] WHERE [MemberUID]<>'admin' AND [MemberID]=" & Trim(Request.QueryString("id")), 3
	If Not (objDBMS.objRSET.BOF And objDBMS.objRSET.EOF) Then
		Set objItem = New Items
		objItem.MemberDelete objDBMS.objRSET("MemberID")
		Set objItem = Nothing
		objDBMS.objRSET.Delete
		objDBMS.objRSET.Update
	End If
	objDBMS.Close
	Set objDBMS = Nothing
	Response.Redirect("MemberExplor.asp")
%>