[推薦]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),2) & ranNum
End Function
%>

郵件地址驗證函式複製代碼 代碼如下:<%
'******************************
'函數：IsValidEmail(email)
'參數：email，待驗證的郵件地址
'作者：阿里西西
'日期：2007/7/12
'描述：郵件地址驗證
'樣本：<%=IsValidEmail(alixixi@msn.com)%>
'******************************
function IsValidEmail(email)
dim names, name, i, c
IsValidEmail = true
names = Split(email, "@")
if UBound(names) <> 1 then
IsValidEmail = false
exit function
end if
for each name in names
if Len(name) <= 0 then
IsValidEmail = false
exit function
end if
for i = 1 to Len(name)
c = Lcase(Mid(name, i, 1))
if InStr("abcdefghijklmnopqrstuvwxyz_-.", c) <= 0 and not IsNumeric(c) then
IsValidEmail = false
exit function
end if
next
if Left(name, 1) = "." or Right(name, 1) = "." then
IsValidEmail = false
exit function
end if
next
if InStr(names(1), ".") <= 0 then
IsValidEmail = false
exit function
end if
i = Len(names(1)) - InStrRev(names(1), ".")
if i <> 2 and i <> 3 then
IsValidEmail = false
exit function
end if
if InStr(email, "..") > 0 then
IsValidEmail = false
end if
end function
%>