📄 primsg.asp
字号:
<%@LANGUAGE="VBScript" CODEPAGE="936"%>
<!--#include file="SESSION.asp" -->
<!--#include file="CONN.asp" -->
<!--#include file="CHAR.asp" -->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=classname%>同学录</title>
<link href="css/class.css" rel="stylesheet" type="text/css">
</head>
<body bgcolor="#F2F2EA">
<table width="360" border="0" cellpadding="0" cellspacing="0" background="images/dxbj.gif">
<tr>
<td><table width="360" border="0" cellpadding="0" cellspacing="0" background="images/gnymtbz.gif">
<tr>
<td width="135"><img src="images/dxxx.gif" width="135" height="36"></td>
<td> </td>
<td width="100"><img src="images/gnymtyb.gif" width="100" height="36"></td>
</tr>
</table></td>
</tr>
<tr>
<td><br>
<table width="350" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#666B52">
<tr bgcolor="#666B52">
<td>
<div align="center"><font color="#FFFFFF"><strong>标 题</strong></font></div></td>
<td>
<div align="center"><font color="#FFFFFF"><strong>发送人</strong></font></div></td>
<td bgcolor="#666B52">
<div align="center"><font color="#FFFFFF"><strong>发送时间</strong></font></div></td>
</tr>
<%
set rs=server.CreateObject("adodb.recordset")
strsql="select primsg.*,user.realname from primsg inner join [user] on primsg.primsgsender=user.username where primsguser='"&session("username")&"' order by primsgtime desc"
rs.open strsql,conn,1,1
if not rs.eof then
rs.PageSize =10 '每页记录条数
result_num=rs.RecordCount '记录总数
maxpage=rs.PageCount
page=request("page")
if Not IsNumeric(page) or page="" then
page=1
else
page=cint(page)
end if
if page<1 then
page=1
elseif page>maxpage then
page=maxpage
end if
rs.AbsolutePage=Page
else
result_num=0
maxpage=0
page=0
end if
if not rs.eof then
for i=1 to rs.PageSize %>
<tr bgcolor="#FFFFFF">
<td width="120" bgcolor="#E3E3CF" style="PADDING-LEFT: 10px; PADDING-RIGHT: 10px;PADDING-TOP: 10px" td><a href="primsgview.asp?id=<%=rs("primsgid")%>"><%=rs("primsgtitle")%></a>
<%if rs("primsgtype")=1 then response.Write("<img src='images/new.gif' width='30' height='13'>")%>
</td>
<td bgcolor="#fafbf2"><a href="member.asp?id=<%=rs("primsgsender")%>"><%=rs("realname")%></a> </td>
<td width="140" bgcolor="#fafbf2"><%=rs("primsgtime")%> </td>
</tr>
<%
rs.movenext:if rs.EOF then Exit For
next
end if
rs.close
set rs=nothing
%>
<tr bgcolor="#fafbf2">
<td colspan="3">
<div align="center">
<% call LastNextPage(maxpage,page,result_num) %>
</div></td>
</tr>
<tr bgcolor="#E3E3CF">
<td colspan="3">
<div align="center"> <a href="primsgsend.asp">[发送短消息]</a> <a href="javascript:window.close()">[关闭窗口]</a></div></td>
</tr>
</table>
</td>
</tr>
<tr>
<td bgcolor="#FFFFFF"><img src="images/dxfoot.gif" width="360" height="10"></td>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -