admin_accounts_pending.asp

代码名称： Snitz Forums 2000 代码语言： 英文 代码类型： 国外代码 运行环境： ASP 授权方式： 免费代码 代码大小： 530kb 代码等级： 3 整

<%
'#################################################################################
'## Snitz Forums 2000 v3.4.05
'#################################################################################
'## Copyright (C) 2000-05 Michael Anderson, Pierre Gorissen,
'##                       Huw Reddick and Richard Kinser
'##
'## This program is free software; you can redistribute it and/or
'## modify it under the terms of the GNU General Public License
'## as published by the Free Software Foundation; either version 2
'## of the License, or (at your option) any later version.
'##
'## All copyright notices regarding Snitz Forums 2000
'## must remain intact in the scripts and in the outputted HTML
'## The "powered by" text/logo with a link back to
'## http://forum.snitz.com in the footer of the pages MUST
'## remain visible when the pages are viewed on the internet or intranet.
'##
'## This program is distributed in the hope that it will be useful,
'## but WITHOUT ANY WARRANTY; without even the implied warranty of
'## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
'## GNU General Public License for more details.
'##
'## You should have received a copy of the GNU General Public License
'## along with this program; if not, write to the Free Software
'## Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
'##
'## Support can be obtained from our support forums at:
'## http://forum.snitz.com
'##
'## Correspondence and Marketing Questions can be sent to:
'## [e-mail]
'##
'#################################################################################
%>
<!--#INCLUDE FILE="config.asp"-->
<!--#INCLUDE FILE="inc_sha256.asp"-->
<!--#INCLUDE FILE="inc_header.asp" -->
<%
if Session(strCookieURL & "Approval") <> "15916941253" then
	scriptname = split(request.servervariables("SCRIPT_NAME"),"/")
	Response.Redirect "admin_login.asp?target=" & scriptname(ubound(scriptname))
end if
Response.Write	"    <script language=""JavaScript"" type=""text/javascript"">" & vbNewLine & _
		"    <!--" & vbNewLine & _
		"    function ChangePage(fnum){" & vbNewLine & _
		"    	if (fnum == 1) {" & vbNewLine & _
		"    		document.PageNum1.submit();" & vbNewLine & _
		"    	}" & vbNewLine & _
		"    	else {" & vbNewLine & _
		"    		document.PageNum2.submit();" & vbNewLine & _
		"    	}" & vbNewLine & _
		"    }" & vbNewLine & _
		"    function appr_all(){" & vbNewLine & _
		"    	var where_to= confirm(""Do you really want to Approve all Pending Members?"");" & vbNewLine & _
		"       if (where_to== true) {" & vbNewLine & _
		"       	window.location=""admin_accounts_pending.asp?id=-1&action=approve"";" & vbNewLine & _
		"       }" & vbNewLine & _
		"    }" & vbNewLine & _
		"    function appr_selected(){" & vbNewLine & _
		"    	var where_to= confirm(""Do you really want to Approve the Selected Pending Members?"");" & vbNewLine & _
		"       if (where_to== true) {" & vbNewLine & _
		"		document.delMembers.action.value = 'approve';" & vbNewLine & _
		"    		document.delMembers.submit();" & vbNewLine & _
		"       }" & vbNewLine & _
		"    }" & vbNewLine & _
		"    function del_all(){" & vbNewLine & _
		"    	var where_to= confirm(""Do you really want to Delete all Pending Members?"");" & vbNewLine & _
		"       if (where_to== true) {" & vbNewLine & _
		"       	window.location=""admin_accounts_pending.asp?id=-1&action=delete"";" & vbNewLine & _
		"       }" & vbNewLine & _
		"    }" & vbNewLine & _
		"    function del_selected(){" & vbNewLine & _
		"    	var where_to= confirm(""Do you really want to Delete the Selected Pending Members?"");" & vbNewLine & _
		"       if (where_to== true) {" & vbNewLine & _
		"		document.delMembers.action.value = 'delete';" & vbNewLine & _
		"       	document.delMembers.submit();" & vbNewLine & _
		"       }" & vbNewLine & _
		"    }" & vbNewLine & _
		"    function Toggle(field)" & vbNewLine & _
		"    {" & vbNewLine & _
		"	if (field.checked) {" & vbNewLine & _
		"	    document.delMembers.toggleAll.checked = AllChecked();" & vbNewLine & _
		"	}" & vbNewLine & _
		"	else {" & vbNewLine & _
		"	    document.delMembers.toggleAll.checked = false;" & vbNewLine & _
		"	}" & vbNewLine & _
		"    }" & vbNewLine & _
		"    function ToggleAll(field)" & vbNewLine & _
		"    {" & vbNewLine & _
		"	if (field.checked) {" & vbNewLine & _
		"	    CheckAll();" & vbNewLine & _
		"	}" & vbNewLine & _
		"	else {" & vbNewLine & _
		"	    ClearAll();" & vbNewLine & _
		"	}" & vbNewLine & _
		"    }" & vbNewLine & _
		"    function Check(field)" & vbNewLine & _
		"    {" & vbNewLine & _
		"	field.checked = true;" & vbNewLine & _
		"    }" & vbNewLine & _
		"    function Clear(field)" & vbNewLine & _
		"    {" & vbNewLine & _
		"	field.checked = false;" & vbNewLine & _
		"    }" & vbNewLine & _
		"    function CheckAll()" & vbNewLine & _
		"    {" & vbNewLine & _
		"	var dm = document.delMembers;" & vbNewLine & _
		"	var len = dm.elements.length;" & vbNewLine & _
		"	for (var i = 0; i < len; i++) {" & vbNewLine & _
		"	    var field = dm.elements[i];" & vbNewLine & _
		"	    if (field.name == ""id"") {" & vbNewLine & _
		"		Check(field);" & vbNewLine & _
		"	    }" & vbNewLine & _
		"	}" & vbNewLine & _
		"	dm.toggleAll.checked = true;" & vbNewLine & _
		"    }" & vbNewLine & _
		"    function ClearAll()" & vbNewLine & _
		"    {" & vbNewLine & _
		"	var dm = document.delMembers;" & vbNewLine & _
		"	var len = dm.elements.length;" & vbNewLine & _
		"	for (var i = 0; i < len; i++) {" & vbNewLine & _
		"	    var field = dm.elements[i];" & vbNewLine & _
		"	    if (field.name == ""id"") {" & vbNewLine & _
		"		Clear(field);" & vbNewLine & _
		"	    }" & vbNewLine & _
		"	}" & vbNewLine & _
		"	dm.toggleAll.checked = false;" & vbNewLine & _
		"    }" & vbNewLine & _
		"    function AllChecked()" & vbNewLine & _
		"    {" & vbNewLine & _
		"	dm = document.delMembers;" & vbNewLine & _
		"	len = dm.elements.length;" & vbNewLine & _
		"	for(var i = 0 ; i < len ; i++) {" & vbNewLine & _
		"	    if (dm.elements[i].name == ""id"" && !dm.elements[i].checked) {" & vbNewLine & _
		"		return false;" & vbNewLine & _
		"	    }" & vbNewLine & _
		"	}" & vbNewLine & _
		"	return true;" & vbNewLine & _
		"    }" & vbNewLine & _
		"    //-->" & vbNewLine & _
		"    </script>" & vbNewLine

