📄 good.asp
字号:
<!-- #Include File=top.asp -->
<!-- #Include File=../sys/inc/char.asp -->
<!-- #Include File=../sys/inc/prompt.inc -->
<%
response.buffer=true
username=trim(replace(request.cookies("soonmess")("username"),"'",""))
'----------------------------------
dim sql
dim rs '实例
dim totalPut '总记录数
dim CurrentPage '当前页
dim TotalPages '总页数
dim i,j
dim sql2,sql3
Set rs= Server.CreateObject ("ADODB.RecordSet")
sql = "select * from content where bisgood=1 order by bistop desc,bontime desc"
rs.open sql, conn,1,3
'----------------------------------
if rs.bof and rs.eof then
errmsg=errmsg+"<br>"+"<li>精华区中还没有记录!"
call error()
response.end
end if
rs.MoveFirst '到第一条记录
rs.pagesize=MaxPerPage '定义每页记录数
howmanyfields=rs.Fields.Count-1
If trim(Request("Page"))<>"" then
CurrentPage= CLng(request("Page"))
If CurrentPage> rs.PageCount then
CurrentPage = rs.PageCount
End If
Else
CurrentPage= 1
End If
if rs.eof then
response.write "<p align='center'> ERROR!</p>"
response.redirect ("write.asp")
else
totalPut=rs.recordcount 'totalput=总记录数
if CurrentPage<>1 then
if (currentPage-1)*MaxPerPage < totalPut then
rs.move(currentPage-1)*MaxPerPage
end if
end if
end if
'计算总页数
totalpages=rs.pagecount
'================================================计算注册人数
set userSet = Server.CreateObject("ADODB.RecordSet")
userSet.open "userinfo",conn,1 ,3
'连接userinfo数据库，取得所有记录的数量，也就是注册人数
user=userSet.recordcount
'===============================================计算注册人数
state="迅捷留言本"
call top()
%>
<table border=0 cellpadding=2 cellspacing=0 width="95%" align="center">
<tbody>
<tr>
<td width="21%"><img src="image/good.gif" border="0" align="absbottom" >
</td>
<td width="79%">
<p align=right> <img
src="image/amount.gif" width="15" height="15"> 主题数目：<%=totalPut%>
<img
src="image/rent.gif" width="18" height="13">页数：<%=CurrentPage%>/<%=TotalPages%>
<font
color=red></font> <img border=0
src="image/people.gif" width="9" height="13"> 注册会员数：<%=user%> </p>
</td>
</tr>
</tbody>
</table>
<table border=1 cellpadding=0 cellspacing=0 width=95% align="center" bordercolor="#0099cc">
<TR>
<TD class=td align=middle height=20 width="40"><font color="#FF0000">新窗口</font></TD>
<TD class=td align=left height=20 width=*>
<div align="center"><font color="#FF0000">主 题</font></div>
</TD>
<TD class=td align=middle width="50">
<div align="center"><font color="#FF0000">点击</font></div>
</TD>
<TD class=td align=middle width="50">
<div align="center"><font color="#FF0000">回复</font></div>
</TD>
<TD class=td align=middle width="80">
<div align="center"><font color="#FF0000">作者</font></div>
</TD>
<TD class=td align=middle width="120">
<div align="center"><font color="#FF0000">最后更新</font></div>
</TD>
<TD class=td align=middle height=20 width="80">
<div align="center"><font color="#FF0000">回复人</font></div>
</TD>
</TR>
<%
do while not rs.eof and i < maxperpage
Response.Write "<TR>"
set replySet = Server.CreateObject("ADODB.RecordSet") '取得回复ID和当前主题ID一样的数目
sql2="select * from revert where bID="&rs("ID")&" order by bretime desc"
'response.write (sql2)
'response.end
replySet.open sql2,conn,1,3
response.write "<td class=td1 align='center' class=td><a href=read.asp?id="&rs("ID")&" target='_blank'><img border=0 src=express/"&rs("bexpression")&".gif></a></td>"
response.write "<td class=td2 align='left' class=td><a href=read.asp?id="&rs("ID")&">"
if len(rs("bsubject"))>22 then response.write ""&htmlencode(left(rs("bsubject"),22))&"..." else response.write ""&(rs("bsubject")) end if
response.write "</a>"
if rs("bistop")<>0 then
response.write " <img src='image/istop1.gif' >"
end if
response.write "</td>"
response.write "<td class=td1 align='center' class=td>"&rs("breadtime")&"</td>"
response.write "<td class=td2 align='center' class=td>"&replyset.recordcount&"</td>"
response.write "<td class=td1 align='center' class=td>"&rs("bauthor")&"</a></td>"
response.write "<td class=td2 align='center' class=td>" & (rs("bontime")) & "</td>"
titleID=rs("ID")
set rsname = Server.CreateObject("ADODB.RecordSet")
sql3="select * from revert where bID="&titleID&" order by bretime desc"
rsname.open sql3,conn,1
'rsname.open "select * from revert where bID='75' order by bretime desc",conn,1
if rsname.eof then '回复中不存在这个ID主题的号
response.write "<td class=td1 align='center' height='20' class=td>-</td>"
else
response.write "<td class=td1 align='center' height='20' class=td>"&rsname("brepeople")&"</td>"
end if
'response.write rs("ID") '返回一个实验值，看是不是已经取得TITLEID
Response.Write "</TR>"
i=i+1
rs.movenext
loop
%>
</table>
<center>
<table border="0" cellspacing="0" cellpadding="4" width="95%" align="center" bordercolor="#0099CC">
<tr>
<td width="220" > <span class=smallFont> </span>
<form method="post" action="good.asp">
<span class=smallFont>页次：<%=CurrentPage%>/<%=TotalPages%> 页 转到:
<input
maxlength=5 size=3 value=<% =currentpage %> name=Page>
<input language=javascript id=button1 onClick=viewPage1(document.index.Page.value) type=submit value=Go name=button1>
</span>
</form>
</td>
<td width="*" >
<div align="right">
<select size="1" name="D1" onChange="MM_goToURL('parent',this.value);return document.MM_returnValue">
<option>跳转页数</option>
<%
soonhost=0
DO WHILE NOT soonhost = rs.PageCount %>
<option value="good.asp?Page=<% =soonhost+1 %>"><% =soonhost+1 %></option>
<% soonhost=soonhost+1
loop
%>
</select>
<%
'------------------------------------------------------页面跳转
dim n,k
if (totalPut mod MaxPerPage)=0 then 'n表示总页数
n= totalPut \ MaxPerPage
else
n= totalPut \ MaxPerPage + 1
end if
k=currentPage
if k<>1 then
response.write "[<b>"+"<a href='good.asp?page=1'>首页</a></b>] "
response.write "[<b>"+"<a href='good.asp?page="+cstr(k-1)+"'>上一页</a></b>] "
else
Response.Write "[首页] [上一页]"
end if
if k<>n then
response.write "[<b>"+"<a href='good.asp?page="+cstr(k+1)+"'>下一页</a></b>] "
response.write "[<b>"+"<a href='good.asp?page="+cstr(n)+"'>尾页</a></b>] "
else
Response.Write "[下一页] [尾页]"
end if
'------------------------------------------------------页面跳转
rs.close
set rs=nothing
conn.close
set conn=nothing
'====================================================
'程序制做:迅捷网络. http://www.soonhost.com
'迅捷主机网 -- 域名注册、主机租用、网站建设、脚本开发
'网址：http://www.soonhost.com
'msn:soonhost@hotmail.com
'请保留以上版权信息，谢谢合作！
'====================================================
%></div>
</td>
</tr>
</table>
<table width="760" border="0" cellspacing="0" cellpadding="2" align="center">
<tr bordercolor="#0099CC" align="center">
<td >
<form name="search" action="search.asp" method="post">
<div align="left">
<table cellspacing=0 cellpadding=2 width="500"
border=1 bordercolor="#0099CC" align="center">
<tbody>
<tr>
<td class=td1 width="40%">
<div align=center><font color="#000000">请输入您要搜索的字符</font> </div>
</td>
<td width="41%">
<div align="center">
<input type="text" name="keyword" maxlength="50">
</div>
</td>
<td width="19%">
<div align=center>
<input type=image height=18
width=39 src="image/search.gif" border=0
name=imageField3 alt="搜索">
</div>
</td>
</tr>
</tbody>
</table>
</div>
</form>
</td>
</tr>
<tr>
<td> </td>
</tr>
</table>
<br>
<p>
<!-- #Include File=../foot.inc --> </p>
<p> </p>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -