pm_view.asp

此程序是一个个人主页创造程序,该程序无插件,无任何恶意程序.

<%
'#############################################################
'#      中国在线--极酷论坛 ver.2001 3.0
'#
'#  版权所有: 中国在线 (ChinaXP.Net)
'#
'#  制作人  : 周周 (SeeYa!)
'#
'#
'#  主页地址: http://www.ChinaXP.net/    中国在线
'#	      http://www.ChinaXP.Net/bbs/    中国在线--极酷论坛
'#
'#############################################################
%>
<!--#INCLUDE FILE="config.asp" -->
<!--#INCLUDE FILE="inc_functions.asp" -->
<!--#INCLUDE FILE="inc_top.asp" -->

<%
	' ### 产生随机数
	Dim strFolderImg
	Randomize
	strFolderImg = CStr(Int(Rnd * 5))
%>

<%
If Request("whichpage") = "" or Request("whichpage") <= 0 then
	mypage = 1
Else
	mypage = CINT(Request("whichpage"))
End If
%>
<% '################################## %>
	<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">&nbsp;<% =strForumTitle %></a>
<BR><img src="<%=strImageURL %>icon_bar.gif" border="0"><img src="<% =strImageURL %>icon_folder_open_topic.gif" border="0">&nbsp;悄悄话收件箱
</FONT></TD>
  </TR>
</TABLE>
</TD>
</TR>
</TABLE>
<% '################################## %>

<% if Request.Cookies(strUniqueID & "User")("Name") = "" Then %>
<meta http-equiv="Refresh" content="2; URL=default.asp">
<center>
<br><br><br><br>
<font color="<% =strForumFontColor %>" face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><B>登陆论坛才能使用这个功能</b></font>
<br>
<p align="center"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><a href="<% =Request.ServerVariables("HTTP_REFERER") %>">返回论坛</font></a></p>
<br><br><br><br><br>
</center>
<% else  %>
<center>

<script language="JavaScript">
<!-- hide from JavaScript-challenged browsers
function pmmembers() { var MainWindow = window.open ("pm_members.asp", "","toolbar=no,location=no,menubar=no,scrollbars=yes,width=350,height=500,top=100,left=100,resizeable=yes,status=no");
}
function ignorelist() { var MainWindow = window.open ("pm_ignore.asp", "","toolbar=no,location=no,menubar=no,scrollbars=yes,width=250,height=500,top=100,left=100,resizeable=yes,status=no");
}
// done hiding -->
</script>
<script language="JavaScript">
function CheckAll(form)
  {
  for (var i=0;i<form.elements.length;i++)
    {
    var e = form.elements[i];
          e.checked = true;
    }
  }


function FanAll(form)
{
	for (var i=0;i<form.elements.length;i++)
	{
		var e = form.elements[i];
		if (e.checked == true) {
			e.checked = false;
			form.clear2.value="全选";
		} else {
			e.checked = true;
			form.clear2.value="反选";
		}
	}
}
</script>
<table border="0" width="<% Response.Write strTableWidth  %>" align="center" cellspacing="1" cellpadding="4">
<form action="pm_delete2.asp" method="post" name="DeleteTopic">
  <tr>
    <td colspan=2 align=right><% if Request.Cookies("paging")("OUTBOX") = "double" and Request.QueryString("view") <> "outbox" Then %><A HREF="pm_view.asp?view=outbox"><img src="<%=strImageURL %>outboxpm.gif" BORDER=0 ALT="发件箱"></A><% end if %><% if Request.Cookies("paging")("OUTBOX") = "double" and Request.QueryString("view") = "outbox" Then %><A HREF="pm_view.asp"><img src="<%=strImageURL %>inboxpm.gif" BORDER=0 ALT="收件箱"></A><% end if %><A HREF="privatesend.asp?method=Topic"><img src="<%=strImageURL %>newpm.gif" BORDER=0 ALT="写一条新的悄悄话信息"></A><A HREF="pm_view.asp"><img src="<%=strImageURL %>inboxpm.gif" BORDER=0 ALT="检查是否有新讯息"></A><A HREF="javascript:ignorelist()"><img src="<%=strImageURL %>pm_ignore.gif"  BORDER=0 ALT="查看黑名单列表"></A><A HREF="javascript:pmmembers()"><img src="<%=strImageURL %>friendpm.gif" BORDER=0 ALT="浏览会员列表"></A><A HREF="javascript:openWindow3('pm_options.asp')"><img src="<%=strImageURL %>pm_privpref.gif" BORDER=0 ALT="设置你的悄悄话参数"></A></td>
  </tr>
</table>

