本帖將收集和徵集最全面的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,"<","<")