asp常用函数

< %
' **********************************************
' strLength函数：计算字符串的长度
' 中文字符统计为两个单位长
' **********************************************
    dim  WINNT_CHINESE 
    function  strLength(str)
        ON   ERROR   RESUME   NEXT
        dim  WINNT_CHINESE
       WINNT_CHINESE     =  ( len ( "" 论坛 "" ) = 2 )
        if  WINNT_CHINESE  then
           dim  l,t,c
           dim  i
          l = len (str)
          t = l
           for  i = 1   to  l
             c = asc ( mid (str,i, 1 ))
              if  c < 0   then  c = c + 65536
              if  c > 255   then
                t = t + 1
              end   if
           next
          strLength = t
        else  
          strLength = len (str)
        end   if
        if  Err.number <> 0   then  Err.clear 
    end function  
' **********************************************************
' isInteger函数：判断是否为整数（参数数字与字符串都可）
' **********************************************************
    function  isInteger(para)
        on   error   resume   next
        dim  str
        dim  l,i
        if   isNUll (para)  then  
          isInteger = false
           exit   function
        end   if
       str = cstr (para)
        if   trim (str) = " "" "   then
          isInteger = false
           exit   function
        end   if
       l = len (str)
        for  i = 1   to  l
            if   mid (str,i, 1 ) > "" 9 ""   or   mid (str,i, 1 ) < "" 0 ""   then
              isInteger = false  
               exit   function
            end   if
        next
       isInteger = true
        if  err.number <> 0   then  err.clear
    end function
   
    
' *************************************************
' cutStr函数：截取前面几个字符，后面添加""""号
' 没有区分中文字符长度，即一个中文字长度为1
' *************************************************
    function  cutStr(str,strlen)
         dim  l,t,c
        l = len (str)
        t = 0
         if  l <> 0   then
             for  j = 1   to  l
            c = Abs ( Asc ( Mid (str,j, 1 )))
             if  c > 255   then
            t = t + 2
             else
            t = t + 1
             end   if
             if  t >= strlen  then
            cutStr = HTMLEncode2( left (str,j) & "" "" )
             exit   for
             else
            cutStr = HTMLEncode2(str)
             end   if
             next
         else
            cutStr = ""   ""
         end   if
     end function
    
' *******************************************************************************************
' browser函数：判断浏览器类型（参数info使用request.ServerVariables(""HTTP_USER_AGENT"")调用）
' *******************************************************************************************
function  browser(info)
     if   Instr (info, "" MSIE  5.5 "" ) > 0   then
        browser = "" 浏 览 器：Internet Explorer  5.5 ""
     elseif   Instr (info, "" MSIE  6.0 "" ) > 0   then
        browser = "" 浏 览 器：Internet Explorer  6.0 ""
     elseif   Instr (info, "" MSIE  5.01 "" ) > 0   then
        browser = "" 浏 览 器：Internet Explorer  5.01 ""
     elseif   Instr (info, "" MSIE  5.0 "" ) > 0   then
        browser = "" 浏 览 器：Internet Explorer  5.00 ""
     elseif   Instr (info, "" MSIE  4.0 "" ) > 0   then
        browser = "" 浏 览 器：Internet Explorer  4.01 ""
     else
        browser = "" 浏 览 器：未知 ""
     end   if
end function

' ************************************************************************************************
' system函数：判断客户端操作系统类型（参数info使用request.ServerVariables(""HTTP_USER_AGENT"")调用）
' ************************************************************************************************
function  system(info)
     if   Instr (info, "" NT  5.1 "" ) > 0   then
        system = system + "" 操作系统：Windows XP ""
     elseif   Instr (info, "" NT  5 "" ) > 0   then
        system = system + "" 操作系统：Windows  2000 ""
     elseif   Instr (info, "" NT  4 "" ) > 0   then
        system = system + "" 操作系统：Windows NT4 ""
     elseif   Instr (info, "" 98 "" ) > 0   then
        system = system + "" 操作系统：Windows  98 ""
     elseif   Instr (info, "" 95 "" ) > 0   then
        system = system + "" 操作系统：Windows  95 ""
     else
        system = system + "" 操作系统：未知 ""
     end   if
end function

' ***************************************************************
' chkemail函数：检验email的有效性（参数strEmailAddr为email地址）
' 结果：true 或 false
' ***************************************************************
Function  chkemail(strEmailAddr)
     Dim  re
     if  strEmailAddr <> " "" "   then
     Set  re  =   new  RegExp
    re.pattern  =   "" ^ [A - Za - z0 - 9_. - ] + @([a - zA - Z0 - 9_ - ] +\ .) + [a - zA - Z]{ 2 , 4 }$ ""
   chkemail = re.Test(strEmailAddr)
    else
    chkemail = true
    end   if
end function

' ****************************************************************
' chkoicq函数：检验oicq的有效性（参数oicq为oicq号）
' 结果：true 或 false
' ****************************************************************
Function  chkoicq(oicq)
     Dim  re1
    if  oicq <> " "" "   then
     Set  re1  =   new  RegExp
    re1.IgnoreCase  =   false
    re1.global  =   false
    re1.Pattern  =   "" [ 0 - 9 ]{ 4 , 10 }$ ""
    chkoicq  =  re1.Test(oicq)
    else
    chkoicq = true
    end   if
