复制代码 代码如下:'******************************************** '函数名：IsValidEmail '作 用：检查Email地址合法性 '参 数：email ----要检查的Email地址 '返回值：True ----Email地址合法 ' False ----Email地址不合法 '*********************************... [阅读全文]

简单介绍下功能吧：使用了ASP的一个对象ServerVariables（服务器环境变量），通过这个环境变量可以获取到真正的下载地址再通过一些简单的VBS内置函数破坏其真正地址的完整性。达到欺骗下载软件的功能。现附上源码提供大家学习。 复制代码 代码如下:% FunctIon DownloadFIle(StrFIle) StrFIlename=StrFIle Response.Buffer=True... [阅读全文]

% Function ReplaceUrl2(HTMLstr) Dim n,str1,str2,str3,str4 HTMLstr = Lcase(HTMLstr) For n=1 to Ubound(Split(HTMLstr,"a")) str1 = Instr(HTMLstr,"a") str2 = Instr(str1,HTMLstr,"") HTMLstr = left(HTMLstr,... [阅读全文]

复制代码 代码如下: function unHtml(content) unHtml=content if content "" then unHtml=replace(unHtml,"&","&") unHtml=replace(unHtml,"","") unHtml=replace(unHtml,"","") unHtml=replace(unHtml,chr(34),""") unHtm... [阅读全文]

FUNCTION: 返回个 　　SYNTAX: Array(list) 　　ARGUMENTS: 数字均可 　　EXAMPLE: % 　　Dim myArray 　　For i = 1 to 7 　　Redim Preserve myArray(i) 　　myArray(i) = WeekdayName(i) 　　Next 　　%[/IMG] 　　RESULT: 建立了个包含7个元素myArray... [阅读全文]

asp中有很多文章在研究如何提高asp执行效率,我们 得出结论 在% 和 % 的间代码执行速度要高于 在这个标签的外代码,我们有没有想过 如何重复利用这些在标签的外代码呢？有人可能觉得 这个没有什么意义！但是我们可以 怀着 种很轻松心态来看看下面这个例子看看我们得到了什么有趣现象！在这个例子中我们用到了 MSDN 中没有介绍 WriteBlock :test.a... [阅读全文]

Function ExportPageInfo(ByRef rs,curpage,i,LinkFile)Dim retval, j, pageNumber, BasePageretval = \"第\" & curpage & \"页/总\" & rs.pagecount & \"页 \" retval = retval & \"本页\" & i & \"条/总... [阅读全文]

VBScript 功能介绍说明 例子 Abs (数值) 绝对值个数字绝对值是它正值空串 (null) 绝对值也是空串未化变数其绝对为 0 例子:ABS(-2000) 结果:2000 Array (以逗点分隔元素) Array 传回元素值 例子: A=Array(1,2,3)B=A(2)结果: 2介绍说明:变量Ｂ为Ａ第 2个元素值 ... [阅读全文]

　　这是一个ASP显示剩余磁盘空间的函数，需要的朋友可以拿去直接用就可以了　　这是一个ASP显示剩余磁盘空间的函数，需要的朋友可以拿去直接用就可以了　　Function ShowFreeSpace(drvPath) 　　Dim fso, d, s 　　Set fso = CreateObject("Scripting.FileSystemObject") 　　Set d = fso.GetDriv... [阅读全文]