先用VB编写一端连接数据库的程序!编译成 .dll(假定为ConnectDB.dll,其中有一连接数据库函数connect()和操作数据库函数operate())
在MTS(Microsoft Transaction Server)中添加包(假定为Test)
再在asp中写上如下代码
<%
dim testProxy
dim returnValue
set testProxy=Server.CreateObject("Test.ConnectDB")
testProxy.connect
.....
returnValue=testProxy.operate(Parament)
........%>
之后就可使用返回值returnValue
在MTS(Microsoft Transaction Server)中添加包(假定为Test)
再在asp中写上如下代码
<%
dim testProxy
dim returnValue
set testProxy=Server.CreateObject("Test.ConnectDB")
testProxy.connect
.....
returnValue=testProxy.operate(Parament)
........%>
之后就可使用返回值returnValue
如果是一堆数据,最好用Scripting.Dictionary传
在主程序中定义一个Varaint 类型的数据来接收,不过要用ByVal
还要引用scrrun.dll