mypage = trim(chkString(request("whichpage"),"SQLString"))
if ((mypage = "") or (IsNumeric(mypage) = FALSE)) then mypage = 1
mypage = cLng(mypage)
if mypage > 1 then strPage = "?whichpage=" & mypage

selID = Request.QueryString("id")
strAction = Request.QueryString("action")
if strAction = "approve" then
	if selID = "-1" then
		Call EmailMembers("all")
		
		'## Forum_SQL - Approve all members
		strSql = "UPDATE " & strMemberTablePrefix & "MEMBERS_PENDING"
		strSql = strSql & " SET M_APPROVE = " & 1
		
		my_Conn.Execute (strSql),,adCmdText + adExecuteNoRecords
		
		Response.Write	"      <br /><p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strHeaderFontSize & """><b>Members Approved!</b></font></p>" & vbNewLine & _
				"      <meta http-equiv=""Refresh"" content=""5; URL=admin_accounts_pending.asp" & strPage & """>" & vbNewLine & _
				"      <p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>All Pending Members have been approved! Their registration e-mails have been sent to them.</font></p>" & vbNewLine & _
				"      <p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><a href=""admin_accounts_pending.asp" & strPage & """>Back To Members Pending</font></a></p><br />" & vbNewLine
		WriteFooter
		Response.End
	else
		Call EmailMembers("selected")
		
		aryID = split(selID, ",")	
		for i = 0 to ubound(aryID)
			'## Forum_SQL - Approve all members
			strSql = "UPDATE " & strMemberTablePrefix & "MEMBERS_PENDING"
			strSql = strSql & " SET M_APPROVE = " & 1
			strSql = strSql & " WHERE MEMBER_ID = " & aryID(i)
			
			my_Conn.Execute (strSql),,adCmdText + adExecuteNoRecords
		next
		
		Response.Write	"      <br /><p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strHeaderFontSize & """><b>Members Approved!</b></font></p>" & vbNewLine & _
				"      <meta http-equiv=""Refresh"" content=""5; URL=admin_accounts_pending.asp" & strPage & """>" & vbNewLine & _
				"      <p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>Selected Pending Members have been approved! Their registration e-mails have been sent to them.</font></p>" & vbNewLine & _
				"      <p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><a href=""admin_accounts_pending.asp" & strPage & """>Back To Members Pending</font></a></p><br />" & vbNewLine
		WriteFooter
		Response.End
	end if
