📄 default.asp
字号:
Response.Write " </tr>" & vbNewline
Response.Write " <tr>" & vbNewline
Response.Write " <td>"
end if
ShowLastHere = (mLev > 0)
if strShowStatistics <> "1" then
Response.Write vbNewLine & _
" <table width=""100%"" border=""0"">" & vbNewline & _
" <tr>" & vbNewline & _
" <td>"
if ShowLasthere then
Response.Write "<font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """>You Last Visited - " & ChkDate(Session(strCookieURL & "last_here_date"), " " ,true) & "</font>"
else
Response.Write " "
end if
Response.Write "</td>" & vbNewline & _
" <td align=""right""><font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """>There are " & Posts & " Posts in " & Topics & " Topics and " & Users & " Users </font></td>" & vbNewline & _
" </tr>" & vbNewline & _
" </table>" & vbNewline & _
" </td>" & vbNewline
else
Response.Write "</td>" & vbNewline
end if
Response.Write " </tr>" & vbNewline & _
" <tr>" & vbNewline & _
" <td bgcolor=""" & strTableBorderColor & """>" & vbNewline & _
" <table border=""0"" width=""100%"" cellspacing=""1"" cellpadding=""4"">" & vbNewline & _
" <tr>" & vbNewline & _
" <td align=""center"" bgcolor=""" & strHeadCellColor & """ nowrap valign=""top""><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHeadFontColor & """>"
if Cat_ID <> "" then
Response.Write "<a href=""default.asp"">" & getCurrentIcon(strIconFolder,"Show All Categories","hspace=""0""") & "</a>"
else
Response.Write " "
end if
Response.Write "</font></b></td>" & vbNewline & _
" <td align=""center"" bgcolor=""" & strHeadCellColor & """ nowrap valign=""top""><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHeadFontColor & """>"
if strGroupCategories = "1" then Response.Write(GROUPNAME) else Response.Write("Forum")
Response.Write "</font></b></td>" & vbNewline & _
" <td align=""center"" bgcolor=""" & strHeadCellColor & """ nowrap valign=""top""><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHeadFontColor & """>Topics</font></b></td>" & vbNewline & _
" <td align=""center"" bgcolor=""" & strHeadCellColor & """ nowrap valign=""top""><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHeadFontColor & """>Posts</font></b></td>" & vbNewline & _
" <td align=""center"" bgcolor=""" & strHeadCellColor & """ nowrap valign=""top""><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHeadFontColor & """>Last Post</font></b></td>" & vbNewline
if (strShowModerators = "1") or (mlev = 4 or mlev = 3) then
Response.Write " <td align=""center"" bgcolor=""" & strHeadCellColor & """ nowrap valign=""top""><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHeadFontColor & """>Moderator(s)</font></b></td>" & vbNewline
end if
Response.Write " <td align=""center"" bgcolor=""" & strHeadCellColor & """>"
if (mlev = 4 or mlev = 3) or (lcase(strNoCookies) = "1") then
call PostingOptions()
else
Response.write " "
end if
Response.Write "</td>" & vbNewline
Response.Write " </tr>" & vbNewline
If recCategoryCount = "" then
Response.Write " <tr>" & vbNewline & _
" <td bgcolor=""" & strCategoryCellColor & """ colspan="""
if (strShowModerators = "1") or (mlev > 0 ) then
Response.Write "6"
else
Response.Write "5"
end if
Response.Write """><font face=""" & strDefaultFontFace & """ color=""" & strCategoryFontColor & """ size=""" & strDefaultFontSize & """><b>No Categories/Forums Found</b></font></td>" & vbNewline & _
" <td bgcolor=""" & strCategoryCellColor & """><font face=""" & strDefaultFontFace & """ color=""" & strCategoryFontColor & """ size=""" & strDefaultFontSize & """> </font></td>" & vbNewline & _
" </tr>" & vbNewline
else
intPostCount = 0
intTopicCount = 0
intForumCount = 0
strLastPostDate = ""
cCAT_ID = 0
cCAT_STATUS = 1
cCAT_NAME = 2
cCAT_ORDER = 3
cCAT_SUBSCRIPTION = 4
cCAT_MODERATION = 5
fFORUM_ID = 0
fF_STATUS = 1
fCAT_ID = 2
fF_SUBJECT = 3
fF_URL = 4
fF_TOPICS = 5
fF_COUNT = 6
fF_LAST_POST = 7
fF_LAST_POST_TOPIC_ID = 8
fF_LAST_POST_REPLY_ID = 9
fF_TYPE = 10
fF_ORDER = 11
fF_A_COUNT = 12
fF_SUBSCRIPTION = 13
fF_PRIVATEFORUMS = 14
fF_PASSWORD_NEW = 15
fMEMBER_ID = 16
fM_NAME = 17
fT_REPLIES = 18
fT_UREPLIES = 19
fF_DESCRIPTION = 20
blnHiddenForums = false
for iCategory = 0 to recCategoryCount
CatID = allCategoryData(cCAT_ID,iCategory)
CatStatus = allCategoryData(cCAT_STATUS,iCategory)
CatName = allCategoryData(cCAT_NAME,iCategory)
CatOrder = allCategoryData(cCAT_NAME,iCategory)
CatSubscription = allCategoryData(cCAT_SUBSCRIPTION,iCategory)
CatModeration = allCategoryData(cCAT_MODERATION,iCategory)
chkDisplayHeader = true
bContainsForum = False
if recForumCount <> "" then
for iForumCheck = 0 to recForumCount
if CatID = allForumData(fCAT_ID, iForumCheck) then bContainsForum = True
next
end if
if (recForumCount = "" or not bContainsForum) and (mLev = 4) then
Response.Write " <tr>" & vbNewline & _
" <td bgcolor=""" & strCategoryCellColor & """ colspan=""" & sGetColspan(6,5) & """>"
if Cat_ID = "" then
Response.Write "<a href=""default.asp?CAT_ID=" & CatID & """ title=""View only the Forums in this Category""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strCategoryFontColor & """><b>" & ChkString(CatName,"display") & "</b></font></a></td>" & vbNewline
else
Response.Write "<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strCategoryFontColor & """><b>" & ChkString(CatName,"display") & "</b></font></td>" & vbNewline
end if
if (mlev = 4) or (lcase(strNoCookies) = "1") then
Response.Write " <td bgcolor=""" & strCategoryCellColor & """ align=center valign=""top"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>"
call CategoryAdminOptions()
Response.Write "</font></b></td>" & vbNewline
end if
Response.Write " </tr>" & vbNewline & _
" <tr>" & vbNewline & _
" <td bgcolor=""" & strForumCellColor & """ colspan=""" & sGetColspan(7,6) &_
"""><font face=""" & strDefaultFontFace & """ color=""" & strForumFontColor & """ size=""" & strDefaultFontSize & """><b>No Forums Found</b></font></td>" & vbNewline & _
" </tr>" & vbNewline
else
for iForum = 0 to recForumCount
if CatID = allForumData(fCAT_ID, iForum) then '## Forum exists
ForumID = allForumData(fFORUM_ID,iForum)
ForumStatus = allForumData(fF_STATUS,iForum)
ForumCatID = allForumData(fCAT_ID,iForum)
ForumSubject = allForumData(fF_SUBJECT,iForum)
ForumURL = allForumData(fF_URL,iForum)
ForumTopics = allForumData(fF_TOPICS,iForum)
ForumCount = allForumData(fF_COUNT,iForum)
ForumLastPost = allForumData(fF_LAST_POST,iForum)
ForumLastPostTopicID = allForumData(fF_LAST_POST_TOPIC_ID,iForum)
ForumLastPostReplyID = allForumData(fF_LAST_POST_REPLY_ID,iForum)
ForumFType = allForumData(fF_TYPE,iForum)
ForumOrder = allForumData(fF_ORDER,iForum)
ForumACount = allForumData(fF_A_COUNT,iForum)
ForumSubscription = allForumData(fF_SUBSCRIPTION,iForum)
ForumPrivateForums = allForumData(fF_PRIVATEFORUMS,iForum)
ForumFPasswordNew = allForumData(fF_PASSWORD_NEW,iForum)
ForumMemberID = allForumData(fMEMBER_ID,iForum)
ForumMemberName = allForumData(fM_NAME,iForum)
ForumTopicReplies = allForumData(fT_REPLIES,iForum)
ForumTopicUReplies = allForumData(fT_UREPLIES,iForum)
ForumDescription = allForumData(fF_DESCRIPTION,iForum)
Dim AdminAllowed, ModerateAllowed
if mLev = 4 then
AdminAllowed = "Y"
else
AdminAllowed = "N"
end if
if mLev = 4 then
ModerateAllowed = "Y"
elseif mLev = 3 and ModOfForums <> "" then
if (strAuthType = "nt") then
if (chkForumModerator(ForumID, Session(strCookieURL & "username")) = "1") then ModerateAllowed = "Y" else ModerateAllowed = "N"
else
if (instr("," & ModOfForums & "," ,"," & ForumID & ",") <> 0) then ModerateAllowed = "Y" else ModerateAllowed = "N"
end if
else
ModerateAllowed = "N"
end if
if ModerateAllowed = "Y" and ForumTopicUReplies > 0 then
ForumTopicReplies = ForumTopicReplies + ForumTopicUReplies
end if
if ChkDisplayForum(ForumPrivateForums,ForumFPasswordNew,ForumID,MemberID) then
if ForumFType <> "1" then
intPostCount = intPostCount + ForumCount
intTopicCount = intTopicCount + ForumTopics
intForumCount = intForumCount + 1
if ForumLastPost > strLastPostDate then
strLastPostDate = ForumLastPost
intLastPostTopic_ID = ForumLastPostTopicID
intLastPostReply_ID = ForumLastPostReplyID
intTopicReplies = ForumTopicReplies
intLastPostForum_ID = ForumID
intLastPostMember_ID = ForumMemberID
strLastPostMember_Name = ForumMemberName
end if
end if
if chkDisplayHeader then
Call DoHideCategory(CatID)
Response.Write " <tr>" & vbNewline & _
" <td bgcolor=""" & strCategoryCellColor & """ colspan=""" & sGetColspan(6,5) & """ valign=""top"">"
'##### This code will specify whether or not to show the forums under a category #####
HideForumCat = strUniqueID & "HideCat" & CatID
if Request.Cookies(HideForumCat) = "Y" then
Response.Write "<a href=""" & ScriptName & "?" & HideForumCat & "=N&CAT_ID=" & Cat_ID & """>" & getCurrentIcon(strIconPlus,"Expand This Category","") & "</a>"
else
Response.Write "<a href=""" & ScriptName & "?" & HideForumCat & "=Y&CAT_ID=" & Cat_ID & """>" & getCurrentIcon(strIconMinus,"Collapse This Category","") & "</a>"
end if
if Cat_ID = "" then
Response.Write " <a href=""default.asp?CAT_ID=" & CatID & """ title=""View only the Forums in this Category""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strCategoryFontColor & """><b>" & ChkString(CatName,"display") & "</b></font></a> </td>" & vbNewline
else
Response.Write " <font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strCategoryFontColor & """><b>" & ChkString(CatName,"display") & "</b></font> </td>" & vbNewline
end if
'##### Above code will specify whether or not to show the forums under a category #####
Response.Write " <td bgcolor=""" & strCategoryCellColor & """ align=""center"" valign=""top"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>"
if (mLev = 4 or mLev = 3) or (lcase(strNoCookies) = "1") then
call CategoryAdminOptions()
elseif (mLev > 0) then
call CategoryMemberOptions()
else
Response.Write(" ")
end if
Response.Write "</font></b></td>" & vbNewline
Response.Write " </tr>" & vbNewline
chkDisplayHeader = false
end if
if Request.Cookies(HideForumCat) <> "Y" then '##### added as part of Minimize Category Mod #####
Response.Write " <tr>" & vbNewline & _
" <td bgcolor=""" & strForumCellColor & """ align=""center"" valign=""top"">"
if ForumFType = 0 then
ChkIsNew(ForumLastPost)
else
Response.Write "<a href=""" & ForumURL & """ target=""_blank"">" & getCurrentIcon(strIconUrl,"Visit " & chkString(ForumSubject,"display"),"hspace=""0""") & "</a>"
end if
Response.Write "</td>" & vbNewline & _
" <td"
if ForumFType = 1 then
Response.Write " colspan=""4"""
end if
Response.Write " bgcolor=""" & strForumCellColor & """ valign=""top"">" & _
"<font face=""" & strDefaultFontFace & """ color=""" & strForumFontColor & """ size=""" & strDefaultFontSize & """><span class=""spnMessageText""><a href="""
if ForumFType = 0 then
Response.Write "forum.asp?FORUM_ID=" & ForumID
else
Response.Write ForumURL & """ target=""_blank"
end if
Response.Write """>" & chkString(ForumSubject,"display") & "</a><br />" & _
"<font size=""" & strFooterFontSize & """>" & _
formatStr(ForumDescription) & _
"</font></span></font></td>" & vbNewline
if ForumFType = 0 then
if IsNull(ForumTopics) then
Response.Write " <td bgcolor=""" & strForumCellColor & """ align=""center"" valign=""top""><font face=""" & strDefaultFontFace & """ color=""" & strForumFontColor & """ size=""" & strDefaultFontSize & """>0</font></td>" & vbNewline
else
Response.Write " <td bgcolor=""" & strForumCellColor & """ align=""center"" valign=""top""><font face=""" & strDefaultFontFace & """ color=""" & strForumFontColor & """ size=""" & strDefaultFontSize & """>" & ForumTopics & "</font></td>" & vbNewline
end if
if IsNull(ForumCount) then
Response.Write " <td bgcolor=""" & strForumCellColor & """ align=""center"" valign=""top""><font face=""" & strDefaultFontFace & """ color=""" & strForumFontColor & """ size=""" & strDefaultFontSize & """>0</font></td>" & vbNewline
else
Response.Write " <td bgcolor=""" & strForumCellColor & """ align=""center"" valign=""top""><font face=""" & strDefaultFontFace & """ color=""" & strForumFontColor & """ size=""" & strDefaultFontSize & """>" & ForumCount & "</font></td>" & vbNewline
end if
if IsNull(ForumMemberID) then
strLastUser = " "
else
strLastUser = "<br />by: <span class=""spnMessageText"">" & profileLink(chkString(ForumMemberName,"display"),ForumMemberID) & "</span>"
if strJumpLastPost = "1" then strLastUser = strLastUser & " " & DoLastPostLink(true)
end if
Response.Write " <td bgcolor=""" & strForumCellColor & """ align=""center"" valign=""top"" nowrap><font face=""" & strDefaultFontFace & """ color=""" & strForumFontColor & """ size=""" & strFooterFontSize & """>" & _
"<b>" & ChkDate(ForumLastPost, "</b><br />" ,true) & strLastUser & "</font></td>" & vbNewline
else
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -