pm_message.asp

简单的asp论坛源码系统,很适用于初学者!界面简洁,功能齐全

		Call saveSessionItem("notifiedPMs", "")
	Else
		Call saveSessionItem("notifiedPMs", intNoOfPms)
	End If
End If


	
	
'Clear server objects
Call closeDatabase()



'If active users is enabled update the active users application array
If blnActiveUsers Then
	'Call active users function
	saryActiveUsers = activeUsers(strTxtViewingPrivateMessage, "", "", 0)
End If


'Set bread crumb trail
strBreadCrumbTrail = strBreadCrumbTrail & strNavSpacer & "<a href=""pm_welcome.asp" & strQsSID1 & """>" & strTxtPrivateMessenger & "</a>" & strNavSpacer & strPmSubject


%>
<!-- #include file="includes/browser_page_encoding_inc.asp" -->
<meta name="generator" content="Web Wiz Forums" />
<title><% = strTxtPrivateMessenger & ": " & strPmSubject %></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 %>default_style.css" rel="stylesheet" type="text/css" />
<!-- #include file="includes/header.asp" -->
<!-- #include file="includes/status_bar_header_inc.asp" -->
<table class="basicTable" cellspacing="0" cellpadding="3" align="center">
 <tr>
  <td align="left"><h1><% = strTxtPrivateMessenger & ": " & strPmSubject %></h1></td>
</tr>
</table>
<br />
<table class="basicTable" cellspacing="0" cellpadding="0" align="center"> 
 <tr> 
  <td class="tabTable">
   <a href="pm_welcome.asp<% = strQsSID1 %>" title="<% = strTxtPrivateMessenger %>" class="tabButton">&nbsp;<img src="<% = strImagePath %>messenger.<% = strForumImageType %>" border="0" alt="<% = strTxtPrivateMessenger %>" /> <% = strTxtMessenger %></a>
   <a href="pm_inbox.asp<% = strQsSID1 %>" title="<% = strTxtPrivateMessenger & " " & strTxtInbox %>" class="tabButtonActive">&nbsp;<img src="<% = strImagePath %>inbox_messages.<% = strForumImageType %>" border="0" alt="<% = strTxtPrivateMessenger & " " & strTxtInbox %>" /> <% = strTxtInbox %></a>
   <a href="pm_outbox.asp<% = strQsSID1 %>" title="<% = strTxtPrivateMessenger & " " & strTxtOutbox %>" class="tabButton">&nbsp;<img src="<% = strImagePath %>sent_messages.<% = strForumImageType %>" border="0" alt="<% = strTxtPrivateMessenger & " " & strTxtOutbox %>" /> <% = strTxtOutbox %></a>
   <a href="pm_new_message_form.asp<% = strQsSID1 %>" title="<% = strTxtNewPrivateMessage %>" class="tabButton">&nbsp;<img src="<% = strImagePath %>new_message.<% = strForumImageType %>" border="0" alt="<% = strTxtNewPrivateMessage %>" /> <% = strTxtNewMessage %></a>
  </td>
 </tr>
</table>
<br /><%

'If no private message display an error
IF strPmSubject = "" Then
%>
<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><% = strTxtYouDoNotHavePermissionViewPM %></td>
 </tr>
</table><%

'Else display the message
Else

%>
<table cellspacing="1" cellpadding="3" class="tableBorder" align="center" style="table-layout: fixed;">
 <tr class="tableLedger">
  <td><% = strTxtPrivateMessage %></td>
 </tr>
 <tr class="tableRow">
  <td><%
	'If the user has an avatar then display it
	If blnAvatar = True Then 
		
		'If the avatar is not done then show the blank avatar
		If strAuthorAvatar = "" Then strAuthorAvatar = "avatars/blank_avatar.jpg"
		
		%><img src="<% = strAuthorAvatar %>" id="avatar" alt="<% = strTxtAvatar %>" align="left" onError="document.getElementById('avatar').src='avatars/blank_avatar.jpg'" /><%
	  	
	End If
%>
      <% = strTxtSubject & ": " &  strPmSubject %>
      <br />
      <% = strTxtSent & ": " & DateFormat(dtmTopicDate) & " " & strTxtAt & " " & TimeFormat(dtmTopicDate) %>
      <br />
      <% = strTxtSentBy %>: <a href="member_profile.asp?PF=<% =lngFromUserID & strQsSID2 %>" rel="nofollow"><% = strUsername %></a>
      <br /><% 
      
      	'Display author details
      	Response.Write(strTxtGroup & ": " & strGroupName & " <img src=""")
	If strRankCustomStars <> "" Then Response.Write(strRankCustomStars) Else Response.Write(strImagePath & intRankStars & "_star_rating.png")
	Response.Write(""" alt=""" & strGroupName & """> ")
      	
      	
      	
      	%>
  </td>
 </tr>
  <tr class="tableTopRow">
  <td>
   <div style="float:left;"><strong><% = strPmSubject %></strong></div>
   <div style="float:right;">
    <img src="<% = strImagePath %>add_buddy.png" border="0" alt="<% = strTxtAddToBuddyList %>" alt="<% = strTxtAddToBuddyList %>" /> <a href="pm_buddy_list.asp?name=<% = Server.URLEncode(strUsername) & strQsSID2 %>" class="PMsmLink"><% = strTxtAddBuddy %></a><%
  
	'If the person reading the pm is the recepient disply delete and reply buttons
	If lngToUserID = lngLoggedInUserID Then
		%>
    &nbsp;<img src="<% = strImagePath %>delete_message.png" border="0" alt="<% = strTxtDelete %>" title="<% = strTxtDelete %>" /> <a href="pm_delete_message.asp?pm_id=<% = lngPmMessageID %><% = strQsSID2 %>" OnClick="return confirm('<% = strTxtDeletePrivateMessageAlert %>')" class="PMsmLink"><% = strTxtDelete %></a> 
    &nbsp;<img src="<% = strImagePath %>message_reply.png" border="0" alt="<% = strTxtReplyToPrivateMessage %>" title="<% = strTxtReplyToPrivateMessage %>" /> <a href="pm_new_message_form.asp?code=reply&pm=<% = lngPmMessageID & strQsSID2 %>" class="PMsmLink"><% = strTxtReply %></a><%
	
	End If

%>
   </div>
  </td>
 </tr>
 <tr class="PMtableRow">
  <td>
   <!-- Start Private Message -->
    <div class="PMmsgBody">
     <% = strMessage %>
    </div>
   <!-- End Private Message -->
  </td>
 </tr>
 <tr class="tableBottomRow">
  <td>
   <div style="float:left;"><% 
   
   	'If the user has an email address and emailing is enabled then allow user to receive this pm by email
	If blnLoggedInUserEmail AND blnEmail Then
%>
    <a href="pm_email_pm.asp?ID=<% = lngPmMessageID %><% If Request.QueryString("M") = "OB" Then Response.Write("&M=OB")%><% = strQsSID2 %>" class="PMsmLink"><% = strTxtEmailThisPMToMe %></a><%
    	
	End If
%>		
   </div>		
   <div style="float:right;">
    <img src="<% = strImagePath %>add_buddy.png" border="0" alt="<% = strTxtAddToBuddyList %>" alt="<% = strTxtAddToBuddyList %>" /> <a href="pm_buddy_list.asp?name=<% = Server.URLEncode(strUsername) & strQsSID2 %>" class="PMsmLink"><% = strTxtAddBuddy %></a><%
  
	'If the person reading the pm is the recepient disply delete and reply buttons
	If lngToUserID = lngLoggedInUserID Then
		%>
    &nbsp;<img src="<% = strImagePath %>delete_message.png" border="0" alt="<% = strTxtDelete %>" title="<% = strTxtDelete %>" /> <a href="pm_delete_message.asp?pm_id=<% = lngPmMessageID %><% = strQsSID2 %>" OnClick="return confirm('<% = strTxtDeletePrivateMessageAlert %>')" class="PMsmLink"><% = strTxtDelete %></a> 
    &nbsp;<img src="<% = strImagePath %>message_reply.png" border="0" alt="<% = strTxtReplyToPrivateMessage %>" title="<% = strTxtReplyToPrivateMessage %>" /> <a href="pm_new_message_form.asp?code=reply&pm=<% = lngPmMessageID & strQsSID2 %>" class="PMsmLink"><% = strTxtReply %></a><%
	
	End If

%>
   </div>
  </td>
 </tr>
</table><%

End If

%>
<br />
<div align="center"><%


'***** START WARNING - REMOVAL OR MODIFICATION OF THIS CODE WILL VIOLATE THE LICENSE AGREEMENT ******
If blnLCode = True Then
	
	If blnTextLinks = True 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&reg;</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&reg; version " & strVersion& """ alt=""Bulletin Board Software by Web Wiz Forums&reg; version " & strVersion& """ /></a>")
	End If
	
	Response.Write("<br /><span class=""text"" style=""font-size:10px"">Copyright &copy;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>"
%>
</div>
<%
'Display a msg letting the user know they have been emailed a private message
If Request.QueryString("ES") = "True" Then
	Response.Write("<script  language=""JavaScript"">")
	Response.Write("alert('" & strTxtAnEmailWithPM & " " & strTxtBeenSent & ".');")
	Response.Write("</script>")
ElseIf Request.QueryString("ES") = "False" Then
	Response.Write("<script  language=""JavaScript"">")
	Response.Write("alert('" & strTxtAnEmailWithPM & " " & strTxtNotBeenSent & ".');")
	Response.Write("</script>")
End If
%>
<!-- #include file="includes/footer.asp" -->