book.asp

3ani桑尼网络wap导航程序wap导航程序wap导航程序

<!--#include file="66hc.asp"--><!--#include file="opfw.asp"-->
<card id="login" title="留言列表">
<p>
<%
set rs0=server.createobject("ADODB.Recordset")
Sql0="select * from [lybook] order by [id] desc"
rs0.open Sql0,conn,1,1
''''''''''''''''''''''''''''''''''
'rs0.PageSize=pag
'page=CLng(Request("page"))
'if page<1 then
'page=1
'End if
'if page>rs0.pagecount then
'page=rs0.pagecount
'End if
''''''''''''''''''''''''''''''''''
if rs0.recordcount=0 then
response.write("暂无内容<br/>")
else
page=cint(request("page")) 
n=rs0.RecordCount 
rs0.pagesize=pag
m=cint(rs0.pagecount) 
if page="" then 
page=1 
elseif page<1 then 
page=1 
end if 
if cint(request("page"))>m then 
page=m 
end if 
page=cint(page) 
if not rs0.eof then 
rs0.absolutepage=page 
end if 
if m>page+2 then 
endpage=page+2 
else 
endpage=m 
end if 
if page>4 then 
pagetitle=pagetitle & " " & "<a href='book.asp?sb=" &sb & "&amp;ids="&ids&"&amp;page=1'>首</a>." 
end if 

for i=page-2 to endpage 
if not i<1 then 
if i = page then 
pagetitle=pagetitle & " " & "<B>" & i & "</B>" 

else 
pagetitle=pagetitle & " " & "" & "<a href='book.asp?sb=" &sb & "&amp;ids="&ids&"&amp;page=" & i & "'>" & i & "</a>" & "." 
end if 
end if 
next 
if page+2 < m then 
pagetitle=pagetitle & " " & "<a href='book.asp?sb=" &sb & "&amp;ids="&ids&"&amp;page="&rs0.pagecount&"'>尾</a>" 
end if 

bihao=page*pag-pag

For i=1 to pag
bihaocont=bihaocont+1
%>
<%=bihao+bihaocont%>.<a href='view.asp?o=<%=o%>&amp;wid=<%=rs0("id")%>'><%=ubb(rs0("name"))%></a><%if len(rs0("hf"))>1 then%>[已复]<%end if%><br/>
<%
rs0.Movenext
if rs0.EOF then Exit for
Next
End if
response.write "(" &  Page & "/" & rs0.PageCount & ")" & "&#x5171;" & rs0.RecordCount & "&#x4E2A;<br/>"&usb(pagetitle)
'If Page<rs0.PageCount then
'Response.Write "<a href='book.asp?sb="&sb&"&amp;o="&o&"&amp;page=" & (page+1) & "'>[下页]</a>"
'End if
'If page>1 then
'Response.Write "&nbsp;<a href='book.asp?sb="&sb&"&amp;o="&o&"&amp;page=" & (page-1) & "'>[上页]</a>"
'End if
rs0.close
set rs0=nothing
%>
<a href='ly.asp?o=<%=o%>'>提交留言</a>
<br/>--------<br/>
<a href='add.asp?sb=<%=sb%>&amp;o=<%=o%>'>申请友链</a>|<a href='souhl.asp?sb=<%=sb%>&amp;o=<%=o%>'>查找回连</a>
<!--#include file="66hcw.asp"-->