ASP

本文通過VB5.0建立ActiveX DLL檔案，這個檔案類比了一個擲色子的過程,向大家介紹如何在ASP中調用DLL的文章專題。 動態聯結庫(DLL)是加快應用程式關鍵區段的執行速度的重要方法，但有一點恐怕大部分人都不知道，那就是在ASP檔案也能通過調用DLL來加快伺服器的執行速度，下面我簡單的介紹一下在ASP檔案調用DLL的步驟。  　　首先，必須得有DLL檔案，本例是通過VB5.0建立ActiveX DLL檔案，這個檔案類比了一個擲色子的過程。 

實驗目的:驗證主動釋放記憶體變數是否有價值. 實驗原始代碼: <script language=vbscript runat=server> Dim temp1,temp2 'temp1 = space(1024*1024*50) '50MB for i = 0 to 5000000 ' 延遲 next 'temp1="" '開關變數 'temp2 = space(1024*1024*50) '50MB for i = 0 to 5000000 ' 延遲 next Response.

複製代碼 代碼如下:<%@LANGUAGE="JAVASCRIPT"%> <title>Google PR值查詢　asp程式</title> <% function hexdec(str) { return parseInt(str,16); } function zeroFill(a,b) { var z = hexdec(80000000); if (z & a) { a = a>>1; a &= ~z; a |= 0x40000000;

複製代碼 代碼如下: '排序 Function Sort1(ary) Dim KeepChecking,I,FirstValue,SecondValue KeepChecking = TRUE Do Until KeepChecking = FALSE KeepChecking = FALSE For I = 0 to UBound(ary) If I = UBound(ary) Then Exit For If ary(I) > ary(I+1) Then FirstValue =

有三種主要的錯誤類型： １．編譯錯誤： 這種錯誤出現一般都是代碼的文法問題。因為編譯錯誤而導致辭ASP停止運行。 ２．運行錯誤： 這個錯誤是發生在你準備運行ASP時的。例如：如果你試圖給一個變數賦值，但是卻超出了該變數允許的範圍。 ３．邏輯錯誤： 邏輯錯誤是最難被發現的，這種錯誤經常是一種結構錯誤，電腦是發現不了的。這就需要我們徹頭徹尾地檢查我們的代碼。

複製代碼 代碼如下: <!-- #include file="../conn.asp" --> <!-- #include file="../cls_main.asp" --> <html> <head> <meta http-equiv="Content-Language" content="zh-cn"> <meta http-equiv="Content-Type" content="text/html;

複製代碼 代碼如下: public function fillzero(l1) if len(l1)=1 then fillzero="0"&l1 else fillzero=l1 end if end function 用法樣本： 複製代碼 代碼如下: response year(now)&month(now)&day(now) 結果:201116 response year(now)&fillzero(month(now))&fillzero(day(now)) 顯示結果:20110106

複製代碼

發現好多asp的系統在調用文章的時候如果不產生靜態,輸出的都是類似 http://www.xxx.com/show.asp?id=26 這種格式的. 如果可以換成 http://www.xxx.com/show/?26 這種格式,感覺清減了不少,當然對於支援偽靜態空間 還可以設定成 http://www.xxx.com/show/26 據說著楊可以增加搜尋引擎收錄的幾率. 代碼如下:

複製代碼 代碼如下:<% '建立檔案夾函數 Function CreateFolder(strFolder)'參數為相對路徑     '首選判斷要建立的檔案夾是否已經存在     Dim strTestFolder,objFSO     strTestFolder = Server.Mappath(strFolder)  

複製代碼 代碼如下:<% '==============================================================檢查提交資料合法性 Function CheckInput()  '--------定義部份------------------  Dim Fy_Post,Fy_Get,Fy_In,Fy_Inf,Fy_Xh,Fy_db,Fy_dbstr,Kill_IP,WriteSql

複製代碼 代碼如下:一 遍曆Request 方式1: <% For Each r In Request.QueryString  Response.Write "Request("""&r&""") = " & Request(r)  Response.Write "<p>" Next %> 方式2: <%

1. CDONTS.NewMail 組件使用說明   Set MailObject = Server.CreateObject("CDONTS.NewMail")   MailObject.From = "發信郵箱"   MailObject.To = "收信郵箱"

複製代碼 代碼如下:<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <% if Trim(Request.Form("TableName")) '----設定 開啟資料庫連接 dbs="Data Source="+server.mappath("database.mdb")+";Provider=Microsoft.Jet.OLEDB.4.0;"

提起asp很多人就認為是一堆html指令碼和被括在<%和%>之中的一些代碼還有就是一些javascript指令碼等籌在一起的一些代碼的集合，這樣的代碼，再加上各類的不同格式的注釋，看起來就一個字：亂。也不管別人能不能看得懂，只要是能實現自己的目的就可以了，因為asp的代碼也是指令碼，給了客戶也不可能不被人看到其中的內容，經多包容在dll中一部分商務邏輯，但是還是覺得asp代碼是最不值錢的代碼，沒有人回去購買，可以隨時從別人的網站中查看源碼的形式得到別人辛辛苦苦編寫出來的獨特風格的東東

數組的定義 Dim MyArray MyArray = Array(1,5,123,12,98) 可擴充數組 Dim MyArray() for i = 0 to 10 ReDim Preserve MyArray(i) MyArray(i)=i next 將一個字串分割並返回分割結果的數組 Dim MyArray

============================================================= '       感謝您使用ASP001工作室開發的實用函數程式 '               HTTP://WWW.ASP001.NET '=======

============================================================= '       感謝您使用ASP001工作室開發的實用函數程式 '               HTTP://WWW.ASP001.NET '=======

複製代碼 代碼如下:<% '\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ '\\ '\\ 1. c:\windows\system32\cmd.exe '\\ 拷貝把本檔案所在的路徑 '\\ '\\ 2. 把 c:\program\winrar\rar.exe '\\ 拷貝把本檔案所在的路徑 並改名為WinRAR.exe '\\ '\\\

其實做這個的原理是很簡單的，只是我們當時沒有仔細的去想想該怎麼實現，我這裡用的是xmlhttp來實現的，當然還有其它的辦法，我就不多說了。 現在看論壇上很多都是要一些“完整的代碼”，看了之後真的是....汗-_-!  a.html 複製代碼 代碼如下:<?xml version="1.0" encoding="UTF-8"?>  <!DOCTYPE HTML PUBLIC "-//W3C//DTD&