dismess.asp

电子商务网络购物系统

<% Option Explicit %>
<!-- #include file="includes/header.asp" -->
<!--#include file="functions/sendmail.asp" -->
<!--#include file="functions/formatpost.asp" -->
<%
response.Buffer=true
Response.Expires = -1
Response.ExpiresAbsolute = Now() - 2

Dim strRankCustomStars
Dim strMemberTitle
Dim rsPmMessage	
Dim lngPmMessageID
Dim strPmSubject 
Dim strMessage
Dim lngMessageID
Dim lngFromUserID		
Dim lngToUserID	
Dim dtmTopicDate
Dim strUsername 
Dim strAuthorHomepage
Dim strAuthorLocation
Dim strAuthorAvatar	
Dim lngAuthorNumOfPosts
Dim dtmAuthorRegistration
Dim intRecordLoopCounter
Dim intTopicPageLoopCounter
Dim strEmailBody
Dim strEmailSubject
Dim blnEmailSent
Dim intForumID	
Dim strGroupName
Dim intRankStars

lngPmMessageID = CLng(Request.QueryString("ID"))
If blnPrivateMessages = False Then Response.Redirect("index.asp")
If intGroupID = 2 OR blnActiveMember = False Then Response.Redirect("nopermission.asp")
Set rsPmMessage = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT timesmess.*, timesuser.Username, timesuser.Homepage, timesuser.Location, timesuser.useremail, timesuser.postnum, timesuser.joindtm, timesuser.Signature, timesuser.Active, timesuser.Avatar, timesgrp.Name, timesgrp.Stars "
strSQL = strSQL & "FROM timesuser, timesmess, timesgrp "
If Request.QueryString("M") = "OB" Then
	strSQL = strSQL & "WHERE timesuser.userid = timesmess.bbsid AND timesuser.grpid = timesgrp.grpid AND timesmess.messid=" & lngPmMessageID & " AND timesmess.bbsid=" & lngLoggedInUserID & ";"
Else
	strSQL = strSQL & "WHERE timesuser.userid = timesmess.bbsid AND timesuser.grpid = timesgrp.grpid AND timesmess.messid=" & lngPmMessageID & " AND timesmess.userid=" & lngLoggedInUserID & ";"
End If
rsPmMessage.Open strSQL, adoCon
If NOT rsPmMessage.EOF Then 
	strPmSubject = rsPmMessage("messtitle")
	strUsername = rsPmMessage("Username")
	If CBool(rsPmMessage("enotify")) = True AND rsPmMessage("useremail") <> "" AND blnEmail = True AND CBool(rsPmMessage("readed")) = False Then
		strEmailSubject = strMainForumName &  " 短信提醒"
		strEmailBody = "Hi" & " " & decodeString(strUsername) & ","
		strEmailBody = strEmailBody & vbCrLf & vbCrLf & "这是提醒你" & " " & strLoggedInUsername & " 已经阅读了, " & decodeString(strPmSubject) & ", 你发给他的短信 ."
		blnEmailSent = SendMail(strEmailBody, decodeString(strUsername), decodeString(rsPmMessage("useremail")), strMainForumName, decodeString(strForumEmailAddress), strEmailSubject, strMailComponent, false)
	End If
End If
If Request.QueryString("M") <> "OB" Then
	strSQL = "UPDATE timesmess SET timesmess.readed = 1 WHERE timesmess.messid=" & lngPmMessageID & ";"
	adoCon.Execute(strSQL)
End If  %>
<title>短信:查看短信</title>
<table width="96%" border="0" cellspacing="0" cellpadding="2" align="center">
 <tr><td colspan="2" width="60%" class="bold"><img src="images/open.gif" border="0" align="absmiddle">&nbsp;<a href="index.asp" target="_self" class="boldLink"><% = strMainForumName %></a><% = strNavSpacer %><a href="dismess.asp" target="_self" class="boldLink">查看新短信</a><br /></td>
  <td align="right" width="40%"><a href="inbox.asp" target="_self"><img src="images/inbox.gif" alt="短信: 收件夹" border="0"></a><a href="outbox.asp" target="_self"><img src="images/outbox.gif" alt="短信: 发件夹" border="0"></a><a href="friendlist.asp" target="_self"><img src="images/friends.gif" alt="通讯录" border="0"></a><a href="newmess.asp" target="_self"><img src="images/newmess.gif" alt="写新短信" border="0"></a></td>
 </tr></table><%
IF rsPmMessage.EOF Then  %>
<table width="100%" border="0" cellspacing="0" cellpadding="0" height="166">
 <tr><td align="center" class="heading" height="120">您无权查看此短信.</td>
 </tr></table><%Else
	strMessage = rsPmMessage("messmessage")
	lngFromUserID = CLng(rsPmMessage("bbsid"))
	lngToUserID = CLng(rsPmMessage("userid"))
	dtmTopicDate = CDate(rsPmMessage("messdtm")) 
	strAuthorHomepage = rsPmMessage("Homepage")
	strAuthorLocation = rsPmMessage("Location")
	dtmAuthorRegistration = CDate(rsPmMessage("joindtm"))
	lngAuthorNumOfPosts = CLng(rsPmMessage("postnum"))
	strAuthorAvatar = rsPmMessage("Avatar")
	strGroupName = rsPmMessage("Name")
	intRankStars = CInt(rsPmMessage("Stars"))
	If InStr(1, strMessage, "[QUOTE=", 1) > 0 AND InStr(1, strMessage, "[/QUOTE]", 1) > 0 Then strMessage = formatQuote(strMessage)
%>
 <table align="center" width="96%" border="0" cellspacing="1" cellpadding="1" bgcolor="<% = strTableBgColour %>">
<tr  class="tHeading"> 
        <td width="150" height="25" background="<% = strTablePMTitleBgImage %>" nowrap="nowrap">作者</td>
        <td width="80%" background="<% = strTablePMTitleBgImage %>" nowrap="nowrap"><% = "短信标题"& ": " & strPmSubject %></td>
       </tr><tr height="180" class="smText"> 
	   <td valign="top" bordercolor="#FFFFFF" background="<%= strTablePostsBgImage %>" bgcolor="<% If (intRecordLoopCounter MOD 2 = 0 ) Then Response.Write(strTablePostsSideEvenRowColour) Else Response.Write(strTablePostsSideOddRowColour) %>">
		<a name="<%= lngMessageID %>"></a>
<table style="FILTER:glow(color=6699cc)"><caption><b><font color=ffffff style=font-size:10pt><%=strUsername %></font></b></caption></table>
		<%     If blnAvatar = True AND strAuthorAvatar <> "" Then %>
		<img src="<%= strAuthorAvatar %>" alt=" <%= strUsername %> 的酷照" vspace="5" OnError="this.src='images/photo/1.gif', height='64';">
		<%  	End If %><br /><br />
		 <img src="<% If strRankCustomStars <> "" Then Response.Write(strRankCustomStars) Else Response.Write("images/" & intRankStars & "star.gif") %>"  alt="<%= strGroupName %>"><br />
		 级别:<%= strGroupName %><br />
		 文章: <%= lngAuthorNumOfPosts %>
		<%  	If strMemberTitle <> "" Then  %>
		<br />头衔: <%= strMemberTitle %>	
		<% 	end if 
		If strAuthorLocation <> "" Then %>
		<br />国家: <%= strAuthorLocation %>
		<%	end if 	%>
		<br />注册:  <%= DateFormat(dtmAuthorRegistration, saryDateTimeData) %>&nbsp;<%= TimeFormat(dtmAuthorRegistration, saryDateTimeData) %>
</td><td valign="top" background="<% = strTablePMBgImage %>" bgcolor="<% = strTablePMBoxBgColour %>" class="text"> 
         <table width="100%" border="0" cellspacing="0" cellpadding="0">
       <tr><td bgcolor="<% = strTablePMBoxBgColour %>" background="<% = strTablePMBgImage %>" class="text"><a href="JavaScript:openWin('puprofile.asp?pf=<% = lngFromUserID %>&fid=<% = intForumID %>','profile','toolbar=0,location=0,status=0,menubar=0,scrollbars=1,resizable=1,width=590,height=425')"><img src="images/profile.gif" border="0" alt="查看&nbsp;<% = strUsername %>&nbsp;的个人资料" align="absmiddle"></a> 
         <a href="search.asp?kw=<% = Server.URLEncode(strUsername) %>&fid=0"><img src="images/searchpic.gif" border="0" alt="搜索&nbsp;<% = strUsername %>&nbsp;发表的帖子" align="absmiddle"></a><% 
      		If strAuthorHomepage <> "" Then		%>
         <a href="<% = strAuthorHomepage %>" target="_blank"><img src="images/homepage.gif" border="0" alt="<% = "访问" & "&nbsp;" & strUsername & "&nbsp;" &"的主页" %>" align="absmiddle"></a> 
         <%		      		End If
            	If blnPrivateMessages = True Then       
         %>
         <a href="friendlist.asp?name=<% = Server.URLEncode(strUsername) %>" target="_self"><img src="images/friend.gif" align="absmiddle" border="0" alt="加为好友"></a> 
         <%         		End If
      		If lngToUserID = lngLoggedInUserID Then
%>
         <a href="delmess.asp?messid=<% = rsPmMessage("messid") %>" OnClick="return confirm('你确认删除所选择的短信吗?')"><img src="images/delsm.gif" border="0" alt="删除" align="absmiddle"></a>
	 <a href="newmess.asp?code=reply&pm=<% = rsPmMessage("messid") %>"><img src="images/quickreply.gif" align="absmiddle" border="0" alt="回复短信"></a><%	 
		End If
	 %></td></tr><tr><td colspan="2"><hr /></td></tr>    </table>
         <% = strMessage %>
		 <br/><br/><br/><br/><br/><br/><br/><br/><hr />发送时间: <%= DateFormat(dtmTopicDate, saryDateTimeData) %>&nbsp;<%= TimeFormat(dtmTopicDate, saryDateTimeData) %>
        </td></tr></table><br />
<% End If %>
 <%
rsPmMessage.Close
Set rsPmMessage = Nothing
Set rsConn = Nothing
adoCon.Close
Set adoCon = Nothing
%>
 <br /> <br />
<!-- #include file="includes/footer.asp" -->