📄 pm_view.asp

📁 此程序是一个个人主页创造程序,该程序无插件,无任何恶意程序.
💻 ASP
📖 第 1 页 / 共 2 页
字号:
上一页 12
    <td bgcolor="<% =strAltForumCellColor %>" onmouseover="javascript:this.bgColor='<% Response.Write strForumCellColor %>';this.style.cursor='default';" onmouseout="javascript:this.bgColor='<% Response.Write strAltForumCellColor %>';"><font color="<% =strForumFontColor %>" face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><a href="privateread.asp?id=<% =rsMessage("M_ID") %>"><% =rsMessage("M_SUBJECT") %></a></font></td>
    <td bgcolor="<% =strForumCellColor %>" align="center"><font color="<% =strForumFontColor %>" face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><a href="pop_profile.asp?mode=display&id=<% =rsMessage("M_FROM") %>" target="_new"><% =rsFrom("M_NAME") %></a></font></td>
    <td nowrap bgcolor="<% =strAltForumCellColor %>" align="center"><font color="<% =strForumFontColor %>" face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><% =ChkDate(rsMessage("M_SENT")) %>&nbsp;&nbsp;<% =ChkTime(rsMessage("M_SENT")) %></font></td>
    <td align="center" bgcolor="<% =strForumCellColor %>"><input type=checkbox name="DELETE" value="<% =rsMessage("M_ID") %>"></td>
  </tr>
<%	
			rsMessage.MoveNext
			rec = rec + 1
		Loop
	end if
%>
</table>
<table width="<% Response.Write strTableWidth %>" align="center" border="0" cellpadding="4" border="0" cellspacing="1">
  <tr>
    <TD bgcolor="<% =CColor %>" colspan="5" align="left" valign="top"><font face="<% Response.Write strDefaultFontFace %>" size="<% Response.Write strDefaultFontSize %>"><B>本论坛共有 <FONT color="<% =strInsistFontColor %>"><% Response.Write maxpages %></FONT> 页</B>　　<% call Paging() %></FONT></TD>
    <td bgcolor="<% =CColor %>" colspan="5" align="right"><input type="button" name="clear2" value="全选" onclick="FanAll(this.form)"> <input type=submit value="删除悄悄话"></form></td>
  </tr>
</table>
<table width="<% Response.Write strTableWidth %>" align="center" border="0" cellpadding="4" border="0" cellspacing="1">
  <tr>
    <td bgcolor="<% =CColor %>" colspan="5" align="left">
      <p><font face="<% =strDefaultFontFace %>" size="<% =strFooterFontSize %>">
      <img alt="新讯息" src="<%=strImageURL %>icon_folder_new_<%=strFolderImg%>.gif" width="18" height="18"> 新的悄悄话<br>
      <img alt="旧讯息" src="<%=strImageURL %>icon_folder_<%=strFolderImg%>.gif" width="18" height="18"> 旧的悄悄话
      </font></p>
    </td>
  </tr>
</table>

<%
	end if

if Request.Cookies("paging")("OUTBOX") = "single" or Request.QueryString("view") = "outbox" then
%>
<center>
<form action="pm_delete2.asp" method="post" name="RemoveTopic">
</form>
<input name="RemoveTopic" type="hidden" value="1">
<%
	'#PM SQL get private messages
	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, " & strTablePrefix & "PM.M_OUTBOX "
	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 " & strTablePrefix & "PM.M_OUTBOX = 1"
	strSql = strSql & " ORDER BY " & strTablePrefix & "PM.M_SENT DESC"
	
'	Set rsFMessage = my_Conn.Execute(strSql)
	set rsFMessage = Server.CreateObject("ADODB.Recordset")
	rsFMessage.open  strSql, my_Conn, 3

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

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

		StartPageNum=1
		do while StartPageNum + 10 <= myPage
			StartPageNum = StartPageNum + 10
		Loop
		EndPageNum = StartPageNum+9
		If EndPageNum > rsFMessage.Pagecount then EndPageNum = rsFMessage.Pagecount
	end if
%>
    <table border="0" width="95%" cellspacing="1" cellpadding="4" align="center">
      <tr>
	<td width="50%"><font color="<% =strForumFontColor %>" face="<% =strDefaultFontFace %>" size="4"><b><% =Request.Cookies(strUniqueID & "User")("Name") %>的悄悄话发件箱</b></font>
	<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 border="0" cellpadding="4" border="0" cellspacing="1" width="95%" bgcolor="<% =strTableBorderColor %>">
  <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 nowrap><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 rsFMessage.EOF or rsFMessage.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 rsFMessage.EOF or (rec = strPageSize + 1)
			'#PM SQL get Message MemberName
			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 = " & rsFMessage("M_TO") & ""

			Set rsTo = my_Conn.Execute(strSql)
%>

  <tr bgcolor="<% =strForumFirstCellColor %>">
    <td align=center bgcolor="<% =strForumCellColor %>">
<% if rsFMessage("M_READ") = "0" then %>
	<img alt="新讯息" src="<%=strImageURL %>icon_folder_new_<%=strFolderImg%>.gif" width="18" height="18">
<% else %>
	<img alt="将讯息标示为未阅读" src="<%=strImageURL %>icon_folder_<%=strFolderImg%>.gif" width="18" height="18" border="0">
<% end if %>
    </td>
    <td bgcolor="<% =strAltForumCellColor %>" onmouseover="javascript:this.bgColor='<% Response.Write strForumCellColor %>';this.style.cursor='default';" onmouseout="javascript:this.bgColor='<% Response.Write strAltForumCellColor %>';"><font color="<% =strForumFontColor %>" face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><a href="privatesent.asp?id=<% =rsFMessage("M_ID") %>"><% =rsFMessage("M_SUBJECT") %></a></font></td>
    <td bgcolor="<% =strForumCellColor %>" align="center"><font color="<% =strForumFontColor %>" face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><a href="pop_profile.asp?mode=display&id=<% =rsFMessage("M_TO") %>" target="_new"><% =rsTo("M_NAME") %></a></font></td>
    <td nowrap bgcolor="<% =strAltForumCellColor %>" align="center"><font color="<% =strForumFontColor %>" face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><% =ChkDate(rsFMessage("M_SENT")) %>&nbsp;&nbsp;<% =ChkTime(rsFMessage("M_SENT")) %></font></td>
    <td align="center" bgcolor="<% =strForumCellColor %>"><input type=checkbox name="Remove" value="<% =rsFMessage("M_ID") %>"></td>
  </tr>
<%
			rsFMessage.MoveNext
			rec = rec + 1
		Loop
	end if
%>
</table>
<table border="0" cellpadding="4" border="0" cellspacing="1" width="95%">
  <tr>
    <TD bgcolor="<% =CColor %>" colspan="5" align="left" valign="top"><font face="<% Response.Write strDefaultFontFace %>" size="<% Response.Write strDefaultFontSize %>"><B>本论坛共有 <FONT color="<% =strInsistFontColor %>"><% Response.Write maxpages %></FONT> 页</B>　　<% call Paging() %></FONT></TD>
    <td bgcolor="<% =CColor %>" colspan="5" align="right"><input type="button" name="clear2" value="全选" onclick="FanAll(this.form)"> <input type=submit value="删除悄悄话"></form>&nbsp;</td>
  </tr>
</table>
<table border="0" cellpadding="4" border="0" cellspacing="1" width="95%">
  <tr>
    <td bgcolor="<% =CColor %>" colspan="5" align="left">
      <p><font face="<% =strDefaultFontFace %>" size="<% =strFooterFontSize %>">
      <img alt="讯息尚未阅读" src="<%=strImageURL %>icon_folder_new_<%=strFolderImg%>.gif" width="18" height="18"> 新的悄悄话<br>
      <img alt="讯息已阅读" src="<%=strImageURL %>icon_folder_<%=strFolderImg%>.gif" width="18" height="18"> 旧的
      </font></p>
    </td>
  </tr>
</table>
</center>
<%
	end if
end if

sub Paging()
	if maxpages > 1 then
		sScriptName = Request.ServerVariables("script_name")
		ref = "<B>[&nbsp;"
		if myPage-10 > 0 then
			ref = ref & "<A HREF=""" & sScriptName
			ref = ref & "?whichpage=" & StartPageNum - 1
			if LCase(Request.QueryString("view")) = "outbox" then
				ref = ref & "&view=outbox"
			end if
			ref = ref & """>←</a>&nbsp;"
		end if

		For I = StartPageNum to EndPageNum
			if I <> myPage then
				ref = ref & "<A href=""" & sScriptName & "?whichpage=" & I
				if LCase(Request.QueryString("view")) = "outbox" then
					ref = ref & "&view=outbox"
				end if
				ref = ref & """>" & I & "</a>&nbsp;"
			else
				ref = ref & "<font face=" & strDefaultFontFace & " size=" & strDefaultFontSize & " color=" & strInsistFontColor & ">" & I & "</FONT>&nbsp;"
			end if
		Next

		if EndPageNum < maxpages then
			ref = ref & "<A href=""" & sScriptName & "?whichpage=" & EndPageNum + 1
			if LCase(Request.QueryString("view")) = "outbox" then
				ref = ref & "&view=outbox"
			end if
			ref = ref & """>→</a>&nbsp;"
		end if
		ref = ref & "]</B>"
		Response.Write (ref)
	end if
end sub
%><!--#INCLUDE FILE="inc_adv.asp" --><!--#INCLUDE FILE="inc_footer.asp" -->
上一页 12
⌨️ 快捷键说明

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