封装ASP

1、打开Microsoft Visual Basic:

2、修改工程名和类模块的名称:

3、增加到引用asp：工程-->引用

4、编写代码：
在web.cls中输入
'#####################
Option Explicit

Private myContext As ScriptingContext
Private myApplication As Application
Private myResponse As Response
Private myRequest As Request
Private mySession As Session
Private myServer As Server

Public Sub OnStartPage(PassedScriptContext As ScriptingContext)
  Set myContext = PassedScriptContext
  Set myApplication = myContext.Application
  Set myResponse = myContext.Response
  Set myRequest = myContext.Request 
  Set mySession = myContext.Session
  Set myServer = myContext.Server
End Sub

'#########################
在VB中可以像在ASP中实现方法一样，如:
strName=myRequest.Form("name")
myResponse.Write ("Welcome! "&strName)
'######################### 

Public Sub Fun1()
  myResponse.Write "Fun1"
End Sub

Public Sub Fun2(para1 AS String)
  myResponse.Write para1&"<br />Fun2"
End Sub

Public Sub OnEndPage()
  Set myContext = Nothing
  Set myApplication = Nothing
  Set myResponse = Nothing
  Set myRequest = Nothing
  Set mySession = Nothing
  Set myServer = Nothing
End Sub

 

保存在d:\web\dll\web.cls
在把工程保存为d:\web\dll\sample.vbp

5、编译,注册成dll：

6、使用sample.dll：
在ASP中调用组建：
Set objRefer = Server.CreateObject("ProjectName.ClassName")

例如：
Set dll= Server.CreateObject("sample.web")
dll.Fun1
Response.Write "<hr />"
dll.Fun2("This is ")
Response.Write "<hr />"
Set dll = Nothing