如何调用DLL来加快服务器的执行速度？.doc

如何调用DLL来加快服务器的执行速度并双击新建工程窗口中ActiveX DLL图标，VB将自动为项目添加一个类模块，并将该项目类型设置为ActiveX DLL。在属性窗口将类模块的名称属性改为clsDice。从工程菜单中选择工程属性，将工程名称改为MyDLL。从文件菜单中选择保存clsDice，将类模块保存为myDice.cls添加以下代码：Option ExplicitPrivate Max, Point As IntegerPublic Property Get Result() As IntegerResult = PointEnd PropertyPublic Property Get Maxpoint() As IntegerMaxpoint = MaxEnd PropertyPublic Property Let Maxpoint(num As Integer)Max = numEnd PropertyPublic Sub Throw()RandomizePoint = Int(Rnd * Max) + 1End SubPrivate Sub Class_Initialize()Max = 6End Sub这个类模块定义了clsDice对象的两个属性和一个方法，这些属性和方法模拟了掷色子的过程。其中Maxpoint属性表示色子的面数，加入Property Let语句修改色子的面数；Result属性表示最后掷出色子的点数；Throw方法代表掷色子的动作；Private Sub Class_Initialize语句将色子的面数缺省的设置为6面。　　从文件菜单中选择生成并保存。引用类clsDiceice.asp 使用CreateObject函数创建clsDice对象实例ActiveX.DLL--MYDLL.DLL文件!--METADATA TYPE=typelib FILE=Path/mydll.dll --  Path是mydll.dll在机器上存放的路径 htmlhead titleDLL文件/title /headbody%On Error Resume Next ＂赦免＂程序错误If Request.Form(T1)= thenSession(point) = 6Else Session(point)=Request.Form(T1)End If用Session(point)来存放色子面数Set dice1=Server.Createobject(MyDLL.clsDice)使用set语句创建dice1对象其中MyDLL是上面创建dll文件时的工程名clsDice为类模块的名称If Request.ServerVariables(Request_Method)=POST thendice1.Maxpoint = Session(point) 设定色子的面数 dice1.Throw 掷色子%form method=POST action=dice.aspp当色子的面数为input type=text name=T1 size=5 value=% = session(point) %时/ppinput type=submit value=掷色子 name=B1/p/formp结果% = dice1.Result %点 /p 返回结果%Else dice1.Maxpoint = Session(point) %form method=POST action=dice.aspp当色子的面数为input type=text name=T1 size=5 value=% = session(point) %时/ppinput type=submit value=掷色子 name=B1/p/form%End If%/body