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

📄 mess2.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">
<%
id=request.querystring("id")
id=replace(id,"'","")

if request.form("title")<>"" THEN
title=request.form("title")
sjr=replace(request.form("sjr"),"'","")
s1=replace(request.form("s1"),chr(10),"")
s1=replace(s1,"<","[")
s1=replace(s1,">","]")
s1=replace(s1,chr(13),"<br>")

set rs=Server.CreateObject("ADODB.RecordSet")                            
rs.open "Select * from  admin where username='"&sjr&"'",conn,1
if rs.eof then%>
<table border="1" bgcolor="#D6D6CE" cellpadding="2" bordercolor="#D6D6CE" bordercolorlight="#F0F0F0" bordercolordark="#808080" width="327" height="37" class="font10.5" align="center">
  <tr>   
    <td width="520" height="23" bordercolor="#D6D6CE" bgcolor="#397904" > 
      <table border="0" width="100%" height="16" cellspacing="0" cellpadding="0">
  <tr>
    <td width="50%" height="12"><font color="#FFFFFF" size="2">信息</font></td>
    <td width="50%" height="12">  <p align="right"><button style="font-family:Webdings; font-size: 12px; line-height: 10px; height: 16 ; width:16">r</button></td>
  </tr>
</table>
</td>   
</tr>   
<tr>   
<td width="520" height="105" bordercolor="#D6D6CE" >   
<p align="center"><font face="Webdings" color="#FF0000" size="7">i</font><font color="#000000" size="2">没有这个用户，不能发信！</font>
</td>   
</tr>   
<tr>   
<td width="520" height="40" bordercolor="#D6D6CE" >   
<p align="center">　   
<input type="button" value="返  回" name="B3" onclick="javascript:history.back();">&nbsp;&nbsp;&nbsp;      
 
</td>      
</tr>      
</table>      
<%else
set rs=Server.CreateObject("ADODB.RecordSet")                            
rs.open "Select * from message",conn,1,3
rs.addnew
rs("title")=title
rs("incept")=sjr
rs("content")=s1
rs("flag")=1
rs("sender")=session("username")
rs.update%>
<table border="1" bgcolor="#D6D6CE" cellpadding="2" bordercolor="#D6D6CE" bordercolorlight="#F0F0F0" bordercolordark="#808080" width="327" height="37" class="font10.5" align="center">
  <tr>   
    <td width="520" height="23" bordercolor="#D6D6CE" bgcolor="#397904" > 
      <table border="0" width="100%" height="16" cellspacing="0" cellpadding="0">
  <tr>
    <td width="50%" height="12"><font color="#FFFFFF" size="2">信息</font></td>
    <td width="50%" height="12">  <p align="right"><button style="font-family:Webdings; font-size: 12px; line-height: 10px; height: 16 ; width:16">r</button></td>
  </tr>
</table>
</td>   
</tr>   
<tr>   
<td width="520" height="105" bordercolor="#D6D6CE" >   
<p align="center"><font face="Webdings" color="#FF0000" size="7">i</font><font color="#000000" size="2">信件发送成功！</font>
</td>   
</tr>   
<tr>   
<td width="520" height="40" bordercolor="#D6D6CE" >   
<p align="center">　   
<input type="button" value="返  回" name="B3" onclick="javascript:history.back();">&nbsp;&nbsp;&nbsp;      
 
</td>      
</tr>      
</table>      
<%end if
else%>
<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>   
  <center>   
<form method="POST" action="mess2.asp">
  <tr>   
      <td width="100%" bgcolor="#808080" height="17">标&nbsp; 题： 
<input type="text" name="title" size="65" style="border-style: solid; border-width: 1; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1">
      </td>
    
  </tr>  

<tr>   
      <td width="7%" bgcolor="#808080" height="17">收信人：
<input type="text" name="sjr" size="20" style="border-style: solid; border-width: 1; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1" value="<%=id%>">
      </td>
   
  </tr>  
    
    
  <tr>   
      <td width="7%" bgcolor="#808080" height="14"> 内&nbsp; 容：</td> 
   
  </tr>  
  <tr>   
      <td width="7%" bgcolor="#808080" height="14"> 
        <p align="center">
        <textarea rows="7" name="S1" cols="57" style="border-style: solid; border-width: 1; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1"></textarea>
        </p>
    </td>
   
  </tr>  
  <tr>   
      <td width="7%" bgcolor="#808080" height="14"> 
        <p align="center"><input type="submit" value="提  交" name="B1">&nbsp;&nbsp;&nbsp; 
    <input type="reset" value="重  置" name="B2">
      </td>
   
  </tr>  
     </form>
</table> 
 
  <%end if
  rs.close
  set rs=nothing
  conn.close
  set conn=nothing%>
</body>
</html>

⌨️ 快捷键说明

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