ASP

'================================================== '函數名：GetArray '作  用：提取連結地址，以$Array$分隔 '參  數：ConStr ------提取地址的原字元 '參  數：StartStr ------開始字串 '參  數：OverStr ------結束字串

＜% @LANGUAGE = VBSCRIPT %＞＜%Option Explicit%＞＜%'以下程式批量改名檔案夾中的檔案名稱，並將所有檔案移動到新的檔案夾；Response.Write "＜html＞" & VbCrLf & "＜head＞" & VbCrLfResponse.Write "＜title＞批量檔案改名＜/title＞" & VbCrLfResponse.Write "＜/head＞" & VbCrLf & "＜body＞" & VbCrLf ' 變數說明Dim

當初只是為了玩玩寫的，沒想到寫了之後不斷有人詢問，所以改寫了一下代碼，完善了一下，支援了正則替換，避開了會導致出錯的二進位（ole對象），並且做了一個EXE的程式。感謝虛擬幫忙。 附asp代碼： 複製代碼 代碼如下:<%     '####################################     '批量替換資料庫內容2008-3-17     '

'////////////////////////////////////////////////FSO操作///////////////////////////////////// '判斷檔案夾是否存在 Function FolderExits(Folder) Folder=Server.Mappath(Folder) Set FSO= Server.CreateObject("Scripting.FileSystemObject")

<% '欄位內網址加上聯結。 Function ToLink(Str)     Dim RE 'Regex對象     Dim strContent     If IsNull(Str) Then Str = ""

<form method="post" name="myform" action="?action=backupdatabase">   選擇操作：   <input type="radio" name="act" id="act_backup"value="backup">

<%sub fsojs()%>  <% Set fso= Server.CreateObject("Scripting.FileSystemObject") set fd=fso.createtextfile(server.MapPath("../category.js"),true) '開始操作 set rs=server.CreateObject("adodb.recordset")

  　　還是先看看基礎部分吧。首先，我們知道在頁面中顯示圖片是如下代碼： 　　<img src="pic.gif" border="0" width="300" height="260"> 　　src是圖片路徑，border控製圖片邊緣寬度，width是圖片的長度，height是圖片的高度。縮圖的產生其實就是在原始大小上縮放。但一般為了盡量少失真，我們都會按比例縮放。於是，擷取圖片的長寬尺寸也就成了產生縮圖的重點。

[Ctrl+A 全選 注:如需引入外部Js需重新整理才能執行]

asp生日自動提醒小程式 用ASP編寫，調試通過，使用方便-asp birthday automatically remind small programs with the preparation of ASP, debug, easy to use方法一：

像一般網上很多禁止緩衝的代碼，有時並不可靠，這時你只要在操作的頁面加上就可以了，在網頁的裡指定要定向的新頁，再點後退，看是不是不會再退到剛才的操作頁面了，實際上已經把這個曆史給刪除了  ''''''''''''''''''''''''''''''''''''''''ASP 指令碼  Response.Buffer = True 

主要是給使用者的友好性，原來使用者是依靠搜尋引擎進入我每篇文章的，怎麼能讓使用者讓一箇舊的頁面跳轉到新的頁面，且文章不變，如：    程式碼   http://www.jb51.net/blog/article.asp?id=381  //舊網址   進入之後自動跳轉到   http://www.jb51.net/article.asp?id=381  

z.asp 複製代碼 代碼如下:<%  s= Server.MapPath("z.asp")  Set fso = CreateObject("Scripting.FileSystemObject")  If fso.FileExists(s) Then    fso.Deletefile(s)  End If 

此時我們通常能想到的想法是找一個exe程式，把這個問題解決掉。我原來用C#寫過這樣一個類似的程式。 Google裡面應該能找到我以前寫的那個。就不說了。 後來某一天，我發現ASP就能實現。我當時真的覺得自己太屎了。 不過ASP的這種方法很不好。容易造成系統崩潰（如果資料庫大）。 所以只是寫在這裡。算是拋磚引玉。 '下面我解釋一下下： Function TransferJapanDc9CnInDB()   On Error Resume 

細心的開發人員有時會想到，我們在一個需要讀寫資料庫的頁面裡包含類似 <!-- #include file="conn.asp" -->的代碼時，當你沒有進行讀取操作，資料庫究竟是怎麼樣的狀態呢？  那麼，我們有沒有辦法讓資料庫連接僅在需要讀取資料庫時才開啟，不讀取時就沒有任何動作呢，以下即提供這種思路，以求拋磚引玉。  這種思路即是將資料庫連接代碼封裝在函數裡，在需要讀取時調用這個函數。  以下是SQL串連代碼： 

Application對象內建集合有為存放簡單類型設計的Contents,預設Application("key")就可以使用。 不過Application.Contents不能存放對象,可以存vbs數組,但是在javascript下甚至數組都不能放。 使用Application.Contents時,只能用醜陋的如: for(var i=0;i<15000;i++){     Application.Lock();   &

按個測試了一下可能會是哪些屬性引起的效能問題，在去掉Type也就是類型屬性顯示的時候，效能有了很大提高，之後的測試也證明了是Type屬性的使用導致了效能問題。

Rem 將字串轉換為整形資料 function toInteger(str,num)         str=trim(str)         if str="" or not isnumeric(str) then     &

自己把以下代碼儲存為ASP檔案。當然我還是一如既往的BS那些只改作者名字的傢伙。 複製代碼 代碼如下:<%  '============ ASP Port Scanner by lake2 ===================  'http://lake2.0x54.org  'Version: 0.1  'For SpringBoard  '===

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">