By zkxp 2/15/2006 http://zkxp.cnblogs.com‘受屏蔽IP地址(段)集合，星号为通配符，通常保存于配置文件中。<%Const BadIPGroup = "220.200.59.136|220.205.168.141"If IsForbidIP(BadIPGroup) = True Then    Response.Write(GetUserIP &"IP地址禁止访问")  &n...

@echo offif exist ipconfig.txt del ipconfig.txtipconfig /all >ipconfig.txtif exist phyaddr.txt del phyaddr.txtfind "Physical Address" ipconfig.txt >phyaddr.txtfor /f "skip=2 tokens=12" %%M in&nb...

<%’******************************’函数：CheckQuery(ByVal str)’参数：str ----搜索的字符串’作者：阿里西西’日期：2007/7/15’描述：限制搜索的关键字’示例：CheckQuery(str)’****************************** Public Function CheckQuery(ByVal str)  Dim FobWords, i, keyword  keyword...

过滤关键字<%’******************************’函数：ChkKeyWord(ByVal keyword)’参数：keyword,关键字’作者：阿里西西’日期：2007/7/15’描述：过滤关键字’示例：ChkKeyWord("sfsdfdf’8&5ddd")’******************************Function ChkKeyWord(ByVal keyword)  Dim FobWords, i  On Error R...

<%’******************************’函数：workdays(date_begin , date_end)’参数：date_begin,开始日期；date_end,结束日期’作者：阿里西西’日期：2007/7/15’描述：计算两个时间内的工作日’示例：workdays("2007-05-18" , "2007-05-21")’******************************function workdays(date_begin , date_end) date_be...

<%’******************************’函数：bbimg(l1,maximgheight,maximgwidth)’参数：l1,图片路径；maximgheight,最大允许图片高度；maximgwidth,最大允许图片宽度’作者：阿里西西’日期：2007/7/12’描述：限制页面图片的最大高度和宽度’示例：<%=bbimg("alixixi.gif",300,100)%>’******************************function bbimg(l1,maximgheight,maximgwidth) dim&n...

<%’******************************’函数：gen_key(digits)’参数：digits----要生成随机数的位数’作者：阿里西西’日期：2007/7/13’描述：生成由数字，大写字母，小写字母指定位数的随机数；返回值:要生成的指定倍数的随机数’示例：<%=gen_key(8)%>’******************************Function gen_key(digits)’定义并初始化数组    dim char_array(80)  &nbs...

<%’******************************’函数：GetMax(str)’参数：str，待处理的数字数组，以,分隔多了数字’作者：阿里西西’日期：2007/7/12’描述：取得数组中的最大值’示例：<%=GetMax("360,120,5,600,32")%>’******************************function GetMax(str)num=split(str,",")max=num(0)for ii=0 to ubound(num)if cint(num(ii))>ci...

若需要utf-8格式，请自行将下面的GB2312改成utf-8。’ 二进制转字符串，否则会出现乱码的！ Function sTb(vin)        Const adTypeText = 2        Dim BytesStream,StringReturn        Set&...

1.取消按钮按下时的虚线框 　　在input里添加属性值 hideFocus 或者 HideFocus=true 2.只读文本框内容 在input里添加属性值 readonly 3.防止退后清空的TEXT文档(可把style内容做做为类引用) 　　<INPUT style=behavior:url(#default#savehistory); type=text id=oPersistInput> 4.ENTER键可以让光标移到下一个输入框 　...

把文件打包成Xml文件包，带解包的ASP工具！把网站源码全部打包到Xml文件里面，生成 updata.xml 文件，把xml文件上传到空间里面然后通过 install.asp文件将文件全部释放出来。就和z-blog的 自动安装包一样的功能呵呵。代码是落伍的一位兄弟写的，不过代码好像有错误，这个是我参考他的 修改过了，可以正常运行！~~此代码可以应用到 asp程序的 自动升级服务上面。具体怎么来实现，欢迎探讨！~~就在下面回帖探讨！~~~不用设定打包目录版，需要设定打包目录版 这两个版本的区别：不用设定打包目录版，直...