推薦：利用ASP規劃聊天室
經 常 在Internet 上 沖 浪 的 網 友 恐 怕 很 少 有 人 沒 有 去 過 聊 天 室 胡亂神聊。 你 只 要 稍 微 留 意 一 下 就會 發 現 這 些 聊 天 室 大 多 是 用CGI 程 序 或 者 用java 開 發 的 Applet 維 護 的。 開 發 過 這 類CGI 或Applet 的 程 序 員 都 知 道，

 　　我們先來看一看 Replace 的詳細參數

　　描述

　　返回字符串，其中指定數目的某子字符串被替換為另一個子字符串。

　　語法

　　Replace(expression, find, replacewith[, compare[, count[, start]]])

　　Replace 函數的語法有以下參數：

　　參數 描述

　　expression 必選項。 字符串表達式 包含要替代的子字符串。

　　find 必選項。被搜索的子字符串。

　　replacewith 必選項。用于替換的子字符串。

　　start 可選項。expression 中開始搜索子字符串的位置。如果省略，默認值為 1。在和count 關聯時必須用

　　count 可選項。執行子字符串替換的數目。如果省略，默認值為 -1，表示進行所有可能的替換。在和 start 關聯時必須用。

　　compare 可選項。指示在計算子字符串時使用的比較類型的數值。有關數值，請參閱“設置”部分。如果省略,缺省值為 0 ,這意味著必須進行二進制比較。

　　設置

　　compare 參數可以有以下值：

　　常數 值 描述

　　vbBinaryCompare 0 執行二進制比較。

　　vbTextCompare 1 執行文本比較。

　　返回值

　　Replace 返回以下值：

　　如果 Replace 返回

　　expression 為零長度 零長度字符串 ("")。

　　expression 為 Null 錯誤。

　　find 為零長度 expression 的副本。

　　replacewith 為零長度 expression 的副本，其中刪除了所有由 find 參數指定的內容。

　　start > Len(expression) 零長度字符串。

　　count 為 0 expression 的副本。

　　說明

　　Replace 函數的返回值是經過替換(從由 start 指定的位置開始到 expression 字符串的結尾)后的字符串，而不是原始字符串從開始至結尾的副本。

　　下面的示例利用 Replace 函數返回字符串:

　　復制代碼 代碼如下:

　　Dim MyString

　　MyString = Replace("XXpXXPXXp", "p", "Y") '二進制比較從字符串左端開始。返回 "XXYXXPXXY"。

　　MyString = Replace("XXpXXPXXp", "p", "Y", '文本比較從第三個字符開始。返回 "YXXYXXY"。3，, -1, 1)

　　方法一： 直接用ASP自帶函數replace 這也是最簡單的方法

　　title=replace(title,"DF","SD",1,-1,1)

　　replace函數參數詳解:

　　參數1：源字符串

　　參數2：要被替換的字符

　　參數3：新的字符。，既，要將源字符串中的某些字符，替換成新指定的字符

　　參數4：值為1.指定從第一個字符開始搜索該字符串

　　參數5：值為-1 指定每一個子串都要被替換

　　參數6：值為1 指定字符串的比較不區分大小寫。

　　(高亮顯示關鍵字)的兩個函數

　　方法2：用正則不區分大小寫替換指定字符

　　以下是函數源代碼：

　　復制代碼 代碼如下:

　　'//函數：字符串替換

　　'//參數：正則表達式,被替換字符串,替換字符串

　　Public Function ReplaceTest(patrn, mStr, replStr)

　　Dim regEx

　　Set regEx = New RegExp

　　regEx.Pattern = patrn

　　regEx.IgnoreCase = True

　　regEx.Global = True

　　ReplaceTest = regEx.Replace(mStr, replStr)

　　Set regEx = Nothing

　　End Function

分享：用ASP進行網絡打印的功能
%@ Language=VBScript % % Option Explicit Dim strSubmit 'Form中用來保存提交按鈕的值 Dim strPRinterPath 'Form中保存網絡打印機路徑的值 Dim strUsername 'Form中用戶名的值 Dim strPassWord 'Form中密碼的值 Dim strMessage 'Form打印內容的值 Dim objFS 'VBScrip