php调用dll的实例操作动画与代码分享

　　VERSION 1.0 CLASS

　　BEGIN

　　MultiUse = -1 'True

　　Persistable = 0 'NotPersistable

　　DataBindingBehavior = 0 'vbNone

　　DataSourceBehavior = 0 'vbNone

　　MTSTransactionMode = 0 'NotAnMTSObject

　　END

　　Attribute VB_Name = "tw"

　　Attribute VB_GlobalNameSpace = False

　　Attribute VB_Creatable = True

　　Attribute VB_PredeclaredId = False

　　Attribute VB_Exposed = True

　　Option Explicit

　　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 UserOut(User) As Variant

　　UserOut = User

　　End Function