inbox.asp

中文bux点击站源码。配合其他站点用

<!--#include file="top.asp"-->
<!--#include file="chklogin.asp"-->
<%
  rs.Open "Select * From member Where UserName = '" & UserName & "'",Conn
  MemberShip = rs ("MemberShip")
  MemberPriority = rs ("MemberPriority")
  rs.Close

  rs.Open "Select Count(*) AS Total From mailrecord Where VIPLimit <= " & MemberPriority & " And MemberShipLimit <= " & MemberShip & " And MailValid = True And DateDiff ('d', SendTime, Now ()) <= 15",Conn
  TotalMails = rs("Total")
  rs.Close
%>
<div id="contentwrapper">
<div id="maincolumn">
<div class="text">
<h2><strong>站内信箱</strong></h2><br />
 <!--#include file="menu.asp"-->
<br />
<div id="tables">
<table width="80%" align="center">
<tr>
<th colspan="2">
您一共有 <% = TotalMails %> 封邮件在您的信箱中</font><br>（这些邮件将在15天后自动删除）</th>
</tr>
<tr>
<th class="top" width="50%">
<b>日期</b></th>
<th class="top" width="50%">
<div align="center">
<b>主题</b></div></th></tr>
<% 
                        rs.Open "Select * From mailrecord Where VIPLimit <= " & MemberPriority & " And MemberShipLimit <= " & MemberShip & " And MailValid = True And DateDiff ('d', SendTime, Now ()) <= 15 order by ID DESC",Conn 
                        While Not rs.EOF 
                        RecordID = rs ("ID") 
                        SendTime = rs ("SendTime") 
                        MailSubject = rs ("MailSubject")                         
                      %> 
<tr>
<th>
<% = SendTime %></th>
<th>
<a href="inbox2.asp?RecordID=<% = RecordID %>" target="<% = DomainName %>"><% = MailSubject %></a></th></tr>
<% 
                        rs.MoveNext 
                        Wend 
                        rs.Close 
                        Set rs = nothing 
                        Conn.Close 
                        Set Conn = nothing 
                      %> 
</table>
  <p align="center"><!--#include file="ad.asp"--><br />
<hr/>
</div>
<br />

</div>
</div>
</div>
<!--#include file="log.asp"-->
</div>
<!--#include file="footer.asp"-->

</div>
</body>
</html>