📄 admin_accounts_pending.asp
字号:
set rs = nothing
end if
Response.Write " <table border=""0"" align=center width=""100%"">" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td align=""left"" nowrap><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & vbNewLine & _
" " & getCurrentIcon(strIconFolderOpen,"","") & " <a href=""default.asp"">All Forums</a><br />" & vbNewLine & _
" " & getCurrentIcon(strIconBar,"","") & getCurrentIcon(strIconFolderOpen,"","") & " <a href=""admin_home.asp"">Admin Section</a><br />" & vbNewLine & _
" " & getCurrentIcon(strIconBlank,"","") & getCurrentIcon(strIconBar,"","") & getCurrentIcon(strIconFolderOpenTopic,"","") & " Members Pending...<br /><br /></font></td>" & vbNewLine
if maxpages > 1 then
Response.Write " <td align=""right"">" & vbNewLine & _
" <table border=""0"" align=""right"">" & vbNewLine & _
" <tr>" & vbNewLine
Call DropDownPaging(1)
Response.Write " </tr>" & vbNewLine & _
" </table>" & vbNewLine & _
" </td>" & vbNewLine
else
Response.Write " <td align=""right""> </td>" & vbNewLine
end if
Response.Write " </tr>" & vbNewLine & _
" </table>" & vbNewLine
if iMemberCount <> "" then
if strRestrictReg = "1" then scolspan = " colspan=""2"""
Response.Write " <table border=""0"" cellSpacing=""0"" cellPadding=""0"" align=""center"">" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td bgcolor=""" & strTableBorderColor & """>" & vbNewLine & _
" <table align=""center"" width=""100%"" cellspacing=""1"" cellpadding=""4"" border=""0"">" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td bgColor=""" & strHeadCellColor & """" & scolspan & "><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHeadFontColor & """>Administrator Options:</font></b></td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" <tr>" & vbNewLine
if strRestrictReg = "1" then
Response.Write " <td bgcolor=""" & strForumCellColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & vbNewLine & _
" <li><a href=""javascript:appr_all()"">Approve All Pending Members</a></li>" & vbNewLine & _
" <li><a href=""javascript:appr_selected()"">Approve Selected Pending Members</a></li></font></td>" & vbNewLine
end if
Response.Write " <td bgcolor=""" & strForumCellColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & vbNewLine & _
" <li><a href=""javascript:del_all()"">Delete All Pending Members</a></li>" & vbNewLine & _
" <li><a href=""javascript:del_selected()"">Delete Selected Pending Members</a></li></font></td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" </table>" & vbNewLine & _
" </td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" </table><br />" & vbNewLine
end if
Response.Write " <table border=""0"" width=""100%"" cellspacing=""0"" cellpadding=""0"" align=""center"">" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>NOTE:</b> The following table will show you a list of registered users that are waiting to be authenticated.</font></td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td bgcolor=""" & strTableBorderColor & """>" & vbNewLine & _
" <table border=""0"" width=""100%"" cellspacing=""1"" cellpadding=""4"">" & vbNewLine
if iMemberCount <> "" then
Response.Write " <form name=""delMembers"" action=""admin_accounts_pending.asp"">" & vbNewLine & _
" <input type=""hidden"" name=""action"" value=""none"">" & vbNewLine & _
" <input type=""hidden"" name=""whichpage"" value=""" & mypage & """>" & vbNewLine
end if
Response.Write " <tr>" & vbNewLine & _
" <td bgColor=""" & strHeadCellColor & """ align=""center""><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHeadFontColor & """>User Name</font></b></td>" & vbNewLine & _
" <td bgColor=""" & strHeadCellColor & """ align=""center""><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHeadFontColor & """>E-mail Address</font></b></td>" & vbNewLine & _
" <td bgColor=""" & strHeadCellColor & """ align=""center""><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHeadFontColor & """>IP Address</font></b></td>" & vbNewLine & _
" <td bgColor=""" & strHeadCellColor & """ align=""center""><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHeadFontColor & """>Registered</font></b></td>" & vbNewLine & _
" <td bgColor=""" & strHeadCellColor & """ align=""center""><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHeadFontColor & """>Days Since</font></b></td>" & vbNewLine & _
" <td bgColor=""" & strHeadCellColor & """ align=""center""><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHeadFontColor & """>Action</font></b></td>" & vbNewLine
if strRestrictReg = "1" then
Response.Write " <td bgColor=""" & strHeadCellColor & """ align=""center""><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHeadFontColor & """>Approved?</font></b></td>" & vbNewLine
end if
Response.Write " <td bgColor=""" & strHeadCellColor & """ align=""center""><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHeadFontColor & """>"
if iMemberCount <> "" then
Response.Write "<input type=""checkbox"" name=""toggleAll"" value="""" onClick=""ToggleAll(this);"">"
else
Response.Write " "
end if
Response.Write "</font></b></td>" & vbNewLine & _
" </tr>" & vbNewLine
if iMemberCount = "" then '## No members found in DB
if strRestrictReg = "1" then intcolspan = 8 else intcolspan = 7
Response.Write " <tr>" & vbNewLine & _
" <td bgcolor=""" & strForumCellColor & """ colspan=""" & intcolspan & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strForumFontColor & """><b>No Members Found</b></font></td>" & vbNewLine & _
" </tr>" & vbNewLine
else
mM_NAME = 0
mM_EMAIL = 1
mMEMBER_ID = 2
mM_DATE = 3
mM_IP = 4
mM_KEY = 5
mM_APPROVE = 6
rec = 1
intI = 0
for iMember = 0 to iMemberCount
if (rec = strPageSize + 1) then exit for
MP_MemberName = arrMemberData(mM_NAME, iMember)
MP_MemberEMail = arrMemberData(mM_EMAIL, iMember)
MP_MemberID = arrMemberData(mMEMBER_ID, iMember)
MP_MemberDate = arrMemberData(mM_DATE, iMember)
MP_MemberIP = arrMemberData(mM_IP, iMember)
MP_MemberKey = arrMemberData(mM_KEY, iMember)
MP_MemberApprove = arrMemberData(mM_APPROVE, iMember)
if intI = 1 then
CColor = strAltForumCellColor
else
CColor = strForumCellColor
end if
if MP_MemberApprove = 1 then
Approved = "Yes"
else
Approved = "No"
end if
days = DateDiff("d", StrToDate(MP_MemberDate), strForumTimeAdjust)
if days >= 15 then
days2 = "<b>" & days & "</b>"
else
days2 = days
end if
Response.Write " <tr>" & vbNewLine & _
" <td bgcolor=""" & CColor & """ align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strForumFontColor & """>" & chkString(MP_MemberName, "display") & "</a></font></td>" & vbNewLine & _
" <td bgcolor=""" & CColor & """ align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """ color=""" & strForumFontColor & """>" & MP_MemberEMail & "</font></td>" & vbNewLine & _
" <td bgcolor=""" & CColor & """ align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strForumFontColor & """><a href=""http://www.samspade.org/t/ipwhois?a=" & ChkString(MP_MemberIP, "display") & """ target=""_blank"">" & MP_MemberIP & "</a></font></td>" & vbNewLine & _
" <td bgcolor=""" & CColor & """ align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """ color=""" & strForumFontColor & """>" & ChkDate(MP_MemberDate,"<br />",true) & "</font></td>" & vbNewLine & _
" <td bgcolor=""" & CColor & """ align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color="""
if days >= 7 then Response.Write(strHiLiteFontColor) else Response.Write(strForumFontColor)
Response.Write """>" & days2 & "</font></td>" & vbNewLine & _
" <td bgcolor=""" & CColor & """ align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """ color=""" & strForumFontColor & """><span class=""spnMessageText""><a href=""register.asp?actkey=" & MP_MemberKey & """>Activate Account</a></span></font></td>" & vbNewLine
if strRestrictReg = "1" then
Response.Write " <td bgcolor=""" & CColor & """ align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strForumFontColor & """>" & Approved & "</font></td>" & vbNewLine
end if
Response.Write " <td bgcolor=""" & CColor & """ align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """ color=""" & strForumFontColor & """><input type=""checkbox"" name=""id"" value=""" & MP_MemberID & """ onclick=""Toggle(this)""></font></td>" & vbNewLine & _
" </tr>" & vbNewLine
rec = rec + 1
intI = intI + 1
if intI = 2 then
intI = 0
end if
next
Response.Write " </form>"
end if
Response.Write " </table>" & vbNewLine & _
" </td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" </table>" & vbNewLine
if maxpages > 1 then
Response.Write " <table border=""0"" align=""left"">" & vbNewLine & _
" <tr>" & vbNewLine
Call DropDownPaging(2)
Response.Write " </tr>" & vbNewLine & _
" </table><br />" & vbNewLine
else
Response.Write " <br />" & vbNewLine
end if
WriteFooter
Response.End
sub DropDownPaging(fnum)
if maxpages > 1 then
if mypage = "" then
pge = 1
else
pge = mypage
end if
scriptname = request.servervariables("script_name")
Response.write " <form name=""PageNum" & fnum & """ action=""admin_accounts_pending.asp"">" & vbNewLine
Response.Write " <td><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & vbNewLine
if fnum = 1 then
Response.Write(" <b>Page: </b><select name=""whichpage"" size=""1"" onchange=""ChangePage(" & fnum & ");"">" & vbNewLine)
else
Response.Write(" <b>There are " & maxpages & " Pages of Pending Members: </b><select name=""whichpage"" size=""1"" onchange=""ChangePage(" & fnum & ");"">" & vbNewLine)
end if
for counter = 1 to maxpages
if counter <> cLng(pge) then
Response.Write " <option value=""" & counter & """>" & counter & "</option>" & vbNewLine
else
Response.Write " <option selected value=""" & counter & """>" & counter & "</option>" & vbNewLine
end if
next
if fnum = 1 then
Response.Write(" </select><b> of " & maxPages & "</b>" & vbNewLine)
else
Response.Write(" </select>" & vbNewLine)
end if
Response.Write(" </font></td>" & vbNewLine)
Response.Write(" </form>" & vbNewLine)
end if
end sub
sub EmailMembers(who)
if who = "all" then
'## Forum_SQL - Get all pending members
strSql = "SELECT M_NAME, M_EMAIL, M_KEY, M_APPROVE"
strSql = strSql & " FROM " & strMemberTablePrefix & "MEMBERS_PENDING"
strSql = strSql & " ORDER BY MEMBER_ID ASC"
set rsApprove = Server.CreateObject("ADODB.Recordset")
rsApprove.Open strSql, my_Conn, adOpenForwardOnly, adLockReadOnly, adCmdText
if rsApprove.EOF then
recApproveCount = ""
else
allApproveData = rsApprove.GetRows(adGetRowsRest)
recApproveCount = UBound(allApproveData, 2)
end if
rsApprove.Close
set rsApprove = Nothing
if recApproveCount <> "" then
mM_NAME = 0
mM_EMAIL = 1
mM_KEY = 2
mM_APPROVE = 3
for RowCount = 0 to recApproveCount
MP_MemberName = allApproveData(mM_NAME,RowCount)
MP_MemberEMail = allApproveData(mM_EMAIL,RowCount)
MP_MemberKey = allApproveData(mM_KEY,RowCount)
MP_MemberApprove = allApproveData(mM_APPROVE,RowCount)
if MP_MemberApprove = 0 then
'## E-mails Message to all pending members.
strRecipientsName = MP_MemberName
strRecipients = MP_MemberEMail
strFrom = strSender
strFromName = strForumTitle
strsubject = strForumTitle & " Registration "
strMessage = "Hello " & MP_MemberName & vbNewline & vbNewline
strMessage = strMessage & "You received this message from " & strForumTitle & " because you have registered for a new account which allows you to post new messages and reply to existing ones on the forums at " & strForumURL & vbNewline & vbNewline
if strAuthType="db" then
strMessage = strMessage & "Please click on the link below to complete your registration." & vbNewline & vbNewLine
strMessage = strMessage & strForumURL & "register.asp?actkey=" & MP_MemberKey & vbNewline & vbNewline
end if
strMessage = strMessage & "You can change your information at our website by selecting the ""Profile"" link." & vbNewline & vbNewline
strMessage = strMessage & "Happy Posting!"
%>
<!--#INCLUDE FILE="inc_mail.asp" -->
<%
end if
next
end if
elseif who = "selected" then
aryID = split(selID, ",")
for i = 0 to ubound(aryID)
'## Forum_SQL - Get all pending members
strSql = "SELECT M_NAME, M_EMAIL, M_KEY, M_APPROVE"
strSql = strSql & " FROM " & strMemberTablePrefix & "MEMBERS_PENDING"
strSql = strSql & " WHERE MEMBER_ID = " & aryID(i)
set rsApprove = my_Conn.Execute(strSql)
if not(rsApprove.EOF) and not(rsApprove.BOF) and rsApprove("M_APPROVE") = 0 then
'## E-mails Message to all pending members.
strRecipientsName = rsApprove("M_NAME")
strRecipients = rsApprove("M_EMAIL")
strFrom = strSender
strFromName = strForumTitle
strsubject = strForumTitle & " Registration "
strMessage = "Hello " & rsApprove("M_NAME") & vbNewline & vbNewline
strMessage = strMessage & "You received this message from " & strForumTitle & " because you have registered for a new account which allows you to post new messages and reply to existing ones on the forums at " & strForumURL & vbNewline & vbNewline
if strAuthType="db" then
strMessage = strMessage & "Please click on the link below to complete your registration." & vbNewline & vbNewLine
strMessage = strMessage & strForumURL & "register.asp?actkey=" & rsApprove("M_KEY") & vbNewline & vbNewline
end if
strMessage = strMessage & "You can change your information at our website by selecting the ""Profile"" link." & vbNewline & vbNewline
strMessage = strMessage & "Happy Posting!"
%>
<!--#INCLUDE FILE="inc_mail.asp" -->
<%
rsApprove.movenext
end if
rsApprove.Close
set rsApprove = nothing
next
end if
end sub
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -