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

网学网为需要ASP的朋友们搜集整理了[推荐]asp编程通用函数收藏大全第1/2页相关资料，希望对各位网友有所帮助!

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

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

格式化HTML字符显示
复制代码 代码如下:
<%
''******************************
''函数：HTMLEncode(fString)
''参数：fString，待格式化字符串
''作者：阿里西西
''日期：2007/7/12
''描述：格式化HTML字符显示
''示例：<%=HTMLEncode(fString)%>
''******************************
function HTMLEncode(fString)
if not isnull(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
end if
end function
%>

生成不重复的随机数，通常应用于静态HTML生成的文件名
复制代码 代码如下:
<%
''******************************
''函数：GetNewFileName
''参数：无
''作者：阿里西西
''日期：2007/7/12
''描述：生成不重复的随机数，通常应用于静态HTML生成的文件名
''示例：<%=GetNewFileName()%>
''******************************
Function GetNewFileName()
dim ranNum
dim dtNow
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),