Split 程序代碼
attribs="商場(chǎng)名^^快(kuài)餐店(diàn)名^^報停名"
names=Split(attribs,"^^")
i=0
for each name in names
response.write names(i)&"
"
i=i+1
next
程序拆分(fēn)結果：
商場(chǎng)名
快(kuài)餐店(diàn)名
報停名
根據 Split 結果生成 SQL 語句
attribs="商場(chǎng)名^^快(kuài)餐店(diàn)名^^報停名"
names=Split(attribs,"^^")
i=0
sql="select top 10 * from TableName where"
for each name in names
if names(i)="商場(chǎng)名" then
sql=sql+" or 商場(chǎng) like '%"&names(i)&"%'"
end if
if names(i)="快(kuài)餐店(diàn)名" then
sql=sql+" or 快(kuài)餐店(diàn) like '%"&names(i)&"%'"
end if
if names(i)="報停名" then
sql=sql+" or 快(kuài)餐店(diàn) like '%"&names(i)&"%'"
end if
i=i+1
next
sql=sql+" Ordey by Id DESC"
sql=Replace(sql, "where or", "where")
response.write sql
程序運行結果：
select top 10 * from TableName where 商場(chǎng) like '%商場(chǎng)名%' or 快(kuài)餐店(diàn) like '%快(kuài)餐店(diàn)名%' or 快(kuài)餐店(diàn) like '%報停名%' Ordey by Id DESC
備注：
描述
返回基于 0 的(de)一維數組，其中包含指定數目的(de)子字符串。
語法
Split(expression[, delimiter[, count[, start]]])
Split 函數的(de)語法有以下(xià)參數：
參數 描述
expression 必選。字符串表達式，包含子字符串和(hé)分(fēn)隔符。如果 expression 爲零長(cháng)度字符串，Split 返回空數組，即不包含元素和(hé)數據的(de)數組。
delimiter 可(kě)選。用(yòng)于标識子字符串界限的(de)字符。如果省略，使用(yòng)空格 ("") 作爲分(fēn)隔符。如果 delimiter 爲零長(cháng)度字符串，則返回包含整個(gè) expression 字符串的(de)單元素數組。
count 可(kě)選。被返回的(de)子字符串數目，-1 指示返回所有子字符串。
compare 可(kě)選。指示在計算(suàn)子字符串時(shí)使用(yòng)的(de)比較類型的(de)數值。有關數值，請參閱“設置”部分(fēn)。
設置
compare 參數可(kě)以有以下(xià)值：
常數 值 描述
vbBinaryCompare 0 執行二進制比較。
vbTextCompare 1 執行文本比較。
vbDatabaseCompare 2 執行基于數據庫（在此數據庫中執行比較）中包含的(de)信息的(de)比較。
mystr="1,2,3,4,5" mystr=split(mystr,",") for i=0 to ubound(mystr) response.write mystr(i) next '返回值爲123456mystr="xlei.net/http/student/x/index.asp" mystr=split(mystr,"/http/student") for i=0 to ubound(mystr) response.write mystr(i) next '返回值爲xlei.net/x/index.aspmystr="1網站2網頁3頁面4設計5程序" mystr=split(mystr,"批在") for i=0 to ubound(mystr) response.write mystr(i) next '返回值爲1234批是在56
