推薦：利用ASP規(guī)劃聊天室
經(jīng) 常 在Internet 上 沖 浪 的 網(wǎng) 友 恐 怕 很 少 有 人 沒(méi) 有 去 過(guò) 聊 天 室 胡亂神聊。 你 只 要 稍 微 留 意 一 下 就會(huì) 發(fā) 現(xiàn) 這 些 聊 天 室 大 多 是 用CGI 程 序 或 者 用java 開(kāi) 發(fā) 的 Applet 維 護(hù) 的。 開(kāi) 發(fā) 過(guò) 這 類CGI 或Applet 的 程 序 員 都 知 道，

 　　我們先來(lái)看一看 Replace 的詳細(xì)參數(shù)

　　描述

　　返回字符串，其中指定數(shù)目的某子字符串被替換為另一個(gè)子字符串。

　　語(yǔ)法

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

　　Replace 函數(shù)的語(yǔ)法有以下參數(shù)：

　　參數(shù) 描述

　　expression 必選項(xiàng)。 字符串表達(dá)式 包含要替代的子字符串。

　　find 必選項(xiàng)。被搜索的子字符串。

　　replacewith 必選項(xiàng)。用于替換的子字符串。

　　start 可選項(xiàng)。expression 中開(kāi)始搜索子字符串的位置。如果省略，默認(rèn)值為 1。在和count 關(guān)聯(lián)時(shí)必須用

　　count 可選項(xiàng)。執(zhí)行子字符串替換的數(shù)目。如果省略，默認(rèn)值為 -1，表示進(jìn)行所有可能的替換。在和 start 關(guān)聯(lián)時(shí)必須用。

　　compare 可選項(xiàng)。指示在計(jì)算子字符串時(shí)使用的比較類型的數(shù)值。有關(guān)數(shù)值，請(qǐng)參閱“設(shè)置”部分。如果省略,缺省值為 0 ,這意味著必須進(jìn)行二進(jìn)制比較。

　　設(shè)置

　　compare 參數(shù)可以有以下值：

　　常數(shù) 值 描述

　　vbBinaryCompare 0 執(zhí)行二進(jìn)制比較。

　　vbTextCompare 1 執(zhí)行文本比較。

　　返回值

　　Replace 返回以下值：

　　如果 Replace 返回

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

　　expression 為 Null 錯(cuò)誤。

　　find 為零長(zhǎng)度 expression 的副本。

　　replacewith 為零長(zhǎng)度 expression 的副本，其中刪除了所有由 find 參數(shù)指定的內(nèi)容。

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

　　count 為 0 expression 的副本。

　　說(shuō)明

　　Replace 函數(shù)的返回值是經(jīng)過(guò)替換(從由 start 指定的位置開(kāi)始到 expression 字符串的結(jié)尾)后的字符串，而不是原始字符串從開(kāi)始至結(jié)尾的副本。

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

　　復(fù)制代碼 代碼如下:

　　Dim MyString

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

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

　　方法一： 直接用ASP自帶函數(shù)replace 這也是最簡(jiǎn)單的方法

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

　　replace函數(shù)參數(shù)詳解:

　　參數(shù)1：源字符串

　　參數(shù)2：要被替換的字符

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

　　參數(shù)4：值為1.指定從第一個(gè)字符開(kāi)始搜索該字符串

　　參數(shù)5：值為-1 指定每一個(gè)子串都要被替換

　　參數(shù)6：值為1 指定字符串的比較不區(qū)分大小寫(xiě)。

　　(高亮顯示關(guān)鍵字)的兩個(gè)函數(shù)

　　方法2：用正則不區(qū)分大小寫(xiě)替換指定字符

　　以下是函數(shù)源代碼：

　　復(fù)制代碼 代碼如下:

　　'//函數(shù)：字符串替換

　　'//參數(shù)：正則表達(dá)式,被替換字符串,替換字符串

　　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進(jìn)行網(wǎng)絡(luò)打印的功能
%@ Language=VBScript % % Option Explicit Dim strSubmit 'Form中用來(lái)保存提交按鈕的值 Dim strPRinterPath 'Form中保存網(wǎng)絡(luò)打印機(jī)路徑的值 Dim strUsername 'Form中用戶名的值 Dim strPassWord 'Form中密碼的值 Dim strMessage 'Form打印內(nèi)容的值 Dim objFS 'VBScrip