作者真是细致,把这些东西都封装成为class了。有点过了,这些东西可以作成过程或者函数来封装,sub和function也是封装,不一定非要class才可以。您的文件库不一定全部都是class,一些sub和funtion都是必要的。 实现的功能包括 1,showInfo(e_title,c_url,e_num,e_des,e_time,opera,ip,reurl):显示错误信息 2,getIP():取得 发布时间:2012-01-11 作者: 佚名 views(179)
为了遍历Contents集合,可使用一个For Each ... Next结构。集合中的每一项可以是一个简单的Variant类型变量、一个Variant数组或者一个对象的引用。因为需要对每种类型的值进行不同的处理,所以就不得不对每一个进行检查来判别其类型。 在VBscript中可使用VarType函数完成这个工作。这里使用IsObject和IsArray函数代替: For 发布时间:2012-01-11 作者: 佚名 views(200)
一个用来实现tag功能的asp类,具体的作用,如果您可以读懂的话就可以明白了了。 修改记录: 1,增加扩展函数,2006-12-3 % ''****************************** ''类名:tagEngine ''名称:标签引擎 ''日期:2006-11-29 ''作者:西楼冷月 ''网址:www.xilou.net | www.chinaCMS.org ''描述:只有提取标签功能,没有解析标签功能 发布时间:2012-01-11 作者: 佚名 views(184)
Server.Transfer file Server.Execute file Transfer 的作用是在一个页面执行的时候转向到第一个页面的地址.而执行完之后不执行转向前的程序. 比如 F1.ASP程序代码: % response.write 第一个文件的内容brhr server.Transfer F2.ASP response.write 第一个文件不执行的内容 % F2.ASP %=now()% 另外例如http://www.aspxuexi. 发布时间:2012-01-11 作者: 佚名 views(190)
本文介绍一种使用在vbscript中用来操作数组的class,大大加强了asp对于数组的处理能力。 作者的网站是 www.chinaCMS.org asp对数组操作要注意的一些问题: 1,LBound()和UBound()是取得数组里最小的和最大的索引值,并不是数组的长度, 数组的长度是:UBound()+1 2,有时要动态改变数组大小,所以要先声明一个空的数组: Dim ar 发布时间:2012-01-11 作者: 佚名 views(190)
Server 对象提供对服务器上的方法和属性的访问。其中大多数方法和属性是作为实用程序的功能服务的。 语法 Server.property|method ScriptTimeout ScriptTimeout 属性指定脚本在结束前最大可运行多长时间。 当处理服务器组件时,超时限制将不再生效。 语法 Server.ScriptTimeout = NumSeconds 参数 NumSeconds 指定脚本在被 发布时间:2012-01-11 作者: 佚名 views(174)
Server对象提供对服务器上访问的方法和属性.大多数方法和属性是作为实用程序的功能提供的。 语法: Server.property|method 属性(property) Server对象只有一个属性:ScriptTimeout 程序能够运行的最大时间 方法(Methods) CreateObject 建立一个对象实例. Execute 执行一个asp文件 发布时间:2012-01-11 作者: 佚名 views(142)
%@ Language=VBScript % % Option Explicit % 您的sessionID号是:%=session.sessionid%br % Response.Write 在你的程序中一共使用了 Session.Contents.Count _ 个Session变量P Dim strName, iLoop For Each strName in Session.Contents ''''判断一个Session变量是否为数组 If IsArray(Session(strNam 发布时间:2012-01-11 作者: 佚名 views(175)
|