elseif strAction = "delete" then
	if selID = "-1" then
		'## Forum_SQL - Delete the Member
		strSql = "DELETE FROM " & strMemberTablePrefix & "MEMBERS_PENDING "
		strSql = strSql & " WHERE M_STATUS = " & 0
		strSql = strSql & " AND M_LEVEL = " & -1
		
		my_Conn.Execute (strSql),,adCmdText + adExecuteNoRecords
		
		Response.Write	"      <br /><p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strHeaderFontSize & """><b>Members Deleted!</b></font></p>" & vbNewLine & _
				"      <meta http-equiv=""Refresh"" content=""2; URL=admin_accounts_pending.asp" & strPage & """>" & vbNewLine & _
				"      <p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strHeaderFontSize & """>All pending members have been deleted!</font></p>" & vbNewLine & _
				"      <p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><a href=""admin_accounts_pending.asp" & strPage & """>Back To Members Pending</font></a></p><br />" & vbNewLine
		WriteFooter
		Response.End
	
	else
		aryID = split(selID, ",")	
		for i = 0 to ubound(aryID)
			'## Forum_SQL - Delete the Member
			strSql = "DELETE FROM " & strMemberTablePrefix & "MEMBERS_PENDING "
			strSql = strSql & " WHERE MEMBER_ID = " & aryID(i)

			my_Conn.Execute (strSql),,adCmdText + adExecuteNoRecords
		next
		Response.Write	"      <br /><p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strHeaderFontSize & """><b>Members Deleted!</b></font></p>" & vbNewLine & _
				"      <meta http-equiv=""Refresh"" content=""2; URL=admin_accounts_pending.asp" & strPage & """>" & vbNewLine & _
				"      <p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strHeaderFontSize & """>Selected members have been deleted!</font></p>" & vbNewLine & _
				"      <p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><a href=""admin_accounts_pending.asp" & strPage & """>Back To Members Pending</font></a></p><br />" & vbNewLine
		WriteFooter
		Response.End
	end if
end if

'## Forum_SQL - Find all records with the search criteria in them
strSql = "SELECT M_NAME, M_EMAIL, MEMBER_ID, M_DATE, M_IP, M_KEY, M_APPROVE"
strSql2 = " FROM " & strMemberTablePrefix & "MEMBERS_PENDING"
strSql3 = " ORDER BY MEMBER_ID ASC"

if strDBType = "mysql" then 'MySql specific code
	if mypage > 1 then
		OffSet = cLng((mypage - 1) * strPageSize)
		strSql4 = " LIMIT " & OffSet & ", " & strPageSize & " "
	end if

	'## Forum_SQL - Get the total pagecount
	strSql1 = "SELECT COUNT(MEMBER_ID) AS PAGECOUNT "

	set rsCount = my_Conn.Execute(strSql1 & strSql2)
	iPageTotal = rsCount(0).value
	rsCount.close
	set rsCount = nothing

	If iPageTotal > 0 then
		maxpages = (iPageTotal \ strPageSize )
		if iPageTotal mod strPageSize <> 0 then
			maxpages = maxpages + 1
		end if
		if iPageTotal < (strPageSize + 1) then
			intGetRows = iPageTotal
		elseif (mypage * strPageSize) > iPageTotal then
			intGetRows = strPageSize - ((mypage * strPageSize) - iPageTotal)
		else
			intGetRows = strPageSize
		end if
	else
		iPageTotal = 0
		maxpages = 0
	end if 

	if iPageTotal > 0 then
		set rs = Server.CreateObject("ADODB.Recordset")
		rs.open strSql & strSql2 & strSql3 & strSql4, my_Conn, adOpenForwardOnly, adLockReadOnly, adCmdText
			arrMemberData = rs.GetRows(intGetRows)
			iMemberCount = UBound(arrMemberData, 2)
		rs.close
		set rs = nothing
	else
		iMemberCount = ""
	end if
 
else 'end MySql specific code

	set rs = Server.CreateObject("ADODB.Recordset")
	rs.cachesize = strPageSize
	rs.open strSql & strSql2 & strSql3, my_Conn, adOpenStatic
		if not (rs.EOF or rs.BOF) then
			rs.movefirst
			rs.pagesize = strPageSize
			rs.absolutepage = mypage '**
			maxpages = cLng(rs.pagecount)
			if maxpages >= mypage then
				arrMemberData = rs.GetRows(strPageSize)
				iMemberCount = UBound(arrMemberData, 2)
			else
				iMemberCount = ""
			end if
		else
			iMemberCount = ""
		end if
	rs.Close