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)
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)
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
模拟极限越野
模拟极限越野开着大巴在各种奇葩路况里送乘客。山路弯道多得让人
模拟火车
模拟火车让你当回真正的火车司机,得先学会看信号灯、操作控制杆
可口的披萨美味的披萨
可口的披萨美味的披萨带您体验经营一家披萨店的乐趣。游戏画风温
定制虚拟偶像最新版
定制虚拟偶像最新版是一款超级经典有趣的日本模拟装扮类型的手游
病娇模拟器手机版正版(yandere simulator)
病娇模拟器最新版手游是一款萌妹二次元模拟游戏,玩家在游戏中可