asp 常用的字符串處理函數

　　Class Cls_Fun
 Private xyii
 ==============================
 函 數 名AlertInfo
 作    用錯誤顯示函數
 參    數錯誤提示內容InfoStr轉向頁面GoUrl
 ==============================
 Public Function AlertInfo(InfoStrGoUrl)
  If GoUrl="" Then
   ResponseWrite "<Script>alert("& InfoStr &");locationjavascript:historygo();</Script>"
  Else
   ResponseWrite "<Script>alert("& InfoStr &");location"& GoUrl &";</Script>"
  End If
  ResponseEnd()
 End Function
 
 ==============================
 函 數 名HTMLEncode
 作    用字符轉換函數
 參    數需要轉換的文本fString
 ==============================

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

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

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

　　==============================
 函 數 名ShowString
 作    用判斷字符串長度
 參    數
 需進行判斷的文本CheckStr
 限定最短ShortLen
 限定最長LongLen
 驗證類型CheckType（兩頭限制限制最短限制最長）
 過短提示LongStr
 過長提示LongStr
 ==============================
 Public Function ShowString(CheckStrShortLenLongLenCheckTypeShortErrLongErr)
  If (CheckType= Or CheckType=) And StringLength(CheckStr)<ShortLen Then
   ResponseWrite(ShortErr&"|||||")
   PageErr=
  End If
  If (CheckType= Or CheckType=) And StringLength(CheckStr)>LongLen Then
   ResponseWrite(LongErr&"|||||")
   PageErr=
  End If
 End Function
 
a
 ==============================
 函 數 名BeSelect
 作    用判斷select選項選中
 參    數SelectSelect
 ==============================
 Public Function BeSelect(SelectSelect)
  If Select=Select Then
   BeSelect=" selected=selected"
  End If
 End Function
 
 ==============================
 函 數 名BeCheck
 作    用判斷Check選項選中
 參    數CheckCheck
 ==============================
 Public Function BeCheck(CheckCheck)
  If Check=Check Then
   BeCheck=" checked=checked"
  End If
 End Function

From:http://tw.wingwit.com/Article/program/net/201311/14397.html