作家
登录

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

作者: 来源:www.28hudong.com 2013-03-30 08:37:54 阅读 我要评论

本帖将收集和征集最全面的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 %>

  推荐阅读

  asp 取得用户真实IP,对代理地址仍然有效的函数

<% '****************************** '函数:GetUserTrueIP() '参数:无 '作者:阿里西西 '日期:2007/7/13 '描述:取得用户真实IP,对代理地址仍然有效;返回值:文本类型的IP地址 '示例:<%=GetUserTrueIP()%> '>>>详细阅读


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

地址:http://www.17bianji.com/kaifa2/ASP/32489.html

关键词: 探索发现

乐购科技部分新闻及文章转载自互联网,供读者交流和学习,若有涉及作者版权等问题请及时与我们联系,以便更正、删除或按规定办理。感谢所有提供资讯的网站,欢迎各类媒体与乐购科技进行文章共享合作。

网友点评
自媒体专栏

评论

热度

精彩导读
栏目ID=71的表不存在(操作类型=0)