本帖將收集和征集最全面的ASP編程應(yīng)用中通用功能函數(shù)，人人為我，我為人人：）
只要大家每人獻(xiàn)出一兩條自己收藏已久，精典的通用函數(shù)，我想本帖將會(huì)對(duì)許許多多的ASP編程愛好者、工作者有很大的幫助，也將成為大家ASP編程的必備函數(shù)集。
趕快檢查您自己的函數(shù)庫吧，看一下你有的我們這里都有了嗎？
如果你發(fā)現(xiàn)了你的函數(shù)庫里還有著那么一兩條鮮為人知的函數(shù)，那快點(diǎn)以下面格式跟帖回復(fù)吧。
發(fā)表通用函數(shù)帖子格式：
復(fù)制代碼 代碼如下:
<%
'******************************
'函數(shù)：Function RndIP(s)
'參數(shù)：s，四個(gè)隨機(jī)生成的IP頭，如"218$211$61$221"
'作者：阿里西西
'日期：2007/7/12
'描述：隨機(jī)IP地址生成，返回一個(gè)隨機(jī)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前綴參數(shù)設(shè)置錯(cuò)誤，請(qǐng)返回重新設(shè)置后啟動(dòng)程序。"
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
%>

過濾常用的非法字符
復(fù)制代碼 代碼如下:
<% 
'****************************** 
'函數(shù)：ReplaceBadChar(strChar) 
'參數(shù)：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字符顯示
復(fù)制代碼 代碼如下:
<% 
'****************************** 
'函數(shù)：HTMLEncode(fString) 
'參數(shù)：fString，待格式化字符串 
'作者：阿里西西 
'日期：2007/7/12 
'描述：格式化HTML字符顯示 
'示例：<%=HTMLEncode(fString)%> 
'****************************** 
function HTMLEncode(fString) 
if not isnull(fString) then 
    fString = replace(fString, ">", ">") 
    fString = replace(fString, "<", "<")