推薦：Asp生成13位隨機(jī)字符串
html title /title body % Functiongen_key(digits) ’定義并初始化數(shù)組 dimchar_array(80) ’初始化數(shù)字 Fori=0To9 char_array(i)=CStr(i) Next ’初始化大寫字母 Fori=10To35 char_array(i)=Chr(i+55) Next ’初始化小寫字母 Fori=36To61 char_array(i)=Chr

將數(shù)據(jù)使用間隔字符串存儲可以減少少寫幾個(gè)數(shù)據(jù)庫字段，也方便以后對擴(kuò)展數(shù)據(jù)。

比如：在論壇中用戶的性格有多重性格、樂天達(dá)觀、成熟穩(wěn)重、幼稚調(diào)皮、溫柔體貼等等，他們分別對應(yīng)的值為0、1、2、3、4，在存儲這些數(shù)據(jù)時(shí)使用間隔字符串，將數(shù)據(jù)存儲到一個(gè)文本字段中。數(shù)據(jù)存儲格式為：0|2|3|4|。

而在使用間隔字符串分隔各項(xiàng)數(shù)據(jù)時(shí)，0|2|3|4|與0|2|3|4在使用Split函數(shù)對其進(jìn)行分隔的時(shí)候產(chǎn)生的數(shù)組最大下標(biāo)值是不同的，往往在不注意的時(shí)候會在最右側(cè)多寫一個(gè)間隔字符。這樣在輸出的時(shí)候就會多遍歷一個(gè)數(shù)據(jù)，為了避免這種情況的發(fā)生，就要對字符串進(jìn)行檢測。

思路：

1.檢測右側(cè)是否存在間隔字符串，如果存在則需要將數(shù)組最大下標(biāo)值減一

2.如果不存在則直接返回原數(shù)組最大下標(biāo)

代碼：

Dim TempStr,TempArr,TempItem
TempStr="第一項(xiàng)1|第二項(xiàng)1|第三項(xiàng)|"
TempArr=Split(TempStr,"|")
Response.Write TempStr&"<br />"
For TempItem=0 To UBoundStrToArr(TempStr,UBound(TempArr),"|")
Response.Write TempArr(TempItem)&"<br />"
Next
’*************************
’函數(shù):UBoundStrToArr
’作用:檢測原字符串轉(zhuǎn)換為數(shù)組的最大下標(biāo)值
’參數(shù):cCheckStr(需要檢測的字符串)
’ cUBoundArr(生成數(shù)組的最大下標(biāo)值)
’ cSpaceStr(間隔字符串)
’返回:數(shù)組的最大下標(biāo)值
’************************
Public Function UBoundStrToArr(ByVal cCheckStr,ByVal cUBoundArr,ByVal cSpaceStr)
If Instr(cCheckStr,cSpaceStr)=0 Then
UBoundStrToArr=cUBoundArr
Exit Function
End If
Dim TempSpaceStr,UBoundValue
TempSpaceStr=Mid(cCheckStr,Len(cCheckStr)-Len(cSpaceStr)+1) ’獲取字符串右側(cè)間隔字符
If TempSpaceStr=cSpaceStr Then ’如果字符串最右側(cè)存在間隔字符,則下標(biāo)值需要-1
UBoundValue=cUBoundArr-1
Else
UBoundValue=cUBoundArr
End If
UBoundStrToArr=UBoundValue
End Function

分享：ASP+AJAX做類似google的搜索提示
主要要文件有: Index.html實(shí)現(xiàn)功能,一個(gè)文本框,輸入內(nèi)容并實(shí)現(xiàn)提示 search.asp查詢功能,讓文本框輸入的內(nèi)容在數(shù)據(jù)庫中查詢,然后返回給客戶端 conn.asp數(shù)據(jù)庫連接功能,實(shí)現(xiàn)與數(shù)據(jù)庫相連 xmlhttp.jsAJAX核心部分,用來把客戶端的數(shù)據(jù)傳給服務(wù)端,再把服務(wù)端的數(shù)據(jù)