CFSDN坚持开源创造价值，我们致力于搭建一个资源共享平台，让每一个IT人在这里找到属于你的精彩世界.

这篇CFSDN的博客文章ASP 三层架构 Convert类实现代码由作者收集整理，如果你对这篇文章有兴趣，记得点赞哟.

这个类主要解决在类型转换时,如果直接使用类型转换函数,会因为变量为空或者格式不对而导致程序报错,而这种报错在大多数情况下是允许的.例如要转换一个字符串变量为数字,如果变量为空,则一般需要自动返回0.  另外一个重要功能就是封装变量格式化操作,可以保持整个网站的输出格式统一,例如时间格式,货币格式等等. 日期和货币格式化的时候,极易遇到因空值报错的情况,一般都不得不写个预判断空值的逻辑,再格式化变量. 使用这个类负责类型转换和格式化输出后,就不用操心这些琐碎的细节了,可以让编程的心情得到大大改善啊.  还有些其他格式化功能,也加了进去,例如Convert.ToPer()是用来转换数字成百分数,Convert.FirstUppercase()用来做首字母大写...... 你可以根据自己的需要,随时扩展这个类,不要忘记了和大家分享哦.  有些基本的函数,如果随便写一写,基本可以凑合着用,但是遇到特殊情况,就要重新改写.比如我写的Convert.ToInt()方法,将变量转换为Integer. 最基本的操作,是判断一下是否为空,不为空就直接用Cint()就可以了. 但是遇到变量超出了范围,又得判断是否在Integer范围内,所以又写了一个私有方法IsOverflowInteger(),用于判断变量值是否为某一个范围内的数字.经过这样的处理,相信基本可以处理所有的情况了.  所以我想,Convert类中的已有方法还是会有不少需要改善的,大家如果有更好更完善的函数请发上来分享,让它形成ASP中最标准的变量处理的类,再不用依赖ASP中那些有限的功能了.  如下列举一些比较主要的方法,具体细节请看代码.  类型判断:  Convert.IsInteger(ByVal Value) 判断是否整数,只允许0~9和-号  Convert.IsInt(ByVal Value) 判断是否int型,其下类似,不用解释了.  Convert.IsLng(ByVal Value)  Convert.IsDecimal(ByVal Value)  Convert.IsSng(ByVal Value)  Convert.IsDbl(ByVal Value)  Convert.IsCur(ByVal Value)  Convert.IsBln(ByVal Value)  Convert.IsDat(ByVal Value)  Convert.IsArr(ByVal Value)  类型转换:  Convert.ToStr(ByVal Value)  Convert.ToInt(ByVal Value)  Convert.ToLng(ByVal Value)  Convert.ToSng(ByVal Value)  Convert.ToDbl(ByVal Value)  Convert.ToBln(ByVal Value)  Convert.ToCur(ByVal Value)  Convert.ToDat(ByVal Value)  格式化:  Convert.FormatDat(ByVal Value, ByVal vStyle) 日期格式化  Convert.FormatCur(ByVal Value,ByVal vDecimal) 货币格式化  Convert.FormatNum(ByVal Value,ByVal vDecimal) 数字格式化  其他格式化:  Convert.ToPer(Byval value,Byval value0) 百分数,带%  Convert.FirstUppercase(ByVal value) 首字母大写  Convert.SafeSql(ByVal value) 替换sql中的'为''  代码如下: (我不会插入代码,不知道CSDN是怎么操作的,点插入代码就是一个<textarea>,而不是可以折叠代码的风格,向了解的朋友请教.)  。

复制代码代码如下

