一聚教程网:一个值得你收藏的教程网站

热门教程

asp 常用的字符串处理函数

时间:2022-07-02 22:35:56 编辑:袖梨 来源:一聚教程网


Class Cls_Fun
 Private x,y,ii
 '==============================
 '函 数 名:AlertInfo
 '作    用:错误显示函数
 '参    数:错误提示内容InfoStr,转向页面GoUrl
 '==============================
 Public Function AlertInfo(InfoStr,GoUrl)
  If GoUrl="1" Then
   Response.Write ""
  Else
   Response.Write ""
  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)    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)    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

热门栏目