⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 printer_friendly_posts.asp

📁 简单的asp论坛源码系统,很适用于初学者!界面简洁,功能齐全
💻 ASP
📖 第 1 页 / 共 2 页
字号:
🔍
12 
	'13 = tblAuthor.Active, 
	'14 = tblAuthor.Avatar, 
	'15 = tblAuthor.Avatar_title, 
	'16 = tblGroup.Name, 
	'17 = tblGroup.Stars, 
	'18 = tblGroup.Custom_stars
	'19 = tblGuestName.Name
	
	'Count the number of records
	intTotalRecords = Ubound(sarryPosts,2) + 1
End If

'Clean up
rsCommon.Close
Call closeDatabase()



'If active users is enabled update the active users application array
If blnActiveUsers Then
	'Call active users function
	saryActiveUsers = activeUsers(strTxtViewingTopic, strSubject, "forum_posts.asp?TID=" & lngTopicID, intForumID)
End If
%>
<!-- #include file="includes/browser_page_encoding_inc.asp" -->
<meta name="generator" content="Web Wiz Forums" />
<title><% = strForumName & ": " & strSubject %></title>
<%

'***** START WARNING - REMOVAL OR MODIFICATION OF THIS CODE WILL VIOLATE THE LICENSE AGREEMENT ******
Response.Write("<!--//" & _
vbCrLf & "/* *******************************************************" & _
vbCrLf & "Software: Web Wiz Forums(TM) ver. " & strVersion & "" & _
vbCrLf & "Info: http://www.webwizforums.com" & _
vbCrLf & "Copyright: (C)2001-2008 Web Wiz(TM). All rights reserved" & _
vbCrLf & "******************************************************* */" & _
vbCrLf & "//-->")
'***** END WARNING - REMOVAL OR MODIFICATION OF THIS CODE WILL VIOLATE THE LICENSE AGREEMENT ******

%>
<link href="<% = strCSSfile %>printer_style.css" rel="stylesheet" type="text/css" />
</head>
<body>
<table width="98%" border="0" cellspacing="0" cellpadding="1" align="center">
  <tr>
    <td align="center"><a href="javascript:onclick=window.print()"><% = strTxtPrintPage %></a> | <a href="JavaScript:onclick=window.close()"><% = strTxtCloseWindow %></a></td>
  </tr>
</table>
<table width="98%" border="0" cellspacing="0" cellpadding="1" align="center">
  <tr>
    <td class="smText"> <br />
      <%
	      

'If there are no threads returned by the qury then display an error message
If intTotalRecords = 0 Then
%>
      <table width="100%" border="0" cellspacing="0" cellpadding="1">
        <tr>
          <td align="center" height="66" class="text"><strong><% = strTxtNoThreads %></strong></td>
        </tr>
      </table><%