End Function

' ****************************************************************************
' DateToStr函数：把日期转化为字符串系列（参数dtDateTime为日期字符串或日期型）
' 结果：年月日时分秒
' ****************************************************************************
function  DateToStr(dtDateTime)
    DateToStr  =   year (dtDateTime)  &  doublenum( Month (dtdateTime))  &  doublenum( Day (dtdateTime))  &  _
    doublenum( Hour (dtdateTime))  &  doublenum( Minute (dtdateTime))  &  doublenum( Second (dtdateTime))  &   " "" "
end function

' ****************************************************************************
' doublenum函数：把单位数转化为两位数，保持日期位数统一（由DateToStr调用）
' 结果：双位数
' ****************************************************************************
function  doublenum(fNum)
     if  fNum  >   9   then  
        doublenum  =   cstr (fNum) 
     else  
        doublenum  =   "" 0 ""   &   cstr (fNum)
     end   if
end function

' ****************************************************************************
' StrToDate函数：把参数year,month,day转化为日期（""year-month-day""）
' 结果：日期
' ****************************************************************************
function  StrToDate( year , month , day )
    StrToDate = cstr ( year )  &   "" - ""   &   cstr ( month )  &   "" - ""   &   cstr ( day )
end function

' ************************************************************************************
' ChkBadWords函数：过滤不良语句（参数BadWords为不良语句定义，fString为要检验的语句）
' 结果：将不良语句用*号代替输出
' ************************************************************************************
function  ChkBadWords(BadWords,fString)
     if   not ( isnull (BadWords)  or   isnull (fString))  then
    bwords  =   split (BadWords,  "" | "" )
     for  i  =   0   to   ubound (bwords)
        fString  =   Replace (fString, bwords(i),  string ( len (bwords(i)), "" * "" )) 
     next
    ChkBadWords  =  fString
     end   if
end function

' ***************************************************************************
' HTMLEncode函数：将HTML语句转为字符型输出（参数fString为HTML语句）
'
' ***************************************************************************
function  HTMLEncode(fString)
if   not   isnull (fString)  then
    fString  =   replace (fString,  "" > "" ,  "" & gt; "" )
    fString  =   replace (fString,  "" < "" ,  "" & lt; "" )

    fString  =   Replace (fString,  CHR ( 32 ),  "" & nbsp; "" )
    fString  =   Replace (fString,  CHR ( 34 ),  "" & quot; "" )
    fString  =   Replace (fString,  CHR ( 39 ),  "" & # 39 ; "" )
    fString  =   Replace (fString,  CHR ( 13 ),  " "" " )
    fString  =   Replace (fString,  CHR ( 10 )  &   CHR ( 10 ),  "" </ P >< P >   "" )
    fString  =   Replace (fString,  CHR ( 10 ),  "" & nbsp; < BR >   "" )
    HTMLEncode  =  fString
end   if
end function

' ***************************************************************************
' HTMLEncode函数：将HTML语句转为字符型输出（参数fString为HTML语句）
'
' ***************************************************************************
function  HTMLEncode2(fString)
if   not   isnull (fString)  then
    fString  =   replace (fString,  "" > "" ,  "" & gt; "" )
    fString  =   replace (fString,  "" < "" ,  "" & lt; "" )
    fString  =   Replace (fString,  CHR ( 32 ),  "" & nbsp; "" )
    fString  =   Replace (fString,  CHR ( 34 ),  "" & quot; "" )
    fString  =   Replace (fString,  CHR ( 39 ),  "" & # 39 ; "" )
    fString  =   Replace (fString,  CHR ( 13 ),  " "" " )
    HTMLEncode2  =  fString
end   if
end function


' ********************************************************************
' HTMLDecode函数：将语句转为HTML输出（参数fString为字符语句）
' ********************************************************************
function  HTMLDecode(fString)
if   not   isnull (fString)  then
    fString  =   replace (fString,  "" & gt; "" ,  "" > "" )
    fString  =   replace (fString,  "" & lt; "" ,  "" < "" )
    
    fString  =   Replace (fString,  "" & nbsp; "" , CHR ( 32 ))
    fString  =   Replace (fString,  "" & quot; "" ,  CHR ( 34 ))
    fString  =   Replace (fString,  "" & # 39 ; "" , CHR ( 39 ))
    fString  =   Replace (fString,  " "" " ,  CHR ( 13 ))
    fString  =   Replace (fString,  "" </ P >< P > "" ,  CHR ( 10 )  &   CHR ( 10 ))
    fString  =   Replace (fString,  "" < BR > "" ,  CHR ( 10 ))
    HTMLDecode  =  fString
end   if
end function

' ***********************************************
' repleatBlank函数：自动生成n个空格
' ***********************************************
function  repleatBlank(n)
    n = cint (n)
     for  u = 1   to  n
    repleatBlank = repleatBlank  &   "" & nbsp; ""
     next
end function

% >

转载于:https://www.cnblogs.com/tingfeng/articles/489741.html