[推荐]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([e-mail])%> 
'****************************** 
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 
%>

1