|

动画中的原代码如下:
[U]复制代码[/U] 代码如下:
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
您可能感兴趣的文章:用PHP动态创建Flash动画PHP+javascript模拟Matrix画面用PHP 快速生成 Flash 动画的方法PHP生成Flash动画的实现代码完美实现GIF动画缩略图的php代码PHP之生成GIF动画的实现方法在PHP上显示JFreechart画的统计图方法php调整gif动画图片尺寸示例代码分享php 获取SWF动画截图示例代码纯PHP生成的一个树叶图片画图例子php判断GIF图片是否为动画的方法php画图实例
|
|