📄 default.asp
字号:
'## Do Nothing
end if
if (strShowModerators = "1") or (mlev = 4 or mlev = 3) then
Response.Write " <td bgcolor=""" & strForumCellColor & """ align=""left"" valign=""top""><font face=""" & strDefaultFontFace & """ color=""" & strForumFontColor & """ size=""" & strFooterFontSize & """><span class=""spnMessageText"">" & listForumModerators(ForumID) & "</span></font></td>" & vbNewline
end if
Response.Write " <td bgcolor=""" & strForumCellColor & """ align=""center"" valign=""top"" nowrap>"
if ModerateAllowed = "Y" or (lcase(strNoCookies) = "1") then
call ForumAdminOptions
else
call ForumMemberOptions
end if
Response.Write "</td>" & vbNewline
Response.Write " </tr>" & vbNewline
end if ' ##### Added as part of Minimize Category Mod #####
else
blnHiddenForums = true
end if ' ChkDisplayForum()
end if
next '## Next Forum
end if
next '## Next Category
end if
if strShowStatistics = "1" then
WriteStatistics
end if
Response.Write " </table>" & vbNewline & _
" </td>" & vbNewline & _
" </tr>" & vbNewline & _
" <tr>" & vbNewline & _
" <td>" & vbNewline & _
" <table width=""100%"">" & vbNewline & _
" <tr>" & vbNewline & _
" <td><font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """>" & vbNewline & _
" " & getCurrentIcon(strIconFolderNew,"New Posts","align=""absmiddle""") & " Contains new posts since last visit.<br />" & vbNewline & _
" " & getCurrentIcon(strIconFolder,"Old Posts","align=""absmiddle""") & " No new posts since the last visit.<br /></font></td>" & vbNewline & _
" </tr>" & vbNewline & _
" </table>" & vbNewline & _
" </td>" & vbNewline & _
" </tr>" & vbNewline & _
" </table>" & vbNewline
WriteFooter
sub PostingOptions()
if (mlev = 4) or (lcase(strNoCookies) = "1") then
Response.Write "<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>"
if Session(strCookieURL & "Approval") = "15916941253" then Response.Write("<a href=""down.asp"">" & getCurrentIcon(strIconLock,"Shut Down the Forum","hspace=""0""") & "</a>")
Response.Write " <a href=""post.asp?method=Category"">" & getCurrentIcon(strIconFolderNewTopic,"Create New Category","hspace=""0""") & "</a>"
if strArchiveState = "1" then Response.Write(" <a href=""admin_forums.asp"">" & getCurrentIcon(strIconFolderArchive,"Archive Forum Topics","hspace=""0""") & "</a>")
Response.Write("</font>")
' DEM --> Start of Code for Full Moderation
if UnModeratedPosts > 0 then
Response.Write " <a href=""moderate.asp"">" & getCurrentIcon(strIconFolderModerate,"View All UnModerated Posts","hspace=""0""") & "</a>"
'Response.Write " <a href=""JavaScript:openWindow('pop_moderate.asp')"">" & getCurrentIcon(strIconFolderModerate,"Approve/Hold/Reject all UnModerated Posts","hspace=""0""") & "</a>"
end if
' DEM --> End of Code for Full Moderation
' DEM - Added to allow for sorting
Response.Write " <a href=""Javascript:openWindow3('admin_config_order.asp')"">" & getCurrentIcon(strIconSort,"Set the order of Forums and Categories","hspace=""0""") & "</a>"
'############################## Group Cat MoD #####################################
if strGroupCategories = "1" then Response.Write(" <a href=""admin_config_groupcats.asp?method=Edit"">" & getCurrentIcon(strIconGroupCategories,"Configure Group Categories","hspace=""0""") & "</a>")
'############################## Group Cat MoD #####################################
elseif (mlev = 3) then
if UnModeratedPosts > 0 then
Response.Write " <a href=""moderate.asp"">" & getCurrentIcon(strIconFolderModerate,"View All UnModerated Posts","hspace=""0""") & "</a>"
else
Response.Write " "
end if
else
Response.Write " "
end if
end sub
sub ChkIsNew(dt)
Response.Write "<a href=""forum.asp?FORUM_ID=" & ForumID & """>"
if CatStatus <> 0 and ForumStatus <> 0 then
if dt > Session(strCookieURL & "last_here_date") and (ForumCount > 0 or ForumTopics > 0) then
Response.Write getCurrentIcon(strIconFolderNew,"New Posts","hspace=""0""") & "</a>"
else
Response.Write getCurrentIcon(strIconFolder,"Old Posts","hspace=""0""") & "</a>"
end if
elseif ForumLastPost > Session(strCookieURL & "last_here_date") then
if CatStatus = 0 then
strAltText = "Category Locked"
else
strAltText = "Forum Locked"
end if
Response.Write getCurrentIcon(strIconFolderNewLocked,strAltText,"hspace=""0""") & "</a>"
else
if CatStatus = 0 then
strAltText = "Category Locked"
else
strAltText = "Forum Locked"
end if
Response.Write getCurrentIcon(strIconFolderLocked,strAltText,"hspace=""0""") & "</a>"
end if
end sub
sub CategoryAdminOptions()
if (mlev = 4 or mlev = 3) or (lcase(strNoCookies) = "1") then
if (mlev = 4) or (lcase(strNoCookies) = "1") then
if (CatStatus <> 0) then
Response.Write " <a href=""JavaScript:openWindow('pop_lock.asp?mode=Category&CAT_ID=" & CatID & "')"">" & getCurrentIcon(strIconLock,"Lock Category","hspace=""0""") & "</a>"
else
Response.Write " <a href=""JavaScript:openWindow('pop_open.asp?mode=Category&CAT_ID=" & CatID & "')"">" & getCurrentIcon(strIconUnlock,"Un-Lock Category","hspace=""0""") & "</a>"
end if
end if
if (mlev = 4) or (lcase(strNoCookies) = "1") then
if (CatStatus <> 0) then
Response.Write " <a href=""post.asp?method=EditCategory&CAT_ID=" & CatID & """>" & getCurrentIcon(strIconPencil,"Edit Category Name","hspace=""0""") & "</a>"
end if
end if
if mlev = 4 or (lcase(strNoCookies) = "1") then
Response.Write " <a href=""JavaScript:openWindow('pop_delete.asp?mode=Category&CAT_ID=" & CatID & "')"">" & getCurrentIcon(strIconTrashcan,"Delete Category","hspace=""0""") & "</a>"
end if
if (mlev = 4) or (lcase(strNoCookies) = "1") then
if (CatStatus <> 0) then
Response.Write " <a href=""post.asp?method=Forum&CAT_ID=" & CatID & "&type=0"">" & getCurrentIcon(strIconFolderNewTopic,"Create New Forum","hspace=""0""") & "</a>"
end if
end if
if (mlev = 4) or (lcase(strNoCookies) = "1") then
if (CatStatus <> 0) then
Response.Write " <a href=""post.asp?method=URL&CAT_ID=" & CatID & "&type=1"">" & getCurrentIcon(strIconUrl,"Create New Web Link","hspace=""0""") & "</a>"
end if
end if
if (mlev = 4) or (lcase(strNoCookies) = "1") then
if (CatStatus <> 0) and strArchiveState = "1" then
''## Forum_SQL
'strSQL = "SELECT FORUM_ID FROM " & strTablePrefix & "FORUM WHERE CAT_ID=" & CatID & " AND F_TYPE = 0"
'Set rsArchive = Server.CreateObject("ADODB.Recordset")
'rsArchive.open strSql, my_Conn
'archID = ""
'do while not rsArchive.EOF
' if archID <> "" then
' archID = archID & ", "
' end if
' archID = archID & rsArchive("FORUM_ID")
' rsArchive.movenext
'loop
'if archID <> "" then Response.Write " <a href=""admin_forums.asp?action=archive&target=admin_forums.asp&id=" & Server.URLEncode(archID) & """>" & getCurrentIcon(strIconFolderArchive,"Archive All Forums in Category","hspace=""0""") & "</a>"
'rsArchive.close
'set rsArchive = nothing
end if
end if
if (strSubscription = 1 or strSubscription = 2) and CatSubscription = 1 and strEmail = 1 then
if InArray(strCatSubs,CatID) then
Response.Write " " & ShowSubLink ("U", CatID, 0, 0, "N")
elseif strBoardSubs <> "Y" then
Response.Write " " & ShowSubLink ("S", CatID, 0, 0, "N")
end if
elseif mLev = "3" then
Response.Write " "
end if
else
Response.Write " "
end if
end sub
sub CategoryMemberOptions()
if (strSubscription = 1 or strSubscription = 2) and CatSubscription = 1 and CatStatus <> 0 and strEmail = 1 then
if InArray(strCatSubs,CatID) then
Response.Write " " & ShowSubLink ("U", CatID, 0, 0, "N")
elseif strBoardSubs <> "Y" then
Response.Write " " & ShowSubLink ("S", CatID, 0, 0, "N")
end If
else
Response.Write " "
end if
end sub
sub ForumAdminOptions()
if (ModerateAllowed = "Y") or (lcase(strNoCookies) = "1") then
if ForumFType = 0 then
if CatStatus = 0 then
if (mlev = 4) then
Response.Write " <a href=""JavaScript:openWindow('pop_open.asp?mode=Category&CAT_ID=" & CatID & "')"">" & getCurrentIcon(strIconUnlock,"Un-Lock Category","hspace=""0""") & "</a>"
end if
else
if ForumStatus = 1 then
Response.Write " <a href=""JavaScript:openWindow('pop_lock.asp?mode=Forum&FORUM_ID=" & ForumID & "&CAT_ID=" & ForumCatID & "')"">" & getCurrentIcon(strIconLock,"Lock Forum","hspace=""0""") & "</a>"
else
Response.Write " <a href=""JavaScript:openWindow('pop_open.asp?mode=Forum&FORUM_ID=" & ForumID & "&CAT_ID=" & ForumCatID & "')"">" & getCurrentIcon(strIconUnlock,"Un-Lock Forum","hspace=""0""") & "</a>"
end if
end if
end if
if ForumFType = 0 then
if (CatStatus <> 0 and ForumStatus <> 0) or (ModerateAllowed = "Y") or (lcase(strNoCookies) = "1") then
Response.Write " <a href=""post.asp?method=EditForum&FORUM_ID=" & ForumID & "&CAT_ID=" & ForumCatID & "&type=0"">" & getCurrentIcon(strIconPencil,"Edit Forum Properties","hspace=""0""") & "</a>"
end if
else
if ForumFType = 1 then
Response.Write " <a href=""post.asp?method=EditURL&FORUM_ID=" & ForumID & "&CAT_ID=" & ForumCatID & "&type=1"">" & getCurrentIcon(strIconPencil,"Edit URL Properties","hspace=""0""") & "</a>"
end if
end if
if (mlev = 4) or (lcase(strNoCookies) = "1") then
Response.Write " <a href=""JavaScript:openWindow('pop_delete.asp?mode=Forum&FORUM_ID=" & ForumID & "&CAT_ID=" & ForumCatID & "')"">" & getCurrentIcon(strIconTrashcan,"Delete Forum","hspace=""0""") & "</a>"
end if
if ForumFType = 0 then
Response.Write " <a href=""post.asp?method=Topic&FORUM_ID=" & ForumID & """>" & getCurrentIcon(strIconFolderNewTopic,"New Topic","hspace=""0""") & "</a>"
end if
if ((mlev = 4) or (lcase(strNoCookies) = "1")) and (ForumFType = 0) and (strArchiveState = "1") then
Response.Write " <a href=""admin_forums.asp?action=archive&id=" & ForumID & """>" & getCurrentIcon(strIconFolderArchive,"Archive Forum","hspace=""0""") & "</a>"
end if
if (ForumFType = 0 and ForumACount > 0) and strArchiveState = "1" then
Response.Write " <a href=""forum.asp?ARCHIVE=true&FORUM_ID=" & ForumID & """>" & getCurrentIcon(strIconFolderArchived,"View Archived posts","hspace=""0""") & "</a>"
end if
if (strSubscription > 0 and strSubscription < 4) and CatSubscription > 0 and ForumSubscription = 1 and strEmail = 1 then
if InArray(strForumSubs,ForumID) then
Response.Write " " & ShowSubLink ("U", ForumCatID, ForumID, 0, "N")
elseif strBoardSubs <> "Y" and not(InArray(strCatSubs,ForumCatID)) then
Response.Write " " & ShowSubLink ("S", ForumCatID, ForumID, 0, "N")
end if
end if
else
Response.Write " "
end if
end sub
sub ForumMemberOptions()
if (mlev > 0) then
if ForumFType = 0 and ForumStatus > 0 and CatStatus > 0 then
Response.Write "<a href=""post.asp?method=Topic&FORUM_ID=" & ForumID & """>" & getCurrentIcon(strIconFolderNewTopic,"New Topic","hspace=""0""") & "</a>"
else
Response.Write " "
end if
else
Response.Write " "
end if
if (ForumFType = 0 and ForumACount > 0) and strArchiveState = "1" then
Response.Write " <a href=""forum.asp?ARCHIVE=true&FORUM_ID=" & ForumID & """>" & _
getCurrentIcon(strIconFolderArchived,"View Archived posts","hspace=""0""") & "</a>"
end if
' DEM --> Start of code for Subscription
if ForumFType = 0 and (strSubscription > 0 and strSubscription < 4) and CatSubscription > 0 and ForumSubscription = 1 and (mlev > 0) and strEmail = 1 then
if InArray(strForumSubs,ForumID) then
Response.Write " " & ShowSubLink ("U", ForumCatID, ForumID, 0, "N")
elseif strBoardSubs <> "Y" and not(InArray(strCatSubs,ForumCatID)) then
Response.Write " " & ShowSubLink ("S", ForumCatID, ForumID, 0, "N")
end if
end if
' DEM --> End of Code for Subscription
end sub
sub WriteStatistics()
Dim Forum_Count
Dim NewMember_Name, NewMember_Id, Member_Count
Dim LastPostDate, LastPostLink
Forum_Count = intForumCount
'## Forum_SQL - Get newest membername and id from DB
strSql = "SELECT M_NAME, MEMBER_ID FROM " & strMemberTablePrefix & "MEMBERS " &_
" WHERE M_STATUS = 1 AND MEMBER_ID > 1 " &_
" ORDER BY MEMBER_ID desc;"
set rs = Server.CreateObject("ADODB.Recordset")
rs.open TopSQL(strSql,1), my_Conn
if not rs.EOF then
NewMember_Name = chkString(rs("M_NAME"), "display")
NewMember_Id = rs("MEMBER_ID")
else
NewMember_Name = ""
end if
rs.close
set rs = nothing
'## Forum_SQL - Get Active membercount from DB
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -