[ASP中使用三层架构] 6.Convert类

最新推荐文章于 2024-06-12 10:19:46 发布
最新推荐文章于 2024-06-12 10:19:46 发布
阅读量622 收藏
点赞数
分类专栏： ASP 文章标签： asp function integer class string delete
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/fengwill99/article/details/4574892
版权

    第二个重要的类,作用是类型转换,类名Con_Convert.在页面代码的开头实例化,对象名为Convert,借用了.net的类型转换的对象名称.
   
   
    这个类主要解决在类型转换时,如果直接使用类型转换函数,会因为变量为空或者格式不对而导致程序报错,而这种报错在大多数情况下是允许的.例如要转换一个字符串变量为数字,如果变量为空,则一般需要自动返回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类实现代码
01-20
ASP 三层架构中的 Convert 类是为了在进行类型转换和数据格式化时提供更加健壮和方便的解决方案。在传统的编程中，直接使用内建的类型转换函数（如 CInt、CDbl 等）可能会因为变量为空或数据格式不正确而导致程序...
ASP之Split将字符串转换为数组正确获取数组下标值
Cloud.L 每天一点点~
05-20 8772
  将数据使用间隔字符串存储可以减少少写几个数据库字段，也方便以后对扩展数据。    比如：在论坛中用户的性格有多重性格、乐天达观、成熟稳重、幼稚调皮、温柔体贴等等，他们分别对应的值为0、1、2、3、4，在存储这些数据时使用间隔字符串，将数据存储到一个文本字段中。数据存储格式为：0|2|3|4|。    而在使用间隔字符串分隔各项数据时，0|2|3|4|与0|2|3|4在使用Split函数
ASP函数库(全部可以直接调用，非常方便) 5
weixin_30371469的博客
08-14 197
'**************************************************'''''函数ID：0028[取得图像的类型|宽|高]'函数名：GetImageDx'作 用：取得图像的类型|宽|高'参 数：filepath ---- 文件路径及文件命名'返回值："类型|宽|高"'*************************************************...
ASP中一个字符串处理类（VBScript）
12-15 1021
这个类是用于处理字符串的，是老外写的，我把里面的功能和参数加了说明使用方法：=============== test.asp================dim strset str = New StringOperations test = str.toCharArray("check this out") response.write "str.toCharArray: " fo
2019年底项目的vba工具
weixin_43292547的博客
12-31 358
19年底做项目时自己写的工具，应该不会有改动，保存起来以后参考。 设计上比上一个工具好点，力求少复制粘贴，但增添新功能时依旧不太方便； 一开始以为基本设计是必须打开的就写死了，导致很多新增的功能也要先打开基本设计才能运行，后来懒得改了。 还有因为这个版本的vba依旧无法正常保存中文，所以没写注释，导致后来读写代码很不方便。 很多功能没有写，比如review的逻辑(非常有用但很难写的一块，打算多写些...
vb.net小demo（计算器、文件处理等/C#也可看）
最新发布
qq_53635765的博客
06-12 573
vb.net与c#语法不同，但核心是一致的，本博客展示了许多帮助你更好理解窗体应用程序的小demo
C#三层架构实例
10-28
通过以上分析可以看出，在C#三层架构中，每一层都有其特定的职责，它们之间通过接口进行通信，有效地分离了关注点。这种方式不仅提高了代码的可读性和可维护性，也使得系统的扩展变得更加容易。对于初学者来说，掌握...
VBA CSV格式的解析类 【c语言CSV Parser转换】
weixin_34088583的博客
01-12 200
1 Option Explicit 2 '----------------读Csv文件 类--------------------- 3 4 Private Declare Function WideCharToMultiByte Lib "kernel32" _ 5 (ByVal CodePage As Long, _ 6 ByV...
asp.net ToString格式大全与Convert.ToString区别
DoubleOne
09-02 2094
通常object到string有四种方式：(假设有object obj)obj.tostring，convert.tostring，(string)obj,obj as string。 他们都能将object对象转换成string对象。我就讲讲他们的异同以及在实际中应该使用哪个。 前两个方法通常是由别的对象得到string对象，它们间的区别只表现在要转换的对象为null时，如果obj为nu
Sql server 日期转换处理大全
I_am_Benson的博客
09-30 2858
字符串转日期时间： convert(datetime,‘2017-12-12 00:00:01’, 20) 日期时间转字符串： Select CONVERT(varchar(100), GETDATE(), 0): 05 16 2006 10:57AM    Select CONVERT(varchar(100), GETDATE(), 1): 05/16/06  &...
ASP的类型转换函数(详细讲解)
tete的专栏
11-01 2864
ASP的类型转换函数 个函数都可以强制将一个表达式转换成某种特定数据类型。 语法 CBool(expression) CByte(expression) CCur(expression) CDate(expression) CDbl(expression) CDec(expression) CInt(expression) CLng(expression) CS
【SpringMVC】浅谈Convert/Format机制与HttpMessageConverter的关系
weixin_33912453的博客
07-27 371
简介 Spring3引入了较Spring2的PropertyEditor更加强大、通用的Convert/Format SPI，Convert SPI可以实现任意类型的转换；Format SPI支持国际化，并在前者的基础上实现了String与任意类型的转换。这两类SPI属于spring-core，被整个spring-framework共享，...
.Net中把字符串(String)格式转换为DateTime类型的三种方法
weixin_33701294的博客
05-11 1190
方式一：Convert.ToDateTime(string) Convert.ToDateTime(string) 注意：string格式有要求，必须是yyyy-MM-dd hh:mm:ss 方式二：Convert.ToDateTime(string, IFormatProvider) 1 DateTimeFormatInfo dtFormat = new System.Globa...
[ASP中使用三层架构] 3.使用三层架构的好处
天外一尘
09-15 1972
    对于三层架构的概念性意义,网络上有很多专文探讨,若想深入了解,可以自寻解答.本文仅作为一种应用性探讨,讲的更多的是实现的细节.    简单地讲,三层架构是将代码按其作用分成三部分,每部分解决自己负责的流程.     从表入深,分别是:    界面层-UI  处理页面的数据显示,及用户体验    逻辑层-BLL 业务功能的实现过程,生成结果,提交给UI    数据层-DAL 访问数据库,将结
[ASP中使用三层架构] 8.文件目录结构
天外一尘
10-13 1288
    三层架构和普通的web站点的区别,只在于根目录下的一个/class目录,其结构如下    /class        └──/BLL         存放业务逻辑类        └──/Common      存放通用类        └──/DAL         存放单表数据访问类        └──/MOD         存放实体类        └──/MUL        
[ASP中使用三层架构] 9.用户登录之一 User表与相关类
天外一尘
10-14 1086
    接下来开始讲解如何用三层架构来建立用户登录过程.    这个过程用一般的编程方式写起来很简单,从这里入手来讲解三层架构的实例,想必大家都会更容易了解其中的逻辑结构.        首先我们做一些准备工作,构造这个业务需要用到的几个类,其中包括三个部分:    User部分的实体类MOD_User,单表数据访问类DAL_User    UserLog部分的单表数据访问类DAL_UserLog
ASP三层架构中Convert类的实现与应用
而在这个上下文中，我们讨论的是在ASP三层架构中一个专门用于类型转换和格式化的类——Con_Convert。 Con_Convert类的主要功能是进行类型转换和变量格式化，以避免因类型不匹配或格式错误导致的运行时异常。开发者...
评论 2
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值