推薦:Asp產生13位元隨機字串html title /title body % Functiongen_key(digits) '定義並初始化陣列dimchar_array(80) '初始化數字Fori=0To9 char_array(i)=CStr(i) Next '初始化大寫字母Fori=10To35 char_array(i)=Chr(i +55) Next '初始化小寫字母Fori=36To61 char_array(i)=Chr
將資料使用間隔字串儲存可以減少少寫幾個資料庫字段,也方便以後對擴展資料。例如:在論壇中使用者的性格有多重性格、樂天達觀、成熟穩重、幼稚調皮、溫柔體貼等等,他們分別對應的值為0、1、2、3、4,在儲存這些資料時使用間隔字符串,將資料儲存到一個文字欄位中。資料儲存格式為:0|2|3|4|。
而在使用間隔字串分隔各項資料時,0|2|3|4|與0|2|3|4在使用Split函數對其進行分隔的時候產生的數組最大下標值是不同的,往往在不注意的時候會在最右側多寫一個間隔字元。這樣在輸出的時候就會多遍歷一個數據,為了避免這種情況的發生,就要對字串進行偵測。
思路:
1.偵測右側是否存在間隔字串,如果存在則需要將陣列最大下標值減一
2.如果不存在則直接傳回原數組最大下標
代碼:
DimTempStr,TempArr,TempItem
TempStr=第一項1|第二項1|第三項|
TempArr=Split(TempStr,|)
Response.WriteTempStr&<br/>
ForTempItem=0ToUBoundStrToArr(TempStr,UBound(TempArr),|)
Response.WriteTempArr(TempItem)&<br/>
Next
'*************************
'函數:UBoundStrToArr
'作用:偵測原字串轉換為陣列的最大下標值
'參數:cCheckStr(需要偵測的字串)
'cUBoundArr(產生數組的最大下標值)
'cSpaceStr(間隔字串)
'傳回:數組的最大下標值
'************************
PublicFunctionUBoundStrToArr(ByValcCheckStr,ByValcUBoundArr,ByValcSpaceStr)
IfInstr(cCheckStr,cSpaceStr)=0Then
UBoundStrToArr=cUBoundArr
ExitFunction
EndIf
DimTempSpaceStr,UBoundValue
TempSpaceStr=Mid(cCheckStr,Len(cCheckStr)-Len(cSpaceStr)+1)'取得字串右側間隔字符
IfTempSpaceStr=cSpaceStrThen'如果字串最右側存在間隔字元,則下標值需要-1
UBoundValue=cUBoundArr-1
Else
UBoundValue=cUBoundArr
EndIf
UBoundStrToArr=UBoundValue
EndFunction
分享:ASP+AJAX做類似google的搜尋提示主要要檔案有: Index.html實作功能,一個文字方塊,輸入內容並實現提示search.asp查詢功能,讓文字方塊輸入的內容在資料庫中查詢,然後傳回給客戶端conn.asp資料庫連線功能,實現與資料庫相連xmlhttp.jsAJAX核心部分,用來把客戶端的資料傳給服務端,再把服務端的數據