常用的一些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 等于：kies(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, >, gt;)
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 >$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存在时间

返回值: 无

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