首先写ActiveX Dll：

　　新建一个VB6工程，ActiveX Dll将工程命名为P_test,类名为c_test ，类的文件内容如下：

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 _disibledevent=$b-＞Test_Number(-454);
echo $a;
?＞

　　可能遇到的问题是，编译工程时通不过，要将

Microsoft Active Server Pages Object Library

　　引用进来，具体实现\"Project->References\"找到改库，并勾上 。