'Display the threads
Else

	'Read in threads details for the topic from the database
	lngMessageID = CLng(sarryPosts(0,intCurrentRecord))
	strMessage = sarryPosts(1,intCurrentRecord)
	dtmTopicDate = CDate(sarryPosts(2,intCurrentRecord))
	lngUserID = CLng(sarryPosts(6,intCurrentRecord))
	strUsername = sarryPosts(7,intCurrentRecord)
	strAuthorSignature = sarryPosts(12,intCurrentRecord)
	strGuestUsername = sarryPosts(19,intCurrentRecord)
	

	'If the message has been edited remove who edited the post
	If InStr(1, strMessage, "<edited>", 1) Then strMessage = removeEditorAuthor(strMessage)

	'Convert message to text
	strMessage = ConvertToText(strMessage)

	'If the post contains a quote or code block then format it
	If InStr(1, strMessage, "[QUOTE=", 1) > 0 AND InStr(1, strMessage, "[/QUOTE]", 1) > 0 Then strMessage = formatUserQuote(strMessage)
	If InStr(1, strMessage, "[QUOTE]", 1) > 0 AND InStr(1, strMessage, "[/QUOTE]", 1) > 0 Then strMessage = formatQuote(strMessage)
	If InStr(1, strMessage, "[CODE]", 1) > 0 AND InStr(1, strMessage, "[/CODE]", 1) > 0 Then strMessage = formatCode(strMessage)


	'If the post contains a flash link then format it
	If blnFlashFiles Then
		If InStr(1, strMessage, "[FLASH", 1) > 0 AND InStr(1, strMessage, "[/FLASH]", 1) > 0 Then strMessage = formatFlash(strMessage)
		If InStr(1, strAuthorSignature, "[FLASH", 1) > 0 AND InStr(1, strAuthorSignature, "[/FLASH]", 1) > 0 Then strAuthorSignature = formatFlash(strAuthorSignature)
	End If

	'If the user wants there signature shown then attach it to the message
	If CBool(sarryPosts(3,intCurrentRecord)) AND strAuthorSignature <> "" Then 
		strAuthorSignature = ConvertToText(strAuthorSignature)
		strMessage = strMessage & "<!-- Signature --><br /><br />-------------<br />" & strAuthorSignature
	End If

    %>
      <strong style="font-size: 16px;"><% = strSubject %></strong> <br />
      <br />
      <strong><% = strTxtPrintedFrom %>: </strong><% = strWebsiteName %>
       <br /><strong><% = strTxtCategory %>: </strong> <% = strCatName %>
      <br /><strong><% = strTxtForumName %>: </strong> <% = strForumName %>
      <br /><strong><% = strTxtForumDiscription %>: </strong> <% = strForumDescription %>
      <br /><strong><% = strTxtURL %>: </strong><a href="<% = strForumPath %>forum_posts.asp?TID=<% = lngTopicID %>"><% = strForumPath %>forum_posts.asp?TID=<% = lngTopicID %></a>
      <br /><strong><% = strTxtPrintedDate %>: </strong><% = stdDateFormat(Now(), True) & " " & strTxtAt & " " & TimeFormat(Now()) %>
      <% If blnLCode = True Then %><br /><strong><% = strTxtSoftwareVersion %>:</strong> Web Wiz Forums <% = strVersion %> - http://www.webwizforums.com<% End If %>
      <br /><br /><br />
      <span class="text"><strong><% = strTxtTopic %>:</strong> <% = strSubject %></span>
      <hr style="border-top-width: 1px" />
      <strong><% = strTxtPostedBy %>:</strong> <% = strUsername %>
      <br /><strong><% = strTxtSubjectFolder %>:</strong> <% = strSubject %>
      <br /><strong><% = strTxtDatePosted %>:</strong> <% = stdDateFormat(dtmTopicDate, True) %>&nbsp;<% = strTxtAt %>&nbsp;<% = TimeFormat(dtmTopicDate) %>
      <hr />
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td class="text">
<%  Response.Write("	<!-- Message body -->" & vbCrLf & strMessage & vbCrLf &  "<!-- Message body ''"""" -->") %>
         </td>
        </tr>
       </table>
      <br /><%
      	
	'If there are replies then display that there are
      	If intTotalRecords > 1 Then Response.Write "<hr /><br /><strong>" & strTxtReplies & ": </strong>"
      		
      	'Move to the next record
	intCurrentRecord = intCurrentRecord + 1
      	%>
      <hr style="border-top-width: 1px" /><%


      	'Do....While Loop to loop through the recorset to display the topic posts
	Do While intCurrentRecord < intTotalRecords
	
		'If there are no post records left to display then exit loop
		If intCurrentRecord >= intTotalRecords Then Exit Do

		'Read in threads details for the topic from the database
		lngMessageID = CLng(sarryPosts(0,intCurrentRecord))
		strMessage = sarryPosts(1,intCurrentRecord)
		dtmTopicDate = CDate(sarryPosts(2,intCurrentRecord))
		lngUserID = CLng(sarryPosts(6,intCurrentRecord))
		strUsername = sarryPosts(7,intCurrentRecord)
		strAuthorSignature = sarryPosts(12,intCurrentRecord)
		strGuestUsername = sarryPosts(19,intCurrentRecord)
		
		

		'If the message has been edited remove who edited the post
		If InStr(1, strMessage, "<edited>", 1) Then strMessage = removeEditorAuthor(strMessage)

		'Convert message to text
		strMessage = ConvertToText(strMessage)
		

		'If the post contains a quote or code block then format it
		If InStr(1, strMessage, "[QUOTE=", 1) > 0 AND InStr(1, strMessage, "[/QUOTE]", 1) > 0 Then strMessage = formatUserQuote(strMessage)
		If InStr(1, strMessage, "[QUOTE]", 1) > 0 AND InStr(1, strMessage, "[/QUOTE]", 1) > 0 Then strMessage = formatQuote(strMessage)
		If InStr(1, strMessage, "[CODE]", 1) > 0 AND InStr(1, strMessage, "[/CODE]", 1) > 0 Then strMessage = formatCode(strMessage)


		'If the post contains a flash link then format it
		If blnFlashFiles Then
			If InStr(1, strMessage, "[FLASH", 1) > 0 AND InStr(1, strMessage, "[/FLASH]", 1) > 0 Then strMessage = formatFlash(strMessage)
			If InStr(1, strAuthorSignature, "[FLASH", 1) > 0 AND InStr(1, strAuthorSignature, "[/FLASH]", 1) > 0 Then strAuthorSignature = formatFlash(strAuthorSignature)
		End If
		
		'If the user wants there signature shown then attach it to the message
		If CBool(sarryPosts(3,intCurrentRecord)) Then 
			strAuthorSignature = ConvertToText(strAuthorSignature)
			strMessage = strMessage & "<!-- Signature --><br /><br />-------------<br />" & strAuthorSignature
		End If

	      %>
      <strong><% = strTxtPostedBy %>:</strong> <% = strUsername %>
      <br />
      <strong><% = strTxtDatePosted %>:</strong> <% = stdDateFormat(dtmTopicDate, True) %>&nbsp;<% = strTxtAt %>&nbsp;<% = TimeFormat(dtmTopicDate) %>
      <hr />
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td class="text">
<%  Response.Write("	<!-- Message body -->" & vbCrLf & strMessage & vbCrLf &  "<!-- Message body ''"""" -->") %>
         </td>
        </tr>
       </table>
       <br />
      <hr style="border-top-width: 1px" />
      <%
	      	'Move to the next record
		intCurrentRecord = intCurrentRecord + 1
	Loop
%>
    </td>
  </tr>
</table>
<br />
<%
End If


%>
<table width="98%" border="0" cellspacing="0" cellpadding="1" align="center">
  <tr>
    <td align="center"><a href="javascript:onclick=window.print()"><% = strTxtPrintPage %></a> | <a href="JavaScript:onclick=window.close()"><% = strTxtCloseWindow %></a>
    <br /><br /><%
     
'***** START WARNING - REMOVAL OR MODIFICATION OF THIS CODE WILL VIOLATE THE LICENSE AGREEMENT ******
If blnLCode = True Then
	Response.Write("<span class=""text"" style=""font-size:10px"">Bulletin Board Software by Web Wiz Forums&reg; version " & strVersion& " - http://www.webwizforums.com</span>")
	Response.Write("<br /><span class=""text"" style=""font-size:10px"">Copyright &copy;2001-2008 Web Wiz - http://www.webwizguide.com</span>")
End If 
'***** END WARNING - REMOVAL OR MODIFICATION OF THIS CODE WILL VIOLATE THE LICENSE AGREEMENT ******

%>
</td>
  </tr>
</table>
</body>
</html>
12

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -