📄 postlist.asp
字号:
<!-- #include file="密码验证.asp" --><%title="留言列表"%>
<!-- #include file="head.asp" -->
<script language=VBScript>
if instr(1,top.location,"index.asp")=0 then top.location="index.asp?url=" & replace(self.location ,"&","%26")
</script>
<body link="#0000FF" vlink="#0000FF" alink="#0000FF">
<a class="CommonImageTextButton" title="发表留言" style="background-image: url('image/ShowPost/edit.gif')" href="newpost.asp?class=<%=classnum%>">
发表留言</a>
<%valigntop()%>
<span style="font-style: 12px">
</span>
<center>
<table class="a2" cellSpacing="1" cellPadding="7" width="97%" align="center" border="0" id="table1">
<tr class="a1" id="TableTitleLink" height="25">
<td align="middle" width="3%"></td>
<td align="middle" width="3%"></td>
<td align="middle" width="43%">主题</td>
<td align="middle" width="10%">作者</td>
<td align="middle" width="6%">回复</td>
<td align="middle" width="6%">点击</td>
<td align="middle" width="25%">最后更新</td>
</tr>
<div align="center">
<table class="a2" cellSpacing="1" cellPadding="0" width="97%" border="0" id="table1">
<%
set rs = server.CreateObject("ADODB.Recordset")
rs.open "SELECT * FROM 文章标题 Where 班级=" & classnum & " Order by 置顶,-最后回复" ,conn ,1,1
shownum=30
totalrecord=rs.recordcount
rs.pagesize=shownum
maxpage=rs.pagecount
if request.querystring("page")<> "" then requestpage=clng(request.querystring("page"))
if requestpage="" or requestpage=0 then
requestpage=1
end if
resquestpage=maxpage
if resquestpage>maxpage then
end if
if not requestpage=1 then
rs.move (requestpage-1)*rs.pagesize
end if
for i=1 to rs.pagesize and not rs.bof
%>
<tr class="a3" height="25">
<td align="middle" width="3%"><%if rs("置顶") then Response.Write "<img src='image/Forum_nav.gif'>"%></td>
<td align="middle" width="3%"><%
if rs("表情")<>"" then Response.Write "<img src='image\brow\"&rs("表情")&".gif'>"
%></td>
<td width="43%"> <a href="ShowPost.asp?postid=<%=rs("id")%>&class=<%=rs("班级")%>"><%=rs("文章标题")%> </a></td>
<td align="middle" width="10%">
<a href=#><%=id2name(rs("发送人"))%></a></td>
<td align="middle" width="6%"><%=rs("回复")%></td>
<td align="middle" width="6%"><%=rs("查看")%></td>
<td width="25%"> <%=rs("最后回复")%> by
<a href="#"><%=id2name(rs("最后回复者"))%></a></td>
</tr>
<%
rs.movenext
if rs.eof then exit for
next %>
</table><%valignbottom()%><p align="right">
<%if rs.pagecount<>0 then
if requestpage-1 mod 10=0 then
p=(requestpage-1) \ 10
else
p=(requestpage-1) \ 10
end if
if requestpage=1 then
response.write "<font face=webdings color=""#FF0000"">9</font>"
else
Response.write "<a href=MSGBox.asp?page=1 title=首页><font face=webdings>9</font></a>"
end if
if p*10>0 then response.write "<a href=MSGBox.asp?page="& p*10 & " title=上十页><font face=webdings>7</font></a>"
response.write "<b>"
for ii=p*10+1 to P*10+10
if ii=requestpage then
response.write "<font color=""#FF0000"">"&ii&"</font> "
else
response.write "<a href=MSGBox.asp?page="&ii&">"&ii&"</a> "
end if
if ii=maxpage then exit for
next
response.write "</b>"
if ii<maxpage then response.write "<a href=MSGBox.asp?page="&ii&" title=下十页><font face=webdings>8</font></a>"
if requestpage=maxpage then
response.write "<font face=webdings color=""#FF0000"">:</font> "
else
response.write "<a href=MSGBox.asp?page="&maxpage&" title=尾页><font face=webdings>:</font></a>"
end if
end if
response.write" 总共有"&maxpage&"页 共"&totalrecord&"条信息 </p>"
%>
<span style="font-style: 12px"><br>
</span>
</body>
<!-- #include file="foot.asp" -->⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -