inbox.asp

电子商务网络购物系统

<% Option Explicit %>
<!-- #include file="includes/header.asp" -->
<%
Response.Buffer = True

Dim rsPmMessage
Dim intRecordPositionPageNum
Dim intTotalNumOfPages
Dim intRecordLoopCounter
Dim intTopicPageLoopCounter
Dim intNumOfPMs	
Dim intForumID

intNumOfPMs = 0
If blnPrivateMessages = False Then 
	Set rsConn = Nothing
	adoCon.Close
	Set adoCon = Nothing
	Response.Redirect("index.asp")
End If

If intGroupID = 2 OR blnActiveMember = False Then 
	Set rsConn = Nothing
	adoCon.Close
	Set adoCon = Nothing
	Response.Redirect("nopermission.asp")
End If
If Request.QueryString("pn") = "" Then
	intRecordPositionPageNum = 1
Else
	intRecordPositionPageNum = CInt(Request.QueryString("pn"))
End If	
Set rsPmMessage = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT timesmess.*, timesuser.Username "
strSQL = strSQL & "FROM timesuser INNER JOIN timesmess ON timesuser.userid = timesmess.bbsid "
strSQL = strSQL & "WHERE timesmess.userid=" & lngLoggedInUserID & " "
strSQL = strSQL & "ORDER BY timesmess.messdtm DESC;"
rsPmMessage.CursorType = 1
rsPmMessage.Open strSQL, adoCon
rsPmMessage.PageSize = 10
If NOT rsPmMessage.EOF Then rsPmMessage.AbsolutePage = intRecordPositionPageNum
If rsPmMessage.EOF AND intRecordPositionPageNum > 1 Then Response.Redirect "inbox.asp?pn=1"
%>

<script  language="JavaScript">
function checkAll(){
	for (i=0; i < document.frmDelete.chkDelete.length; i++){
		document.frmDelete.chkDelete[i].checked = document.frmDelete.chkAll.checked;
	}
}
// -->
</script>


<title>短信：收件夹</title>
<form name="frmDelete" method="post" action="delmess.asp?Page=<% = intRecordPositionPageNum %>" OnSubmit="return confirm('你确认删除所选择的短信吗？')">
<table width="96%" border="0" cellspacing="1" cellpadding="1" align="center"><tr>
  <td align="left" width="95%" 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="inbox.asp" target="_self" class="boldLink">收件夹</a></td>
  </tr></table>
<table width="96%" border="0" cellspacing="1" cellpadding="1" align="center">
 <tr bgcolor="#FFFFFF"> 
  <td colspan="4" width="60%"><span class="lgText"><img src="images/subject.gif" alt="你的位置" align="absmiddle"> 短信: 收件夹</span></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>
<table width="96%" border="0" cellspacing="1" cellpadding="1" bgcolor="<% = strTablebgColour %>" align="center">
 <tr bgcolor="#FFFFFF" height="25" class="tHeading">
     <td width="6%"  align="center" nowrap background="<% = strTableTitleBgImage %>">阅读</td>
     <td width="50%" align="center" background="<% = strTableTitleBgImage %>">短信标题</td>
     <td width="13%" align="center" background="<% = strTableTitleBgImage %>">发件人</td>
     <td width="16%" align="center" background="<% = strTableTitleBgImage %>">发送时间</td>
     <td width="6%" align="center" background="<% = strTableTitleBgImage %>">
          <input type="checkbox" name="chkAll" value="" onClick="checkAll();">
         </td>
    </tr><%
If rsPmMessage.EOF Then %>
<td bgcolor="#ffffff" height="25"colspan="5" class="text">您的收件夹中没有新短信<input type="hidden" name="chkDelete" value="-1"></td>
<%
Else 
	intNumOfPMs = rsPmMessage.RecordCount
	intTotalNumOfPages = rsPmMessage.PageCount
	For intRecordLoopCounter = 1 to 10 
		If rsPmMessage.EOF Then Exit For
	%>
    <tr class="text" bgcolor="#FFFFFF"> 
     <td width="6%" align="center">
	 <% 		If CBool(rsPmMessage("readed")) = False Then %>
	 	<img src="images/unreadmess.gif" alt="未读短信">
	 <%		Else %>
	 	<img src="images/readmess.gif" alt="已读短信">
	 <%		End If %>
     </td>
     <td width="50%"><a href="dismess.asp?ID=<%= rsPmMessage("messid") %>" target="_self"><%= rsPmMessage("messtitle") %></a></td>
     <td idth="15%" align="center"><a href="JavaScript:openWin('puprofile.asp?pf=<% = rsPmMessage("bbsid") %>','profile','toolbar=0,location=0,status=0,menubar=0,scrollbars=1,resizable=1,width=590,height=425')"><% = rsPmMessage("Username") %></a></td>
     <td width="16%" align="center"><%= DateFormat(rsPmMessage("messdtm"), saryDateTimeData) & " " & TimeFormat(rsPmMessage("messdtm"), saryDateTimeData) %></td>
     <td width="6%"  align="center"><input type="checkbox" name="chkDelete" value="<% = rsPmMessage("messid") %>"></td>
    </tr><%
		rsPmMessage.MoveNext
	Next
End If
%>

    <table width="96%" border="0" cellspacing="0" cellpadding="2" align="center">
     <tr>
      <td width="94%" class="text"><b><%= strLoggedInUsername %></b>, 你的信箱中有&nbsp;<b><%= intNumOfPMs %></b>&nbsp;条短信,你的信箱还可以存放&nbsp;<b><%= (intNumPrivateMessages-intNumOfPMs) %></b> &nbsp;条短信,共可存放&nbsp;<b><%= intNumPrivateMessages %></B>&nbsp;条短信</td>
      <td width="6%" align="right">
       <input type="submit" name="Submit" value="删除">
      </td>
     </tr>
    </table>
    <table width="96%" border="0" cellspacing="0" cellpadding="2" align="center">
     <tr> 
      <td class="text"><img src="images/unreadmess.gif" alt="未读短信"> 未读短信&nbsp;&nbsp;<img src="images/readmess.gif" alt="已读短信"> 已读短信</td>
      <%
If intTotalNumOfPages > 1 Then   
	Response.Write vbCrLf & "		<td align=""right""><span class=""text"">第 &nbsp;"
	Response.Write vbCrLf & "		 <select onChange=""ForumJump(this)"" name=""SelectTopicPage"">"
	For intTopicPageLoopCounter = 1 to intTotalNumOfPages  
		Response.Write vbCrLf & "		  <option value=""inbox.asp?pn=" & intTopicPageLoopCounter & """"
		If intTopicPageLoopCounter = intRecordPositionPageNum Then
			Response.Write " selected"
		End If
		Response.Write ">" & intTopicPageLoopCounter & "</option>"
	Next
	Response.Write vbCrLf & "		</select>  " & intTotalNumOfPages & "</span>&nbsp;页</td>"
End If
%>

   <td align="right"><!-- #include file="includes/forumjump.asp" --></td>

     </tr>
	 
	 
    </table>
</td></tr>
</table></form>

 <%
rsPmMessage.Close
Set rsPmMessage = Nothing
Set rsConn = Nothing
adoCon.Close
Set adoCon = Nothing
If Request.QueryString("MSG") = "DEL" Then %>
<script  language="JavaScript">
alert('你确定要删除选中的短信吗？')
</script>
<%
End If
%><br /><br />
 <!-- #include file="includes/footer.asp" -->