H
happyok
Unregistered / Unconfirmed
GUEST, unregistred user!
我在网上下载了一个程序，关于在asp中调用组件的程序，但我在测试时出现了错误。
该程序包括两部分：组件程序，asp调用程序
组件程序（vb6编写activex.dll）
Option Explicit
Private Conn As ADODB.Connection
Private RecordSetCD As ADODB.Recordset
'打开连接和结果集
Private Sub OpenDB()
Set Conn = New ADODB.Connection
Set RecordSetCD = New ADODB.Recordset
Conn.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Password=sa;Initial Catalog=shancai;Data Source=LQH2100"
RecordSetCD.Open "SELECT * FROM test1", Conn
End Sub
以下的因为没有用到，就省略了。
。。。。。。
在asp中调用组件程序（以下是部分程序）：
<%
Dim Cd_Info
Set Cd_Info= Server.CreateObject("CD.CD_Handle")
%>
<HTML>
<HEAD>
<META http-equiv="Content-Type" content="text/html;
charset=gb2312">
<TITLE>CD信息列表</TITLE>
</HEAD>
<BODY>
<B><P ALIGN="center">CD信息列表</P></B>
<TABLE BORDER="2" CELLSPACING="1">
<TR>
<TD><P ALIGN="center">CD编号</TD>
<TD><P ALIGN="center">CD名</TD>
<TD><P ALIGN="center">作者</TD>
<TD><P ALIGN="center">价格</TD>
<TD><P ALIGN="center">CD简介</TD>
</TR>
<%
DIM ID
Dim Name
Dim Author
Dim Price
Dim Information
'初始化CD列表
Cd_Inf
penDB
While Cd_Info.IsEof =False
Cd_Info.NextCD ID,Name,Author,Price,Information
%>
<TR>
<TD><%=ID%></TD>
<TD><%=Name%></TD>
<TD><%=Author%></TD>
<TD><%=Price%></TD>
<TD><%=Information%></TD>
<TD><Form Name = "Delete" METHOD ='POST' ACTION ="DeleteCdInformation.asp?id=<%=ID%>">
<INPUT TYPE ="SUBMIT" VALUES="删除此条" NAME="DELETE2">
</FORM>
</TD>
</TR>
<%
Wend
%>
</TABEL>
<FORM NAME="ADD" METHOD ="POST" ACTION="AddCDInformation.asp">
<input type ="submit" value="添加一条CD信息" Name="ADD2">
</FORM>
</body>
但在调用时出错(组件已注册)，出错内容：
Microsoft VBScript 运行时错误 错误 '800a01b6'
对象不支持此属性或方法: 'OpenDB'
/shanchai/changban/test1.asp，行51
在我使用vb测试时，组件程序没有错误，
但我注册后在asp程序中调用就出现上面的错了，请高手指点，谢谢
该程序包括两部分：组件程序，asp调用程序
组件程序（vb6编写activex.dll）
Option Explicit
Private Conn As ADODB.Connection
Private RecordSetCD As ADODB.Recordset
'打开连接和结果集
Private Sub OpenDB()
Set Conn = New ADODB.Connection
Set RecordSetCD = New ADODB.Recordset
Conn.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Password=sa;Initial Catalog=shancai;Data Source=LQH2100"
RecordSetCD.Open "SELECT * FROM test1", Conn
End Sub
以下的因为没有用到，就省略了。
。。。。。。
在asp中调用组件程序（以下是部分程序）：
<%
Dim Cd_Info
Set Cd_Info= Server.CreateObject("CD.CD_Handle")
%>
<HTML>
<HEAD>
<META http-equiv="Content-Type" content="text/html;
charset=gb2312">
<TITLE>CD信息列表</TITLE>
</HEAD>
<BODY>
<B><P ALIGN="center">CD信息列表</P></B>
<TABLE BORDER="2" CELLSPACING="1">
<TR>
<TD><P ALIGN="center">CD编号</TD>
<TD><P ALIGN="center">CD名</TD>
<TD><P ALIGN="center">作者</TD>
<TD><P ALIGN="center">价格</TD>
<TD><P ALIGN="center">CD简介</TD>
</TR>
<%
DIM ID
Dim Name
Dim Author
Dim Price
Dim Information
'初始化CD列表
Cd_Inf
penDBWhile Cd_Info.IsEof =False
Cd_Info.NextCD ID,Name,Author,Price,Information
%>
<TR>
<TD><%=ID%></TD>
<TD><%=Name%></TD>
<TD><%=Author%></TD>
<TD><%=Price%></TD>
<TD><%=Information%></TD>
<TD><Form Name = "Delete" METHOD ='POST' ACTION ="DeleteCdInformation.asp?id=<%=ID%>">
<INPUT TYPE ="SUBMIT" VALUES="删除此条" NAME="DELETE2">
</FORM>
</TD>
</TR>
<%
Wend
%>
</TABEL>
<FORM NAME="ADD" METHOD ="POST" ACTION="AddCDInformation.asp">
<input type ="submit" value="添加一条CD信息" Name="ADD2">
</FORM>
</body>
但在调用时出错(组件已注册)，出错内容：
Microsoft VBScript 运行时错误 错误 '800a01b6'
对象不支持此属性或方法: 'OpenDB'
/shanchai/changban/test1.asp，行51
在我使用vb测试时，组件程序没有错误，
但我注册后在asp程序中调用就出现上面的错了，请高手指点，谢谢