[推荐]ASP编程通用函数收藏大全第1/2页

<%
'
'函数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(254rnd)
ip2 = cInt(254rnd)
ip3 = cInt(254rnd)
b = Int ((3rnd)+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 
%> 

<% 
' 
'函数HTMLEncode(fString) 
'参数fString，待格式化字符串 
'作者阿里西西 
'日期2007/7/12 
'描述格式化HTML字符显示 
'示例<%=HTMLEncode(fString)%> 
' 
function HTMLEncode(fString) 
if not isnull(fString) then 
    fString = replace(fString, ">", "&gt;") 
    fString = replace(fString, "<", "&lt;") 
    fString = Replace(fString, CHR(32), "&nbsp;") 
    fString = Replace(fString, CHR(9), "&nbsp;") 
    fString = Replace(fString, CHR(34), "&quot;") 
    fString = Replace(fString, CHR(39), "&#39;") 
    fString = Replace(fString, CHR(13), "") 
    fString = Replace(fString, CHR(10) & CHR(10), "&nbsp; ") 
    fString = Replace(fString, CHR(10), "&nbsp; ") 
    HTMLEncode = fString 
end if 
end function 
%> 

<% 
' 
'函数GetNewFileName 
'参数无 
'作者阿里西西 
'日期2007/7/12 
'描述生成不重复的随机数，通常应用于静态HTML生成的文件名 
'示例<%=GetNewFileName()%> 
' 
Function GetNewFileName() 
 dim ranNum 
 dim dtNow 
 dtNow=Now() 
 ranNum=int(90000rnd)+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.)%> 
' 
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 
%>