📄 inbox.asp
字号:
<%@ language="vbscript" %>
<%
if session("username")="" then
response.write "time out"
response.end
end if
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 id,sender,mailtitle,sendtime,geter,chek 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">
<!--
.botton { font-size: 12px; background-color: #FFFFF8}
-->
</style>
<title>您的收件箱</title>
<link rel="stylesheet" href="club.css">
<script language=javascript>
<!--
function check()
{
var f=document.forms[1]
if(f.sender.value.length<=0)
{
alert("操作超时！请重新登录！");
parent.location="default.asp";
return false;
}
if(f.geter.value.length<=0)
{
alert("您要给谁发邮件？^&^");
f.geter.focus();
return false;
}
if(f.sender.value==f.geter.value)
{
alert("给自己发Mail！^&^");
f.geter.focus();
return false;
}
if(f.mailtitle.value.length<=0)
{
alert("标题不能为空！");
return false;
}
if(f.content.value.length<=0)
{
if (confirm("您确信没有内容吗？不应该吧！"))
{
return true;
}
else
{
f.content.focus();
return false;
}}
return true;
}
//-->
</script>
</head>
<body bgcolor="#FFFFF8">
<table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td> 〖您的收件箱〗 </td>
</tr>
<tr>
<td height="1" bgcolor="006600"></td>
</tr>
</table>
<form method="POST" action="delmail.asp" name=frmsend1>
<table border="1" width="100%" bordercolorlight="#000000" cellspacing="0" cellpadding="4"
bordercolordark="#FFFFFF">
<tr>
<td width="13%" bgcolor="#C6B9FF" align="center">新邮件</td>
<td width="11%" bgcolor="#C6B9FF" align="center">发件人</td>
<td width="45%" bgcolor="#C6B9FF" align="left"> 主题</td>
<td width="23%" 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("chek")=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%>
<tr>
<td align="center" colspan="4">
<input type="submit" value="删除" name="B1" class="botton">
</td>
</tr>
<%
else
response.write "<tr><td colspan='4' align='center'>没有任何信件，你真孤独！</td></tr>"
end if%>
</table>
</form>
<table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td> 〖发送邮件〗</td>
</tr>
<tr>
<td height="1" bgcolor="006600"></td>
</tr>
</table>
<form method="POST" action="sendmesg.asp" onsubmit="return check()" name=frmsend2>
<input type="hidden" name="sender" value="<%=session("username")%>">
<table
border="1" width="94%" bordercolorlight="#000000" cellspacing="0"
bordercolordark="#FFFFFF" bgcolor="#D7D8F9" align="center">
<tr>
<td width="20%" align="center">
<p>收件人
</td>
<td width="80%">
<input type="text" name="geter" size="20" class="botton">
</td>
</tr>
<tr>
<td width="20%" align="center">
<p>主 题
</td>
<td width="80%">
<input type="text" name="mailtitle" size="20" class="botton">
</td>
</tr>
<tr>
<td width="20%" align="center">
<p>内 容
</td>
<td width="80%"> </td>
</tr>
<tr align="center">
<td colspan="2">
<textarea rows="10" name="content" cols="61"></textarea>
</td>
</tr>
</table>
<div align="center"><center><p>
<input type="submit" value="发送"
name="B1" class="botton">
<input type="reset" value="重写" name="B2" class="botton">
</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 + -