asp調用dll及asp封裝dll實例
寫過一段時間的.net之后,再回過頭來看asp,其實asp也同樣可以像.net那樣把代碼進行封裝的,感覺其實很爽的.但.net就是.net優勢還是很明顯的了,所以如果有些朋友想更深入的學習的話,還是選擇.net.
不過今天還是把asp封裝的問題寫一寫,我想網上也有很多這方面的文章,但在這里還是給大家寫一個比較簡單和實用的出來,便于大家上手,可能有些朋友特別是一些剛學這方面的朋友有所幫助,當然首頁要準備的最重要的是vb工具了我用vb6.0
啟動你的VB,選擇ActiveX圖標.這個圖標可以在新建工程找到!VB會提供一個默認的工程名(project1)和類名(class1).我們會將這兩個名字都改掉.在改名之前,請首先確認我們擁有Microsoft Active Server Pages Object Library,它在我們的程序非常有用.從菜單中選擇"工程",然后在其中選擇"引用",就會出現"引用"窗口
從中選擇Microsoft Active Server Pages Object Library.
首先在vb中建一個類文件:工程名:exp
代碼:
Dim MyApplication As Application
Dim MyRequest As Request
Dim MyResponse As Response
Dim MyServer As Server
Dim 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 Sub hellow()
MyResponse.Write ("Hello World")
End Sub
Public Sub google()
MyResponse.Write ("ssssssssssss")
End Sub
說明:ScriptingContext傳送給我們的對象請我們使用.這個ScriptingContext包括了全部的ASP方法和屬性.實現上,這使得我們有能力訪問所有ASP的對象
當然這里還有一步就是生成exp.dll文件了,生成之后就可以用 regsvr32 d:/vb-asp/exp.dll 注冊了.(很生要)
asp頁面:
<%@ Language=VBScript%>
<HTML>
<HEAD>
<TITLE>Example 1</TITLE>
</HEAD> <BODY>
<%
dim Obj
Set Obj = Server.CreateObject("exp.aspdll")
Obj.hellow
response.write("<br>")
Obj.google
%>
</BODY>
</HTML>
說明:
Set Obj = Server.CreateObject("exp.aspdll") 其中,exp為工程名,aspdll為類名.Set Obj = Server.CreateObject("工程名.類名稱")
測試通過.
===========================================================
對于更復雜的運用,大家可以通過這個實例向外擴展就可以了.
如:
Public Sub connstr2()
Set conn = MyServer.CreateObject("ADODB.Connection")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & MyServer.MapPath("codata.mdb")
Set rs = conn.Execute("select * from news")
Do While Not rs.EOF
MyResponse.Write (rs("news_title") & "<br>")
rs.MoveNext
Loop
rs.Close
Set conn = Nothing
End Sub
這個是用數據庫連接的代碼封裝,當然這里要添加ADO引用的
文章出處：飛諾網(www.firnow.com):http://dev.firnow.com/course/4_webprogram/asp/aso_js/20071226/94440_2.html