📄 forum_posts.asp
字号:
<tr>
<td rowspan="<% = intPostRowsSpan %>" valign="top" class="<% = strPostTableSideClass %>">
<!-- google_ad_section_start(weight=ignore) -->
<a name="<% = lngMessageID %>"></a>
<span id="userProfile<% = lngMessageID %>" onclick="showDropDown('userProfile<% = lngMessageID %>', 'profileMenu<% = lngMessageID %>', 160, 0);" class="msgSideProfile" title="<% = strTxtViewDropDown %>"><% = strUsername %> <img src="<% = strImagePath %>drop_down.<% = strForumImageType %>" alt="<% = strTxtViewDropDown %>" /></span>
<div id="profileMenu<% = lngMessageID %>" class="dropDownMenu">
<a href="member_profile.asp?PF=<% = lngUserID & strQsSID2 %>" rel="nofollow"><div><% = strTxtMembersProfile %></div></a><%
'Memeber drop down options
If blnPrivateMessages Then Response.Write(vbCrLf & " <a href=""pm_new_message_form.asp?name=" & Server.URLEncode(Replace(strUsername, "'", "\'", 1, -1, 1)) & strQsSID2 & """ rel=""nofollow""><div>" & strTxtSendPrivateMessage & "</div></a>")
Response.Write(vbCrLf & " <a href=""search_form.asp?USR=" & Server.URLEncode(Replace(strUsername, "'", "\'", 1, -1, 1)) & strQsSID2 & """ rel=""nofollow""><div>" & strTxtFindMembersPosts & "</div></a>")
If strAuthorHomepage <> "" Then Response.Write(vbCrLf & " <a href=""" & formatInput(strAuthorHomepage) & """ target=""_blank""><div>" & strTxtVisitMembersHomepage & "</div></a>")
If blnPrivateMessages Then Response.Write(vbCrLf & " <a href=""pm_buddy_list.asp?name=" & Server.URLEncode(Replace(strUsername, "'", "\'", 1, -1, 1)) & strQsSID2 & """ rel=""nofollow""><div>" & strTxtAddToBuddyList & "</div></a>")
%>
</div>
<br /><% = strGroupName %>
<br /><img src="<% If strRankCustomStars <> "" Then Response.Write(strRankCustomStars) Else Response.Write(strImagePath & intRankStars & "_star_rating.png") %>" alt="<% = strGroupName %>" title="<% = strGroupName %>" />
<br /><%
'If the user has an avatar then display it
If blnAvatar = True AND strAuthorAvatar <> "" Then Response.Write("<img src=""" & strAuthorAvatar & """ alt=""" & strTxtAvatar & """ class=""avatar"" onerror=""this.src='avatars/blank_avatar.jpg';"" />")
'If there is a title for this member then display it
If strMemberTitle <> "" Then Response.Write(vbCrLf & " <br />" & strMemberTitle)
'If not a guest post then display some details
If lngUserID <> 2 Then
'Show the joined date
Response.Write(vbCrLf & " <br /><br />" & strTxtJoined & ": " & DateFormat(dtmAuthorRegistration))
'If the is a location display it
If strAuthorLocation <> "" Then Response.Write(vbCrLf & " <br />" & strTxtLocation & ": " & strAuthorLocation)
'If active users is enabled see if the user is online
If blnActiveUsers Then
'Display if the user is online
blnIsUserOnline = False
'Loop through the active users array
For intLoop = 1 To UBound(saryActiveUsers, 2)
If saryActiveUsers(1, intLoop) = lngUserID Then blnIsUserOnline = True
Next
'Display if the user is online
If blnIsUserOnline Then Response.Write(vbCrLf & " <br />" & strTxtOnlineStatus & ": " & strTxtOnLine2) Else Response.Write(vbCrLf & " <br />" & strTxtOnlineStatus & ": " & strTxtOffLine)
End If
'Display the num of posts
Response.Write(vbCrLf & " <br />" & strTxtPosts & ": " & lngAuthorNumOfPosts)
End If
%>
<!-- google_ad_section_end -->
</td>
<td valign="top" class="<% = strPostTableTopClass %>"><%
'Disply post options if there are any for this user
If (blnTopicLocked = False) OR (blnAdmin OR blnModerator) Then
Response.Write(vbCrLf & " <span style=""float:right"">")
'Post options drop down
If intGroupID <> 2 Then
Response.Write(vbCrLf & " <span id=""postOptions" & lngMessageID & """ onclick=""showDropDown('postOptions" & lngMessageID & "', 'postMenu" & lngMessageID & "', 130, 0);"" class=""postOptions""><img src=""" & strImagePath & "post_options." & strForumImageType & """ alt=""" & strTxtPostOptions & """ title=""" & strTxtPostOptions & """ style=""vertical-align: text-bottom;"" /> " & strTxtPostOptions & "</span>" & _
vbCrLf & " <div id=""postMenu" & lngMessageID & """ class=""dropDownMenu"">")
'If the topic is not locked put in a link for someone to quote this message
If blnTopicLocked = False AND blnPollNoReply = False AND blnHidePost = False Then
Response.Write(vbCrLf & " <a href=""new_reply_form.asp?TID=" & lngTopicID & "&PN=" & intTotalRecordsPages & "&TR=" & intTotalRecords & strQsSID2 & """ rel=""nofollow""><div>" & strTxtPostReply & "</div></a>" & _
vbCrLf & " <a href=""new_reply_form.asp?M=Q&PID=" & lngMessageID & "&PN=" & intTotalRecordsPages & "&TR=" & intTotalRecords & strQsSID2 & """ rel=""nofollow""><div>" & strTxtQuote & " " & strUsername & "</div></a>")
End If
'Display the report post feature if email is enabled.
If (blnEmail AND intGroupID <> 2 AND lngUserID <> lngLoggedInUserID AND blnActiveMember) AND (blnAdmin = false AND blnModerator = false) Then Response.Write(vbCrLf & " <a href=""report_post.asp?PID=" & lngMessageID & "&FID=" & intForumID & "&TID=" & lngTopicID & "&PN=" & intRecordPositionPageNum & strQsSID2 & """><div>" & strTxtReportPost & "</div></a> ")
'If the logged in user is the person who posted the message or the forum administrator/moderator then allow them to edit or delete the message
If (lngLoggedInUserID = lngUserID AND blnForumLocked = False AND blnActiveMember AND blnTopicLocked = False) OR (blnAdmin OR blnModerator) Then
'Only let the user edit the post if they have edit rights
If blnEdit OR blnAdmin Then
Response.Write(vbCrLf & " <a href=""edit_post_form.asp?PID=" & lngMessageID & "&PN=" & intRecordPositionPageNum)
If lngPollID > 0 AND intThreadNo = 1 Then Response.Write("&POLL=" & lngPollID)
Response.Write("" & strQsSID2 & """ rel=""nofollow""><div>" & strTxtEditPost & "</div></a>")
End If
'Only let a normal user delete there post if someone hasn't posted a reply
If (intTotalRecords = intThreadNo) OR (blnAdmin OR blnModerator) Then
'Only let the user delete the post if they have delete rights
If blnDelete OR blnAdmin Then
Response.Write(vbCrLf & " <a href=""delete_post.asp?PID=" & lngMessageID & "&PN=" & intRecordPositionPageNum & strQsSID2 & """ OnClick=""return confirm('" & strTxtDeletePostAlert & "')""><div>" & strTxtDeletePost & "</div></a>")
End If
End If
End If
'If the user is the forum admin or a moderator
If blnAdmin OR blnModerator Then
'Let them hide the post
If blnHidePost Then
Response.Write(vbCrLf & " <a href=""show_post.asp?PID=" & lngMessageID & strQsSID2 & """><div>" & strTxtApprovePost & "</div></a>")
Else
Response.Write(vbCrLf & " <a href=""hide_post.asp?PID=" & lngMessageID & strQsSID2 & """ OnClick=""return confirm('" & strTxtAreYouSureYouWantToHidePost & "')""><div>" & strTxtHidePost & "</div></a>")
End If
'Let them move the post to another forum
Response.Write(vbCrLf & " <a href=""javascript:winOpener('move_post_form.asp?PID=" & lngMessageID & strQsSID2 & "','move',1,1,460,255)""><div>" & strTxtMovePost & "</div></a>")
'Display the IP address for IP blocking to admin/moderators
If strAuthorIP <> "" Then Response.Write(vbCrLf & " <a href=""javascript:winOpener('pop_up_IP_blocking.asp?IP=" & strAuthorIP & strQsSID2 & "','ip',1,1,425,350)"" title=""" & strAuthorIP & """><div>" & strTxtBlockUsersIP & "</div></a>")
End If
Response.Write(vbCrLf & " </div>")
End If
'If the topic is not locked put in a link for someone to quote this message
If blnTopicLocked = False AND blnPollNoReply = False AND blnHidePost = False Then
Response.Write(vbCrLf & " <img src=""" & strImagePath & "quote." & strForumImageType & """ title=""" & strTxtQuote & " " & strUsername & """ alt=""" & strTxtQuote & " " & strUsername & """ style=""vertical-align: text-bottom;"" /> <a href=""new_reply_form.asp?M=Q&PID=" & lngMessageID & "&PN=" & intTotalRecordsPages & "&TR=" & intTotalRecords & strQsSID2 & """ rel=""nofollow"">" & strTxtQuote & "</a> " & _
"<img src=""" & strImagePath & "reply." & strForumImageType & """ title=""" & strTxtPostReply & """ alt=""" & strTxtPostReply & """ style=""vertical-align: text-bottom;"" /><a href=""new_reply_form.asp?PID=" & lngMessageID & "&PN=" & intTotalRecordsPages & "&TR=" & intTotalRecords & strQsSID2 & """ rel=""nofollow"">" & strTxtReply & "</a>")
End If
Response.Write(vbCrLf & " </span>")
End If
'If unread post display an un-read post icon next to the post
If blnUnreadPost Then
Response.Write(vbCrLf & " <a href=""forum_posts.asp?TID=" & lngTopicID & "&PID=" & lngMessageID & strQsSID2 & "#" & lngMessageID & """ title=""" & strTxtNewPost & ": " & strTxtDirectLinkToThisPost & """><img src=""" & strImagePath & "new_post." & strForumImageType & """ alt=""" & strTxtNewPost & ": " & strTxtDirectLinkToThisPost & """ /></a> ")
'Else display a bullet incon with direct link to post
Else
'Display direct link to post
Response.Write(vbCrLf & " <a href=""forum_posts.asp?TID=" & lngTopicID & "&PID=" & lngMessageID & strQsSID2 & "#" & lngMessageID & """ title=""" & strTxtDirectLinkToThisPost & """><img src=""" & strImagePath & "bullet." & strForumImageType & """ alt=""" & strTxtDirectLinkToThisPost & """ /></a> ")
End If
'If first record display topic title
If intCurrentRecord = 0 Then
Response.Write("<strong>")
'If a calendar event then display so
If isDate(dtmEventDate) Then Response.Write(strTxtCalendarEvent & ": ") Else Response.Write(strTxtTopic & ": ")
Response.Write(strSubject & "</strong><br /> ")
End If
'Display message post date and time
Response.Write(strTxtPosted & " " & DateFormat(dtmPostDate) & " " & strTxtAt & " " & TimeFormat(dtmPostDate))
'Display IP if admin or moderator
If blnAdmin OR blnModerator Then Response.Write(" - " & strTxtIP & ": " & strAuthorIP)
%></td>
</tr>
<tr class="<% = strPostTableRowClass %>" style="height:200px;min-height:200px;">
<td valign="top" class="msgLineDevider">
<!-- Start Member Post -->
<!-- google_ad_section_start -->
<div class="msgBody">
<% = strMessage %>
</div>
<!-- google_ad_section_end -->
<!-- End Member Post --><%
'If the user wants there signature the display it
If CBool(sarryPosts(3,intCurrentRecord)) AND strAuthorSignature <> "" Then
Response.Write(vbCrLf & " </td>" & _
vbCrLf & " </tr>" & _
vbCrLf & " <tr class=""" & strPostTableRowClass & """>" & _
vbCrLf & " <td class=""msgLineDevider"">" & _
formatSignature(strAuthorSignature))
End If
'***** START WARNING - REMOVAL OR MODIFICATION OF THIS CODE WILL VIOLATE THE LICENSE AGREEMENT ******
If intCurrentRecord = 0 AND (blnACode OR strMyGoogleAdSenseID <> "pub-9026955576675812") Then
Response.Write(vbCrLf & " </td>" & _
vbCrLf & " </tr>" & _
vbCrLf & " <tr class=""" & strPostTableRowClass & """>" & _
vbCrLf & " <td class=""msgLineDevider"" align=""center"">")
If blnACode Then
Response.Write(strSponsor2)
ElseIf strMyGoogleAdSenseID <> "pub-9026955576675812" Then
Response.Write(strAdSenseCodePost)
End If
End If
'***** END WARNING - REMOVAL OR MODIFICATION OF THIS CODE WILL VIOLATE THE LICENSE AGREEMENT ******
%>
</td>
</tr>
<tr class="postSeparatorTableRow">
<td colspan="2" align="right"><a href="#top"><img src="<% = strImagePath %>back_to_top.<% = strForumImageType %>" alt="<% = strTxtBackToTop %>" title="<% = strTxtBackToTop %>" /></a></td>
</tr><%
'Move to the next record
intCurrentRecord = intCurrentRecord + 1
Loop
%>
</table>
<iframe id="dropDownTopicSearch" src="quick_topic_search.asp?TID=<% = lngTopicID & strQsSID2 %>" class="dropDownTopicSearch" frameborder="0" scrolling="no" rel="nofollow"></iframe><%
'Else display there are no posts to display so display error message
Else
%>
<br />
<table class="errorTable" cellspacing="1" cellpadding="3" align="center">
<tr>
<td><img src="<% = strImagePath %>error.png" alt="<% = strTxtError %>" /> <strong><% = strTxtError %></strong></td>
</tr>
<tr>
<td><% = strTxtNoThreads %></td>
</tr>
<table><%
End If
%>
<table class="basicTable" cellspacing="0" cellpadding="3" align="center">
<tr>
<td>
<a href="new_reply_form.asp?TID=<% = lngTopicID %>&PN=<% = intTotalRecordsPages %>&TR=<% = intTotalRecords & strQsSID2 %>" title="<% = strTxtPostReply %>" class="largeButton" rel="nofollow"> <% = strTxtPostReply %> <img src="<% = strImagePath %>reply.<% = strForumImageType %>" border="0" alt="<% = strTxtPostReply %>" /></a>
</td>
<td align="right" nowrap><%
'Display table for email and/or page links
If intTotalRecordsPages > 1 Then
%><!-- #include file="includes/page_link_inc.asp" --><%
End If
%>
</td>
</tr>
</table><%
'Quick Reply !!!!
If blnBannedIP = false AND blnActiveMember AND blnBanned = False AND blnForumLocked = false AND blnReply AND blnTopicLocked = false AND blnPollNoReply = false AND intRecordPositionPageNum = intTotalRecordsPages Then
%><!--#include file="includes/quick_reply_form_inc.asp" --><%
End If
%>
<br />
<table class="basicTable" cellspacing="0" cellpadding="3" align="center">
<tr>
<td valign="top">
<!-- #include file="includes/forum_jump_inc.asp" -->
</td>
<td align="right" class="smText" nowrap><!-- #include file="includes/show_forum_permissions_inc.asp" --></td>
</tr>
</table>
<br />
<div align="center"><%
'Clear server objects
Call closeDatabase()
'***** START WARNING - REMOVAL OR MODIFICATION OF THIS CODE WILL VIOLATE THE LICENSE AGREEMENT ******
If blnLCode Then
If blnTextLinks Then
Response.Write("<span class=""text"" style=""font-size:10px"">Bulletin Board Software by <a href=""http://www.webwizforums.com"" target=""_blank"" style=""font-size:10px"">Web Wiz Forums®</a> version " & strVersion & "</span>")
Else
Response.Write("<a href=""http://www.webwizforums.com"" target=""_blank""><img src=""webwizforums_image.asp"" border=""0"" title=""Bulletin Board Software by Web Wiz Forums® version " & strVersion& """ alt=""Bulletin Board Software by Web Wiz Forums® version " & strVersion& """/></a>")
End If
Response.Write("<br /><span class=""text"" style=""font-size:10px"">Copyright ©2001-2008 <a href=""http://www.webwizguide.com"" target=""_blank"" style=""font-size:10px"">Web Wiz</a></span>")
End If
'***** END WARNING - REMOVAL OR MODIFICATION OF THIS CODE WILL VIOLATE THE LICENSE AGREEMENT ******
'Display the process time
If blnShowProcessTime Then Response.Write("<span class=""smText""><br /><br />" & strTxtThisPageWasGeneratedIn & " " & FormatNumber(Timer() - dblStartTime, 3) & " " & strTxtSeconds & "</span>")
Response.Write("</div>")
'Display an alert message if the user is watching this topic for email notification
If Request.QueryString("EN") = "TS" Then
Response.Write("<script language=""JavaScript"">")
Response.Write("alert('" & strTxtYouWillNowBeNotifiedOfAllReplies & "');")
Response.Write("</script>")
End If
'Display an alert message if the user is not watching this topic for email notification
If Request.QueryString("EN") = "TU" Then
Response.Write("<script language=""JavaScript"">")
Response.Write("alert('" & strTxtYouWillNowNOTBeNotifiedOfAllReplies & "');")
Response.Write("</script>")
End If
'Display an alert message if the user is posting in a moderated forum
If Request.QueryString("MF") = "Y" Then
Response.Write("<script language=""JavaScript"">")
Response.Write("alert('" & strTxtYouArePostingModeratedForum & " \n\n " & strTxtBeforePostDisplayedAuthorised & "');")
Response.Write("</script>")
End If
%>
<!-- #include file="includes/footer.asp" -->⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -