日韩欧美亚州-日韩欧美亚洲国产-日韩欧美亚洲国产高清在线-日韩欧美亚洲精品-色135综合网-色91在线

北京北大青鳥(niǎo)校區(qū):如何把ASP編寫成DLL (2)

接北京北大青鳥(niǎo)校區(qū)提供的上篇文章:

如何把ASP編寫成DLL (1)

怎樣使用工程和類
  
現(xiàn)在我們有了我們自己的工程(Example1)和類名(HelloWorld).以后我們就會(huì)在ASP代碼中使用它們的名字來(lái)引用這個(gè)組件.在ASP中我們就這樣引用,如下:
  
Set ObjReference = Server.CreateObject(ProjectName.ClassName)
  
對(duì)于我們工程的引用就是:
Set ObjReference = Server.CreateObject(Example1.HelloWorld)
現(xiàn)在我們就能用ObjReference來(lái)調(diào)用我們?cè)诮M件中所創(chuàng)建的函數(shù),子程序.下面我們會(huì)來(lái)寫一個(gè)   SayHello的子程序, 我們執(zhí)行它的代碼如下: (北京北大青鳥(niǎo)校區(qū)
  
  〈%
  Set ObjReference = Server.CreateObject(Example1.HelloWorld)
  ObjReference.SayHello
  %>
  
為了在Helloword類中使用ASP的方法,你必須在此類中寫一個(gè)OnStartPage
子函數(shù).如下:
  
  Public Sub OnStartPage(PassedScriptingContext As ScriptingContext)
  Set MyScriptingContext = PassedScriptingContext
  End Sub
現(xiàn)在,無(wú)論什么時(shí)候用戶訪問(wèn)一個(gè)帶有本組件的ASP文件,IIS就會(huì)把ScriptingContext傳送給我們的對(duì)象請(qǐng)我們使用.這個(gè)ScriptingContext包括了全部的ASP方法和屬性.實(shí)現(xiàn)上,這使得我們有能力訪問(wèn)所有ASP的對(duì)象.看下面的代碼: (北京北大青鳥(niǎo)校區(qū)
  
  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
  
以后我們就能用在VB中用MyApplication 來(lái)代替ASP中的Application,同理可以代替Request,Server.....,不過(guò)我們來(lái)是要在 OnStartPage之前來(lái)申明這些變量:
  
  Private MyScriptingContext As ScriptingContext
  Private MyApplication As Application
  Private MyRequest As Request
  Private MyResponse As Response
  Private MyServer As Server
  Private MySession As Session
  
使用ASP的對(duì)象
我們的變量現(xiàn)在就能像標(biāo)準(zhǔn)的ASP對(duì)象來(lái)使用了!比如,我們經(jīng)常在ASP中用Request.form()來(lái)收集提交表單的數(shù)據(jù).現(xiàn)在我們?cè)谖覀兊腣B中實(shí)現(xiàn)這個(gè)功能,代碼如下:
  
  用ASP中實(shí)現(xiàn):
  〈%
  MyTempVariable = Request.Form(userName)
  Response.Write (you entered & MyTempVariable & as your user name)
  %>
  
  在VB中實(shí)現(xiàn):
  
  MyTempVariable = MyRequest.Form(userName)
  MyResponse.Write (you entered & MyTempVariable & as your user name)
  
  通過(guò)使用MyResponse來(lái)代替Response,我們能夠使用所有Response的方法,當(dāng)然,MyResponse這個(gè)名字可以隨便來(lái)取,你甚至可以就取Response. (北京北大青鳥(niǎo)校區(qū)提供)

北大青鳥(niǎo)網(wǎng)上報(bào)名
北大青鳥(niǎo)招生簡(jiǎn)章
主站蜘蛛池模板: 国产午夜精品理论片在线| 精品在线视频免费观看| 毛片在线全部免费观看| 91亚洲在线| 免费国产一级特黄久久| 国产成人精品一区二区| 亚洲不卡视频在线观看| 国产专区一va亚洲v天堂| 泰国情欲片寂寞的寡妇在线观看 | 天天狠操| 国产a不卡| 毛片免费永久不卡视频观看| 国产99视频精品免费视频免里| 五月天婷婷伊人| 成年女人免费视频播放成年m| 免费一级欧美大片视频在线| 国产成人精品亚洲一区| 日本国产欧美色综合| 在线看片中文字幕| 久草免费在线观看| 亚洲一区二区三区免费看| 国产一区二区在线视频| 欧美激情性色生活片在线观看 | 国产99久久亚洲综合精品| 日韩在线一区二区三区免费视频| www夜色| 九九久久精品这里久久网| 亚洲视频欧美视频| 成年免费观看| 精品国产免费第一区二区三区日韩| 亚洲精品无码不卡在线播放he| 成人永久免费视频| 九九成人免费视频| 亚洲国产精品线在线观看| 成人在线免费播放| 久久99精品国产免费观看| 视频一区视频二区在线观看| 一级做a| 大狠狠大臿蕉香蕉大视频| 美女黄频免费看| 久久综合精品国产一区二区三区无|