asp

位置:IT落伍者 >> asp >> 浏览文章

asp 常用的字符串处理函数


发布日期:2018年04月19日
 
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

上一篇:ASP实例:处理多关键词查询代码

下一篇:简单入门ASP变量