asp 常用的字串處理函數

Class Cls_Fun
 Private x,y,ii
 ==============================
 函 數 名：AlertInfo
 作    用：錯誤顯示函數
 參    數：錯誤提示內容InfoStr，轉向頁面GoUrl
 ==============================
 Public Function AlertInfo(InfoStr,GoUrl)
  If GoUrl="1" Then
   Response.Write "<Script>alert('"& InfoStr &"');location.href='javascript:history.go(-1)';</Script>"
  Else
   Response.Write "<Script>alert('"& InfoStr &"');location.href='"& GoUrl &"';</Script>"
  End If
  Response.End()
 End Function
 
 ==============================
 函 數 名：HTMLEncode
 作    用：字元轉換函式
 參    數：需要轉換的文本fString
 ==============================

 
 ==============================
 函 數 名：AlertNum
 作    用：判斷是否是數字（驗證字元，不為數字時的提示）
 參    數：需進行判斷的文本CheckStr，錯誤提示ErrStr
 ==============================
 Public Function AlertNum(CheckStr,ErrStr)
  If Not IsNumeric(CheckStr) or CheckStr="" Then
   Call AlertInfo(ErrStr,"1")
  End If
 End Function

 ==============================
 函 數 名：AlertString
 作    用：判斷字串長度
 參    數：
 需進行判斷的文本CheckStr
 限定最短ShortLen
 限定最長LongLen

 驗證類型CheckType（0兩頭限制，1限制最短，2限制最長）
 過短提示LongStr
 過長提示LongStr，
 ==============================
 Public Function AlertString(CheckStr,ShortLen,LongLen,CheckType,ShortErr,LongErr)
  If (CheckType=0 Or CheckType=1) And StringLength(CheckStr)<ShortLen Then
   Call AlertInfo(ShortStr,"1")
  End If
  If (CheckType=0 Or CheckType=2) And StringLength(CheckStr)>LongLen Then
   Call AlertInfo(LongStr,"1")
  End If
 End Function
 
 ==============================
 函 數 名：AlertNum
 作    用：判斷是否是數字（驗證字元，不為數字時的提示）
 參    數：需進行判斷的文本CheckStr，錯誤提示ErrStr
 ==============================
 Public Function ShowNum(CheckStr,ErrStr)
  If Not IsNumeric(CheckStr) or CheckStr="" Then
   Response.Write(ErrStr&"|||||")
   PageErr=1
  End If
 End Function

 ==============================
 函 數 名：ShowString
 作    用：判斷字串長度
 參    數：
 需進行判斷的文本CheckStr
 限定最短ShortLen
 限定最長LongLen
 驗證類型CheckType（0兩頭限制，1限制最短，2限制最長）
 過短提示LongStr
 過長提示LongStr，
 ==============================
 Public Function ShowString(CheckStr,ShortLen,LongLen,CheckType,ShortErr,LongErr)
  If (CheckType=0 Or CheckType=1) And StringLength(CheckStr)<ShortLen Then
   Response.Write(ShortErr&"|||||")
   PageErr=1
  End If
  If (CheckType=0 Or CheckType=2) And StringLength(CheckStr)>LongLen Then
   Response.Write(LongErr&"|||||")
   PageErr=1
  End If
 End Function
 
a
 ==============================
 函 數 名：BeSelect
 作    用：判斷select選項選中
 參    數：Select1,Select2
 ==============================
 Public Function BeSelect(Select1,Select2)
  If Select1=Select2 Then
   BeSelect=" selected='selected'"
  End If
 End Function
 
 ==============================
 函 數 名：BeCheck
 作    用：判斷Check選項選中
 參    數：Check1,Check2
 ==============================
 Public Function BeCheck(Check1,Check2)
  If Check1=Check2 Then
   BeCheck=" checked='checked'"
  End If
 End Function