求asp分页程序

set rs=server.createobject("adodb.recordset")
sqltext="select * from 数据库表"
rs.open sqltext,conn,1,1

dim MaxPerPage
MaxPerPage=30

'假如没有数据时
If rs.eof and rs.bof then
call showpages
response.write "<p align='center'><font color='#ff0000'>目前没有信息</font></p>"
response.end
End if

'取得页数,并判断用户输入的是否数字类型的数据，如不是将以 第一页显示
dim text,checkpage
text="0123456789"
Rs.PageSize=MaxPerPage
for i=1 to len(request("page"))
checkpage=instr(1,text,mid(request("page"),i,1))
if checkpage=0 then
exit for
end if
next

If checkpage<>0 then
If NOT IsEmpty(request("page")) Then
CurrentPage=Cint(request("page"))
If CurrentPage < 1 Then CurrentPage = 1
If CurrentPage > Rs.PageC