28,406
社区成员
发帖
与我相关
我的任务
分享紧急求助,各位进来帮我看看!!
我是个组件入门级,在用VB6与组件时,老是出现如下错误,工程名为XIAN,类名HANG
VB6代码如下:
Option Explicit
Private aspcontext As ScriptingContext
Private aspresponse As Response
Public Sub onstartpage(tempcontext As ScriptingContext)
Set aspcontext = tempcontext
Set aspresponse = aspcontext.Response
End Sub
Public Function ifexists() As Long
Dim conn As Connection
conn.ConnectionString = "driver={SQL SERVER};server=server01;uid=sa;pwd=;database=www_investguide_com_cn"
conn.Open
Dim rs As ADODB.Recordset
Dim sqlstr As String
sqlstr = "select * from login"
rs.Open sqlstr, conn, adOpenDynamic, adLockBatchOptimistic
If Not rs.EOF Then
aspresponse.Write ("there are data in login database")
End If
End Function
Public Sub onendpage()
Set aspcontext = Nothing
Set aspresponse = Nothing
End Sub
ASP代码如下:
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body bgcolor="#FFFFFF" text="#000000">
<%
dim myobject
set myobject=server.createobject("xian.hang")
myobject.ifexists()
%>
</body>
</html>
错误如下:
xian 错误 '800a005b'
未设置对象变量或 With block 变量
/test.asp，行11
为什么?帮帮我?错在哪里?
VB6代码如下:
Option Explicit
Private aspcontext As ScriptingContext
Private aspresponse As Response
Public Sub onstartpage(tempcontext As ScriptingContext)
Set aspcontext = tempcontext
Set aspresponse = aspcontext.Response
End Sub
Public Function ifexists() As Long
Dim conn As Connection
conn.ConnectionString = "driver={SQL SERVER};server=server01;uid=sa;pwd=;database=www_investguide_com_cn"
conn.Open
Dim rs As ADODB.Recordset
Dim sqlstr As String
sqlstr = "select * from login"
rs.Open sqlstr, conn, adOpenDynamic, adLockBatchOptimistic
If Not rs.EOF Then
aspresponse.Write ("there are data in login database")
End If
End Function
Public Sub onendpage()
Set aspcontext = Nothing
Set aspresponse = Nothing
End Sub
ASP代码如下:
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body bgcolor="#FFFFFF" text="#000000">
<%
dim myobject
set myobject=server.createobject("xian.hang")
myobject.ifexists()
%>
</body>
</html>
错误如下:
xian 错误 '800a005b'
未设置对象变量或 With block 变量
/test.asp，行11
为什么?帮帮我?错在哪里?
...全文
请发表友善的回复…
发表回复
