常用的一些ASP自定义函数

以下这些函数是我这么多年来的一个总结，有些是在工作中不断总结出来的，有些是通过网络的一些例程收集回来的，希望这些能对大家有帮助，多谢！

自定义MyFormatDateTime函数的FormatType参数项目
Const fdDefaultDateTime=1 格式为：yyyy-m-d h:m:s
Const fdDefaultDate=2     格式为：yyyy-m-d
Const fdDefaultTime=3     格式为：h:m:s
Const fdChineseDate=4 格式为：yyyy年m月d日
Const fdLongDateTime=5 格式为：yyyy-mm-dd hh:mm:ss
Const fdLongDate=6 格式为：yyyy-mm-dd
Const fdLongTime=7 格式为：hh:mm:ss

自定义获取QueryString、Form、Cookies、ServerVariables值GetRequestValue函数的mode参数
Const gvALL=1 等于：request("key")
Const gvForm=2 等于：request.form("key")
Const gvQuery=3 等于：request.QueryString("key")
Const gvCookies=4 等于：request.Cookies("key")
Const gvIP=5 等于：Request.ServerVariables("REMOTE_ADDR")
Const gvURL=6 等于：Request.ServerVariables("URL")

自定义函数CheckInput函数DataType参数
Const ciNumber=1
Const ciString=2
Const ciDateTime=3

*********************************************************
目的: 对日期输出进行格式化
         
输入: data：要输出的数字
       FormatType：日期格式
     Const fdDefaultDateTime=1 格式为：yyyy-m-d h:m:s
     Const fdDefaultDate=2     格式为：yyyy-m-d
     Const fdDefaultTime=3     格式为：h:m:s
     Const fdChineseDate=4 格式为：yyyy年m月d日
     Const fdLongDateTime=5 格式为：yyyy-mm-dd hh:mm:ss
     Const fdLongDate=6 格式为：yyyy-mm-dd
     Const fdLongTime=7 格式为：hh:mm:ss

返回值: 格式化后的日期字符串
        
*********************************************************
Function MyFormatDateTime(data,FormatType)
 if not(isdate(data)) then data=date
 select case FormatType
  case fdDefaultDateTime
   data=year(data)&"-"&month(data)&"-"&day(data)&" "&hour(data)&":"&minute(data)&":"&second(data)
  case fdDefaultDate
   data=year(data)&"-"&month(data)&"-"&day(data)
  case fdDefaultTime
   data=hour(data)&":"&minute(data)&":"&second(data)
  case fdChineseDate
   data=year(data)&"年"&month(data)&"月"&day(data)&"日"
  case fdLongDateTime
   data=year(data)&"-"&MyFormatNumber(month(data),2)&"-"&MyFormatNumber(day(data),2)&" "&MyFormatNumber(hour(data),2)&":"&MyFormatNumber(minute(data),2)&":"&MyFormatNumber(second(data),2)
  case fdLongDate
   data=year(data)&"-"&MyFormatNumber(month(data),2)&"-"&MyFormatNumber(day(data),2)
  case fdLongTime
   data=MyFormatNumber(hour(data),2)&":"&MyFormatNumber(minute(data),2)&":"&MyFormatNumber(second(data),2)
 end Select
 MyFormatDateTime=data
End Function

*********************************************************
目的: 对数字输出进行格式化
         
输入: data：要输出的数字
       NumLength：要输出的数字长度
       例如：data=1  NumLength=3  返回 001
             data=11  NumLength=5  返回 00011

返回值: 格式化后的数字字符串
        
*********************************************************
Function MyFormatNumber(data,NumLength)
 dim FillLength
 Filllength=NumLength-len(data)
 MyFormatNumber=String(Filllength,"0") & data
End Function

*********************************************************
目的: 对输出字符串进行HTML编码
         
输入: p_STR：要输出的字符

返回值: 替换后的字符串
        
*********************************************************
Function HTMLEncode(p_STR)
 if not isnull(p_STR) then
     p_STR = replace(p_STR, ">", ">")
     p_STR = replace(p_STR, "<", "&lt;")
     p_STR = Replace(p_STR, CHR(32), "&nbsp;")
     p_STR = Replace(p_STR, CHR(9), "&nbsp;")
     p_STR = Replace(p_STR, CHR(34), "&quot;")
     p_STR = Replace(p_STR, CHR(39), "&#39;")
     p_STR = Replace(p_STR, CHR(13) , "<BR>")
    HTMLEncode = p_STR
 End if
End Function

*********************************************************
目的: 对输出字符串进行UBB替换
         
输入: p_STR：要输出的字符串

返回值: 替换后的字符串
        
*********************************************************
function UBBCode(p_STR)
 p_STR = HTMLEncode(p_STR)
  dim re
  Set re=new RegExp
  re.IgnoreCase =true
  re.Global=True

  re.Pattern="(?:[IMG])(.[^[]*)(?:[/IMG])"
  strContent=re.Replace(p_STR,"<p width=100% align=center><img  width=460 src=""$1"" border=""0""></p>")
  re.Pattern="(?:[B])(.[^[]*)(?:[/B])"
  strContent=re.Replace(p_STR,"<b>$1</b>")
  re.Pattern="(?:[URL=(.[^[]*)])(.[^[]*)(?:[/URL])"
  strContent=re.Replace(p_STR,"<a href=""$1"" target=""_blank"">$2</a>")
  set re=Nothing
  UBBCode=p_STR
end function

*********************************************************
目的: 替代response.write p_Str
         
输入: p_STR：要输出的字符串

返回值: 无
        
*********************************************************
Function echo(p_STR)
    response.write p_Str
end function

*********************************************************
目的: 替代response.write p_Str & "<br>"
           response.end
         
输入: p_STR：要输出的字符串

返回值: 无
        
*********************************************************
Function die(p_STR)
    echo p_Str
    response.end
end function

*********************************************************
目的: 替代response.write p_Str & "<br>"
         
输入: p_STR：要输出的字符串

返回值: 无
        
*********************************************************
Function echobr(p_STR)
    echo p_Str & "<br>" & vbCRLF
end function

*********************************************************
目的: 替代request.cookies("key")=p_STR
         
输入: key: 输出的关键字
       p_STR：要输出的字符串
       pExpires：cookies存在时间

返回值: 无
        
********************