【ASP】提示错误80040e14
时间：2023-12-21 02:07:02
是的，提示Cls_vbsPage.asp 行164 整个代码如下：
Class Cls_vbsPage
Private oConn '连接对象
Private iPagesize 每页记录数
Private sPageName 地址栏页数参数名
Private sDbType
数据库类型，AC为access,MSSQL为SQL SERVER2000存储过程版，MYSQL为mysql,PGSQL为PostGreSql
Private iRecType '记录总数(>0给予或固定另一个值，0执行count设置存cookies,-1执行count不设置cookies)
Private sJsUrl 'Cls_jsPage.js的路径
Private sField '字段名
Private sTable '表名
Private sCondition 不需要条件where
Private sOrderBy 不需要排序order by,需要asc或者desc
Private sPkey 主键，必写
Private iRecCount
'================================================================
' Class_Initialize 类的初始化
'================================================================
Private Sub Class_Initialize
iPageSize=10
sPageName="Page"
sDbType="AC"
iRecType=0
sJsUrl=""
sField=" * "
End Sub
'================================================================
' Conn 获取数据库连接对象
'================================================================
Public Property Set Conn(ByRef Value)
Set oConn=Value
End Property
'================================================================
' PageSize 设置每页记录条数，默认记录10
'================================================================
Public Property Let PageSize(ByVal intPageSize)
iPageSize=CheckNum(intPageSize,0,0,iPageSize,0)
End Property
'================================================================
' PageName 地址栏页数参数名
'================================================================
Public Property Let PageName(ByVal strPageName)
sPageName=IIf(Len(strPageName)<1,sPageName,strPageName)
End Property
'================================================================
' DbType 获取数据库类型
'================================================================
Public Property Let DbType(ByVal strDbType)
sDbType=UCase(IIf(Len(strDbType)<1,sDbType,strDbType))
End Property
'================================================================
' RecType 取记录总数(>0为赋值或者固定值,0执行count设置存cookies,-1执行count不设置cookies适用于搜索)
'================================================================
Public Property Let RecType(ByVal intRecType)
iRecType=CheckNum(intRecType,0,0,iRecType,0)
End Property
'================================================================
' JsUrl 取得Cls_jsPage.js的路径
'================================================================
Public Property Let JsUrl(ByVal strJsUrl)
sJsUrl=strJsUrl
End Property
'================================================================
' Pkey 取得主键
'================================================================
Public Property Let Pkey(ByVal strPkey)
sPkey=strPkey
End Property
'================================================================
' Field 取得字段名
'================================================================
Public Property Let Field(ByVal strField)
sField=IIf(Len(strField)<1,sField,strField)
End Property
'================================================================
' Table 取得表名
'================================================================
Public Property Let Table(ByVal strTable)
sTable=strTable
End Property
'================================================================
' Condition 取得条件
'================================================================
Public Property Let Condition(ByVal strCondition)
s=strCondition
sCondition=IIf(Len(s)>2," WHERE "&s,"")
End Property
'================================================================
' OrderBy 取得排序
'================================================================
Public Property Let OrderBy(ByVal strOrderBy)
s=strOrderBy
sOrderBy=IIf(Len(s)>4," ORDER BY "&s,"")
End Property
'===============================================================
' RecCount 修正记录总数
'================================================================
Public Property Get RecCount()
If iRecType>0 Then
i=iRecType
Elseif iRecType=0 Then
i=CheckNum(Request.Cookies("ShowoPage")(sPageName),1,0,0,0)
s=Trim(Request.Cookies("ShowoPage")("sCond"))
IF i=0 OR sCondition<>s Then
i=oConn.Execute("SELECT COUNT("&sPkey&") FROM "&sTable&" "&sCondition,0,1)(0)
Response.Cookies("ShowoPage")(sPageName)=i
Response.Cookies("ShowoPage")("sCond")=sCondition
End If
Else
i=oConn.Execute("SELECT COUNT("&sPkey&") FROM "&sTable&" "&sCondition,0,1)(0)
End If
iRecCount=i
RecCount=i
End Property
'================================================================
' ResultSet 返回分页后的记录集
'================================================================
Public Property Get ResultSet()
s=Null
'记录总数
i=iRecCount
'当前页
If i>0 Then
iPageCount=Abs(Int(-Abs(i/iPageSize)))'页数
iPageCurr=CheckNum(Request.QueryString(sPageName),1,1,1,iPageCount)'当前页
Select Case sDbType
Case "MSSQL" 'sqlserver2000数据库存储过程版
Set Rs=server.CreateObject("Adodb.RecordSet")
Set Cm=Server.CreateObject("Adodb.Command")
Cm.CommandType=4
Cm.ActiveConnection=oConn
Cm.CommandText="sp_Util_Page"
Cm.parameters(1)=i
Cm.parameters(2)=iPageCurr
Cm.parameters(3)=iPageSize
Cm.parameters(4)=sPkey
Cm.parameters(5)=sField
Cm.parameters(6)=sTable
Cm.parameters(7)=Replace(sCondition," WHERE ","")
Cm.parameters(8)=Replace(sOrderBy," ORDER BY ","")
Rs.CursorLocation=3
Rs.LockType=1
Rs.Open Cm
Case "MYSQL" 'MYSQL数据库
ResultSet_Sql="SELECT "&sField&" FROM "&sTable&" "&sCondition&" "&sOrderBy&" LIMIT "&(iPageCurr-1)*iPageSize&","&iPageSize
Set Rs=oConn.Execute(ResultSet_Sql)
Case Else '其他情况按最原始的方法处理(AC同理)
Set Rs = Server.CreateObject ("Adodb.RecordSet")
ResultSet_Sql="SELECT "&sField&" FROM "&sTable&" "&sCondition&" "&sOrderBy
Rs.Open ResultSet_Sql,oConn,1,1,&H0001
Rs.AbsolutePosition=(iPageCurr-1)*iPageSize+1
End Select
s=Rs.GetRows(iPageSize)
Rs.close
Set Rs=Nothing
End If
ResultSet=s
End Property
'================================================================
' Class_Terminate 类注销
'================================================================
Private Sub Class_Terminate()
If IsObject(oConn) Then oConn.Close:Set oConn=Nothing
End Sub
'================================================================
' 输入:检查字符,是否有最小值,是否有最大值,最小值(默认数字),最大值
'================================================================
Private Function CheckNum(ByVal strStr,ByVal blnMin,ByVal blnMax,ByVal intMin,ByVal intMax)
Dim i,s,iMi,iMa
s=Left(Trim(""&strStr),32):iMi=intMin:iMa=intMax
If IsNumeric(s) Then
i=CDbl(s)
i=IIf(blnMin=1 And i
i=IIf(blnMax=1 And i>iMa,iMa,i)
Else
i=iMi
End If
CheckNum=i
End Function
'================================================================
' 输入:简化条件判断
'================================================================
Private Function IIf(ByVal blnBool,ByVal strStr1,ByVal strStr2)
Dim s
If blnBool Then
s=strStr1
Else
s=strStr2
End If
IIf=s
End Function
'================================================================
' 上下页部分
'================================================================
Public Sub ShowPage()%>
var s= new Cls_jsPage(,,3,"s");
s.setPageSE("=","");
s.setPageInput("");
s.setUrl("");
s.setPageFrist("首页","首页");
s.setPagePrev("上页","上页");
s.setPageNext("下页","下页");
s.setPageLast("尾页","尾页");
s.setPageText("[{$PageNum}]","第{$PageNum}页");
s.setPageTextF(" {$PageTextF} "," {$PageTextF} ");
s.setPageSelect("{$PageNum}","第{$PageNum}页");
s.setPageCss("","","");
s.setHtml("共{$RecCount}记录 页次{$Page}/{$PageCount} 每页{$PageSize}条 {$PageFrist} {$PagePrev} {$PageText} {$PageNext} {$PageLast} {$PageInput} {$PageSelect}");
s.Write();
End Class%>
以上是asp分页程序，改页其他页面引用一切正常，唯独Plist.asp引用就出错，以下为Plist.asp代码
项目管理window.name = "win";
Dim itemname,rootid
rootid=trim(request("rootid"))
itemname=Trim(request("itemname"))
If itemname<>"" Then itemname=Replace(itemname,"'","")
if rootid="" then rootid=0
%>
| 所属项目： Dim rs,sql sql = "select * from Sk_Product where rootid=0 order by sorder asc,id asc" Set rs = conn.execute(sql,0,1) If Not rs.eof Then While Not rs.eof response.write " If cint(rs(0))=cint(rootid) Then response.write "selected" End If response.write ">"&rs(1)&" "rs.movenext Wend End If rs.close Set rs=Nothing %> 项目名称：/> |
| 项目名称 | 报价 | 说明 |
Dim ors,scon
scon = " 1=1 "
If itemname<>"" Then scon = scon & " and itemname like '%"&itemname&"%' "
if rootid<>0 then scon = scon & " and (id="&rootid&" or rootid="&rootid&") "
Set ors=new Cls_vbsPage '创建对象
Set ors.Conn=conn '得到数据库连接对象
With ors
.PageSize=10 '每页记录条数
.PageName="Page" 'cookies名称
.DbType="AC"
.RecType=-1
.JsUrl="Script/"
.Pkey="id"
.Field="[id],[itemname],[price],[intro],[rootid]"
.Table="Sk_Product"
.Condition=scon
.OrderBy="IIF(rootid=0,id,rootid),rootid"
End With
iRecCount=ors.RecCount()'记录总数
iRs=ors.ResultSet() '返回ResultSet
If iRecCount<1 Then
%>
没有找到相关记录Set iRs=nothing
else
For i=0 To Ubound(iRs,2)
%>
" onMouseOver="this.style.background='#EAF3FF'" onMouseOut="this.style.background='#FFF'"0 then response.write "οnclick=""selectitem("&iRs(0,i)&")"""%>>
0 then%>
0 then%>
元Next
Set iRs=nothing
End If
conn.close
set conn=nothing
%>
/>
var _a = document.getElementsByTagName("a");
for(i=0;i<_a.length>
_a[i].target = "win";
}
function selectitem(id){
var _id = document.getElementsByName("id");
for(i=0;i<_id.length>
if(_id[i].value==id){
_id[i].checked = true;
}else{
_id[i].checked = false;
}
}
}
document.getElementById("select").οnclick=function(){
var n = 0;
var id = 0;
var _id = document.getElementsByName("id");
for(i=0;i<_id.length>
if(_id[i].checked){
id = _id[i].value;
n += 1;
}
}
if(n==0){
alert("请选择一个项目");
return
}
var itemname = document.getElementById("itemname"+id).innerHTML;
itemname = itemname.replace(/]*>/g,''); //去除HTML tag
itemname = itemname.replace(/[ | ]*\n/g,'\n'); //去除行尾空白
itemname = itemname.replace(/\n[\s| | ]*\r/g,'\n'); //去除多余空行
var price = document.getElementById("price"+id).innerHTML.replace("元","");
window.returnValue = itemname+","+price;
window.close();
}
但出错的不是Plist.asp页面，而是Cls_vbsPage.asp页面，程序指向Cls_vbsPge.asp错误，但这个页面其他页面引用就没有问题，我怀疑是Plist.asp的问题，但找了好半天没有找到原因所在，请高手帮忙看一下，在此表示感激不尽！
