'************************************* '读取文件 '************************************* Function LoadFromFile(ByVal File) Dim objStream Dim RText RText = Array(0, "") Set objStream = Server.CreateObject("ADODB.Stream") With objStream .Ty...

ASP递归无限级分类函数 复制代码 代码如下: % '函数：getCatagory '功能：获得分类列表 '参数：cat_arr - 分类数组(Rscordset:id:分类编号,pid:上级分类,classname:分类名称,childs:子分类) ' 按此输出...

复制代码 代码如下: % '－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－ '天枫ASPclassv1.0，集常用asp函数于一体 '天枫版权所有http://www.52515.net 'QQ:7699...

我在初学时查阅过大量相关资料，发现其中提供的很多方法实际操作起来并不是那么回事。对于简单的应用，这些资料也许是有帮助的，但仅限于此，因为它们根本就是千篇一律，互相...

% '****************************** '函数：Userip() '参数：无 '作者：阿里西西 '日期：2007/7/12 '描述：取得客户端IP地址 '示例：%=Userip()% '****************************** FunctionUserip() DimGetClientIP '如果客户...

'================================================== '函数名：ScriptHtml '作用：过滤html标记 '参数：ConStr------要过滤的字符串 '================================================== FunctionScriptHtml(ByvalConStr,TagName,FTy...

%@Language=vbscript% % '遍历目录以及目录下文件的函数 % % FunctionBianli(path) SetFso=server.createobject("scripting.filesystemobject") OnErrorResumeNext SetObjfolder=fso.getfolder(path) SetObjsubfolders=objfolder.subfolders For...

1。建立数据库表 表名为online 设如下字段 id '用来记录每一个访问都的session.sessionid name '如果是访客，则记录为访客。 online '如果是访各为0 如果是会员1 datetime '最近活动时间 username '会...