admin_delete_group.asp

简单的asp论坛源码系统,很适用于初学者!界面简洁,功能齐全

<% @ Language=VBScript %>
<% Option Explicit %>
<!--#include file="admin_common.asp" -->
<%
'****************************************************************************************
'**  Copyright Notice    
'**
'**  Web Wiz Forums(TM)
'**  http://www.webwizforums.com
'**                            
'**  Copyright (C)2001-2008 Web Wiz(TM). All Rights Reserved.
'**  
'**  THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS UNDER LICENSE FROM 'WEB WIZ'.
'**  
'**  IF YOU DO NOT AGREE TO THE LICENSE AGREEMENT THEN 'WEB WIZ' IS UNWILLING TO LICENSE 
'**  THE SOFTWARE TO YOU, AND YOU SHOULD DESTROY ALL COPIES YOU HOLD OF 'WEB WIZ' SOFTWARE
'**  AND DERIVATIVE WORKS IMMEDIATELY.
'**  
'**  If you have not received a copy of the license with this work then a copy of the latest
'**  license contract can be found at:-
'**
'**  http://www.webwizguide.com/license
'**
'**  For more information about this software and for licensing information please contact
'**  'Web Wiz' at the address and website below:-
'**
'**  Web Wiz, Unit 10E, Dawkins Road Industrial Estate, Poole, Dorset, BH15 4JD, England
'**  http://www.webwizguide.com
'**
'**  Removal or modification of this copyright notice will violate the license contract.
'**
'****************************************************************************************



'*************************** SOFTWARE AND CODE MODIFICATIONS **************************** 
'**
'** MODIFICATION OF THE FREE EDITIONS OF THIS SOFTWARE IS A VIOLATION OF THE LICENSE  
'** AGREEMENT AND IS STRICTLY PROHIBITED
'**
'** If you wish to modify any part of this software a license must be purchased
'**
'****************************************************************************************


'If in demo mode redirect
If blnDemoMode Then
	Call closeDatabase()
	Response.Redirect("admin_web_wiz_forums_premium.asp" & strQsSID1)
End If


'Set the response buffer to true as we maybe redirecting
Response.Buffer = True


'Set the timeout of the page
Server.ScriptTimeout =  1000


'Dimension variables
Dim intStartGroupID		'Holds the strating group ID
Dim intDeleteUserGroupID	'Holds the group ID to be deleted

'Get the forum ID to delete
intDeleteUserGroupID = CInt(Request.QueryString("GID"))


'If there is a group ID to delete then do teh job
If intDeleteUserGroupID <> "" Then
	
	'Initalise the strSQL variable with an SQL statement to get the topic from the database
	strSQL = "SELECT " & strDbTable & "Group.Group_ID FROM " & strDbTable & "Group WHERE " & strDbTable & "Group.Starting_group = " & strDBTrue & ";"
	
	
	'Query the database
	rsCommon.Open strSQL, adoCon
	
	'Read in the strating group ID
	intStartGroupID = CInt(rsCommon("Group_ID"))




	'Initalise the SQL string with an SQL update command to update the starting group
	strSQL = "UPDATE " & strDbTable & "Author" & strRowLock & " " & _
	 	 "SET " & strDbTable & "Author.Group_ID = " & intStartGroupID & " " & _
	         "WHERE " & strDbTable & "Author.Group_ID = " & intDeleteUserGroupID & ";"

	'Write the updated number of posts to the database
	adoCon.Execute(strSQL)



	'Delete the group permissions for forums form the database
	strSQL = "DELETE FROM " & strDbTable & "Permissions " & _
	"WHERE " & strDbTable & "Permissions.Group_ID = "  & intDeleteUserGroupID & ";"

	'Write to database
	adoCon.Execute(strSQL)
	


	'Delete the group form the database
	strSQL = "DELETE FROM " & strDbTable & "Group " & _
	"WHERE " & strDbTable & "Group.Group_ID = "  & intDeleteUserGroupID & ";"

	'Write to database
	adoCon.Execute(strSQL)


	'Reset Server Objects
	rsCommon.Close
End If



'Reset Server Objects
Call closeDatabase()


'Return to the forum categories page
Response.Redirect("admin_view_groups.asp" & strQsSID1)
%>