sql="SELECT * FROM guest ORDER BY ID DESC"
rs.open sql,conn,1,1
if rs.bof and rs.eof then%>
else
rs.pagesize=INT(Mypage)
PageNo=REQUEST("PageNo")
RS.AbsolutePage=PageNo
TSum=INT(rs.RECORDCOUNT/Mypage*-1)*-1
RowCount=rs.PageSize
if PageNo="" or PageNo=0 then
PageNo=1
else
PageNo=PageNo+1
PageNo=PageNo-1
end if
if CINT(PageNo)>1 then
if CINT(PageNo)>CINT(TSum) then
Msg("对不起没有您想要的页数")
Response.End
end if
end if
if PageNo Msg("没有这一页!请点击返回.")
Response.End
End if
%>
留言数: / 总页数:
/ 目前第:页
填写留言
返回主页
0%>
end if
RowCount = RowCount - 1
rs.MoveNext
Loop
set guest=nothing
set rs = nothing%>
if TSum>1 then
if PageNo=1 then
NextPage=PageNo+1
response.write"下一页"
end if
if PageNo=TSum then
PrwePage=PageNo-1
response.write "上一页"
end if
if PageNo>1 and TSum>PageNo then
NextPage=PageNo+1
PrwePage=PageNo-1
response.write "上一页 |"
response.write" 下一页"
end if
end if
End Function%>
