CreateObject方法写入两个变量代码如何写呀？

[wlboy110]

我用了一个外部的dll，已经注册成功，在使用CreateObject写入的时候总是出错
set v = Server.CreateObject("UserCheckDll.UserCheck")
Flag = v.CheckPassword Uname Upass
请问赋值给Flag这样写有问题吗？
应该怎么写呀？

[hbhbhbhbhb1021]

这样写不知道有没有问题的，你CheckPassword 方法返回值是什么？

[yb2008]

看看下面,估计对你有用:

其实，大家在书写asp程序时，最担心的可能就是数据库的连接信息，会被一些人看到，进行一些破坏。下面我们用vb6.0来做一个动态链接库(.dll)来隐藏数据库的连接信息。
　　启动vb6.0，新建-->Active dll工程。单击"工程"-->引用,选择"microsoft active server pages object library"
和"microsoft activeX data objects 2.1 library"两项。将类模块的名称改为dcss.将工程的名称改为yygwy.保存工程文件yygwy.vbp和类文件dcss.cls。
在dcss.cls中写入:
Private myscriptingcontext As ScriptingContext
Private myapplication As Application
Private myrequest As Request
Private myresponse As Response
Private myserver As Server
Private mysession As Session

Public Sub onstartpage(passedscriptingcontext As ScriptingContext)
Set myscriptingcontext = passedscriptingcontext
Set myapplication = myscriptingcontext.Application
Set myrequest = myscriptingcontext.Request
Set myresponse = myscriptingcontext.Response
Set myserver = myscriptingcontext.Server
Set mysession = myscriptingcontext.Session
End Sub

Public Sub onendpage()
Set myscriptingcontext = Nothing
Set myapplication = Nothing
Set myrequest = Nothing
Set myresponse = Nothing
Set myserver = Nothing
Set mysession = Nothing
End Sub

'以上语句是必须的。
'定义两个公有函数

Public Function datasource() As Variant
datasource = "driver={sql server};server=yang;uid=sa;pwd=; database=dcss"
End Function

编译生成dcss.dll文件。注册regsvr32 路径\dcss.dll。
用visual interdev打开global.asa文件.当然了，你也可以在其它文件中使用。
set dcss=server.CreateObject("yygwy.dcss")
oconn=dcss.datasource()
application("strconn")=oconn

在其它的页面中如下调用即可：
set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open application("strconn")

[wlboy110]

返回值是 T或者F

[wlboy110]

set v = Server.CreateObject('UserCheckDll.UserCheck')
调用方法：v.CheckPassword 用户名 密码
如果返回的是‘T’表示通过，否则表示未通过验证。

[yb2008]

楼主要给分我哦....

[wlboy110]

还么有看明白呢，那你看我这个应该怎么写呢？我只需要得到值F或者T

[chonboy]

Flag = v.CheckPassword(Uname,Upass)

调用的时候要用括号把参数括起来，多个参数用逗号分隔

[wlboy110]

正要说呢，成功啦！
多谢各位～～
加分给yb2008(努力学ASP.NET!!)

[wlboy110]

不知道为什么，
我在写了
set v = Server.CreateObject("UserCheckDll.UserCheck")
Flag = v.CheckPassword(Uname, Upass)
以后用Response.Write(Flag)显示不出来结果呢？

[wlboy110]

我用
<%
on error resume next
dim v,flag
set v = Server.CreateObject("UserCheckDll.UserCheck")
flag = v.CheckPassword(Uname, Upass)
set v = nothing
Response.Write Flag
Response.write "错误代码:"&err.number
%>

显示错误代码：-2147467259