📄 post.asp
字号:
Response.Write " <tr>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ noWrap vAlign=""top"" align=""right""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>Message:</b><br />" & vbNewLine & _
" <br />" & vbNewLine & _
" <table border=""0"">" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td align=""left"" nowrap><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & vbNewLine
if strAllowHTML = "1" then
Response.Write " * HTML is ON<br />" & vbNewLine
else
Response.Write " * HTML is OFF<br />" & vbNewLine
end if
if strAllowForumCode = "1" then
Response.Write " * <a href=""JavaScript:openWindow6('pop_forum_code.asp')"" tabindex=""-1"">Forum Code</a> is ON<br />" & vbNewLine
else
Response.Write " * Forum Code is OFF<br />" & vbNewLine
end if
if strIcons = "1" and strShowSmiliesTable = "1" then
if strRqMethod = "Edit" or strRqMethod = "EditTopic" or _
strRqMethod = "Reply" or strRqMethod = "ReplyQuote" or _
strRqMethod = "Topic" or strRqMethod = "TopicQuote" then
%>
<!--#INCLUDE FILE="inc_smilies.asp" -->
<%
end if
end if
Response.Write " </font></td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" </table>" & vbNewLine & _
" </font></td>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """><textarea cols=""" & intCols & """ name=""Message"" rows=""" & intRows & """ wrap=""VIRTUAL"" onselect=""storeCaret(this);"" onclick=""storeCaret(this);"" onkeyup=""storeCaret(this);"" onchange=""storeCaret(this);"">" & Trim(CleanCode(TxtMsg)) & "</textarea><br /></td>" & vbNewLine & _
" </tr>" & vbNewLine
end if
select case strRqMethod
case "Reply", "ReplyQuote", "TopicQuote"
Response.Write " <script language=""JavaScript"" type=""text/javascript"">document.PostTopic.Message.focus();</script>" & vbNewLine
end select
'#################################################################################
'## Forum Moderators - listbox Code
'#################################################################################
if (strRqMethod = "Forum" or _
strRqMethod = "URL" or _
strRqMethod = "EditURL" or _
strRqMethod = "EditForum") and (mLev > 3 or lcase(strNoCookies) = "1") then
Response.Write " <tr>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ noWrap vAlign=""top"" align=""right""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>Moderators:</b></font></td>" & vbNewLine
strSql = "SELECT MEMBER_ID, M_NAME "
strSql = strSql & " FROM " & strMemberTablePrefix & "MEMBERS "
strSql = strSql & " WHERE M_LEVEL > 1 "
strSql = strSql & " AND M_STATUS = " & 1
strSql = strSql & " ORDER BY M_NAME ASC "
set rsModerators = Server.CreateObject("ADODB.Recordset")
rsModerators.open strSql, my_Conn, adOpenForwardOnly, adLockReadOnly, adCmdText
if rsModerators.EOF then
recModeratorsCount = ""
else
allModeratorsData = rsModerators.GetRows(adGetRowsRest)
recModeratorsCount = UBound(allModeratorsData,2)
meMEMBER_ID = 0
meM_NAME = 1
end if
rsModerators.close
set rsModerators = nothing
tmpStrUserList = ""
if strRqMethod = "EditForum" or strRqMethod = "EditURL" then
strSql = "SELECT MEMBER_ID "
strSql = strSql & " FROM " & strTablePrefix & "MODERATOR "
strSql = strSql & " WHERE FORUM_ID = " & strRqForumID
set rsForumModerator = Server.CreateObject("ADODB.Recordset")
rsForumModerator.open strSql, my_Conn, adOpenForwardOnly, adLockReadOnly, adCmdText
if rsForumModerator.EOF then
recForumModeratorCount = ""
else
allForumModeratorData = rsForumModerator.GetRows(adGetRowsRest)
recForumModeratorCount = UBound(allForumModeratorData,2)
moMEMBER_ID = 0
end if
rsForumModerator.close
set rsForumModerator = nothing
if recForumModeratorCount <> "" then
for iForumModerator = 0 to recForumModeratorCount
ForumModeratorMemberID = allForumModeratorData(moMEMBER_ID, iForumModerator)
if tmpStrUserList = "" then
tmpStrUserList = ForumModeratorMemberID
else
tmpStrUserList = tmpStrUserList & "," & ForumModeratorMemberID
end if
next
end if
end if
SelectSize = 6
Response.Write " <td bgColor=""" & strPopUpTableColor & """>" & vbNewLine & _
" <table>" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>Available</b></font><br />" & vbNewLine & _
" <select name=""ForumModCombo"" size=""" & SelectSize & """ multiple onDblClick=""moveSelectedOptions(document.PostTopic.ForumModCombo, document.PostTopic.ForumMod, true, '')"">" & vbNewLine
'## Pick from list
if recModeratorsCount <> "" then
for iModerators = 0 to recModeratorsCount
MembersMemberID = allModeratorsData(meMEMBER_ID, iModerators)
MembersMemberName = allModeratorsData(meM_NAME, iModerators)
if not(Instr("," & tmpStrUserList & "," , "," & MembersMemberID & ",") > 0) then
Response.Write " <option value=""" & MembersMemberID & """>" & ChkString(MembersMemberName,"display") & "</option>" & vbNewline
end if
next
end if
Response.Write " </select>" & vbNewLine & _
" </td>" & vbNewLine & _
" <td width=""15"" align=""center"" valign=""middle""><br />" & vbNewLine & _
" <a href=""javascript:moveAllOptions(document.PostTopic.ForumMod, document.PostTopic.ForumModCombo, true, '')"" tabindex=""-1"">" & getCurrentIcon(strIconPrivateRemAll,"","") & "</a>" & vbNewLine & _
" <a href=""javascript:moveSelectedOptions(document.PostTopic.ForumMod, document.PostTopic.ForumModCombo, true, '')"" tabindex=""-1"">" & getCurrentIcon(strIconPrivateRemove,"","") & "</a>" & vbNewLine & _
" <a href=""javascript:moveSelectedOptions(document.PostTopic.ForumModCombo, document.PostTopic.ForumMod, true, '')"" tabindex=""-1"">" & getCurrentIcon(strIconPrivateAdd,"","") & "</a>" & vbNewLine & _
" <a href=""javascript:moveAllOptions(document.PostTopic.ForumModCombo, document.PostTopic.ForumMod, true, '')"" tabindex=""-1"">" & getCurrentIcon(strIconPrivateAddAll,"","") & "</a>" & vbNewLine & _
" </td>" & vbNewLine & _
" <td align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>Selected</b></font><br />" & vbNewLine & _
" <select name=""ForumMod"" size=""" & SelectSize & """ tabindex=""-1"" multiple onDblClick=""moveSelectedOptions(document.PostTopic.ForumMod, document.PostTopic.ForumModCombo, true, '')"">" & vbNewLine
'## Selected List
if strRqMethod = "EditForum" or strRqMethod = "EditURL" then
if recForumModeratorCount <> "" then
for iForumModerator = 0 to recForumModeratorCount
ForumModeratorMemberID = allForumModeratorData(moMEMBER_ID, iForumModerator)
if ForumModeratorMemberID <> "" then
Response.Write " <option value=""" & ForumModeratorMemberID & """>" & getMemberName(ForumModeratorMemberID) & "</option>" & vbNewline
end if
next
end if
end if
Response.Write " </select>" & vbNewLine & _
" </td>" & vbNewLine & _
" <td valign=""top""> <a href=""Javascript:openWindow3('pop_help.asp?mode=options#moderators')"" tabindex=""-1"">" & getCurrentIcon(strIconSmileQuestion,"Click here to get more help on this option","") & "</a></td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" </table>" & vbNewLine & _
" </td>" & vbNewLine & _
" </tr>" & vbNewLine
end if
'#################################################################################
'## Forum Moderators - End of listbox code
'#################################################################################
' DEM --> Start of Code added for full moderation and subscription services
if strRqMethod = "Forum" or strRqMethod = "EditForum" or _
strRqMethod = "Category" or strRqMethod = "EditCategory" then
if strSubscription > 0 and strEmail = "1" and _
((strRqMethod = "Category" or strRqMethod = "EditCategory") or _
((strRqMethod = "Forum" or strRqMethod = "EditForum") and (CatSubscription > 0))) then
' Subscription service first.....
Response.Write " <tr>" & vbNewline
Response.Write " <td bgColor=""" & strPopUpTableColor & """ noWrap vAlign=""top"" align=""right""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>Subscription:</b></font></td>" & vbNewLine
Response.Write " <td bgColor=""" & strPopUpTableColor & """ noWrap vAlign=""top""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & vbNewLine
Response.Write " <select name=""Subscription"">" & vbNewLine
if strRqMethod = "Category" or strRqMethod = "EditCategory" then
Response.Write " <option"
if CatSubscription = 0 then
Response.Write " selected "
end if
Response.Write " value=""0"">No Subscriptions Allowed</option>" & vbNewLine
' If Whole Board or Category Level Subscriptions Allowed, show option
if strSubscription < 3 then
Response.Write " <option"
if CatSubscription = 1 then
Response.Write " selected "
end if
Response.Write " value=""1"">Category Subscriptions Allowed</option>" & vbNewLine
end if
' If Whole Board, Category Level or Forum Level Subscriptions Allowed, show option
if strSubscription < 4 then
Response.Write " <option"
if CatSubscription = 2 then
Response.Write " selected "
end if
Response.Write " value=""2"">Forum Subscriptions Allowed</option>" & vbNewLine
end if
Response.Write " <option"
if CatSubscription = 3 then
Response.Write " selected "
end if
Response.Write " value=""3"">Topic Subscriptions Allowed</option>" & vbNewLine
else
Response.Write " <option"
if ForumSubscription = 0 then
Response.Write " selected "
end if
Response.Write " value=""0"">No Subscriptions Allowed</option>" & vbNewLine
' If Whole Board, Category Level or Forum Level Subscriptions Allowed, show option
if strSubscription < 4 and CatSubscription < 3 then
Response.Write " <option"
if ForumSubscription = 1 then
Response.Write " selected "
end if
Response.Write " value=""1"">Forum Subscriptions Allowed</option>" & vbNewLine
end if
Response.Write " <option"
if ForumSubscription = 2 then
Response.Write " selected "
end if
Response.Write " value=""2"">Topic Subscriptions Allowed</option>" & vbNewLine
end if
Response.Write " </select>" & vbNewline
Response.Write " <a href=""Javascript:openWindow3('pop_help.asp?mode=options#subscription')"" tabindex=""-1"">" & getCurrentIcon(strIconSmileQuestion,"Click here to get more help on this option","") & "</a></font></td>" & vbNewline
Response.Write " </tr>" & vbNewLine
end if
' Topic Moderation Code - Check if Moderation is allowed over the entire board, then
' check if Moderation is allowed for the next level up.
if strModeration > 0 and _
((strRqMethod = "Category" or strRqMethod = "EditCategory") or _
((strRqMethod = "Forum" or strRqMethod = "EditForum") and CatModeration > 0)) then
Response.Write " <tr>" & vbNewline
Response.Write " <td bgColor=""" & strPopUpTableColor & """ noWrap vAlign=""top"" align=""right""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>Moderation:</b></font></td>" & vbNewLine
Response.Write " <td bgColor=""" & strPopUpTableColor & """ noWrap vAlign=""top""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & vbNewLine
Response.Write " <select name=""Moderation"">" & vbNewLine
if strRqMethod = "Category" or strRqMethod = "EditCategory" then
Response.Write " <option"
if CatModeration = 0 then
Response.Write " selected "
end if
Response.Write " value=""0"">Moderation Not Allowed in this Category</option>" & vbNewLine
Response.Write " <option"
if CatModeration = 1 then
Response.Write " selected "
end if
Response.Write " value=""1"">Moderation Allowed in this Category</option>" & vbNewLine
else
Response.Write " <option"
if ForumModeration = 0 then
Response.Write " selected "
end if
Response.Write " value=""0"">No Moderation for this forum</option>" & vbNewLine
Response.Write " <option"
if ForumModeration = 1 then
Response.Write " selected "
end if
Response.Write " value=""1"">All Posts Moderated</option>" & vbNewLine
Response.Write " <option"
if ForumModeration = 2 then
Response.Write " selected "
end if
Response.Write " value=""2"">Original Posts Only Moderated</option>" & vbNewLine
Response.Write " <option"
if ForumModeration = 3 then
Response.Write " selected "
end if
Response.Write " value=""3"">Replies Only Moderated</option>" & vbNewLine
end if
Response.Write " </select>" & vbNewline
Response.Write " <a href=""Javascript:openWindow3('pop_help.asp?mode=options#moderation')"" tabindex=""-1"">" & getCurrentIcon(strIconSmileQuestion,"Click here to get more help on this option","") & "</a> </font></td>" & vbNewline
Response.Write " </tr>" & vbNewline
end if
end if
' DEM --> End of Code Added for Moderation and Subscription
if strRqMethod = "Edit" or _
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -