📄 listreceivedmessage.asp
字号:
<!-- #include file="utility/check.asp" -->
<%
'****************************************
'目的： 显示所有已接受的信息
'开始时间： 2005-5-31
'最后修改时间： 2005-5-31
'编写人： 某某某
'****************************************
'首先检查是否有权限
'也就是用户是否通过审核
CheckFlag(1)
dim msgFrom
dim sql
dim rs
dim pageSize '每页显示信息数目
dim pgnm '总共的页面数目
dim page '用户请求的页面索引
dim count '消息计数器，用来判断是否到达分页条目
dim isReaded '临时记录消息是否被阅读
count = 0
pageSize = 9
page = Request.QueryString("page")
msgTo = Session("userID")
sql = "select message.*,student.sName from message,student where message.msgTo = '"
sql = sql & msgTo & "' and message.msgFrom = student.ID order by message.ID desc"
%>
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>已发信息列表</title>
<link rel="stylesheet" type="text/css" href="images/link.css">
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_jumpMenu(targ,selObj,restore){ //v3.0
eval(targ+".location='"+selObj.options[selObj.selectedIndex].value+"'");
if (restore) selObj.selectedIndex=0;
}
//-->
</script>
</head>
<body>
<table border="1" width="565" id="table2" cellspacing="0" cellpadding="0" height="75" bordercolor="#CCCCCC" style="border-collapse: collapse">
<tr>
<td height="27" width="88" align="center" bgcolor="#EEEEEE">发信人编号</td>
<td height="27" width="97" align="center" bgcolor="#EEEEEE">发信人姓名</td>
<td height="27" width="276" align="center" bgcolor="#EEEEEE">信息标题</td>
<td height="27" width="99" align="center" bgcolor="#EEEEEE">发送时间</td>
<td height="27" width="99" align="center" bgcolor="#EEEEEE">是否被查看</td>
</tr>
<%
Set rs = ExecuteQuery(sql)
if(not rs.eof) then
rs.PageSize = pageSize
pgnm = rs.PageCount
if(IsEmpty(page) or cint(page)<1 or cint(page)>pgnm) then
page = 1
end if
rs.absolutePage = page
else
Alert("无记录，请返回并访问其他页面！")
Go("welcome.htm")
Response.end
end if
do while (not rs.eof and count <> pageSize)
'把是否阅读过转换为字符显示
if(rs("msgReaded") = 0) then
isReaded = "<font color=red><a href=showMessageContent.asp?msgID="
isReaded = isReaded & rs("ID") & "&updateMsgReaded=yes>阅读</a></font>"
else
isReaded = "<font color=#999999>阅读</font>"
end if
isReaded = isReaded & "/<a href=manageMessage.asp?actionType=delete&msgID="
isReaded = isReaded & rs("ID") & ">删除</a>"
%>
<tr>
<td height="24" width="88" align="center">
<a href="addMessage.asp?userID=<%=rs("msgFrom")%>"><%=rs("msgFrom")%></a></td>
<td height="24" width="97" align="center">
<a href="addMessage.asp?userID=<%=rs("msgFrom")%>"><%=rs("sName")%></a></td>
<td height="24" width="276" align="center">
<a href="showMessageContent.asp?msgID=<%=rs("ID")%>&updateMsgReaded=yes">
<%=rs("msgTitle")%></a></td>
<td height="24" width="99" align="center"><%=rs("msgTime")%></td>
<td height="24" width="99" align="center"><%=isReaded%></td>
</tr>
<%
rs.MoveNext
count = count + 1
loop
%>
<tr>
<td width="565" align="right" height="26" colspan="5"><%if page=1 then%><p align="right">
<font color="#CCCCCC">上一页</font><%else%>
<a href="listReceivedMessage.asp?page=<%=page-1%>">上一页</a><%end if%>
<%if page\pgnm=0 then%><a href="listReceivedMessage.asp?page=<%=page+1%>">下一页</a><%else%>
<font color="#CCCCCC">下一页</font><%end if%> 共<font color="#FF0000"><%=rs.recordcount%></font>条信息，每页<font color="#FF0000"><%=pageSize%></font>条，共<font color="#FF0000"><%=pgnm%></font>页，<span lang="zh-cn">当前为第<font color="#FF0000"><%=page%></font>页，</span>跳转到<select name="page" onchange="MM_jumpMenu('this',this,0)" style="border:1px solid #8293E6; font-size: 9pt;width=62px;height=16px; color:#111111; background-color:#DDDDFF">
<option selected value="#">请选择</option>
<%for i=1 to pgnm%>
<option value="listReceivedMessage.asp?page=<%=i%>">第<%=i%>页</option>
<%next%></select></p>
</td>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -