<%Function IPFilter(iplist, uip)Dim regEx, retVal,patrn,ipArripArr=split(iplist,"|")for i=0 to ubound(ipArr)  patrn=replace(ipArr(i),"*","\d{1,3}") &nbs

把下面代码保存为Asp_XML.asp运行即可测试效果  程序代码<% 'By Dicky 2005-03-22 21:52:18 AM QQ:25941 E-mail:AppleBBS@GMail.Com Const IsSql = 1    '定义数据库类型为SQL Server Call OpenConn(Conn) '打开数

计算闰年主要是为了判断2月份的天数，一般闰年2月份是29天，平年2月份是28天。计算闰年的算法非常简单，即：能被400整除，或者能被4整除而不能被100整除。算法如下：  程序代码<%function isLeapYear(pYear)    set oreg=new RegExp    or

假设为myfunc.asp   程序代码<% ''正则表表达式验证函数 patrn-正则表达式　strng-需要验证的字符串 Function RegExpTest(patrn, strng) Dim regEx, retVal '' 建立变量。 Set regEx = New RegExp '' 建立正则表达式。 regEx.Pattern = patrn '' 设置模

<%'//==================================文件操作================================== '取文件大小 Function GetFileSize(FileName) '//功能：取文件大小 '//形参：文件名 '//返回值：成功为文件大小，失败为-1 '// Dim f If ReportFileStatus(FileName

本来生成这个xml文档是为了开发一个ftp的搜索,后来由于没有资料参考怎么搜索xml文档,也就放弃了.其中最重要的是递归的算法.生成文件列表的速度很快.这个程序可以用于生成播放列表之类的东东.需要IIS的FSO组件支持.生成类似下面的XML文档   程序代码<?xml version="1.0" encoding="gb2312"?

Class 声明 声明一个类的名字，就是定义一些变量，属性，方法来组成一个类 这是真的！！！？VBScript中能用类！？！？不知道能不能用于ASP!?这样的话，我就不是能写出像object一样的ASP程序？！说干就干！实践是检验真理的唯一标准，自个动手吧！ 我们常常看到别的程序语言中中都有类的说明，PHP，VB，C++，这个在VBScript中的类的说明，我是第一次听到，我们的日常工作就是网站开

说明：通过随机产生密码，然后将密码EMail给注册用户，你可以确认用户的EMail填写是否正确。自动产生的密码往往安全性更高，同时，你可以过滤那些无效的用户。

把下面的代码保存为random.asp文件：

 

ASP2HTML WITH TEMPLET我希望大家看到该标题就能让想象到它的功能：1，WITH TEMPLET意思是，生成的页面架构将采用某个已设定的模板，在此之前我的一篇教程中介绍过，希望各位在看本教程之前对ASP采用模板应熟悉下。（当然，不看也没有问题，本教程同样会提及精华部分的：）2，ASP2HTML。不要我再说ASP转变成HTML的好处了吧，呵呵，其中最值得知道的就是：静态HTML页和动

<%Function CheckTheChar(TheChar,TheString) 'TheChar="要检测的字符串" 'TheString="待检测的字符串" if inStr(TheString,TheChar) then for n =1 to Len(TheString) if Mid(TheString,n,Len(TheChar))=T

这是我看完几个base64编码、解码函数后自己改写的。 因为，在中文操作系统的VBscript中，使用的是unicode字符集，所以很多base64编码、解码函数在理论上是正确的，但实际不能运行！ 我加写了几个Unicode与Ansi编码转换的函数，现贴出来，请大家执教！

<%Rem =================================================================Rem = 类:CacheClsRem = 说明:缓存的应用Rem = Revision:1.01 BetaRem = 作者:熊氏英雄（cexo255）Rem = Date:2005/05/6 18:38:10Rem = QQ:30133499Rem