<rp id="li4po"><acronym id="li4po"></acronym></rp>
<dd id="li4po"><track id="li4po"></track></dd><dd id="li4po"><big id="li4po"></big></dd>
<li id="li4po"><acronym id="li4po"><menuitem id="li4po"></menuitem></acronym></li>
<dd id="li4po"></dd>
<li id="li4po"></li>

  • <th id="li4po"><pre id="li4po"><sup id="li4po"></sup></pre></th>
    余志國網站設計工作室是專業從事義烏網站建設、義烏外貿網站建設、義烏網站制作、義烏網站設計的專業義烏網站建設工作室,是義烏外貿網站建設專家!

    VB6將ASP編譯封裝成DLL教程

    分類:網頁設計 Tags: asp dll 評論:0 瀏覽:3404 最近更新時間:2014/9/27 23:08:21

    大家如果對ASP熟悉的話,就知道ASP最大的缺陷就是不能保證代碼的安全性,如果源代碼一旦泄露,后果將不堪設想。在這里呢,向大家推薦一個辦法,就是用VB6.0將asp封裝dll文件.dll文件是比較安全的,而且運行速度比asp快那么一點。具體步驟如下:


    1、新建DLL
    打開VB6-->文件-->新建工程-->選擇ActiveX DLL-->打開



    2、將默認工程、類重命名
    工程重命名:工程-->工程1 屬性(此名稱對應窗體內工程項目名稱)-->在打開對話框中將“工程名稱”重命名為yuzhiguo(當DLL組件在系統中注冊后,在asp中默認的調用方法是“工程名.類名”)-->確定


    類重命名在屬性窗口中將名稱重命名為demo

    2個修改后如下圖


    3、增加到引用asp


    點擊工程——引用,然后選擇其中的Microsoft Active Server Pages Object Library,還有引用Microsoft VBScript Regular Expressions 5.5(RegExp正則表達式對象)


    4、編寫代碼

    Option Explicit
    Private Context As ScriptingContext
    Private Application As Application
    Private Response As Response
    Private Request As Request
    Private Session As Session
    Private Server As Server
    Public Sub OnStartPage(PassedscriptContext As ScriptingContext)
    Set Context = PassedscriptContext
    Set Application = Context.Application
    Set Request = Context.Request
    Set Response = Context.Response
    Set Server = Context.Server
    Set Session = Context.Session
    End Sub
    
    Public Sub hello()
    Response.Write "歡迎訪問余志國網站設計工作室!"
    End Sub
    
    Public Sub OnEndPage()
    Set Application = Nothing
    Set Request = Nothing
    Set Response = Nothing
    Set Server = Nothing
    Set Session = Nothing
    Set Context = Nothing
    End Sub


    5、保存工程文件

    6、編譯生成dll


    如果沒有錯誤提示的話說明編譯成功,如果遇到訪問注冊表錯誤,是vb6沒有管理員權限運行,右鍵使用管理員權限運行vb6就可以了。


    7、注冊dll

    在yuzhiguo.dll組件所在目錄創建“注冊.bat”批處理文件,輸入: 

    iisreset/stop 
    regsvr32/s yuzhiguo.dll 
    iisreset/start


    “卸載.bat”批處理文件,輸入: 

    iisreset/stop 
    regsvr32 /u /s yuzhiguo.dll 
    iisreset/start


    雙擊運行注冊.bat,成功注冊會提示:“yuzhiguo.dll 中的 Dll Register Server 成功?!?nbsp;


    8、asp中調用dll

    新建test.asp文件,輸入代碼:

    <%
    Dim yuzhiguo
    Set yuzhiguo=Server.CreateObject("yuzhiguo.demo")
    yuzhiguo.hello()
    %>

    訪問test.asp結果會輸出:

    歡迎訪問余志國網站設計工作室!


    如果你電腦還沒有安裝vb6,可以點此下載。

    本文地址:http://www.d2ksoft.com/548/
    • 相關文章
    • 推薦文章
    • 最新文章
    發表評論





    您的IP:50.118.221.130,來自:美國

    留言

     


    免費咨詢
    建站咨詢熱線
    15967985565

    掃一掃微信咨詢
    QQ: 358758308 Skype: yuzhiguo Facebook: yuzhiguo Email
    欧美日本免费无码永久,九九视频在线观看视频6,国产无套视频在线观看,亚洲高清在线精品一区