熱點推薦:
您现在的位置: 電腦知識網 >> 編程 >> .NET編程 >> 正文

asp 常用的字符串處理函數

2013-11-13 10:43:57  來源: .NET編程 

  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
  • 上一篇文章:

  • 下一篇文章:
  • 推薦文章
    Copyright © 2005-2013 電腦知識網 Computer Knowledge   All rights reserved.