📄 mailbox.asp
字号:
<% Response.Buffer=True %>
<!--#include file="../inc/person.inc"-->
<% uname=session("puid")
set rs=server.createobject("adodb.recordset")
if request("del")<>"" then
conn.Execute("delete * from pmailbox where id="&request("del"))
end if
sql="select * from pmailbox where reid='"&uname&"'and newmail=0"
rs.open sql,conn,1,1
mailnum=rs.recordcount
rs.close
set rs=nothing %>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<html>
<head>
<title>：：姚城人才信息网：：—站内信箱</title>
</head>
<SCRIPT language=JavaScript src="../inc/window.js"></SCRIPT>
<body topmargin="0" leftmargin="0">
<!--#include file="../inc/top.htm"-->
<table width="778" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#CCCCCC">
<tr>
<td width="177" valign="top" bgcolor="#FFFFFF"> <table width="159" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="35" align="center" background="../pic/pic_039.gif"><font color="#CC33CC"><%=uname%>
您好！</font></td>
</tr>
</table>
<div align="center">
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td width="100%" align="center" valign="top"><a href="main.asp">登录首页</a><br> <br>
<a href="register.asp">登录求职简历</a><br> <br> <a href="modify.asp">更新求职简历</a><br>
<br> <a href="../changepwd.asp?stype=person" target="_blank">修改登录密码</a><br>
<br> <a href="search.asp">全部职位列表</a> </td>
</tr>
<tr>
<td width="100%" height="117" align="center" valign="top"> <hr>
<a href="favorite.asp">我的收藏夹</a><br> <br> <a href="mailbox.asp">我的信箱</a><br>
<br> <a href="../exit.asp">退出登录</a> </td>
</tr>
</table>
</div>
<table width="158" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td><img src="../pic/pic_040.gif" width="159" height="13"></td>
</tr>
</table>
<br>
</td>
<td valign="top" bgcolor="#FFFFFF">
<% if not isempty(request("page")) then
pagecount=cint(request("page"))
else
pagecount=1
end if
set rs=server.createobject("adodb.recordset")
sql="select * from pmailbox where reid='"&uname&"' order by id desc"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write"<SCRIPT language=JavaScript>alert('对不起，你的信箱内暂无信件！');"
response.write"this.location.href='main.asp';</SCRIPT>"
end if
rs.pagesize=10
if pagecount>rs.pagecount or pagecount<=0 then
pagecount=1
end if
rs.AbsolutePage=pagecount %>
<br> <div align="center">
<table width="96%" cellpadding="0" cellspacing="1" bordercolor="#FFFFFF" bordercolorlight="#FFFFFF" bordercolordark="#FFFFFF" bgcolor="#00B5F0">
<tr bgcolor="#FFFFFF">
<td width="473" height="1" colspan="6" valign="bottom"> </td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="473" height="6" colspan="6" valign="bottom"> <% page_start=(pagecount-1)*rs.pagesize
if pagecount=1 then page_start=1
page_end=rs.pagesize*pagecount
if pagecount*rs.pagesize=>rs.recordcount then page_end=rs.recordcount end if%>
您的信箱内共有[<%=rs.recordcount%>]封站内信件 其中有[<%=mailnum%>]封新邮件 以下是[<%=page_start%>～<%=page_end%>]封 页次:[<%=pagecount%>/<%=rs.pagecount%>]</td>
<tr bgcolor="#FFFFFF">
<td height="1" valign="top" colspan="6" width="473"> </td>
</tr>
<tr align="center" bgcolor="#FFFFFF">
<td width="42" height="24" background="/images/pic_008.gif">新邮件</td>
<td width="103" background="/images/pic_008.gif">发信单位</td>
<td width="119" background="/images/pic_008.gif">标 题</td>
<td width="127" background="/images/pic_008.gif">发信时间</td>
<td width="36" background="/images/pic_008.gif">回复</td>
<td width="36" background="/images/pic_008.gif">删除</td>
</tr>
<% do while not rs.eof %>
<tr align="center" bgcolor="#FFFFFF">
<td width="42" height="18">
<% if rs("newmail")="0" then %>
<img src="../images/TESP.GIF" width="11" height="11">
<% else %> <% end if %>
</td>
<td width="103" height="18"><a href="javascript:openwin('../company.asp?uid=<%=rs("senduid")%>','top=10,left=300,width=460,height=350')">
<% if len(rs("sendname"))>7 then%>
<%=Left(rs("sendname"),6)%>...
<%else%>
<%=rs("sendname")%>
<%end if%>
</a></td>
<td width="119" height="18"><a href="javascript:openwin('viewmail.asp?id=<%=rs("id")%>','top=10,left=300,width=460,height=300')">
<% if len(rs("title"))>7 then%>
<%=Left(rs("title"),7)%>...
<% else%>
<%=rs("title")%>
<%end if%>
</a></td>
<td width="127" height="18"><%=rs("sdate")%></td>
<td width="36" height="18"><a href="javascript:openwin('sendmail.asp?reid=<%=rs("senduid")%>','top=20,left=200,width=450,height=400')">回复</a>
</td>
<td width="36" height="18"><a href="mailbox.asp?del=<%=rs("id")%>">删除</a>
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="1" valign="top" colspan="6" width="473"> </td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="1" valign="top" colspan="6" width="473"></td>
</tr>
<% i=i+1
rs.movenext
if i>=rs.PageSize then exit do
loop %>
<tr bgcolor="#FFFFFF">
<td width="473" height="8" colspan="6" valign="bottom">
<p align="center">
<%if pagecount=1 and rs.pagecount<>pagecount then%>
<a href="mailbox.asp?page=<%=cstr(pagecount+1)%>">
下一页>>></a><a>
<% end if %>
<% if rs.pagecount>1 and rs.pagecount=pagecount then %>
</a><a href="mailbox.asp?page=<%=cstr(pagecount-1)%>">
<<<上一页</a><a>
<%end if%>
<%if pagecount<>1 and rs.pagecount<>pagecount then%>
</a><a href="mailbox.asp?page=<%=cstr(pagecount-1)%>">
<<<上一页</a><a> </a> <a href="mailbox.asp?page=<%=cstr(pagecount+1)%>">
下一页>>></a><a>
<% end if
rs.close
set rs=nothing
conn.close
set conn=nothing %>
</a> </td>
</tr>
</table>
</div></td>
</tr>
</table>
<!--#include file="../include/footer.asp"-->
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -