📄 privatesent.asp
字号:
<%
'#############################################################
'# 中国在线--极酷论坛 ver.2001 3.0
'#
'# 版权所有: 中国在线 (ChinaXP.Net)
'#
'# 制作人 : 周周 (SeeYa!)
'#
'#
'# 主页地址: http://www.ChinaXP.net/ 中国在线
'# http://bbs.ChinaXP.Net 中国在线--极酷论坛
'#
'#############################################################
%>
<!--#INCLUDE FILE="config.asp" -->
<!--#INCLUDE FILE="inc_functions.asp" -->
<!--#INCLUDE FILE="inc_top.asp" -->
<TD width="70%" align="left" valign="top">
<TABLE border="0" width="85%" align=center>
<TR>
<TD width="33%" align="left" nowrap><font face="<% Response.Write strDefaultFontFace %>" size="<% Response.Write strDefaultFontSize %>"><a href="default.asp"><img src="<% =strImageURL %>icon_folder_open.gif" alt="返回论坛首页" border="0"> <% =strForumTitle %></a>
<BR><img src="<%=strImageURL %>icon_bar.gif" border="0"><img src="<% =strImageURL %>icon_folder_open.gif" border="0"> <A href="pm_view.asp">悄悄话收件箱</A>
<BR><img src="<%=strImageURL %>icon_blank.gif" border="0"><img src="<%=strImageURL %>icon_bar.gif" border="0"><img src="<% =strImageURL %>icon_folder_open_topic.gif" border="0"> 备份悄悄话
</FONT></TD>
</TR>
</TABLE>
</TD>
</TR>
</TABLE>
<BR>
<%
if Request.Cookies(strUniqueID & "User")("Name") = "" Then %>
<center>
<br><br><br><br>
<font color="<% =strForumFontColor %>" face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><B>只有登陆了论坛才能使用悄悄话功能</b></font>
<br><br><br><br><br><br>
</center>
<% else
strSql = "SELECT " & strMemberTablePrefix & "MEMBERS.MEMBER_ID, " & strMemberTablePrefix & "MEMBERS.M_NAME, " & strTablePrefix & "PM.M_ID, " & strTablePrefix & "PM.M_TO, " & strTablePrefix & "PM.M_SUBJECT, " & strTablePrefix & "PM.M_MESSAGE, " & strTablePrefix & "PM.M_SENT, " & strTablePrefix & "PM.M_FROM "
strSql = strSql & " FROM " & strTablePrefix & "MEMBERS , " & strTablePrefix & "PM "
strSql = strSql & " WHERE " & strMemberTablePrefix & "MEMBERS.M_NAME = '" & Request.Cookies(strUniqueID & "User")("Name") & "'"
strSql = strSql & " AND " & strMemberTablePrefix & "MEMBERS.MEMBER_ID = " & strTablePrefix & "PM.M_FROM "
strSql = strSql & " AND " & strMemberTablePrefix & "PM.M_ID = " & Request.QueryString("id")
strSql = strSql & " ORDER BY " & strTablePrefix & "PM.M_SENT DESC"
Set rsMessage = my_Conn.Execute(strSql)
if rsMessage.BOF or rsMessage.EOF then
Response.Redirect("pm_view.asp")
end if
strSql ="SELECT " & strMemberTablePrefix & "MEMBERS.M_NAME, " & strMemberTablePrefix & "MEMBERS.MEMBER_ID, " & strMemberTablePrefix & "MEMBERS.M_ICQ, " & strMemberTablePrefix & "MEMBERS.M_YAHOO, " & strMemberTablePrefix & "MEMBERS.M_AIM, " & strMemberTablePrefix & "MEMBERS.M_TITLE, " & strMemberTablePrefix & "MEMBERS.M_TITLE, " & strMemberTablePrefix & "MEMBERS.M_Homepage, " & strMemberTablePrefix & "MEMBERS.M_LEVEL, " & strMemberTablePrefix & "MEMBERS.M_POSTS, " & strMemberTablePrefix & "MEMBERS.M_CITY, " & strMemberTablePrefix & "MEMBERS.M_STATE, " & strMemberTablePrefix & "MEMBERS.M_COUNTRY, " & strTablePrefix & "PM.M_FROM, " & strTablePrefix & "PM.M_SUBJECT "
strSql = strSql & " FROM " & strTablePrefix & "MEMBERS , " & strTablePrefix & "PM "
strSql = strSql & " WHERE " & strMemberTablePrefix & "MEMBERS.MEMBER_ID = " & strTablePrefix & "PM.M_FROM "
strSql = strSql & " AND " & strMemberTablePrefix & "PM.M_ID = " & Request.QueryString("id")
Set rs = my_Conn.Execute(strSql)
if strI = 0 then
CColor = strAltForumCellColor
else
CColor = strForumCellColor
end if
%>
<center>
<table width=<% =strTableWidth %> border=0 cellspacing=1 cellpadding=4 bgcolor="<% =strTableBorderColor %>">
<TR>
<td align="center" bgcolor="<% =strHeadCellColor %>" width="<% =strTopicWidthLeft %>" <% if lcase(strTopicNoWrapLeft) = "1" then Response.Write(" nowrap") %>><b><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strHeadFontColor %>">作者</font></b></td>
<td align="left" bgcolor="<% =strHeadCellColor %>" width="<% =strTableWidth %>" <% if lcase(strTopicNoWrapRight) = "1" then Response.Write(" nowrap") %>><b><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strHeadFontColor %>">主题： <% =rsMessage("M_SUBJECT") %></font></b></td>
</TR>
<tr>
<td bgcolor="<% =strForumFirstCellColor %>" valign="top">
<font color="<% =strForumFontColor %>" face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">
<% if strUseExtendedProfile then %>
<a href="pop_profile.asp?mode=display&id=<% =rs("M_FROM") %>">
<% else %>
<a href="JavaScript:openWindow3('pop_profile.asp?mode=display&id=<% =rs("M_FROM") %>')">
<% end if %>
<font color="<% =strForumFontColor %>" face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><b><% =ChkString(rs("M_NAME"),"display") %></a>
</b></font>
<% if strShowRank = 1 or strShowRank = 3 then %>
<br><font color="<% =strForumFontColor %>" face="<% =strDefaultFontFace %>" size="<% =strFooterFontSize %>"><% = ChkString(getMember_Level(rs("M_TITLE"), rs("M_LEVEL"), rs("M_POSTS")),"display") %></font>
<% end if %>
<% if strShowRank = 2 or strShowRank = 3 then %>
<br><% = getStar_Level(rs("M_LEVEL"), rs("M_POSTS")) %>
<% end if %>
<br>
<br><font color="<% =strForumFontColor %>" face="<% =strDefaultFontFace %>" size="<% =strFooterFontSize %>"><% =rs("M_COUNTRY") %></font>
<br><font color="<% =strForumFontColor %>" face="<% =strDefaultFontFace %>" size="<% =strFooterFontSize %>">发表数：<% =rs("M_POSTS") %></font>
</td>
<TD bgcolor="<% =strForumFirstCellColor %>" valign="top"><img src="<%=strImageURL %>pm.gif" alt="显示短消息" border="0" hspace="3"><font color="<% =strForumFontColor %>" face="<% =strDefaultFontFace %>" size="<% =strFooterFontSize %>"> <% =ChkDate(rsMessage("M_SENT")) %> <% =ChkTime(rsMessage("M_SENT")) %></font>
<% if strUseExtendedProfile then %>
<a href="pop_profile.asp?mode=display&id=<% =rs("MEMBER_ID") %>"><img src="<%=strImageURL %>profile.gif" alt="查看会员资料" border="0" align="absmiddle" hspace="6"> 查看</a>
<% else %>
<a href="JavaScript:openWindow3('pop_profile.asp?mode=display&id=<% =rs("MEMBER_ID") %>')"><img src="<%=strImageURL %>profile.gif" alt="查看会员资料" border="0" align="absmiddle" hspace="6"> 查看</a>
<% end if %>
<a href="JavaScript:openWindow('pop_mail.asp?id=<% =rs("M_FROM") %>')"><img src="<%=strImageURL %>email.gif" alt="电子邮件" border="0" align="absmiddle" hspace="6"> 邮件</a>
<% if strHomepage = "1" then %>
<% if rs("M_Homepage") <> " " then %>
<a href="<% =rs("M_Homepage") %>"><img src="<%=strImageURL %>homepage.gif" alt="浏览 <% =rs("M_NAME") %> 的主页" border="0" align="absmiddle" hspace="6"> 主页</a>
<% end if %>
<% end if %>
<% if strICQ = "1" then %>
<% if rs("M_ICQ") <> " " then %>
<a href="JavaScript:openWindowICQ('pop_messengers.asp?mode=ICQ&ICQ=<% =rs("M_ICQ") %>&M_NAME=<% =ChkString(rs("M_NAME"),"urlpath") %>')"><img src="http://online.mirabilis.com/scripts/online.dll?icq=<% =rs("M_ICQ") %>&img=5" alt="发送ICQ讯息给 <% =rs("M_NAME") %>" border="0" align="absmiddle" hspace="6"></a>
<% end if %>
<% end if %>
<% if strYAHOO = "1" then %>
<% if rs("M_YAHOO") <> " " then %>
<a href="http://search.tencent.com/cgi-bin/friend/user_show_info?ln=<% =rs("M_YAHOO") %>" target=_blank><img align=absmiddle width=16 height=16 src="http://icon.tencent.com/<% =rs("M_YAHOO") %>/s/00/" alt="<% =rs("M_YAHOO") %>" border=0></a> <% =rs("M_YAHOO") %>
<% end if %>
<% end if %>
<% if (strAIM = "1") then %>
<% if rs("M_AIM") <> " " then %>
<a href="JavaScript:openWindow('pop_messengers.asp?mode=AIM&AIM=<% =rs("M_AIM") %>&M_NAME=<% =ChkString(rs("M_NAME"),"urlpath") %>')"><img src="<%=strImageURL %>icon_aim.gif" alt="传AIM讯息给 <% =rs("M_NAME") %>" border="0" align="absmiddle" hspace="6"></a>
<% end if %>
<% end if %>
<HR>
<font color="<% =strForumFontColor %>" face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><% =formatStr(rsMessage("M_MESSAGE")) %></font>
</td>
</tr>
</TABLE>
</center>
<% end if %><!--#INCLUDE FILE="inc_adv.asp" --><!--#INCLUDE FILE="inc_footer.asp" -->⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -