IBM Rational 系统开发最佳实践工具包	WebSphere MQ 最佳实践 TOP 15

网站总提示 “出现一个意外错误” 在线等..

楼主lpy123456（三流鬼）2006-03-16 09:12:49 在 Web 开发 / ASP 提问

网站最近总出错以下的错误:

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

出现一个意外错误: 'Open'

p_list.asp，行62

页面刷新后就可以用了,请问大家这是什么原因,怎么解决这个问题呢?
问题点数：100、回复次数：9Top

1 楼mingxuan3000（铭轩）回复于 2006-03-16 09:15:27 得分 10

upTop

2 楼KimSoft（革命的小酒天天醉-http://blog.csdn.net/kimsoft/）回复于 2006-03-16 09:23:23 得分 15

p_list.asp，行62 去看看，可能是打开了已经打开的数据库链接。Top

3 楼tigerwen01（小虎）回复于 2006-03-16 09:23:44 得分 15

出现一个意外错误,把DEMO贴出来看看。Top

4 楼lpy123456（三流鬼）回复于 2006-03-16 10:22:01 得分 0

<%
set rs=createobject("adodb.recordset")
sql="select * from p_product where 1=1"
class1=request("class1")
thetype=request("thetype")
keyword=request("keyword")

if class1<>"" then
sql=sql & " and P_IDA like '" & class1 & "%' "
end if
if thetype<>"" and keyword <>"" then
sql=sql & " and " & thetype & " like '%" & keyword & "%' "
end if

isSort = Request.QueryString("isSort")

If isSort = "" Then
TempSort = "Desc"
Else
If isSort = "Desc" Then
TempSort = "Asc"
ElseIf isSort = "Asc" Then
TempSort = "Desc"
End If
End If

sql=sql & " order by BasePrice " & TempSort & ""

if request("thepage")="" then
thepage=1
else
thepage=cint(request("thepage"))
end if

set mypages=new page_index
mypages.pagesize=15
mypages.thepage=thepage
mypages.T_A="class1"
mypages.A=class1
mypages.T_B="keyword"
mypages.B=keyword
mypages.T_C="isSort"
mypages.C=isSort
mypages.T_D="thetype"
mypages.D=thetype

rs.open sql,conn,1,1
if not (rs.eof and rs.bof) then
mypages.dopages(rs)
showpage1=mypages.getpages()
end if
%>Top

5 楼lpy123456（三流鬼）回复于 2006-03-16 10:22:19 得分 0

rs.open sql,conn,1,1 就是第62行
Top

6 楼tigerwen01（小虎）回复于 2006-03-16 16:16:59 得分 30

set rs=server.createobject("adodb.recordset")Top

7 楼lpy123456（三流鬼）回复于 2006-03-16 22:55:34 得分 0

小虎哥,这句话也有的..Top

8 楼lpy123456（三流鬼）回复于 2006-03-17 09:19:54 得分 0

是这样,就是只要打开数据库的地方网站就总出错,比如用 conn.execute 也提示出错意外这个错误 rs.open 方法时也是,请问大家遇到过这种情况吗?Top

9 楼chenyu112（晨雨）回复于 2006-03-17 10:05:25 得分 30

没遇到过，是不是你的数据库链接最后没有关闭啊？Top