本帖将收集和征集最全面的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.write"IP前缀参数设置错误，请返回重新设置后启动程序。"
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,"<","<")