📄 mess1.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="1" cellpadding="3" height="70" align="center">
  <tr>
    <td width="100%"  height="18" style="border-style: ridge; border-width: 1"> 
      <table border="0" width="100%" cellspacing="0" cellpadding="0">
        <tr>
          <td width="50%"><a href="mess.asp">返回收件箱</a></td>
        
        <td width="50%">
          　</td>   
      </tr>   
    </table>   
  </td>   
  </tr>   
    
    
<%
id=request.querystring("id")
id=replace(id,"'","")
set rs=Server.CreateObject("ADODB.RecordSet")                            
rs.open "Select * from message where incept='"&session("username")&"' and id="&id,conn,1,3
if rs.eof or rs.bof then%>   
  
    
  <tr>  
    <td width="100%" height="14"> 
      <p align="center">您 的 收 件 箱 里 没 有 这 个 短 消 息 ！</p>
    </td> 
  </tr> 
 
<%else%>
     
  <tr>   
    <td width="100%" bgcolor="#808080" height="17">标&nbsp;&nbsp;&nbsp; 题：<%=rs("title")%></td> 
    
  </tr>  

<tr>   
    <td width="7%" bgcolor="#808080" height="17">发 信 人：<%=rs("sender")%></td>
   
  </tr>  
    
    
  <tr>   
    <td width="7%" bgcolor="#808080" height="17">发信时间：<%=rs("sendtime")%></td>
   
  </tr>  
    
    
  <tr>   
    <td width="7%" bgcolor="#808080" height="14"> 
      <table border="0" cellpadding="3" cellspacing="1" style="border-collapse: collapse" bordercolor="#111111" width="100%" height="73">
      <tr>
        <td width="11%" height="73" valign="top">
        <p align="center">内&nbsp; 容：</td> 
          <td width="89%" bgcolor="#C0C0C0" height="73" valign="top" style="border-style: solid; border-width: 1; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1"> 
            <%=rs("content")%> 　</td>
      </tr>
    </table>
    </td>
   
  </tr>
    <tr>   
    <td width="7%" bgcolor="#808080" height="14"> 
      <p align="right">[<a href="mess2.asp?id=<%=rs("sender")%>">回&nbsp; 信</a>]&nbsp;&nbsp;
    </td>
   
  </tr>  
 
     
<%
rs("flag")=0
rs.update
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 + -