[推荐]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 
%>

当前1/2页 12下一页阅读全文

时间: 2007-08-05

推荐一篇不错的新手asp编程的基本法则第1/2页

一.新手常犯的错误 在论坛看到很多帖子代码中都有一个共同的基本错误,字段类型错误. 程序和数据库是紧紧相连的,数据库字段文本型或时间型的都使用单引号 比如下面这段修改语句: conn.execute "update Counts set counts='"&counts&"' where num="&num&" and Atime='"&now()&"'" 等号左边都是字段名,等

站长感慨asp编程究竟何去何从 原创

令人抱憾的一个现象,今天一个同事说我的网络编程栏目下的asp编程,竟然没有带来任何ip,我的站的好多asp编程资料都是手工从各大比较好的asp编写的系统中提取出来的asp的精华代码,网上转载了我的全站信息的网站有很多,我的站的asp编程,asp下fso操作,asp小偷与采集,asp class类的都是精品文章,其中asp基础更是包括了6大对象等基础学习资料,希望能给学习asp编程类的朋友带来一定的便利,而且我要说的是,大家如果来学asp的基础编程,那么我可以负责任的告诉大家,大家如果还在到底学a

ASP编程入门进阶(十四):Browser &amp; Linking

一.Browser Capabilities组件 该组件最主要的作用是:提取识别客户端浏览器的版本信息. 其原理是这样的:当客户端浏览器向服务器发送页面请求时,同时会自动发送一个User Agent HTTP标题,而该标题是一个声明浏览器及其版本的 ASCII 字符串.而Browser Capabilities组件就将User Agent映射到在文件Browscap.ini中所注明的浏览器 , 并通过BrowserType对象的属性来识别客户浏览器. 若该对象在 browscap.ini 文件中

ASP编程入门进阶(一):安装配置服务器

本人的水平有限,难免有疏忽遗漏之处,还望大家批评指正,在此先谢过. ASP编程入门进阶(一):安装配置服务器 鉴于ASP脚本语言是在服务器端IIS或PWS中解释和运行,并可动态生成普通的HTML网页,然后再传送到客户端供浏览的这一特点.我们要在本机上进行调试,那就要求我们的个人电脑具有服务器的功能. 不要看到"服务器"三个字就感到担心:我的机子配置这么底,性能这么差,是不是不能配啊.放心!配个服务器,就是多装个软件,况且就自己一个人用,根本没有必要多虑.那具体的装个什么软件呢?刚才我们

ASP编程入门进阶(七):内置对象Server

Server 对象提供对服务器上的方法和属性的访问 , 其中大多数方法和属性是作为实用程序的功能服务.(IIS HELP翻译)有了 Server 对象,你就可以在服务器上启动 ActiveX 对象例程,并使用 Active Server 服务提供象 HTML 和 URL 编码这样的函数.一,Script.ScriptTimeout在脚本运行超过一段时间之后,即作超时处理.服务器一般的默认脚本运行时间是90秒.你可以从"Internet信息服务"中"默认Web站点"的

使用ODBC数据库管理Serv-U的FTP用户及相关ASP编程[附源码示例下载]

Serv-U是一种被广泛运用的FTP服务器端软件,支持3x/9x/ME/NT/2K等全Windows系列.可以设定多个FTP服务器.限定登录用户的权限.登录主目录及空间大小等,功能非常完备. 它具有非常完备的安全特性,支持SSl FTP传输,支持在多个Serv-U和FTP客户端通过SSL加密连接保护您的数据安全等. Serv-U 支持基于ODBC数据库的用户和用户组设置,这为我们基于Serv-U编程提供了良好的接口,接下来我们介绍如何具体实现. 一.使用ODBC数据库管理Serv-U 前提条件:

ASP编程中连接数据库和数据库操作的常用代码

ASP编程常用的代码  1. ASP与Access数据库连接:   复制代码 代码如下: <%   dim conn,mdbfile   mdbfile=server.mappath("数据库名称.mdb")   set conn=server.createobject("adodb.connection")   conn.open "driver={microsoft access driver (*.mdb)};uid=admin;pwd=数据库

ASP编程入门进阶(十三):Ad &amp; Content Rotator

ASP的强大不仅仅局限于接受和显示的交互,更多的是运用ActiveX 组件进行更强大的Web应用. 那究竟ActiveX组件为何物?它又是如何运作的呢?其实ActiveX Server Components(ActiveX 服务器组件)是一个存在于 WEB 服务器上的文件,该文件包含执行某项或一组任务的代码,组件可以执行公用任务,这样就不必自己去创建执行这些任务的代码.很形象的一句话:运用组件直接采用别人经典的功能强大的程序.只不过这程序已被封装了的. 那具体ActiveX组件是如何产生.如何得

超精华的asp代码大全第1/2页

显示页面加载时间 重复域中的斑马线  显示字符串前20个字符并在结尾处添加"--"  如果动态图片为空,使用默认图片代替  如果数据为空,使用默认提示信息代替  ●显示页面加载时间 页面顶部添加下面的代码: <% Dim strStartTime Dim strEndTime strStartTime = Timer '开始时间 %> 页面(同一页)的末尾添加: <% ' 加载完毕的时间 strEndTime = Timer Response.Write ("