教程(视频,书籍)下载:  ASP.NET AutoCAD 数据库 C# ASP java photoshop 网页设计 delphi 3dmax Flash C++ VB 张孝祥 实例   更多请进入BIBIDU搜索

   首先写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 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 Test_Number(num) As Variant 
If num < 0 Then Get_Number_Attrib = -1 
If num > 0 Then Get_Number_Attrib = 1 
If num = 0 Then Get_Number_Attrib = 0 
End Function
 

　　编译生成p_test.dll文件 

　　注册 

　　提示符下运行：regsvr32 p_test.dll 

　　编写php文件，test.php4代码如下： 

＜? 
$b=new COM("p_test.c_test"); 
$a=$b-＞Test_Number(-454); 
echo $a; 
?＞ 

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

Microsoft Active Server Pages Object Library  

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