错误 800a0009 请高手指教。-领先建站CMS提供服务商我们专注于CMS建站产品的研发

1967 查看	3 回复

主题：[已解决]错误 800a0009 请高手指教。 [收藏主题]

转到：

pandastudy 当前离线

50 主题	0 广播	0 粉丝

级别:学前班

用户积分:120 分
登录次数:27 次
注册时间:2010/1/4
最后登录:2011/2/24

pandastudy 发表于：2010/12/31 15:52:49 | 显示全部帖子查看该作者主题楼主

Microsoft VBScript 运行时错误错误 '800a0009'

下标越界: '[number: 1]'

D:\WEB20090405135\NINGJING\WEB\USER\../KS_Cls/Kesion.CommonCls.asp，行 3766

以上是错误提示。代码如下

'分页SQL语句生成代码
Function GetPageSQL(tblName,fldName,PageSize,PageIndex,OrderType,strWhere,fieldIds)
Dim strTemp,strSQL,strOrder
'根据排序方式生成相关代码
if OrderType=0 then
strTemp=">(select max([" & fldName & "])"
strOrder=" order by [" & fldName & "] asc"
else
strTemp="<(select min([" & fldName & "])"
strOrder=" order by [" & fldName & "] desc"
end if
'若是第1页则无须复杂的语句
if PageIndex=1 then【这个是第3766行】
strTemp=""
if strWhere<>"" then strTemp = " where " + strWhere
strSQL = "select top " & PageSize & " " & fieldIds & " from [" & tblName & "]" & strTemp & strOrder
else '若不是第1页，构造SQL语句
strSQL="select top " & PageSize & " " & fieldIds & " from [" & tblName & "] where [" & fldName & "]" & strTemp & _
" from (select top " & (PageIndex-1)*PageSize & " [" & fldName & "] from [" & tblName & "]"
if strWhere<>"" then
strSQL=strSQL & " where " & strWhere
end if
strSQL=strSQL & strOrder & ") as tblTemp)"
if strWhere<>"" then
strSQL=strSQL & " And " & strWhere
end if
strSQL=strSQL & strOrder
end if
GetPageSQL=strSQL
End Function
'======================================================================================
End Class
%>