📄 seemesg.asp
字号:
<%@ language="vbscript" %>
<% Response.Expires=0%>
<%
DbPath = SERVER.MapPath("db1.mdb")
Set conn = Server.CreateObject("ADODB.Connection")
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 check=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>
</head>
<body bgcolor="#FBE2BD">
<p align="center"><font color="#0000FF"><strong><big>信件内容</big></strong></font></p>
<form method="POST" action="returnmesg.asp">
<input type="hidden" name="geter" value="<%=rs("sender")%>"><input type="hidden"
name="sender" value="<%=rs("geter")%>"><div align="center"><center><table border="1"
width="79%" bgcolor="#E9E3FD" cellspacing="0" bordercolorlight="#000000"
bordercolordark="#FFFFFF">
<tr>
<td width="20%"><font color="#0000CC"><div align="center"><center><p>发件人</font> </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%"><font color="#0000CC"><div align="center"><center><p>主 题</font> </td>
<td width="80%"><input type="text" name="mailtitle" size="20" value="<%=rs("mailtitle")%>">
</td>
</tr>
<tr>
<td width="20%"><font color="#0000CC"><div align="center"><center><p>内 容</font> </td>
<td width="80%"> </td>
</tr>
<tr>
<td colspan="2"> <textarea rows="10" name="content" cols="61"><%=rs("content")%>
<%=rs("sender")%>于<%=rs("sendtime")%></textarea> </td>
</tr>
</table>
</center></div><div align="center"><center><p><input type="submit" value="回 复"
name="B1"> </p>
</center></div><%conn.close
set conn=nothing%>
</form>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -