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

📄 seemesg.asp

📁 大家好
💻 ASP
字号:
<%@ language="vbscript" %>
<% Response.Expires=0%>
<%

set conn=server.createObject("ADODB.Connection")
	dbpath=server.mappath("club.mdb")
	conn.open "driver={Microsoft Access Driver (*.mdb)};dbq="&dbpath
	set rs=server.createobject("ADODB.Recordset")


sqltext="select sender,mailtitle,content,sendtime,geter from mails where id="&request("id")
rs.open sqltext,conn
 sql="update mails set chek=1 where id="&request("id")
 conn.execute sql
%>
<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 3.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>察看信件</title>
<link rel="stylesheet" href="club.css">
<style type="text/css">
<!--
.botton {  font-size: 12px; line-height: 14px; color: #000000; background-color: #FFFFF8}
-->
</style>
</head>

<body bgcolor="#FFFFF0">
<form method="POST" action="returnmesg.asp">
  <input type="hidden" name="geter" value="<%=rs("sender")%>"><input type="hidden"
  name="sender" value="<%=rs("geter")%>">
  <table border="1"
  width="79%" bgcolor="#E9E3FD" cellspacing="0" bordercolorlight="#000000"
  bordercolordark="#FFFFFF" align="center">
    <tr>
      <td colspan="2">〖信件内容〗</td>
    </tr>
    <tr> 
      <td colspan="2" height="1" bgcolor="#006600" class="botton"></td>
    </tr>
    <tr> 
      <td width="20%" align="right"> 〖发件人〗</td>
      <td width="80%"><font color="#990000"><i><b><a
      href="userdet.asp?username=<%=rs("sender")%>"><%=rs("sender")%> </a></b></i></font></td>
    </tr>
    <tr> 
      <td width="20%" align="right"> 〖主题〗</td>
      <td width="80%"> 
        <input type="text" name="mailtitle" size="20" value="<%=rs("mailtitle")%>" class="botton">
      </td>
    </tr>
    <tr> 
      <td width="20%" align="right"> 〖内容〗</td>
      <td width="80%"> </td>
    </tr>
    <tr> 
      <td colspan="2">&nbsp; 
        <textarea rows="10" name="content" cols="61" class="botton"><%=rs("content")%>
&nbsp; <%=rs("sender")%>于<%=rs("sendtime")%></textarea>
      </td>
    </tr>
  </table>
<div align="center"><center><p>
        <input type="submit" value="回复"
  name="B1" class="botton">
         </p>
  </center></div><%conn.close
set conn=nothing%>

</form>
</body>
</html>

⌨️ 快捷键说明

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