<% if Request.QueryString("view") <> "outbox" then %>
<%
	if Request.QueryString("marknew") = "1" then
		strSql = "UPDATE " & strTablePrefix & "PM "
		strSql = strSql & " SET " & strTablePrefix & "PM.M_READ = 0 "
		strSql = strSql & " WHERE (" & strTablePrefix & "PM.M_ID = " & Request.QueryString("id") & ");"
		my_conn.Execute (strSql)
	end if

	Response.Flush

	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_SENT, " & strTablePrefix & "PM.M_FROM, " & strTablePrefix & "PM.M_READ "
	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_TO "
	strSql = strSql & " ORDER BY " & strTablePrefix & "PM.M_SENT DESC"
	
'	Set rsMessage = my_Conn.Execute(strSql)
	set rsMessage = Server.CreateObject("ADODB.Recordset")
	rsMessage.open  strSql, my_Conn, 3

	if not (rsMessage.EOF or rsMessage.BOF) then

		rsMessage.MoveFirst
		rsMessage.PageSize = strPageSize
		rsMessage.CacheSize = rsMessage.PageSize
		maxPages = cint(rsMessage.PageCount)
		If myPage > rsMessage.PageCount Then
			myPage = rsMessage.PageCount
		end if
		rsMessage.AbsolutePage = myPage

		StartPageNum=1
		do while StartPageNum + 10 <= myPage
			StartPageNum = StartPageNum + 10
		Loop
		EndPageNum = StartPageNum+9
		If EndPageNum > rsMessage.Pagecount then EndPageNum = rsMessage.Pagecount
	end if
%>
<table border="0" width="<% Response.Write strTableWidth  %>" align="center" cellspacing="1" cellpadding="4">
  <tr>
    <td width="50%"><font color="<% =strForumFontColor %>" face="<% =strDefaultFontFace %>" size="4"><b><% =Request.Cookies(strUniqueID & "User")("Name") %>的悄悄话收件箱</b></font></TD>
    <TD bgcolor="<% =CColor %>" colspan="5" align="right"><font face="<% Response.Write strDefaultFontFace %>" size="<% Response.Write strDefaultFontSize %>"><B>本论坛共有 <FONT color="<% =strInsistFontColor %>"><% Response.Write maxpages %></FONT> 页</B>　　<% call Paging() %></FONT></TD>
  </tr>
</table>
<table width="<% Response.Write strTableWidth %>" align="center" bgcolor="<% =strTableBorderColor %>" cellpadding="4" border="0" cellspacing="1">
  <tr bgcolor="<% =strCategoryCellColor %>">
    <td width="28"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strHeadFontColor %>"><B>状态</B></FONT></td>
    <td width=*><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strHeadFontColor %>"><B>主题</B></FONT></td>
    <td width=100 nowrap align="center"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strHeadFontColor %>"><B>来自</B></FONT></td>
    <td width=* nowrap align="center"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strHeadFontColor %>"><B>发送日期</B></FONT></td>
    <td width="28"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strHeadFontColor %>"><B>删除</B></FONT></td>
  </tr>	
<%
	if rsMessage.EOF or rsMessage.BOF then	'## No Private Messages found in DB
%>
<tr bgcolor="<% =strForumFirstCellColor %>">
  <td>　</td>
  <td colspan="4"><font color="<% =strForumFontColor %>" face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><b>你目前没有任何悄悄话讯息</b></font></td>
</tr>
		
<%	else

		rec = 1
		do Until rsMessage.EOF or (rec = strPageSize + 1)
			strSql = "SELECT "   & strMemberTablePrefix & "MEMBERS.MEMBER_ID, " & strMemberTablePrefix & "MEMBERS.M_NAME,  " & strTablePrefix & "PM.M_ID  "
			strSql = strSql & " FROM " & strTablePrefix & "MEMBERS , " & strTablePrefix & "PM "
			strSql = strSql & " WHERE " & strMemberTablePrefix & "MEMBERS.MEMBER_ID = " & rsMessage("M_FROM") & ""
		
			Set rsFrom = my_Conn.Execute(strSql)

%>
  <tr bgcolor="<% =strForumFirstCellColor %>">
    <td align=center bgcolor="<% =strForumCellColor %>"><b>
    <% if rsMessage("M_READ") = "0" then %>
      <img alt="新讯息" src="<%=strImageURL %>icon_folder_new_<%=strFolderImg%>.gif" width="18" height="18">
<% else %>
      <a href="pm_view.asp?marknew=1&id=<% =rsMessage("M_ID") %>"><img alt="将讯息标示为未阅读" src="<%=strImageURL %>icon_folder_<%=strFolderImg%>.gif" width="18" height="18" border="0"></a>
<% end if %>
    </td>