|
 |
 |
Home >> Message |
<%dim rs,content,p_content,pageno,pages,records,max,min,page
set rs=server.CreateObject("ADODB.recordset")
sql ="select * from guestbook where pass=1 and english=1 order by id desc"
rs.open sql,conn,1,3
if not(rs.bof and rs.eof) then
rs.pagesize=2
pages=rs.pagecount
records=rs.recordcount
pageno=request("pageno")
if pageno="" or pageno<1 then pageno=1
pageno=cint(pageno)
if pageno>pages then pageno=pages
rs.absolutepage=pageno
max=rs.pagesize
min=1
page=10
do while not rs.eof and min<=max
content=content&""_
&""_
&"  "_
&rs("name")&"/"&rs("sex")&" Messages time:"&rs("addtime")&" | "_
&""_
&" "_
&" | "_
&"| Themes: "& rs("title") &" | "_
&"| Specific content:"&cstr(rs("content"))&" | "_
&"¦ Moderator back:
"&rs("reply")&" | "
rs.movenext
min=min+1
loop
rs.close:set rs=nothing
p_content="| "_
&"Total: "&records&" Records "&pageno&"/"&pages&" Pages | "
if pageno>page then
p_content=p_content&"7"
end if
if page+int((pageno-1)/page)*page>=pages then
for i=int((pageno-1)/page)*page+1 to pages
if pageno<>i then
p_content=p_content&"["&i&"]"
else
p_content=p_content&"["&i&"]"
end if
next
else
for i=int((pageno-1)/page)*page+1 to page+int((pageno-1)/page)*page
if pageno<>i then
p_content=p_content&"["&i&"]"
else
p_content=p_content&"["&i&"]"
end if
next
end if
if page+int((pageno-1)/page)*page8"
end if
content=content&p_content&" |
"
response.Write(content)
end if
%>
|
|
|
