• 身份验证常用正则表达式

    中国电话号码验证 匹配形式如:0511-4405222 或者021-87888822 或者 021-44055520-555 或者 (0511)4405222 正则表达式 "((d{3,4})|d{3,4}-)?d{7,8}(-d{3})*" 中国邮政编码验证 匹配形式如:215421 正则表达式 "d{6}" 电子邮件验证 匹配形式如:justali@justdn.com 正则表...

    2008-02-23 05:32:58

  • 批量对加密的asp代码解密的asp程序

    % @Language="JavaScript" % % /* *--------------- decode.asp ----------------- * 功能:遍历某个目录下的所有文件,对加密过的.asp文件 * 进行解密,并写入源文件中. * 实例:单个文件解密 * Response.Write(DncodeFile(Server.MapPath("conn.asp"))); * 实例:目录下所...

    2008-02-23 05:32:59

  • 用ASP生成ZT条型码

    html head meta http-equiv="Content-Type" content="text/html; charset=gb2312" META NAME="Author" CONTENT="haiwa" titleAsp生成条形码/title /head body % function haiwaocde(zfstr) zf = zfstr zf = replace(zf,"0","_|_|__||_||_|") zf = replace(zf,"1","_||_...

    2008-02-23 05:32:56

  • XMLHTTP获取web访问头信息和网页代码

    % Function BytesToBstr(body,Cset) dim objstream set objstream = Server.CreateObject("adodb.stream") objstream.Type = 1 objstream.Mode =3 objstream.Open objstream.Write body objstream.Position = 0 objstream.Type = 2 objstream.Charset = Cset BytesToBs...

    2008-02-23 05:32:57

  • 让你的网站首页自动选择语言

    过去在一家软件外企工作时写过一个小的web实验性项目,其中一部分需求是用户界面的多种语言(简体中文、繁体中文、英语、朝鲜语、日语)支持,当时使用了模板技术来实现了该需求,并用Cookies保存了用户的设置,但是用户第一次登陆时(或者是将Cookies删除了以后)仍然...

    2008-02-23 05:32:54

  • 一个asp快速字符串连接类

    % '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% '快速字符串连接类 '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% '名称:Class_FastString '来源:http://www.jansfreeware.com '整理:qihangnet '更新:2005年6月15日 '作用:高效地进行字符串连接,比 str = str "abc"的方法快...

    2008-02-23 05:32:54

  • 一个简单的asp数据库操作类

    % '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% '数据库操作类 '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% '名称:Class_DBOperate '版本:0.2 '作者:qihangnet '更新:2005年6月14日 '作用:简化数据库操作的流程 '授权:免费使用 '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Cla...

    2008-02-23 05:32:52

  • Microsoft VBscript运行时错误'800a000d'的解决方案

    在使用vbscript进行asp开发时,一些朋友会碰到以下类似的错误: Microsoft VBscript 运行时错误 '800a000d' 类型不匹配: '*******' /solweb/sdbottm_right.asp, line 80 错误原因: 该错误是因为在运行iis服务的windows 2003 server上安装了Internet Explorer 6 Service...

    2008-02-23 05:32:53

  • Excel数据导入到Access,Sql Server中示例代码

    将Excel中的数据导入到Access中,前提是在Access中的表已经建好。 dim conn dim conn2 set conn=CreateObject("ADODB.Connection") conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=;Data Source=c:book1.mdb" set conn2=CreateObject("ADO...

    2008-02-23 05:32:51

  • 长文章分页显示思路及页码条显示新思路

    这两天利用空闲时间编程序,琢摩了一下关于长文章分页以及页码条的简单实现方法。 思路是VBSCRIPT的。 CurrentPage=Request.QueryString("page") 'CurrentPage是当前页的意思 PageCount = Int(Len(Content)/SIZE) 1 'Content是长文章内容 'SIZE是每一页显示字数 'PageC...

    2008-02-23 05:32:48

2