ASP格式网站文档分页如果设置

'把数据库连接字符串包含过来
rs.pagesize=10        '设置每页显示10条记录
page=cint(request("page"))        '使用queryscring获取当前前数
if page<1 then page=1        '当页数小于1时显示第一页
if page>rs.pagecount then page=rs.pagecount        '当页数大于最后一页时显示最后一页
myself=request.serververiables("path_info")        '获取当前页的相对路径
if page>1 then rs.absolutepage=page        '如果页数大于1则显示绝对页数
'循环输出页数
for i=1 to rs.pagecount
        if rs.eof then exit for         '记录在最后一条的后面退出循环

        if i=page then
                        response.write " | "&i&" | "
                else
                        response.write " | <a href="&myself&"/page="&i&">"&i&"</a> | "

end if
end for

'循环输出记录条数
for i=1 to rs.pagesize
if rs.eof then exit for
response.write rs("id")
Chinaz.com

        response.write rs("user")
        response.write rs("pwd")
        rs.movenext
end for
'关闭数据库以及连接
rs.close
conn.close
set conn=nothing
set rs=nothing

但是,这样并不能达到最佳优化。如果我们在page后面这样输入:page=adsf 。我们就会看到出错结果,因为cint函数不能把字符串转换为整数。有时你会看到没有错误,那是因为你在数据库连接时写了这样的语句:on error resume next 。意思就是当程序出错时不影响其他语句继续执行。如果我们把这段代码给删了,就会错误。所以,我们就考虑,怎样才能不错误呢?我们可以把这样的语句:

page=cint(request("page"))

        这样写:

page=strim(request("page")) Chinaz^com
if IsNumeric(page) then
    page=cint(page)
else
    page=1
end if

顶(0)

踩(0)