帮忙找错误写asp时候碰到的

来源：百度知道 编辑：UC知道 时间：2024/05/31 03:36:51
If Len(Request("page")) = 0 Then'接收的参数的长度为0，即没有参数传入就将ipage赋值为1
iPage = 1
Else If Not IsNumeric(Request("page")) Then'接收到的参数的长度不为0，如果接收到的参数不是数字类型的数据
page=CInt(Asc(Request("page")))'将字符型变量变换成asc码,在将asc转换成整型数据
If page < 1 Then'如果转换后的数据的值小于“1”
iPage=1
Else If page > CInt(rs.PageCount) Then '否则如果参数page大于ADO分页最大数（rs.PageCount）就将ipage赋值为ADO分页最大数
iPage=CInt(rs.PageCount)
Else '否则如果参数page介于ADO分页最大（rs.PageCount）和1（包含“1”）之间就将ipage赋值为接收到的参数page
iPage =page
End If'>
End if'<
Else page=Request("page")'接收到的参数的长度不为0，时如果接收到的参数不是数字类型的数据
If page < 1 Then '如果转换后的数据的值小于“1”
iPage=1
Else If page > CInt(rs.PageCount) Then'否则如果参数page大于ADO分页最大数（rs.PageCount）就将ipage赋值为ADO分页最大数
iPage=CInt(rs.PageCount) '否则如果参数page介于ADO分页最大（rs.PageCount）和1（包含“1”）之间就将

If Len(Request("page")) = 0 Then '如果为空
iPage = 1
Elseif Not IsNumeric(Request("page")) Then '如果不是数字
page=CInt(Asc(Request("page")))
If page < 1 Then
iPage=1
ElseIf page > CInt(rs.PageCount) Then
iPage=CInt(rs.PageCount)
else
ipage=page
End If
Else '如果是数字
page=CInt(Request("page"))
if page > CInt(rs.PageCount) Then
ipage=rs.pagecount
elseif page<1 then
ipage=1
else
ipage=page
end if
End if

你应该发测试的错误时显示错误的页面出来啊，那里有说明的，整个程序段谁有时间给你看啊，祝好运