平时每逢alexa排名更新时，我都需要将所有相关的同类网站的排名整理一下，看一下这些对手网站的排名更新情况。做的多了，也就烦了，虽然也才30多个网站，但一个个看下来也有点累。因此，想能不能用程序来读取他的排名数据。 以前记得在什么网址大全的网站上，一个网站名称后面还有这个网站的世界排名，相信肯定是用程序读取

[指定目录的文件列表] 函数名：ListFiles 作 用：指定目录的文件列表 参 数：Dirname ---- 目录名（包括路径） 返回值：文件列表字符串，之间用“|”相隔 ************************************************** Public Function ListFiles(ByVal Dirname) Dim M_fso,fNS,fLS,Fnames,FnamesN Set M_fso = CreateObject('Scrip

函数名：SubstZFC 作 用：截字符串，汉字一个算两个字符，英文算一个字符 参 数：str ----原字符串 strlen ----截取长度 返回值：截取后的字符串 适用：标题截取指定字符，如果用LEFT截取，当有英文时就会出现取出来的标题明显太短。 ************************************************** Public Function SubstZFC(ByVal s

% Dim sc4Json Sub InitScriptControl Set sc4Json = Server.CreateObject('MSScriptControl.ScriptControl') sc4Json.Language = 'JavaScript' sc4Json.AddCode 'var itemTemp=null;function getJSArray(arr, index){itemTemp=arr[index];}' End Sub Function getJSONO

[指定目录的目录列表] 函数名：ListDirs 作 用：指定目录的目录列表 参 数：Dirname ---- 目录名（包括路径） 返回值：目录列表字符串，之间用“|”相隔 ************************************************** Public Function ListDirs(ByVal Dirname) Dim M_fso,fNS,fLS,Fnames,FnamesN Set M_fso = CreateObject('Scripti

过滤html 函数名：GlHtml 作 用：过滤html 元素 参 数：str ---- 要过滤字符 返回值：没有html 的字符 ************************************************** Public Function GlHtml(ByVal str) If IsNull(str) Or Trim(str) = '' Then GlHtml = '' Exit Function End If Dim re Set re = New RegExp r

在ASP开发程序的时候,为了提高ASP运行性能往往会使用APPLICATION作为服务器缓存,APPLICATION缓存占用的是服务器内存空间,如果在ASP程序中大量使用APPLICATION缓存或者缓存大量的内容将会造成服务器内存吃紧,反而影响服务器运行性能. 海豹在偶然一次上网时,看见有网友提出使用XML作为缓存,XML占用的是硬盘空间,速度性能随然比

[创建文本文件] 函数名：WritTextFile 作 用：创建文本文件 参 数：Fname ---- 文本文件名称（包括路径） 参 数：WritString ---- 写入的内容 返回值：创建成功返回True，否则False ************************************************** Public Function WritTextFile(ByVal Fname,ByVal WritString) Dim M_fso,FnameN Writ