?? book.asp
字號:
?<!--#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 & "&ids="&ids&"&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 & "&ids="&ids&"&page=" & i & "'>" & i & "</a>" & "."
end if
end if
next
if page+2 < m then
pagetitle=pagetitle & " " & "<a href='book.asp?sb=" &sb & "&ids="&ids&"&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%>&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 & ")" & "共" & rs0.RecordCount & "个<br/>"&usb(pagetitle)
'If Page<rs0.PageCount then
'Response.Write "<a href='book.asp?sb="&sb&"&o="&o&"&page=" & (page+1) & "'>[下頁]</a>"
'End if
'If page>1 then
'Response.Write " <a href='book.asp?sb="&sb&"&o="&o&"&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%>&o=<%=o%>'>申請友鏈</a>|<a href='souhl.asp?sb=<%=sb%>&o=<%=o%>'>查找回連</a>
<!--#include file="66hcw.asp"-->
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -