[推荐]ASP编程通用函数收藏大全第1/2页(2)
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
内容版权声明：除非注明，否则皆为本站原创文章。