常用的一些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

*********************************