|
使用ActiveX DLL來保護你的 代碼 。（既可以不用為使用共享的加密 軟件 而發愁， 更重要的是可以自己來頂制加密方法了，享受一下“一切盡在掌握之中”的感覺。 同時也為了讓大家都自己動手來做出自己的組件來。） ActiveX DLLs是被編譯過的機器 代碼 ，如果沒有源項目文件的話是不能夠被編譯的。 這個 技術 使得 開發 者有可能 開發 出公共的自動化 程序 ，并且把它們作為shareware版本的 程序 發布 這個大家在china asp 中銷售的一些組件中就可以看到這個 技術 的運用。 如果你想保護你的 ASP 中的一些 代碼 的安全，例如你不想讓別人看見你是使用什么連接到 數據庫 的，或者不想讓別人看到你的某個比較重要的函數是怎么完成的，或者某個重要的 流程（cAkk可以參閱），你就可以通過不斷的 開發 你自己的組件，這可是個dll文件，就是別人得到了 這個dll文件，一時半會也根本不能夠得到你要保護的重要信息。而且你自己 開發 的這些組件 給你的 程序 帶來了源源不斷的新功能。 下面就舉一個很常用的，大家都很關心的有關如何保密打開 數據庫 的過程的例子。 例子很簡單，就是在一個下拉框中顯示 數據庫 中某個字段的 內容 。 整個過程如下： 1。新建一個 VB 6的ActiveX DLL項目 2。在屬性窗口中，命名你的庫模塊和項目文件。例子中為keiths_lookup項目名和lookup模塊名. 這寫名字是你在 ASP 中將引用到的dll函數名（在 ASP 中的對象名將為keiths_lookup.lookup）。 3.將項目和庫模塊使用同樣的名字存盤（當然了，后綴是不能夠一樣的哦）。 4。從 VB 6中的項目菜單中選擇References .然后選中Microsoft ActiveX data objects 2.0 library, Microsoft ActiveX Data Objects Recordset 2.0 library. 文件的 代碼 如下： Public Function html_combo(comboname As String, Lookup_field As String) As String Dim outstring As String Dim conn As ADODB.Connection Dim rst As ADODB.Recordset Dim sqlstring As String Set conn = CreateObject("ADODB.Connection") Set rst = CreateObject("ADODB.Recordset") '下面這些 數據庫 中的字段名只是為這個例子設的，你完全可以根據自己的需要修改 代碼 Sqlstring = "SELECT [Lookup_Description],[Lookup_Key] FROM _ [Lookup_Table] WHERE [Lookup_Field] = '" & Lookup_Field & "'" '在這可輸入你連接 數據庫 的用戶名和密碼，現在就算客戶端看見了 ASP 源 代碼 '他也不可能知道你使用的是什么密碼了，呵呵 conn.Open "DSN=Sumnet;UID=;PWD=.;" rst.Open sqlstring, conn, 3, 3 If Not rst.EOF Then rst.MoveFirst outstring = "<Select name='" & comboname & "'>" Do While Not rst.EOF outstring = outstring & "<Option Value='" & rst.Fields("lookup_key") & "'>" & _ rst.Fields("lookup_description") & "</Option> " rst.MoveNext Loop End If outstring = outstring & "</Select>" html_combo = outstring rst.Close conn.Close End Function 代碼 結束，呵呵，基本上沒什么 技術 難點把，現在保存你的項目并且開始編譯工作。 1。打開Visual Studio 6中帶的Package Deployment Wizard 程序 。 2。選擇你剛才建立的ActiveX項目文件。 3。選擇Package 4。選擇你要打包的腳本或使用默認腳本 5。選擇標準 安裝 6。選擇一個放置你 安裝 文件的目錄 7。選擇single cab. 8。其他均默認，然后單擊下一步 9。現在 安裝 程序 完成后，把它拿到你的IIS服務器上 安裝 把。 下面給出如何調用你自己做的這個組件的 代碼 ： <%@ Language=" VB SCRIPT" %> <% Set look = Server.CreateObject("keiths_lookup.lookup") %> <HTML> <BODY> <%=look.html_combo("State","States")%> <BR> <%=look.html_combo("Position","Positions")%> <BR> <%=look.html_combo("Age_group","Age_Groups")%> </BODY> </HTML> 你看， asp 如此的簡單，誰看見了源文件你都不用擔心了，可以看到， 使用ActiveX DLL 技術 可以很好的保護你的重要的 代碼 ，你需要安全的部分， 但我可不希望以后大家都牢牢地看住自己的 代碼 不愿意公開了，畢竟 國內的 軟件 行業還遠遠落后，需要大家齊心協力才能夠一起進步呀。 |
更多文章、技術交流、商務合作、聯系博主
微信掃碼或搜索：z360901061
微信掃一掃加我為好友
QQ號聯系： 360901061
您的支持是博主寫作最大的動力，如果您喜歡我的文章，感覺我的文章對您有幫助，請用微信掃描下面二維碼支持博主2元、5元、10元、20元等您想捐的金額吧，狠狠點擊下面給點支持吧，站長非常感激您！手機微信長按不能支付解決辦法：請將微信支付二維碼保存到相冊，切換到微信，然后點擊微信右上角掃一掃功能，選擇支付二維碼完成支付。
【本文對您有幫助就好】元
