网页留言板的代码

<%@ Language=VBScript %>

<%
dim ASPBook
dim StrSQL

if not isempty(request("page")) then
Mypage=cint(Request("page"))
else
Mypage=1
end if

set ASPBook = Server.CreateObject("ADODB.Recordset")

StrSQL = "Select * from guest order by ID desc"
ASPBook.open StrSQL,conn,1,1

ASPBook.pagesize=Mypagesize
maxpages=cint(ASPBook.pagecount)
totalsize=cint(Mypagesize)
ASPBook.absolutepage=Mypage
GuestTotal=ASPBook.RecordCount

if cint(Mypage) >1 then
if cint(Mypage) > maxpages then
MESSAGE("

没有你所想去的页数！

")
Response.End
end if
end if
HEADER "显示留言"
MyMenu
%>

Total of
<%=GuestTotal%> messages,
<%=MyPageSize%>
messages per page, You are on page<%=cint(Mypage)%>
<%=Greeting%>... <%PageLink%>

<%

function PageLink

PageShowSize = 10
Scriptname=Request.Servervariables("script_name")
PageNextSize=int((MyPage-1)/PageShowSize)+1
Pagetpage=int((GuestTotal-1)/MyPageSize)+1

if Maxpages > 1 then
if PageNextSize >1 then
PagePrev=PageShowSize*(PageNextSize-1)
Response.write "[<<]-"
end if
if Mypage-1 > 0 then
Prev_Page = MyPage - 1
Response.write "[<] "
end if
if maxpages>=PageNextSize*PageShowSize then
PageSizeShow = PageShowSize
else
PageSizeShow = Maxpages-PageShowSize*(PageNextSize-1)
end if
for PageCounterSize=1 to PageSizeShow
PageLink = (PageCounterSize+PageNextSize*10)-10
if PageLink <> cint(Mypage) then
Response.write "[" & PageLink & "] "
else
Response.Write PageLink & " "
end if
next
if Mypage+1 <=Pagetpage then
Next_Page = MyPage + 1
Response.write "[>]"
end if
if maxpages > PageShowSize*PageNextSize then
PageNext = PageShowSize * PageNextSize + 1
Response.write "-[>>]"
end if
else
Response.write "[1]"
end if
END function

set ASPBook=nothing
conn.Close
set conn = nothing
%>