以下代码是com在vb 下成功，在asp调用下产生：缺少对象: '[undefined]'，不明白，请高手帮忙

Question

以下代码是com在vb 下成功，在asp调用下产生：缺少对象: '[undefined]'，不明白，请高手帮忙
------------------------------------------------------------
VB成功调用com:Option Explicit
Private conn As ADODB.Connection
Private rs As ADODB.Recordset
Private rs1 As ADODB.Recordset
Private com As webdb.webdbcommon　　　'自定义com
Private Sub Form_Load()
Dim sql As String
Dim connstring As String
Set com = New webdb.webdbcommon
sql = "select * from News "
connstring = "Driver={SQL server};server=(LOCAL);Uid=sa;pwd=198071;database=web_db;"
Set rs1 = com.SqlExecute(connstring, sql)
Text1.Text = rs1.Fields("News_ID")
End Sub
---------------------------------------------------------------------------------------
asp调用com 不行：<%
　Dim WebDB
　Set WebDB=  Server.CreateObject("webdb.webdbcommon")
．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．
　dim sql 
  dim connstring 
  dim rs
  dim str
  sql = "select * from News "
  str="Driver={SQL server};server=(LOCAL);Uid=sa;pwd=198071;database=web_db;"
  set rs=WebDB.Sqlexecute(cstr(str),cstr(sql))'此句提示：无缺少对象: '[undefined]'%>－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
ＣＯＭ　源码
Option Explicit
Private conn As ADODB.Connection
Private rs As ADODB.Recordset
Public Function SqlExecute(ConnectionString As String, SqlString As String) As ADODB.Recordset
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
conn.Open ConnectionString
rs.Open SqlString, conn
Set SqlExecute = rs
'"driver={SQL Server};server=127.0.0.1;uid=sa;pwd=198071;database=web_db;"
'"select * from News  order by  News_Time  desc ", conn
End Function
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
谢谢了

Answer 1

具体问题不太清楚，不过你的COM内容相当简单，可以用一个共用ASP页面来代替
Function FncExecuteSQL(strTxt,objRs)
On Error Resume Next
    objRs.Open strTxt, objConn, 3, 1    If Err.No <> 0 Then
        FncExecuteSQL = False
    Else
        FncExecuteSQL = True
    End If
End Function
连接，打开，关闭用其他函数来写。