admin_batch_move_topics.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
'**
'****************************************************************************************




Session.Timeout =  1000

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



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



'Declare veraibles
Dim intNoOfDays
Dim intFromForumID
Dim intToForumID
Dim intPriority
Dim dtmSelectedDate


'get teh number of days to delte from
intNoOfDays = CInt(Request.Form("days"))
intFromForumID = CInt(Request.Form("FFID"))
intToForumID = CInt(Request.Form("TFID"))
intPriority = CInt(Request.Form("priority"))

'set up db dates
dtmSelectedDate = internationalDateTime(DateAdd("d", -intNoOfDays, Now()))

'If SQL server remove dash (-) from the ISO international date to make SQL Server safe
If strDatabaseType = "SQLServer" Then dtmSelectedDate = Replace(dtmSelectedDate, "-", "", 1, -1, 1)

'If acess used # around dates
If strDatabaseType = "Access" Then
	dtmSelectedDate = "#" & dtmSelectedDate & "#"
Else
	dtmSelectedDate = "'" & dtmSelectedDate & "'"
End If

		
'Initalise the strSQL variable with an SQL statement to get the topic from the database

'With SQL Server we need to use the a 'FROM' clause when needing data from mutiple tables
If strDatabaseType = "SQLServer" Then
	strSQL = "UPDATE " & strDbTable & "Topic " & _
	"SET " & strDbTable & "Topic.Forum_ID = " & intToForumID & " " & _
	"FROM " & strDbTable & "Topic, " & strDbTable & "Thread "

'Else Access and mySQL don't like the from cluase but allow you to sepporate the tables by commas in the SET clause
Else
	strSQL = "UPDATE " & strDbTable & "Topic, " & strDbTable & "Thread " & _
	"SET " & strDbTable & "Topic.Forum_ID = " & intToForumID & " "
End If

If intFromForumID = 0 Then
	strSQL = strSQL & "WHERE (" & strDbTable & "Topic.Last_Thread_ID = " & strDbTable & "Thread.Thread_ID) " & _
		"AND " & strDbTable & "Thread.Message_date < " & dtmSelectedDate & " "
Else
	strSQL = strSQL & "WHERE (" & strDbTable & "Topic.Last_Thread_ID = " & strDbTable & "Thread.Thread_ID) " & _
		"AND (" & strDbTable & "Thread.Message_date < " & dtmSelectedDate & ") " & _
		"AND (" & strDbTable & "Topic.Forum_ID = " & intFromForumID & ") "
End If
If intPriority <> 4 Then strSQL = strSQL & " AND (" & strDbTable & "Topic.Priority = " & intPriority & ")"
strSQL = strSQL & ";"


'Delete the topics
adoCon.Execute(strSQL)	



'Update post count
updateForumStats(intFromForumID)
updateForumStats(intToForumID)
	
'Reset Server Objects
Call closeDatabase()

%>
<!-- #include file="includes/browser_page_encoding_inc.asp" -->
<meta name="generator" content="Web Wiz Forums" />
<title>Batch Move Forum Topics</title>

<%
'***** START WARNING - REMOVAL OR MODIFICATION OF THIS CODE WILL VIOLATE THE LICENSE AGREEMENT ******
Response.Write("<!--//" & _
vbCrLf & "/* *******************************************************" & _
vbCrLf & "Software: Web Wiz Forums(TM) ver. " & strVersion & "" & _
vbCrLf & "Info: http://www.webwizforums.com" & _
vbCrLf & "Copyright: (C)2001-2008 Web Wiz(TM). All rights reserved" & _
vbCrLf & "******************************************************* */" & _
vbCrLf & "//-->" & vbCrLf & vbCrLf)
'***** END WARNING - REMOVAL OR MODIFICATION OF THIS CODE WILL VIOLATE THE LICENSE AGREEMENT ******
%>
   	
<!-- #include file="includes/admin_header_inc.asp" -->
<div align="center"> 
 <h1>Batch Move Forum Topics</h1><br />
  <a href="admin_menu.asp<% = strQsSID1 %>">Control Panel Menu</a><br />
  <br />
  <br>
  <br>
  <br>
  <br>
  <span>Topics have been Moved</span><br />
  <br />
  <br />
  <br>
  <br>
  <a href="admin_resync_forum_post_count.asp<% = strQsSID1 %>">Click here to re-sync Post and Topic Counts for the Forums</a></p>
</div>
<!-- #include file="includes/admin_footer_inc.asp" -->