Question

asp中的function在封装在VB中怎么用

我有一个asp的函数
Public Function Dball(Str,Tablename,Wheres)
Set Rs = Server.CreateObject("Adodb.Recordset")
Sql = "Select * From [" & Tablename & "]"
Rs.Open Sql, Conn, 2, 3
Rs.Addnew

For Each Key In Request.Form
Rs(Key) = Request.Form(Key)
Next

Rs.Update
Rs.Close
Set Rs = Nothing

我用VB封装的时候如果函数不带参数就没问题。如果函数带参数的话就会出现错误，提示
错误类型：
mydll (0x800A01A8)
Object required
调用的时候我这样调用的
Set Obj = Server.CreateObject("mydll.AspDll")
Cf = Obj.Dball("Select", "Yang_admin", "(yang_pass='"&MyPass&"' Or yang_safepass='"&MyPass&"') and id=1")
这样的函数封装在vb中应该怎么处理才能正常呢？
哦。后面还有一个end function

Answer 1

我觉得很可能是你的参数没有定义数据类型有关，改一下：
Public Function Dball(ByVal Str As String, ByVal Tablename As String, ByVal Wheres As String)

Answer 2

conn有问题，没有这个对象
conn要在这个函数里初始化

追问

这个conn要怎么初始化呢？网上不是说vb自带有conn对像吗

追答

set conn=Server.CreateObject("ADODB.Connection")
conn.open "DRIVER=Driver do Microsoft Access (*.mdb);DBQ="&Server.MapPath("db.mdb")

追问

这样的话那不是我原来写在conn.asp文件里数据库连接也要搞进来呀！这样如果修改数据库的路径都不能改了

追答

当然了，你封装了么？
要不就当作参数传函数里去
Public Function Dball(Str,Tablename,Wheres,conn)