我常用的一些ASP自定义函数

yesjavame

浏览: 678977 次
性别:
来自: 杭州

最近访客更多访客>>

superages

zjut_wyj

zjzouxu

jcyanfan

博主相关

博客

微博

相册

留言

关于我

文章分类

全部博客 (1234)

社区版块

存档分类

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)
endSelect
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, "<", "<")
p_STR = Replace(p_STR, CHR(32), " ")
p_STR = Replace(p_STR, CHR(9), " ")
p_STR = Replace(p_STR, CHR(34), """)
p_STR = Replace(p_STR, CHR(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,"<div width='100%' align='center'><img width='460' src=""$1"" border=""0""></div>")
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存在时间
'
' 返回值: 无
'
'*********************************************************
Function echock(key,p_STR,pExpires)
response.cookies(key)=p_STR
if not (isnull(pExpires) or pExpires="") then response.cookies(key).Expires=pExpires
End Function

'*********************************************************
' 目的: 替代Request的取值
'
' 输入: key: 取值的关键字
' pMode：取值方式
'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")
'
' 返回值: 返回request后的值
'
'*********************************************************
Function GetRequestValue(key,pMode)
dim p_STR
Select Case pMode
Case gvALL
p_STR=request(key)
Case gvForm
p_STR=request.form(key)
Case gvQuery
p_STR=request.querystring(key)
Case gvCookies
p_STR=request.cookies(key)
Case gvIP
P_STR=Request.ServerVariables("REMOTE_ADDR")
Case gvURL
p_STR=Request.ServerVariables("URL")
End Select
GetRequestValue=p_STR
End Function

'*********************************************************
' 目的: 对用户提交的数据进行类型检查
'
' 输入: exp1: 要检查的数据
' DataType：要检查的数据类型。
'ciNumber：数字
' ciString：字符
' ciDateTime：日期
' DefaultValue：缺省值。
' 返回值: 如果数据通过检查则返回原值，字符类型需要替换单引号。
' 如果不符合则返回缺省值
'*********************************************************
Function CheckInput(exp1,DataType,DefaultValue)
dim exp2
if isnull(exp1) or exp1="" then
exp2=DefaultValue
else
Select Case DataType
case ciString
exp2=Replace(exp1,"'","''")
case ciNumber
if isNumeric(exp1) then
exp2=exp1
else
exp2=DefaultValue
end if
case ciDateTime
if isdate(exp1) then
exp2=exp1
else
exp2=DefaultValue
end if
end select
end if
CheckInput=exp2
End Function