[推荐]ASP编程通用函数收藏大全第12页

　　本帖将收集和征集最全面的ASP编程应用中通用功能函数，人人为我，我为人人：）
只要大家每人献出一两条自己收藏已久，精典的通用函数，我想本帖将会对许许多多的ASP编程爱好者、工作者有很大的帮助，也将成为大家ASP编程的必备函数集。
赶快检查您自己的函数库吧，看一下你有的我们这里都有了吗？
如果你发现了你的函数库里还有着那么一两条鲜为人知的函数，那快点以下面格式跟帖回复吧。
发表通用函数帖子格式：
复制代码 代码如下:
<%
******************************
函数：FunctionRndIP(s)
参数：s，四个随机生成的IP头，如218$211$61$221
作者：阿里西西
日期：2007/7/12
描述：随机IP地址生成，返回一个随机IP地址值
示例：<%=RndIP(218$211$61$221)%>
******************************
FunctionRndIP(s)
onerrorresumenext
Dimip,ip1,ip2,ip3,a,b,c
ifs=orubound(split(s,$))<>3then
response.writeIP前缀参数设置错误，请返回重新设置后启动程序。
response.end
endif
Randomize
ip1=cInt(254*rnd)
ip2=cInt(254*rnd)
ip3=cInt(254*rnd)
b=Int((3*rnd)+1)

a=Split(s,$)
c=a(b)
RndIP=(c&.&ip1&.&ip2&.&ip3)
EndFunction
%>

过滤常用的非法字符
复制代码 代码如下:
<%
******************************
函数：ReplaceBadChar(strChar)
参数：strChar，待过滤字符
作者：阿里西西
日期：2007/7/12
描述：过滤常用的非法字符
示例：<%=ReplaceBadChar(包含有非法字符的*示例)%>
******************************
functionReplaceBadChar(strChar)
ifstrChar=then
ReplaceBadChar=
else
ReplaceBadChar=replace(replace(replace(replace(replace(replace(replace(strChar,,),*,),?,),(,),),),<,),.,)
endif
endfunction
%>

格式化HTML字符显示
复制代码 代码如下:
<%
******************************
函数：HTMLEncode(fString)
参数：fString，待格式化字符串
作者：阿里西西
日期：2007/7/12
描述：格式化HTML字符显示
示例：<%=HTMLEncode(fString)%>
******************************
functionHTMLEncode(fString)
ifnotisnull(fString)then
fString=replace(fString,>,>)
fString=replace(fString,<,<)
fString=Replace(fString,CHR(32),)
fString=Replace(fString,CHR(9),)
fString=Replace(fString,CHR(34),")
fString=Replace(fString,CHR(39),')
fString=Replace(fString,CHR(13),)
fString=Replace(fString,CHR(10)&CHR(10),)
fString=Replace(fString,CHR(10),)
HTMLEncode=fString
endif
endfunction
%>

生成不重复的随机数，通常应用于静态HTML生成的文件名
复制代码 代码如下:
<%
******************************
函数：GetNewFileName
参数：无
作者：阿里西西
日期：2007/7/12
描述：生成不重复的随机数，通常应用于静态HTML生成的文件名
示例：<%=GetNewFileName()%>
******************************
FunctionGetNewFileName()
dimranNum
dimdtNow
dtNow=Now()
ranNum=int(90000*rnd)+10000
GetNewFileName=year(dtNow)&right(0&month(dtNow),2)&right(0&day(dtNow),2)&right(0&hour(dtNow),2)&right(0&minute(dtNow),2)&right(0&second(dtNow),2)&ranNum
EndFunction
%>

邮件地址验证函数
复制代码 代码如下:
<%
******************************
函数：IsValidEmail(email)
参数：email，待验证的邮件地址
作者：阿里西西
日期：2007/7/12
描述：邮件地址验证
示例：%>
******************************
functionIsValidEmail(email)
dimnames,name,i,c
IsValidEmail=true
names=Split(email,@)
ifUBound(names)<>1then
IsValidEmail=false
exitfunction
endif
foreachnameinnames
ifLen(name)<=0then
IsValidEmail=false
exitfunction
endif
fori=1toLen(name)
c=Lcase(Mid(name,i,1))
ifInStr(abcdefghijklmnopqrstuvwxyz_-.,c)<=0andnotIsNumeric(c)then
IsValidEmail=false
exitfunction
endif
next
ifLeft(name,1)=.orRight(name,1)=.then
IsValidEmail=false
exitfunction
endif
next
ifInStr(names(1),.)<=0then
IsValidEmail=false
exitfunction
endif
i=Len(names(1))-InStrRev(names(1),.)
ifi<>2andi<>3then
IsValidEmail=false
exitfunction
endif
ifInStr(email,..)>0then
IsValidEmail=false
endif
endfunction
%>

12下一页阅读全文