📄 mess.asp

📁 文学网采用飞翔网的内核和界面作了较大程度的修改和美化主要功能有： 1、界面美化 2、增加网文周榜和推荐作品 3、增加每个栏目图片和栏目的导读 4、增加推荐作品和会员文集 5、增加会员个人管理中心 6

💻 ASP

字号:

<html>
<!--#include file="articleconn.asp"-->
<%username=request.querystring("username")
page=request.querystring("page")
Set rs = Server.CreateObject("ADODB.Recordset")
username=session("UserName")
passwd=session("Passwd")
sql="select * from admin where username='"&UserName&"'and passwd='"&Passwd&"'"
rs.open sql,conn,3,3
if rs.eof then
key=rs("oskey")
response.redirect "login.asp"
response.end
end if
%> 
<head>
<title>收件箱</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style>
<!--
a:link       { text-decoration: underline; color: #000000; font-family: 宋体 }
a:visited    { text-decoration: underline; color: #000000; font-family: 宋体 }
a:hover      { text-decoration: underline; color: #cc0000 }
body {font-family: "宋体"; font-size: 9pt;line-height: 12pt;}
table {font-family: "宋体"; font-size: 9pt;line-height: 12pt;}
-->
</style>
</head>

<body bgcolor="#C0C0C0" text="#000000">
<table border="0" width="90%" cellspacing="0" cellpadding="0" height="73" align="center">
  <tr>
    <td width="100%" colspan="5" height="18" style="border-style: ridge; border-width: 1"> 
      <table border="0" width="100%" cellspacing="0" cellpadding="0">
        <tr>
          <td width="70%"> <%=session("UserName")%>的收件箱(<font color="#FF0000">为了节省资源，请及时删除旧的消息</font>)</td>
        
          <td> 
            <p align="right">[<a href="mess2.asp">写新邮件</a>]&nbsp;&nbsp;
          </td>   
      </tr>   
    </table>   
  </td>   
  </tr>   
     
  <tr>   
    <td width="7%" height="17">　</td>
    <td width="46%" align="center" height="17">主&nbsp; 题</td>     
    <td width="17%" align="center" height="17">来&nbsp; 自</td>    
    <td width="21%" align="center" height="17">发送时间</td>   
    <td width="9%" align="center" height="17">删除</td>   
  </tr>  
                  <TR>
                <TD background=images/line.gif colSpan=5 
                height=1></TD>
              </TR>
    
<%
set rs=Server.CreateObject("ADODB.RecordSet")                            
rs.open "Select * from message where incept='"&session("username")&"' ORDER BY sendtime DESC ",conn,1
if rs.eof or rs.bof then%> 
 
  <tr>  
    <td width="100%" height="14" colspan="5"> 
      <p align="center">您 的 收 件 箱 里 没 有 短 消 息 ！</p>
    </td> 
  </tr> 
 
<%else
while NOT rs.EOF

%>  
  <tr>   
    <td width="7%" height="14"> 
      <%if rs("flag")=1 then %>
      <font color="#FF0000">[新]</font> 
      <%else%> 
      [旧]  
      <%end if%>
      　 </td> 
    <td width="46%" height="14"><a href="mess1.asp?id=<%=rs("id")%>"><%=rs("title")%></a></td> 
    <td width="17%" height="14" align="center"><a href=userinfo.asp?username=<%=rs("sender")%> target=_blank><%=rs("sender")%></a></td> 
    <td width="21%" height="14" align="center"><%=rs("sendtime")%></td> 
    <td width="9%" height="14"> 
      <p align="center">[<a href="messdele.asp?id=<%=rs("id")%>">删除</a>]</p>
    </td> 
  </tr> 
                    <TR>
                <TD background=images/line.gif colSpan=5 
                height=1></TD>
              </TR>
<%
rs.movenext   
wend
end if
rs.close
set rs=nothing
conn.close
set conn=nothing%>
 
</table> 
 
  
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -