⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 inboxlist.asp

📁 中文bux点击站源码。配合其他站点用
💻 ASP
字号:
<%@ LANGUAGE = VBScript %>
<!--#include file="conn.asp"-->

<!--#include file="checklogin.asp"-->

<%
  rs.Open "Select * From mailrecord order by ID",Conn
%>

<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link REL="StyleSheet" HREF="../tjscripts.css" TYPE="text/css" MEDIA="screen">
<title><%= SiteTitle %>后台管理系统</title>
</head>

<body topmargin="0" leftmargin="0">

<div align="center">
  <table border="1" cellspacing="1" width="760" bordercolor="#0033CC">
    <tr>
      <td width="100%" height="31" bgcolor="#FFCC00"><b>查看站内邮件</b></td>
    </tr>
    <tr>
      <td width="100%">
        <div align="center">
          <table border="1" cellspacing="1" width="100%" bordercolor="#A50F18">
            <tr>  
              <td width="5%" height="30" align="center">编号</td>  
              <td width="16%" height="30" align="center">主题</td>  
              <td width="45%" height="30" align="center">内容</td>  
              <td width="8%" height="30" align="center">格式</td>
              <td width="8%" height="30" align="center">紧急程度</td>
              <td width="10%" height="30" align="center">发送时间</td>
              <td width="8%" height="30" align="center">有效性</td>  
            </tr>
            <%
              While Not rs.EOF
              MailID = rs ("ID")
              MailSubject = rs ("MailSubject")
              MailBody = rs ("MailBody")
              MailFormat = rs ("MailFormat")
              MailPriority = rs ("MailPriority")
              SendTime = rs ("SendTime")
              MailValid = rs ("MailValid")
            %>
            <tr>  
              <td height="30" align="center"><%= MailID %></td>  
              <td height="30" align="center"><%= MailSubject %></td>  
              <td height="30" align="center"><textarea rows="2" name="MailBody" cols="40"><%= MailBody %></textarea></td>  
              <td height="30" align="center"><%= MailFormat %></td>
              <td height="30" align="center"><%= MailPriority %></td>
              <td height="30" align="center"><%= SendTime %></td>  
              <td height="30" align="center"><%= MailValid %></td>
            </tr>
            <%
              rs.MoveNext
              Wend
              rs.Close
              Set rs = nothing
              Conn.Close
              Set Conn = nothing
            %>
          </table>  
        </div>  
      </td>  
    </tr>
    <tr>
      <td width="100%" align="center"><a href="javascript:history.back();"><b>返回</b></a></td>
    </tr> 
  </table>  
</div>

</body>

</html>

⌨️ 快捷键说明

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