Class Con_Convert  ' ******global message  private i,j,value0,value1,value2  Private Sub Class_Initialize  End Sub  Private Sub Class_Terminate  End Sub  ' ==============================================================================  ' Check Type, Return ture/false  ' ==============================================================================  Public Function IsStr(ByVal Value)  IsStr=true  End Function  ' ****** check string if is Integer  Public Function IsInteger(ByVal Value)  if Trim(Value)="" or IsNull(Value) or IsEmpty(Value) then  IsInteger=false  else  IsInteger = True  value0=Trim(Value)  For i = 1 To len(value0)  If Asc(Mid(value0, i, 1))>= Asc("0") and Asc(Mid(value0, i, 1)) <= Asc("9") Then  Else  if Asc(Mid(value0, i, 1))= Asc("-") and i=1 then  else  IsInteger = false  Exit For  end if  End If  Next  end if  End Function  ' ****** check if Value is in range of integer  ' Only use in this class  ' Value :  ' vBound : max  Private Function IsOverflowInteger(ByVal Value,ByVal vBound)  if IsInteger(Value) and IsInteger(vBound) then  IsOverflowInteger=false  value0=trim(value)  value1=trim(vBound)  if IsOverflowInteger=false then  'delete 0 from left  do while ( left(value0,1)="0" or left(value0,1)="-" )  value0=right(value0,len(value0)-1)  loop  do while ( left(value1,1)="0" or left(value1,1)="-" )  value1=right(value1,len(value1)-1)  loop  if len(value0)=len(value1) then  for i=1 to len(value0)  if Asc(mid(value0,i,1)) > Asc(mid(value1,i,1)) or Asc(mid(value0,i,1)) > Asc("9") or Asc(mid(value0,i,1)) < Asc("0") then  IsOverflowInteger=true  exit for  end if  next  else  if len(value0)>len(value1) then  IsOverflowInteger=true  end if  end if  end if  else  IsOverflowInteger=true  end if  End Function  Public Function IsInt(ByVal Value)  IsInt=true  if left(trim(value),1)="-" then  if IsOverflowInteger(trim(value),"-32768") then  IsInt=false  end if  else  if IsOverflowInteger(trim(value),"32767") then  IsInt=false  end if  end if  end function  Public Function IsLng(ByVal Value)  IsLng=true  if left(trim(value),1)="-" then  if IsOverflowInteger(trim(value),"-2147483648") then  IsLng=false  end if  else  if IsOverflowInteger(trim(value),"2147483647") then  IsLng=false  end if  end if  End Function  ' **************************************  ' Decimal  ' **************************************  ' ****** check string if is Decimal  Private Function IsDecimal(ByVal Value)  dim intDecimalCount  intDecimalCount=0  if Trim(Value)="" or IsNull(Value) or IsEmpty(Value) then  IsDecimal=false  else  IsDecimal = True  value0=Trim(Value)  For i = 1 To len(value0)  If Asc(Mid(value0, i, 1))>= Asc("0") and Asc(Mid(value0, i, 1)) <= Asc("9") Then  Else  select case Asc(Mid(value0, i, 1))  case Asc("-")  if i=1 then  else  IsDecimal = false  Exit For  end if  case Asc(".")  if intDecimalCount<2 then  intDecimalCount=intDecimalCount + 1  else  IsDecimal = false  Exit For  end if  case else  IsDecimal = false  Exit For  end select  End If  Next  end if  End Function  ' ****** check if Value is in range of Decimal  ' Only use in this class  ' Value :  ' vBound :  Private Function IsOverflowDecimal(ByVal Value,ByVal vBound)  if Trim(Value)="" or IsNull(Value) or IsEmpty(Value) or Trim(vBound)="" or IsNull(vBound) or IsEmpty(vBound) then  IsOverflowDecimal=true  else  end if  End Function  Public Function IsSng(ByVal Value)  IsSng=IsDecimal(value)  ' -340282300000000000000000000000000000000 ~ -0.000000000000000000000000000000000000000000001401298  ' 0.000000000000000000000000000000000000000000001401298 ~ 340282300000000000000000000000000000000  ' -3.402823 E38 ~ -1.401298 E-45  ' 1.401298 E-45 ~ 3.402823 E38  End Function  Public Function IsDbl(ByVal Value)  IsDbl=IsDecimal(value)  ' -1.79769313486232 E308 ~ -4.94065645841247 E-324  ' 4.94065645841247 E-324 ~ 1.7976931348623 E308  End Function  Public Function IsCur(ByVal Value)  IsCur=IsDecimal(value)  '-922337203685477.5808 ~ 922337203685477.5807  End Function  Public Function IsBln(ByVal Value)  if Value=true or Value=false or trim(Value)="1" or trim(Value)="0" then  IsBln=true  else  IsBln=false  end if  End Function  Public Function IsDat(ByVal Value)  if Trim(Value)="" or IsNull(Value) or IsEmpty(Value) then  IsDat=false  else  IsDat=IsDate(Value)  end if  End Function  Public Function IsArr(ByVal Value)  if Trim(Value)="" or IsNull(Value) or IsEmpty(Value) then  IsArr=false  else  IsArr=IsArray(Value)  end if  End Function  ' ==============================================================================  ' Convert Type, Return value/initial value  ' ==============================================================================  Public Function ToStr(ByVal Value)  ToStr=trim(Value)  End Function  Public Function ToInt(ByVal Value)  if IsInt(Value) then  ToInt=Cint(Value)  else  ToInt=0  end if  End Function  Public Function ToLng(ByVal Value)  if IsLng(Value) then  ToLng=clng(Value)  else  ToLng=0  end if  End Function  Public Function ToSng(ByVal Value)  if IsSng(Value) then  ToSng=cSng(Value)  else  ToSng=0  end if  End Function  Public Function ToDbl(ByVal Value)  if IsDbl(Value) then  ToDbl=cDbl(Value)  else  ToDbl=0  end if  End Function  Public Function ToBln(ByVal Value)  if IsBln(Value) then  ToBln=cbool(Value)  else  ToBln=false  end if  End Function  ' ****** vDecimal : number of decimal places  Public Function ToCur(ByVal Value)  if IsCur(Value) then  ToCur=ccur(Value)  else  ToCur=0  end if  End Function  ' ****** vType : format of date  Public Function ToDat(ByVal Value)  if IsDat(Value) then  ToDat=cdate(value)  else  ToDat=""  end if  End Function  ' ==============================================================================  ' Format  ' ==============================================================================  ' *******************************************************  'FormatDat  'vdate  'vStyle 0:2008-1-30 1:2008/1/30 2:1/30/2008 3:30/1/2008 4:30-JAN-2008  ' 10:2008-1 11:2008/1 12:1/2008  ' 22:JAN-2008  ' 30:2008-1-30 11:20:20  ' 40:2008-01-09  Public Function FormatDat(ByVal Value, ByVal vStyle)  dim dateThis,intStyle  dateThis=ToDat(Value)  intStyle=ToInt(vStyle)  if dateThis="" or isnull(dateThis) then  FormatDat = ""  else  Dim arrMonthArray(12)  arrMonthArray(1)="JAN"  arrMonthArray(2)="FEB"  arrMonthArray(3)="MAR"  arrMonthArray(4)="APR"  arrMonthArray(5)="MAY"  arrMonthArray(6)="JUN"  arrMonthArray(7)="JUL"  arrMonthArray(8)="AUG"  arrMonthArray(9)="SEP"  arrMonthArray(10)="OCT"  arrMonthArray(11)="NOV"  arrMonthArray(12)="DEC"  select case intStyle  case 1  FormatDat=cstr(year(dateThis)) &"/"& cstr(month(dateThis)) &"/"& cstr(day(dateThis))  case 2  FormatDat= cstr(month(dateThis)) &"/"& cstr(day(dateThis)) &"/"& cstr(year(dateThis))  case 3  FormatDat= cstr(day(dateThis)) &"/"& cstr(month(dateThis)) &"/"& cstr(year(dateThis))  case 4  FormatDat= cstr(day(dateThis)) &"-"& arrMonthArray(month(dateThis)) &"-"& cstr(year(dateThis))  case 10  FormatDat=cstr(year(dateThis)) &"-"& cstr(month(dateThis))  case 11  FormatDat=cstr(year(dateThis)) &"/"& cstr(month(dateThis))  case 12  FormatDat= cstr(month(dateThis)) &"/"& cstr(year(dateThis))  case 22  FormatDat= arrMonthArray(month(dateThis)) &"-"& cstr(year(dateThis))  case 30  FormatDat= cstr(year(dateThis)) &"-"& cstr(month(dateThis)) &"-"& cstr(day(dateThis)) &" "& hour(dateThis) &":"& minute(dateThis) &":"& second(dateThis)  case 40  FormatDat=cstr(year(dateThis)) &"-"& ZeroPad(cstr(month(dateThis)),2) &"-"& ZeroPad(cstr(day(dateThis)),2)  case else  FormatDat=cstr(year(dateThis)) &"-"& cstr(month(dateThis)) &"-"& cstr(day(dateThis))  end select  end if  End Function  ' **************  'FormatCur  ' **************  Public Function FormatCur(ByVal Value,ByVal vDecimal)  FormatCur=Formatcurrency(ToCur(Value),ToInt(vDecimal))  End Function  Public Function FormatNum(ByVal Value,ByVal vDecimal)  FormatNum=FormatNumber(ToDbl(Value),ToInt(vDecimal))  End Function  ' ==============================================================================  ' other format  ' ==============================================================================  Public Function ToPer(Byval value,Byval value0)  if Convert.ToDbl(value0)<>0 then  ToPer = me.FormatNum( Convert.ToDbl(value) / Convert.ToDbl(value0) * 100,2 ) & "% "  else  ToPer = "0.00%"  end if  End Function  ' ****** value -> Value first code change to uppercase  Public Function FirstUppercase(ByVal value)  value0 = trim(value)  if len(value0)=0 then  FirstUppercase = ""  else  FirstUppercase = UCase(left(value0,1)) & right(value0,len(value0)-1)  end if  End Function  Public Function SafeSql(ByVal value)  SafeSql = replace(value,"'","''")  End Function  End Class  。

最后此篇关于ASP 三层架构 Convert类实现代码的文章就讲到这里了,如果你想了解更多关于ASP 三层架构 Convert类实现代码的内容请搜索CFSDN的文章或继续浏览相关文章，希望大家以后支持我的博客！ 。