台式机怎么关闭核显:帮忙找错误写asp时候碰到的

来源:百度文库 编辑:查人人中国名人网 时间:2024/04/29 03:55:45
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”)之间就将ipage赋值为接收到的参数page
Else
iPage =page
End If'>
End if'<
End If 'is or not asc
End if
我想通过上边的代码来判断作出相应的显示,但是现在它只做两件事如果传递过来的参数为字符它就跳到该字符相应的ASC码值的那一页,如果参数是一个小于1的数字(int型)就跳到第一页,其他的数值跳到最后一页。
在线等,抓狂ing
问题被采纳后,追加10分
各位高手注意了!是逻辑错误,因为编译通过了

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

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