📄 inbox.asp
字号:
<%@ language="vbscript" %>
<%
if session("username")="" then
response.write "time out"
response.end
end if
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 id,sender,mailtitle,sendtime,geter,check from mails where geter='"&session("username")&"' order by sendtime desc"
rs.open sqltext,conn,1,1
%>
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<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">
<style type="text/css">
<style type="text/css">
<!--
p,a,td{font-size:12px;font-family:宋体,sans-serif;line-height:1.4}
.12{font-size:12px;font-family:宋体,sans-serif}
A:link {text-decoration: none}
A:visited {text-decoration: none}
A:active { text-decoration: underline}
A:hover {text-decoration: underline}
-->
</style>
<title>您的收件箱</title>
</head>
<body bgcolor="#F9E4A8">
<p align="center"><strong><font color="#FF8080">您的收件箱</font></strong></p>
<form method="POST" action="delmail.asp">
<table border="1" width="100%" bordercolorlight="#000000" cellspacing="0" cellpadding="4"
bordercolordark="#FFFFFF">
<tr>
<td width="3%" bgcolor="#C6B9FF" align="center">新邮件</td>
<td width="11%" bgcolor="#C6B9FF" align="center">发件人</td>
<td width="45%" bgcolor="#C6B9FF" align="left"><div align="center"><center><p>主 题</td>
<td width="33%" bgcolor="#C6B9FF" align="center">时间</td>
</tr>
<%if rs.recordcount>0 then
tatol=rs.recordcount
for i=1 to tatol
%>
<tr align="center">
<td width="11%" bgcolor="#D7D8F9" align="center"><%if rs("check")=0 then
response.write "<img src='new4.gif' alt='新邮件'>"
else
response.write "*_*"
end if
%>
</td>
<td width="11%" bgcolor="#D7D8F9" align="center"><input type="checkbox" name="C1"
value="<%=rs("id")%>"><%response.write "<a href='userdet.asp?username="&rs("sender")&"'>"&rs("sender")&"</a>"%> </td>
<td width="45%" bgcolor="#D7D8F9" align="left"><%response.write "<a href='seemesg.asp?id="&rs("id")&"'>"&rs("mailtitle")&"</a>"%>
</td>
<td width="33%" bgcolor="#D7D8F9" align="center"><%=rs("sendtime")%>
</td>
</tr>
<%rs.movenext
if rs.eof then
exit for
end if
next
else
response.write "<tr>没有任何信件，你真孤独！</tr>"
end if%>
</table>
<div align="center"><center><p><input type="submit" value="删除" name="B1"> </p>
</center></div>
</form>
<p align="center"><strong><font color="#FF8080">发送邮件</font></strong></p>
<form method="POST" action="sendmesg.asp">
<input type="hidden" name="sender" value="<%=session("username")%>"><div align="center"><center><table
border="1" width="94%" bordercolorlight="#000000" cellspacing="0"
bordercolordark="#FFFFFF" bgcolor="#D7D8F9">
<tr>
<td width="20%"><font color="#3300CC"><div align="center"><center><p>收件人</font> </td>
<td width="80%"><input type="text" name="geter" size="20"> </td>
</tr>
<tr>
<td width="20%"><font color="#3300CC"><div align="center"><center><p>主 题</font> </td>
<td width="80%"><input type="text" name="mailtitle" size="20"> </td>
</tr>
<tr>
<td width="20%"><font color="#3300CC"><div align="center"><center><p>内 容</font> </td>
<td width="80%"> </td>
</tr>
<tr>
<td colspan="2"> <textarea rows="10" name="content" cols="61"></textarea> </td>
</tr>
</table>
</center></div><div align="center"><center><p><input type="submit" value="发送"
name="B1"> <input type="reset" value="重写" name="B2"></p>
</center></div>
</form>
</body>
</html>
<%rs.close
set rs=nothing
conn.close
set conn=nothing
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -