delfriend.asp

来自「电子商务网络购物系统」· ASP 代码 · 共 22 行

<% Option Explicit %>
<!--#include file="conn.asp" -->
<%
Response.Buffer = True
Set rsConn = Nothing
If blnPrivateMessages = False Then 
	adoCon.Close
	Set adoCon = Nothing
	Response.Redirect("index.asp")
End If

If intGroupID = 2 OR blnActiveMember = False Then
	adoCon.Close
	Set adoCon = Nothing
	Response.Redirect("nopermission.asp")
End If
strSQL = "DELETE FROM timesfriend WHERE (((timesfriend.userid)="  & lngLoggedInUserID & " ) AND ((timesfriend.addrid)= " & CLng(Request.QueryString("messid")) & "));"
adoCon.Execute(strSQL)
adoCon.Close
Set adoCon = Nothing
Response.Redirect "friendlist.asp"
%>