艾恩ASP学习BLOG

艾恩无组件上传类配合FLASH实现多文件带进度条上传

2012-4-11 17:27:58

   以前写过用Ajax来实现的无刷新上传，效果不是很理想，这里也不推荐再使用。最近对前段时间发布的Flash上传进行了更新，供大家参考。

  主要功能：
    1、多文件带进度条上传
    2、增加了回调函数，可以使用返回的文件名，例如图片预览等
    3、对配置文件进行精简，尽可能简化配置，方便上传

  功能限制：建议使用UTF-8编码以保证中文不会乱码；无组件上传的限制仍然存在，对于大文件支持不好；

  如果有能力，可以自行研究下multiupload.js文件，实现功能的自定义。
  配置如下，有说明，就不详解了。部分内容与upload.asp相对应

var Setting={
        debug:false,
        upload_url: "upload.asp",
        file_post_name : "filedata",
        file_types : "*.bmp;*.rar;*.iso;*.jpg;*.gif;*.png;*.exe;*.flv",//文件格式限制
        file_types_description : "文件类型",//文件格式描述
        file_size_limit : "100 MB",        // 文件大小限制
        file_upload_limit : 5//上传文件总数
};

//回调函数，this.name会返回服务器上的文件名字；如果不需要可以直接将本函数去掉，或者把函数内容留空
function CallBack(){
        document.getElementById("fileUploaded").value += "\n" + this.name;
}

请转入http://dev.mo.cn/source_198.html进行代码下载

第二个Sqlserver自定义函数-从url分理出域名(主机名)

2012-4-1 14:10:43

/*将域名从url中分离出来，第一次写，仅供参考*/
CREATE FUNCTION [dbo].[GetDomain] (@url varchar(1024))
RETURNS varchar(1024) AS
BEGIN
if @url=null
return '';
declare @bindnum varchar(1024);
set @bindnum = '';
declare @p1 int;
set @p1=charindex('//',@url,1);
set  @bindnum = @url;
if @p1>0
set  @bindnum = substring(@url,@p1+2,len(@url)-@p1-1);
/*declare @domain varchar(255);*/
set @p1 = charindex('/',@bindnum,1);
if @p1<=0
return @bindnum;
set  @bindnum = substring(@bindnum,1,@p1-1);
return @bindnum;
END

简单模仿c#的string.format(asp,js均可用)

2012-4-1 12:03:17

'莫名的流泪'

2012-3-27 21:14:59

突然明白一个词：“莫名的流泪”。或许，是一种莫名的感动吧。
《陈奕迅 - 好久不见》

星外系统IIS日志分析常用的几个命令

2012-2-2 18:00:23

命令中的{0}代表源日志文件的路径，实际运行的时候请替换为真实路径
命令中的{1}代表日志导出到的文件的路径，实际运行的时候请替换为真实路径
例如：
7i24iislog.exe -i:BIN -o:W3C "select siteid,uristem,bytessent from 'd:\iislog\w3svc\sss.ibl' to 'd:\a.log' order by bytessent desc"

1、查询某IP访问某网站的某网页的次数，倒序排列
7i24iislog.exe -i:BIN -o:W3C "select clientipaddress,siteid,uristem,count(clientipaddress) from '{0}' to '{1}' group by clientipaddress,uristem,siteid order by count(clientipaddress) desc"

2、某IP访问整个服务器网站的次数
7i24iislog.exe -i:BIN -o:W3C "select clientipaddress,count(clientipaddress) from '{0}' to '{1}' group by clientipaddress order by count(clientipaddress) desc"

3、按照接收数据（用户上传）大小排列
7i24iislog.exe -i:BIN -o:W3C "select siteid,uristem,bytesreceived from '{0}' to '{1}' order by bytesreceived desc"

4、按照发送数据（用户下载）大小排列
7i24iislog.exe -i:BIN -o:W3C "select siteid,uristem,bytessent from '{0}' to '{1}' order by bytessent desc"

5、检测PHP发包
7i24iislog.exe -i:BIN -o:W3C "select siteid,uristem,uriquery from '{0}' to '{1}' where uriquery like '%port=%' and uriquery like '%ip=%'"

星外对接DNSPOD接口完整代码(ASP)[2012-3-20修改]

2012-1-18 15:33:20

下载地址：20120320110630306

整合步骤：
1、解压下载到的文件夹，将文件夹内容复制到任何一个可以访问到的目录里，例如/dns/dnspod/
2、访问：http://你的主控域名/dns/dnspod/update.asp，执行本文件进行安装
3、在/dns/logininfo.asp中添加相应的链接，例如MYDNS功能
4、完成

注意：
1、安装过程仅创建配置文件以及增加5个数据库字段，无其他任何要求
2、创建配置文件需要写入权限，如果您担心网站安全问题，升级的时候可以只点击“仅升级”，然后自己手动配置config.asp
3、理论上支持任何版本的星外
4、可以手动同步本地DNS解析记录到DNSPOD接口（解析记录列表中，显示为红色的即本地未同步的记录）
5、如果帐户里面已经有域名了，安装后请先同步一下，否则解析时会出现“Domain is exists”错误

jquery实现select的美化

2012-1-16 15:38:45

jquery实现select的美化！

 　 
 　 　　　　option 1
 　 　　　　option 2
 　 　　　　option 3
 　 　　　　option 4

马上2012了,发今年最后一篇文章-使用C++开发IsapiFilter

2011-12-31 20:54:38

    眼看要2012了，发现自己已经好几个月没有管自己的博客了，只能怪自己太懒。在2012来临之际，发篇关于用C++开发Isapi的文章，顺带将源码也发上来。
  因为公司最近要开放免费主机，但是有个条件-在空间里面要强制加广告（但是可通过某些方式来取消），最初想的是去买一套别人的收费程序，直接放到服务器上使用，但是感觉成本太高（一套程序要1800，只能用在一台服务器上），因此有了自己开发的念头。
  之前没有接触过C++，但是对它确实很是向往，于是就开始了边学边开发的过程，到目前为止，已经解决了所有问题，成功在客户网站上加入了自己指定的代码，达到了自己想要的效果，但是在这里就不发强制广告的源码了，现在发一个最基本的Isapi Filter的结构，用这个框架完全可以开发像IIS防盗链、URL重写等组件了。
  MFC中已经实现了这些功能，最初的版本使用MFC做的，但是感觉太臃肿，最后抛弃MFC重新做了无MFC版本。
  实现的功能：
  1、获取Isapi Filter所在的目录。（没解决这个问题之前，用Isapi读取自己定义的配置文件很是麻烦-配置文件要放到固定目录）
  2、已经实现的几个接口
DWORD OnUrlMap (PHTTP_FILTER_CONTEXT pfc, PHTTP_FILTER_URL_MAP pMapInfo) ;
DWORD OnEndOfRequest(PHTTP_FILTER_CONTEXT pfc);
DWORD OnPreprocHeaders(PHTTP_FILTER_CONTEXT pfc, PHTTP_FILTER_PREPROC_HEADERS pHeaderInfo);
  你可以根据自己需要来添加Isapi Filter感兴趣的通知，IIS支持如下通知：
#define SF_NOTIFY_SECURE_PORT               0x00000001
#define SF_NOTIFY_NONSECURE_PORT            0x00000002
#define SF_NOTIFY_READ_RAW_DATA             0x00008000
#define SF_NOTIFY_PREPROC_HEADERS           0x00004000
#define SF_NOTIFY_AUTHENTICATION            0x00002000
#define SF_NOTIFY_URL_MAP                   0x00001000
#define SF_NOTIFY_ACCESS_DENIED             0x00000800
#define SF_NOTIFY_SEND_RESPONSE             0x00000040
#define SF_NOTIFY_SEND_RAW_DATA             0x00000400
#define SF_NOTIFY_LOG                       0x00000200
#define SF_NOTIFY_END_OF_REQUEST            0x00000080
#define SF_NOTIFY_END_OF_NET_SESSION        0x00000100

这些通知可以在GetFilterVersion中添加，在HttpFilterProc添加相应的回调函数
  3、提供一个最简单的向客户端输出文本的例子，hello程序：
char error_info[256]="HTTP/1.1 200 OK\r\nContent-Type:text/html\r\n\r\nHello,This is my first iis isapi filter!";
DWORD slen = strlen(error_info);
pfc->WriteClient(pfc,error_info,&slen,0);

就这些，剩下的就看各位如何发挥了，网络上比较少见源码下载，这里就不掩藏了，下载地址如下
IIS_Filter_Example

本代码在32位Windows 2003、VC++6.0下编译通过，IIS6.0中的运行效果如下
560)this.width=560" />

恭祝大家元旦快乐，给大家拜个早年咯！

QQ登录ASP版(oauth1.0版本)

2011-8-3 18:01:34

QQ登录ASP版本，采用oauth1.0版本，配置简单，只要修改config.asp即可
将本文件所在的文件夹放在网站任何目录均可

下载地址

=========================
1.配置文件config.asp

'参数配置
'申请到的appid
const appid = "123456"
'申请到的appkey
const appkey = "76b8782476b8782476b8782476b87824"
'QQ登录成功后跳转的地址,请确保地址真实可用，否则会导致登录失败。
const callback = "http://XXXX.com/quickLogin/qq/returnAct.asp"

申请地址：http://connect.opensns.qq.com/

示例地址：http://dev.mo.cn/quickLogin/qq/

艾恩ASP无组件上传+AspJpeg水印(图片和文字)

2011-7-23 11:32:26

艾恩ASP无组件上传+AspJpeg水印(图片和文字)
实例中同时包含了图片水印和文字水印功能
很久前就有人要，一直没整理出来，现在放出来供大家用
示例图片
560)this.width=560" />
下载地址：20110723113557690

【忍住】两部委：企业向个人赠送礼品三情形需缴个税

2011-6-20 16:56:57

中国经济网北京6月20日讯财政部和国家税务总局日前联合下发《关于企业促销展业赠送礼品有关个人所得税问题的通知》，通知中明确企业向个人赠送礼品，属于以下三种情形的，取得该项所得的个人应依法缴纳个人所得税，税款由赠送礼品的企业代扣代缴。

这三种情形分别为：企业在业务宣传、广告等活动中，随机向本单位以外的个人赠送礼品，对个人取得的礼品所得，按照“其他所得”项目，全额适用20%的税率缴纳个人所得税。企业在年会、座谈会、庆典以及其他活动中向本单位以外的个人赠送礼品，对个人取得的礼品所得，按照“其他所得”项目，全额适用20%的税率缴纳个人所得税。企业对累积消费达到一定额度的顾客，给予额外抽奖机会，个人的获奖所得，按照“偶然所得”项目，全额适用20%的税率缴纳个人所得税。

通知要求，企业赠送的礼品是自产产品（服务）的，按该产品（服务）的市场销售价格确定个人的应税所得；是外购商品（服务）的，按该商品（服务）的实际购置价格确定个人的应税所得。

此外，通知还明确了企业在销售商品(产品)和提供服务过程中向个人赠送礼品，属于三种情形之一的，不征收个人所得税。这三种情形为：企业通过价格折扣、折让方式向个人销售商品(产品)和提供服务；企业在向个人销售商品(产品)和提供服务的同时给予赠品，如通信企业对个人购买手机赠话费、入网费，或者购话费赠手机等；企业对累积消费达到一定额度的个人按消费积分反馈礼品。

SEO-新站关键词的几个布局技巧

2011-6-17 18:04:33

一个新站关键词的合理布局是十分重要的，特别是对于一个新手站长来说，对网站的关键词布局一直是一件头疼的事情，那么我们应该如何对一个新站进行关键词布局呢？下面我们就一起来探讨一下新站的关键词的布局。

在我们进行关键词布局之前应该了解金字塔原理，金字塔原理是由一个总的核心，在由这个核心像下面依次递增。那么我们对关键词进行进行布局的时候也应该遵循这个原理，就是把最重要的关键词做为网站的核心关键词，然后把次一点的关键词或者竞争小一点的关键词作为目录也的关键词，最后把竞争极小或者长尾关键词作为内容页的关键词来进行优化。这样就形成一个最简单的金字塔远离。

一，网站核心关键词布局
一般对于网站的核心关键词（也就是网站的主关键词）设置2-4个即可，如果核心关键词设置过多不利其他关键词的权重集中，也就不利于排名。并且我们在选择网站的主关键词的时候应该考虑到网站的内容建设，或者网站的内容根本就是围绕这些关键词而进行开展。而在这之前我们应该都关键词进行一个大致分析，关键词的分析可以使用百度指数和一些关键词分析工具等。这样可以大致了解关键词热度以及竞争度。

二，栏目页（目录页）的关键词布局
首先网站的各个栏目的建立是根据网站的内容或者针对关键词进行用户需求分析之后而展开的。而不是盲目的，随便的建立的，一定要考虑的用户的需求。那么我们知道，一个网站的权重基本都集中的网站首页，网站的栏目页面是网站权重集中的第二个地方。

栏目页的关键词一定要根据内容和用户需求而展开，要与栏目的内容具有充分的相关性，并且栏目页的关键词的热度应该小于首页关键词的热度，这样才有利于竞争和排名。栏目页的关键词一般布局2-4个即可。

三、文章页或者产品页关键词布局
栏目页或者产品页应该重复去挖掘网站的长尾关键词或者竞争相对较小的关键词来进行布局使用。那么我们就可以使用百度指数或者关键词挖掘工具等，大量的挖掘与网站相关的长尾关键词，并针对这些长尾关键词进行内容建设。并且在布局这些长尾关键词的时候不仅仅要与网站具有相关性，还应该与各个栏目具有充分的相关性。这样才有利于文章页（产品页）关键词排名和栏目页关键词排名。而且这样设置保证了文章页（产品页）的关键词与栏目也和首页的关键词环环相扣，与主题具有充分的相关性，还保证了长尾关键词的合理使用。

总结：在关键词的布局过程中应该保持一个清晰的思维或者计划，不能胡乱设置，文章页，栏目页和主题的关键词保持环环相扣，并具有充分的相关性，这样有利于整站权重的分配，并且有利于关键词在搜索引擎中的排名。

网站SEO优化要把握的核心元素

2011-6-17 16:54:26

很多站长都在给自己的网站做SEO，都想竭尽全力的提升网站关键词的排名，但是这个过程是因不同的行业其困难程度是不同的，所以一些站长做起了以长尾词为关键词的网站，这类词的转化率较高，同时也较多人搜索，因此也不失为一种好办法。其实不论做什么类型的关键词，做SEO都必须把握其中几个最主要的元素，这些元素看似很简单，但是在实际中我们可能会疏忽或者忘记，下边一一和大家介绍。

文字与图片
文字多图片少并不是必须的，但是考虑到SEO的话，这个几乎是最好的选择。搜索引擎爬行的是文字而不是图片，用户搜索的词也是文字而不是图片，因此图片只是作为一个点缀（有些网站除外），有些网站在做站过程中不知不觉的就采用了大量的图片，这样其实并不友好搜索引擎，记得要把握这个大原则，尽量少用图片。

处理速度
Google已经明确表示了网站的打开速度会影响关键词排名，对于百度而言，我相信如果蜘蛛去爬行的话还要等半天的时间，那么肯定不会给予过高的权重。打开速度快另外一个好处就是对于用户，我们辛辛苦苦做推广，拉来一个客户的成本是非常高的，结果因为网速问题而把客户流失掉将是非常可惜的。

标签运用
标签的作用不容小觑，一个合理的标签对于搜索引擎而言就相当于一句温暖人心的话一样令人印象深刻，所以网站在各个位置使用标签产生的作用是非常大的，比如首页可以加粗，比如文章标题一定要使用H标签，比如一些长尾词记的使用斜体或者加深颜色，这样都可以一定程度上提醒用户和搜索引擎，这些词语的与众不同。虽然这是一个小小的细节，但整体上，意义非凡。

内链控制
这里为什么说是内链控制元素呢？因为对于一些不经常使用的链接要使用nofollow屏蔽掉，这样能有效的控制权重流失。如果是小型网站，那么问题不大，如果是稍有规模的大站，那么这些没有多大用出的全站链接是非常占用权重的。另外就是平时提的内部链接了，这是关键词优化的一个核心元素，一个页面优化一个关键词，在别的地方一旦出现这个关键词就回链到这个页面URL上，这就是一个非常经典凑效的内链优化。

静态化路径
网址URL一直以来都是收录时一个重要的格式，不同格式的URL对收录影响很大，虽然现在搜索引擎支持动态路径，但是如果参数过多，那么权重肯定降低，所以在有机会的条件下一定要把URL好好优化一下，即使自己不会，也可以请人来做，这个是必须的，当网站的内容越来越多，你就会体会到静态化的路径是多么有利。

核心外链
现在搜索引擎的算法虽然说一直在变化，但是万变不离其宗，在主要的方面，可以说还是以前大家所谈论的这些内容。外部链接就是其中相当重要的一个环节，道理也很简单，这是搜索引擎的核心算法之一，它暂时不会更新主要算法，即使更新，也是慢慢再变化。所以，我们的重点依旧还要放在外部链接上面。

网站做SEO除了上边提到的几点之外，还有很重要的就是耐心，一个好的网站并不一定立马会有好的排名，等到一定的时候，搜索引擎信任你的时候，那么网站就是真正成熟的时候。所以，保持稳定的前提下，最重要的就是做好这几个核心元素。

第一次写SqlServer自定义函数IP2Long-将IP转换为整数

2011-6-11 12:59:40

第一次写Sqlserver自定义函数，呵呵，自己写的分割算法，肯定不是最好的方法，慢慢学习吧
调用方法:select dbo.IP2Long('211.87.139.21')

CREATE FUNCTION [dbo].[IP2Long] (@ip varchar(15))  
RETURNS bigint AS  
BEGIN 
        declare @ip1 int;
        declare @ip2 bigint;
        declare @cindex int;
        declare @i int;
        set @ip1 = 0;
        set @ip2 = 0;
        set @cindex=charindex('.',@ip,1);
        set @i=3;
        if(@cindex<=0)
                return -1;
        while(@cindex>0)
                begin
                        set @ip1 = cast(substring(@ip,1,@cindex-1) as int);
                        set @ip2 = @ip2 + cast(@ip1 as bigint) * power(256 ,@i);
                        set @ip = substring(@ip,@cindex+1,datalength(@ip)-@cindex+1);
                        set @cindex = charindex('.',@ip,1);
                        set @i=@i-1;
                end
        if(@i<>0)
        return -1;
        set @ip1 = cast(@ip as int);
        set @ip2 = @ip2 + cast(@ip1 as bigint) * power(256 ,@i);
return @ip2
END

据说看了这两张图能减肥

2011-6-11 1:06:49

560)this.width=560" />
560)this.width=560" />
据说看了之后可以减肥啊！
不过心理学老师陆霭霞则表示，目前没有看过相关的研究，所以无法确定是否真的有其效果。网络上疯传的「减肥神图」号称是靠着色彩心理暗示瘦身法，让人看到后食欲降低达到减肥作用。其中一张图上画满密密麻麻的点，颜色鲜明缤纷，据说是可以镇定神经，促进肠胃蠕动；另外一张则是运用简单的黄橘色和黑色色块叠合，并且称黄色是对胃、黑色对肾，两种结合可以降低食欲！！！

好久没发东西了，发布个Ajax类，类似jQuery的

2011-6-10 22:30:02

下载地址：http://dev.mo.cn/source_200.html
其实这个东西写了很久了，自己一直在使用，我们公司的网站http://www.eb.com.cn的Ajax全部是用的这个东西
压缩包里面包含了详细的说明和示例（里面有一个简洁的省市三级联动菜单哦）。
调用方法类似jQuery，可以绑定form表单提交
如果你只使用jQuery的Ajax功能的话，可以抛弃jQuery了

Ajax Class of Aien
Author : Aien
homepage : http://dev.mo.cn
email : i@ruboy.com
QQ : 1034555083
Thanks for using this class. You can visit my homepage for help .
You can use this class and don't need to change any code .

这就是男生…很犀利很现实…一语道破！！！（90%是真实的）

2011-5-31 21:36:36

1.每个男生都好色，不好色的男生我还没见过，只不过是色的程度不同。
　　2.在宿舍里，男生只聊两个话题，学习和女生。谈学习，就是骂老师骂学校骂班干部　　；谈女生，就会评比谁的脸蛋漂亮，谁的身材苗条。每个男生都喜欢美女，不管他嘴上是不是承认。不是男生犯贱，男人的天性如此。所以女同学必要的时候学会打扮一下吧，会减少被讽刺的机会。
　　3.男生都喜欢衣着得体、落落大方的女生，但是普遍对浓妆妖艳的女人感到恶心。
　　4.对你的身材不必太在意，男生基本上只羡慕明星的魔鬼身材，而大多数说不会找一个这样的老婆。
　　5.如果你气质够好的话，无论长相身材如何，都不必担心会被男生拿来开玩笑，女生的气质比脸蛋重要。如果都没有的话，那就学会微笑。
　　6.男生基本上都喜欢笨女孩（除了做饭洗衣服）。我不知道为什么，但事实如此，心眼太多的女孩男生或多或少都会反感。所以你即使不笨，还是要‘傻’一点好。但是记住，所有男生非常讨厌女人做作，非常非常非常地讨厌。
　　7.即使再花心的男生，在他内心深处也会有一个一直深爱的女孩，而且，只有一个。男生会认真的照顾，爱护自己的女朋友一生一世，但可能她并不是他心底深处爱的那个女孩，但是千万不要以为这是男生的不忠，因为男生知道什么是现实，知道什么才是应该做的。这个女孩是谁，除非他潜意识失控，否则谁也不知道。
　　8.男生是思维动物，靠理智生活，喜欢有步骤，有计划，有目的的行事。男生大部分喜欢会撒娇的女生，但是如果无理取闹的话，基本上离分手不远了。如果在唠唠叨叨，磨磨唧唧，不给男生自由思考的空间，哪明天就是末日。
　　9.不要以为男生没感觉，谁对他好，谁对他不好，男生能感觉出来，会记在心里。不过有例外，男生做错了，直接告诉他，别让他猜，一般靠思维生活的男生凭感觉猜不出来，而且反感。
　　10.女生追男生的话，是非常容易的。但是如果男生不愿意，放弃吧，肯定追不到。为什么？原因非常非常多。
　　11.男人有钱就变坏，尤其是商人。不信你会后悔。
　　12.男生主动和女生交往，尤其是漂亮的女生，基本上不只是只想交个朋友而已，差不多都没安什么好心。
　　13.大多数男生都爱面子，甚至面子比命都重要。如果是另一个男生不给他面子，结果可能会打一仗。而女生不给他面子，后果只有更严重。所以如果你不想跟他手的话，可以私下批评他，但不要当着他朋友的面给他难堪。如果想分手，没有比让他当众出丑更有效的了。对了，千万别给男朋友戴绿帽子。
　　14.如果一个男生喜欢一个女生：他会找借口送女生东西；女生有事求他,他会很乐
意去做,并且高效率完成；他会.给女生取外号；他会喜欢做一些事情吸引女生的注意；他会总盯着那个女生；他会捉弄自己喜欢的女生；他会摸女生的头；他会故意和那个女生斗嘴，惹女生生气。
　　15.如果一个男生从心底爱一个女生：单独在一起时，他会很尴尬，看到她的时候会害羞说话都说不连贯；不会很快回那个女生的短信，而是会改了又改才发出去；装作不在乎她,心里却总是挂念她；女生拜托他的事情,就算再难再艰巨，他也会答应，会做好；最重要的是，即使他和全世界都知道是这个女生错了，他还是会站在女生这边。
　　12.男生的忍耐也是有限的。
　　13.男生总会女生说：我一生中最爱的人是你。其实，就算不遇到你，他也会与其他的女人一见钟情。
　　14.男人，心里都曾梦想过自己的另一半是个什么样子。比如身高，身材，脸蛋，性格，甚至发型等等，但是这个人基本不存在。所以，如果和男生吵架时，他说对你的脸蛋，身材等等不满意。别在意，他是拿你和一个不存在的幻想比较呢，没有实际意义，过后他们并不会真的挑剔对方。
　　15.男生最怕女生说他没能力，没安全感，其实每一个男生都在或明或暗的努力着，　没有不知上进的男生，上进争强是所有雄性动物的天性。不要对男生要求的太过分，总说男生不如谁谁，从女生那里，男生需要的是更多的肯定。
　　14.男生普遍的认为，钱是挣不完的，富贵有命，挣多少花多少。所以你逼男生拼命地挣钱，男生会反感。
　　15.吃饭的时候，女生想点什么就点，别跟男生磨磨叽叽的，男生都讨厌这样的人。
　　16.男生对女生说的谎话比女生平时说的谎话还多，但有的时候是为了与女生更好的相处，有的时候是被女生逼的。
　　17.现在还有很多重视处女情结的男生，所以。。。。不要挥霍了青春，最后才想到把生活的　　责任交给另一个男生。大部分男生说不会再要这样的女人。
　　18.男生和女生上床不一定是爱她，我听到许多“再玩玩就把她踹了。”的话出自我认识的男生嘴里。人心不古是没办法的事.。
　　19.好男生还是有很多的，学会看他的眼睛。

精神病人知识广，弱智儿童欢乐多

2011-5-27 21:14:26

俗话说的好：精神病人知识广，弱智儿童欢乐多

一篇帖子在疯人院引发了如下血案……

如果你在长沙的同学很久没联系你了，请不要责怪他们，他们可能已经 1.突然热死了，2.突然冷死了，3.被风吹走了。（悲惨的长沙亲）

如果你一个名字第二个字是"jia"的同学很久没联系你了，请不要责怪他们，他们可能已经被枪毙了。（药家鑫，马加爵，杨佳……）

如果你学新闻的同学很久没联系你了，请不要责怪他们，他们可能已经 1.被假新闻残害了，2.被当事者棒击了，3.被真新闻和谐了。（）

如果你在故宫工作的同学很久没联系你了，请不要责怪他们，他们可能已经被人偷走了。（不解释）

如果你学设计的同学很久没联系你了，请不要责怪他们，他们可能已经 1.被3D马克思带走了，2.被CAD逼死了，3.被FL闪死了。（学设计的伤不起）

如果你一个玩人人小组的同学很久没联系你了，请不要责怪他们，他们可能已经 1.当组长忙死了，2.当管理员被组长抓去做苦工了。（辛苦鸟）

如果你在清华的同学很久没联系你了，请不要责怪他们，他们可能已经去真维斯楼了。（清华大学新闻学院院长李希光教授：“‘真维斯’是‘真理维护者居于斯’。” 那么下回可以是杰士邦：“杰出人士居此邦”）

如果你在长江中下游的同学很久没联系你了，请不要责怪他们，他们可能已经渴死了。（大旱）

如果你一个玩摄影的同学很久没联系你了，请不要责怪他们，他们可能已经 1.被别人的设备气死了，2.买设备攒钱饿死了，3.买完设备穷死了，4.买完后看到更好的设备愤懑而终。（单反穷三代）

如果你一个姓奥的同学很久没联系你了，请不要责怪他们，他们可能已经被奥巴马干掉了！！！奥特曼你小心点！！！（奥萨马，奥马尔都挂了。大亮！！）

如果你一个疯疯癫癫的同学很久没联系你了，请不要责怪他们，他们可能已经 1.飞升了，2.渡劫失败了。（情何以堪，一个MM回复的）

如果你刚刚结婚的同学很久没联系你了，请不要责怪他们，他们可能已经 1.被老婆逼死了，2.被老婆耗死了，3.被老婆弄死了，4.把老婆弄死后自杀了。（婚姻是爱情的坟墓？）

如果你做程序员的同学很久没联系你了，请不要责怪他们，他们可能已经 1.被代码逼死了，2.被BUG吃了。（程序员更伤不起）

如果你在人人疯人院群里的同学突然不说话了，请不要责怪他们，他们可能已经 1.被院长抓来求队形回复了，2.还是被院长抓来求队形回复了。（院长，你……）

如果你玩人人的同学很久没联系你了，请不要责怪他们，他们可能已经 1.蛋疼疼死了，2.乳酸酸死了。

如果你做城管的同学很久没联系你了，请不要责怪他们，他们可能已经被卖炸串的杀了。

如果你有当幼教的同学很久没联系你了，请不要责怪他们，他们可能已经 1.被小萝莉们萌死了，2.被小正太们萌死了。

如果你餐饮的同学很久没联系你了，请不要责怪他们，他们可能已经喝了三聚氰胺或者吃了地沟油，永远的离开我们了。

如果你学金融的同学很久没有联系你了，请不要责怪他们，他们可能已经1、爆仓了2、爆仓了3、彻底爆仓了。

如果有一个学历史的同学很久没有联系你了，请不要责怪他们，他们可能已经穿越了！！

大家的补充：

如果有一个上军校的同学很久没有联系你了，请不要责怪他们，因为他们可能已经1、训练累死了2、唱红歌恶心死了3、寂寞死了！！！

如果有一个立构作业要展览的同学很久没有联系你了，请不要责怪他们，他们可能已经丢人丢死了！！

如果你有研究生同学很久没联系你了，请不要责怪他们，他们可能已经 1.被老板加班累死了，2.被老板加班累死了，3.被老板加班累死了。

回复于洪:如果你学声乐的同学很久没有联系你了，请不要责怪他们，他们可能1、练声累死了2、音乐会前紧张死了3、演唱滴太好被那些伟大的作曲家带走了。

如果有一个学英语的同学很久没联系你了，请不要怪他们，他们可能：1、出国了；2、去新东方了；3、当了2N被收藏了；4、装B被打死了。。。。。

如果你做网编的朋友很久没有联系你，1.他给站长给累死了。2.他被百度蜘蛛给弄死了。3，他被关键词彻底的吃掉了。

我能想到最浪漫的事，就是和你一起慢慢变老

2011-5-20 9:00:57

我能想到最浪漫的事，就是和你一起慢慢变老；
20岁,40岁,60岁,80岁。。。。
560)this.width=560" />

一道终身受用的测试题

2011-5-17 9:12:57

【一道终身受用的测试题】
你开着一辆车。在一个暴风雨的晚上。
你经过一个车站。
有三个人正在焦急的等公共汽车。　
一个是快要临死的老人，他需要马上去医院。
一个是医生，他曾救过你的命，你做梦都想报答他。
还有一个女人/男人，她/他是你做梦都想娶/嫁的人，也许错过就没有了。
但你的车只能在坐下一个人，你会如何选择？

SELECTINTO和INSERTINTOSELECT两种表复制语句

2011-5-12 11:48:26

      Insert是T-sql中常用语句，Insert INTO table(field1,field2,...) values(value1,value2,...)这种形式的在应用程序开发中必不可少。但我们在开发、测试过程中，经常会遇到需要表复制的情况，如将一个table1的数据的部分字段复制到table2中，或者将整个table1复制到table2中，这时候我们就要使用SELECT INTO 和 INSERT INTO SELECT 表复制语句了。

      1.INSERT INTO SELECT语句

      语句形式为：Insert into Table2(field1,field2,...) select value1,value2,... from Table1

      要求目标表Table2必须存在，由于目标表Table2已经存在，所以我们除了插入源表Table1的字段外，还可以插入常量。示例如下：

--1.创建测试表
    create TABLE Table1
    (
        a varchar(10),
        b varchar(10),
        c varchar(10),
        CONSTRAINT [PK_Table1] PRIMARY KEY CLUSTERED
        (
            a ASC
        )
    ) ON [PRIMARY]

    create TABLE Table2
    (
        a varchar(10),
        c varchar(10),
        d int,
        CONSTRAINT [PK_Table2] PRIMARY KEY CLUSTERED
        (
            a ASC
        )
    ) ON [PRIMARY]
    GO
    --2.创建测试数据
    Insert into Table1 values('赵','asds','90')
    Insert into Table1 values('钱','asds','100')
    Insert into Table1 values('孙','asds','80')
    Insert into Table1 values('李','asds',null)
    GO
    select * from Table2

    --3.INSERT INTO SELECT语句复制表数据
    Insert into Table2(a, c, d) select a,c,5 from Table1
    GO

    --4.显示更新后的结果
    select * from Table2
    GO
    --5.删除测试表
    drop TABLE Table1
    drop TABLE Table2

2.SELECT INTO FROM语句

语句形式为：SELECT vale1, value2 into Table2 from Table1

要求目标表Table2不存在，因为在插入时会自动创建表Table2，并将Table1中指定字段数据复制到Table2中。示例如下：

--1.创建测试表
    create TABLE Table1
    (
        a varchar(10),
        b varchar(10),
        c varchar(10),
        CONSTRAINT [PK_Table1] PRIMARY KEY CLUSTERED
        (
            a ASC
        )
    ) ON [PRIMARY]
    GO

    --2.创建测试数据
    Insert into Table1 values('赵','asds','90')
    Insert into Table1 values('钱','asds','100')
    Insert into Table1 values('孙','asds','80')
    Insert into Table1 values('李','asds',null)
    GO

    --3.SELECT INTO FROM语句创建表Table2并复制数据
    select a,c INTO Table2 from Table1
    GO

    --4.显示更新后的结果
    select * from Table2
    GO
    --5.删除测试表
    drop TABLE Table1
    drop TABLE Table2

PHP新手用的Insert和Update语句构造类

2011-4-20 14:46:39

PHP新手用的Insert和Update语句构造类，没多大功能，使用方法
$mysql = new sqlstr("table1");
$mysql->set("name","value");
$mysql->set("name","1",true);
echo $mysql->insertSql();

class sqlstr
{
        private $param=array();
        private $tablename;
        function sqlstr($tablename)
        {
                $this->tablename = $tablename;
        }
        
        public function set($name,$value,$isnum=false){
                $value = str_replace("'","''",$value);
                $this->param[$name]=array($value,$isnum);
        }
        
        public function insertSql(){
                $keys="";
                $values="";
                foreach($this->param as $key =>$value){
                        $keys = $keys . $key . ",";
                        if($value[1]){
                                $values = $values . $value[0] . ",";
                        }else{
                                $values = $values . "'" . $value[0] . "',";
                        }
                }
                if($keys!=""){$keys=substr($keys,0,strlen($keys)-1) ;}
                if($values!=""){$values=substr($values,0,strlen($values)-1) ;}
                return "insert into " .$this->tablename ."($keys) values($values)";
        }
        
        public function updateSql($cond){
                $group="";
                foreach($this->param as $key =>$value){
                        $group .= $key . "=";
                        if($value[1]){
                                $group.= $value[0] . ",";
                        }else{
                                $group.= "'" . $value[0] . "',";
                        }
                }
                if($group!=""){$group=substr($group,0,strlen($group)-1) ;}
                return "update " . $this->tablename ." set $group where " . $cond;
        }
}

谷歌穿越搜索咆哮版

2011-4-1 9:00:12

亲，你想搜索“胡萝卜”有木有！！！想穿越并搜索“胡萝卜”有木有！！！有木有！！！！！！

做穿越搜索的引擎你伤不起呀！！！！！！

...

你懂的谷歌最会搜索了有木有有木有！！！！！！

四维时空那么大比大象都大要去哪里搜索“胡萝卜”呀！！！！！！

亲你真的想穿越么！！！你真的觉得穿越是件必须做而且值得做的事吗！！！

我好像见过又仿佛没见过要不我带你去个更有趣的地方！！！！！！

你真不怕神马跨时空灵异事件发生呀！！！亲！！！！！！！！！

亲你知不知道搜索“胡萝卜”好难呀！！！我都胃疼好几个礼拜了还没找到呢！！！！！！

...

好吧看你老激动老激动了就让你穿越一次吧亲！！！！！！

搜索“胡萝卜” - 穿越码生成 - 乙未丙戍戊寅己未己巳辛未甲申辛巳 - 引力场扭曲中

...

我想你，你却不知道

2011-3-17 19:54:55

我问，你忙吗？在干嘛？吃了吗？

你一一回答，不忙，看书，没吃。

可我却发现自己笨笨地不知该再说些什么，再说什么都是多余，再说什么都只会让人厌烦。

你生活在一个可以没有我的世界，我居住在一个只有你的天空。

所以，我注定是个失败的人。

可是，为什么聪明的你不能帮我想一想，我还可以和你说什么，我还能为你做什么？

可是，为什么不忙的你不能试着回一些疑问句，让我们的对话更长？

可是，为什么你从没有这样的时候，这样想念着我，想念着一个一直在等你的人？

也许，你并不知道我在等你。

简易HttpRequest类(ASP)-SmartHTTP

2011-3-11 1:37:37

最简单的调用方法：
response.write SmartHttp("http://www.baidu.com/").send().gettext()

复杂调用
例1：
set myhttp = SmartHttp("http://www.baidu.com/s","GET","wd=marthttp")
myhttp.send()
response.write myhttp.gettext("gbk")
或
response.write SmartHttp("http://www.baidu.com/s","GET","wd=marthttp").send().gettext("gbk")

例2：
set myhttp = SmartHttp("http://www.baidu.com/s","POST")
myhttp.dataset.append "wd","smarthttp"
myhttp.send()
response.write myhttp.gettext("gbk")

/*
在VBS里面的调用方法
dim myhttp
set myhttp = SmartHttp(url,method,data,autoClearBuffer); //三个参数均可选
属性：
        url：String，请求的URL地址
        method：String，请求的方法
        data：String，请求的数据
        charset：String，请求的URL返回数据的编码
        status：Int，请求返回的状态码
        readyState：Int，同HTTP请求的当前通讯状态，1、2、3、4
        autoClearBuffer：Boolean，默认为true-自动在url后加一个参数防止缓存
        dataset：Object，请求的数据，如果增加了，会将这部分数据附加到data属性
                dataset属性：
                        charset：String，发送数据的编码
                dataset方法：
                        append(key,value,noencode)：添加数据
                        remove(key)：移除某个数据项
                        isexists(key)：判断某个数据项是不是存在
                        clear：清除所有数据项
方法：
        header(headstr)：设置请求头，项和值之间用:分开
        timeout(t1,t2,t3,t4)：设置超时时间
        send()：发送请求
        getbinary：获取服务器返回的二进制数据
        gettext(charset)：获取指定编码的文本
        getjson(charset)：获取指定编码的json数据
        getheader(key)：获取服务器返回的响应头
        getxml(charset)：获取指定编码的xml数据
*/
function SmartHttp(url,method,data,autoClearBuffer){
        return new _SmartHttp(url,method,data,autoClearBuffer);
}

function _SmartHttp(url,method,data,autoClearBuffer){
        if(typeof method=="undefined") method="GET";
        if(typeof data=="undefined") data="";
        if(typeof autoClearBuffer=="undefined") autoClearBuffer=true;
        if(method=="")method="GET";
        method = method.toUpperCase();
        this.timeout=[10000,10000,10000,10000];
        this.method = method;
        this.url=url;
        this.data=data;
        this.charset="gb2312";
        this.http=null;
        this.headers=[];
        this.status=0;
        this.readyState=0;
        this.content=null;
        this.msg="";
        this.autoClearBuffer = autoClearBuffer;
        this.dataset={
                charset:"gb2312",
                data:[],
                append:function(key,value,noencode){
                        var fn=null;
                        if(this.charset.toLowerCase()=="utf-8"){
                                fn = encodeURIComponent;
                        }else{
                                fn = function(_str){
                                        return escape(_str).replace(/\+/igm,"%2B").replace(/\//igm,"%2F");
                                };
                        }
                        if(noencode==true){fn=function(_str){return _str;}}
                        this.data.push({"key":fn(key),"value":fn(value)});
                },
                remove:function(key){
                        if(this.data.length<=0) return false;
                        var _data=[];
                        for(var i=0;i                                if(this.data[i].key!=key){1
                                        _data.push(this.data[i]);
                                }
                        }
                        this.data = _data;
                },
                isexists:function(key){
                        if(this.data.length<=0) return false;
                        for(var i=0;i                                if(this.data[i].key==key){
                                        return true;
                                }
                        }
                        return false;
                },
                clear:function(){
                        this.dataset.data=[];        
                }
        };
}

_SmartHttp.prototype.init=function(){
        var datasetstr="";
        if(this.dataset.data.length>0){
                  for(var i=0;i                          datasetstr += this.dataset.data[i].key + "=" + this.dataset.data[i].value + "&";
                  }
        }
        if(datasetstr!="") datasetstr = datasetstr.substr(0,datasetstr.length-1);
        if(this.data==""){this.data = datasetstr;}else{if(datasetstr!="")this.data+= "&" + datasetstr;}
        if(this.data=="")this.data=null;
        var sChar=((this.url.indexOf("?")<0) ? "?" : "&");
        if(this.autoClearBuffer){
                this.url += sChar + "jornd=" + this.getrnd();
                if(this.method=="GET" && this.data!=null) this.url += "&" + this.data;
        }else{
                if(this.method=="GET" && this.data!=null) this.url += sChar + this.data;
        }
        if(this.method=="POST") this.headers.push("Content-Type:application/x-www-form-urlencoded");
        if(!this.charset || this.charset=="") this.charset = "gb2312";        
};

_SmartHttp.prototype.header=function(headstr){
        if(headstr.indexOf(":")>=0) this.headers.push(headstr);
        return this;
};

_SmartHttp.prototype.timeout=function(){
        if(arguments.length>4){return this;}
        for(var i =0;i                if(!isNaN(arguments[i])){
                        this.timeout[i] = parseInt(arguments[i]);        
                }        
        }
        return this;
};

_SmartHttp.prototype.send=function(){
        this.init();
        var _http = this.getobj();
        if(_http==null){return this;}
        try{
                _http.setOption(2)=13056;
                _http.setTimeouts(this.timeout[0], this.timeout[1], this.timeout[2], this.timeout[3]);
        }catch(ex){}
        _http.open(this.method,this.url,false);
        if(this.headers.length>0){
                for(var i=0;i                        var Sindex = this.headers[i].indexOf(":");
                        var key = this.headers[i].substr(0,Sindex);
                        var value = this.headers[i].substr(Sindex+1);
                        _http.setRequestHeader(key,value);
                }        
        }
        _http.send(this.data);
        this.readyState = _http.readyState;
        if(_http.readyState==4){
                this.status = parseInt(_http.status);
                this.http = _http;
                this.content = _http.responseBody;
        }
        return this;
}

_SmartHttp.prototype.getbinary=function(){
                return this.content;
};

_SmartHttp.prototype.gettext=function(charset){
          try{
                  return this.b2s(this.content,charset ? charset : this.charset);
          }catch(ex){
                  this.msg = ex.description;
                  return "";
          }                
};

_SmartHttp.prototype.getjson=function(charset){
        try{
                var _json=null;
                eval("_json=(" + this.gettext(charset) + ");");
                return _json;
        }catch(ex){
                this.msg = ex.description;
                return null;
        }        
};

_SmartHttp.prototype.getheader=function(key){
        if(key){
                if(key.toUpperCase()=="SET-COOKIE"){
                        key = key.replace("-","\-");
                        var headers = this.http.getAllResponseHeaders();
                        var regexp = new RegExp("\n" + key + "\:(.+?)\r","ig");
                        var resstr = "";
                        while((res = regexp.exec(headers))!=null){
                                var val = res[1].trim();
                                resstr = resstr + val.substr(0,val.indexOf(";")) + "; "
                        }
                        if(resstr!=""){
                                resstr = resstr.substr(0,resstr.lastIndexOf(";"));
                        }
                        return resstr;
                }else{
                        return this.http.getResponseHeader(key);
                }
        }else{return this.http.getAllResponseHeaders();}
};

_SmartHttp.prototype.getxml=function(charset){
        try{
                var _dom = new ActiveXObject("MSXML2.DOMDocument");
                _dom.loadXML(this.gettext(charset));
                return _dom;
        }catch(ex){
                this.msg = ex.description;
                return null;        
        }
};
_SmartHttp.prototype.getobj = function (){
        var b=null;
        var httplist = ["MSXML2.serverXMLHttp.3.0","MSXML2.serverXMLHttp","MSXML2.XMLHttp.3.0","MSXML2.XMLHttp","Microsoft.XMLHttp"];
        for(var i = 0;i<=httplist.length -1;i++){
                try{
                        b= new ActiveXObject(httplist[i]);
                        (function(o){
                                _SmartHttp.prototype.getobj = function(){return new ActiveXObject(o)};  
                        })(httplist[i]);
                        return b;
                }catch(ex){
                        eval("this.msg = ex.description;");
                }
        }
        return b;
};

_SmartHttp.prototype.getrnd = function (){return Math.random().toString().substr(2);};

_SmartHttp.prototype.b2s = function(bytSource, Cset){ //ef bb bf,c0 fd
  var Objstream,c1,c2,c3;
  var byts;
  Objstream =Server.CreateObject("ADODB.Stream");
  Objstream.Type = 1;
  Objstream.Mode = 3;
  Objstream.Open();
  Objstream.Write(bytSource);
  Objstream.Position = 0;
  Objstream.Type = 2;
  Objstream.CharSet = Cset;
  byts = Objstream.ReadText();
  Objstream.Close();
  Objstream = null;
  return byts;
};
_SmartHttp.prototype.urlencode=function(str){  return encodeURIComponent(str);};
_SmartHttp.prototype.urldecode=function(str){  return decodeURIComponent(str);};
String.prototype.trim = function(){return this.replace(/(^(\s+)|(\s+)$)/igm,"");};

一年多了，变了~

2011-3-11 1:17:02

　　有一天发现，自己突然由基层员工变成了二级主管，原来，两年马上就要过去了，简单谈来，一年多的时间里收获不小，也失去颇多。至少，两年来对得起自己、对得起公司，唯一对不起的就是家人，这也算是一个失败吧，算是我个人失败。尽管，自己完成了一个个的系统一个个的功能，在他人眼里看来：“XXX好厉害哦”，但是，他们永远无法读懂我的内心，一个需要别人理解和接受的人，更希望得到父母的认可和鼓励。也许是习惯了一个人的生活，从初中到现在，也过去十几年了，就是这十几年练就了一个现在的我，无需炫耀什么，做好自己，做好原则是最重要的，在别人眼里，我可能就是一个不起眼的角色，甚至被人鄙视的角色，通俗的人叫：“IT农民工”，但是，相信自己忠诚于自己才是最重要的，一个人没了原则、没了信心、没了信仰、没了目标，这才是最可怕的。闲暇时多返回到自己的身上，为自己做一个“自检”，让自己认识自己，自己在做什么，每天为什么而忙碌，为什么每天那么累，却没有什么满足感。

　　无须抱怨，过去的点点滴滴塑造了现在的你，不管是好的事情还是坏的事情。我相信因果关系，果必出于因。安静下来的时候，自己就会想以前，如果初中的时候没有摔到胳膊，我现在会在哪里呢？如果花钱买高中上而不是复习一年，现在的我还是我吗？如果没有高中的她，我现在又是什么样？如果我大学没有提前离开学校，会不会还是领着那2000块钱的工资呢？是的，不必抱怨现在你怎么样，因为那都是你的选择决定的，认识自己，认清现在才是最重要的，世界上没有卖后悔药的，但是却有无数条指明你发展方向的道路，踏上这条路，迈开步子，往前走吧。。。当你沮丧的时候，当你失去信心的时候，当你感觉无助的时候，为什么不抛弃那些沮丧、无助，找回自己呢？消极不可怕，可怕的是你永远消极；积极也不代表什么，要看你是不是一时头脑发热。

　　也送给所有认识的朋友一句话：“回望以前的你，认识现在的你，追求未来的你，加油”！

编程的你----（仿照老狼《同桌的你》）

2011-3-9 15:57:48

明天你是否会想起
昨天你写的程序
明天你是否还惦记
曾经爱编程的你
领导们都已想不起
曾经加班的你
我也是偶然看程序
才想起同事的你
谁聘了牛B烘烘的你
谁安慰天天加班的你
谁把你的设计做起
谁给你做的升级

你从前总是很小心
从不把离职的事提起
你也曾无意中说起
薪水实在太低
那时候屏幕总是在闪
日子总过得太慢
你总说离职遥遥无期
转眼就各奔东西
谁聘了牛B烘烘的你
谁安慰天天加班的你
谁看了我给你写的信
谁把它删在垃圾文件夹里

从前的日子都远去
我也将有我的新上司
我也会给他编程序
给他讲同事的你
谁聘了牛B烘烘的你
谁安慰天天加班的你
谁把你的设计做起
谁给你做的升级

啦............

php发送邮件(mail)的类-classsmtp

2011-3-1 0:51:09

class smtp
{
/* Public Variables */
var $smtp_port;
var $time_out;
var $host_name;
var $log_file;
var $relay_host;
var $debug;
var $auth;
var $user;
var $pass;

/* Private Variables */
var $sock;

/* Constractor */
function smtp($relay_host = "", $smtp_port = 25,$auth = false,$user,$pass)
{
$this->debug = FALSE;
$this->smtp_port = $smtp_port;
$this->relay_host = $relay_host;
$this->time_out = 30; //is used in fsockopen()
#
$this->auth = $auth;//auth
$this->user = $user;
$this->pass = $pass;
#
$this->host_name = "localhost"; //is used in HELO command
$this->log_file = "";

$this->sock = FALSE;
}

/* Main Function */
function sendmail($to, $from, $subject = "", $body = "", $mailtype, $cc = "", $bcc = "", $additional_headers = "")
{
$mail_from = $this->get_address($this->strip_comment($from));
$body = ereg_replace("(^|(\r\n))(\\.)", "\\1.\\3", $body);
$header .= "MIME-Version:1.0\r\n";
if($mailtype=="HTML"){
$header .= "Content-Type:text/html\r\n";
}
$header .= "To: ".$to."\r\n";
if ($cc != "") {
$header .= "Cc: ".$cc."\r\n";
}
$header .= "From: $from<".$from.">;\r\n";
$header .= "Subject: ".$subject."\r\n";
$header .= $additional_headers;
$header .= "Date: ".date("r")."\r\n";
$header .= "X-Mailer:By Redhat (PHP/".phpversion().")\r\n";
list($msec, $sec) = explode(" ", microtime());
$header .= "Message-ID: <".date("YmdHis", $sec).".".($msec*1000000).".".$mail_from.">;\r\n";
$TO = explode(",", $this->strip_comment($to));

if ($cc != "") {
$TO = array_merge($TO, explode(",", $this->strip_comment($cc)));
}

if ($bcc != "") {
$TO = array_merge($TO, explode(",", $this->strip_comment($bcc)));
}

$sent = TRUE;
foreach ($TO as $rcpt_to) {
$rcpt_to = $this->get_address($rcpt_to);
if (!$this->smtp_sockopen($rcpt_to)) {
$this->log_write("Error: Cannot send email to ".$rcpt_to."\n");
$sent = FALSE;
continue;
}
if ($this->smtp_send($this->host_name, $mail_from, $rcpt_to, $header, $body)) {
$this->log_write("E-mail has been sent to <".$rcpt_to.">;\n");
} else {
$this->log_write("Error: Cannot send email to <".$rcpt_to.">;\n");
$sent = FALSE;
}
fclose($this->sock);
$this->log_write("Disconnected from remote host\n");
}
return $sent;
}

/* Private Functions */

        function smtp_send($helo, $from, $to, $header, $body = "")
        {
                if (!$this->smtp_putcmd("HELO", $helo)) {
                        return $this->smtp_error("sending HELO command");
                }
                #auth
                if($this->auth){
                        if (!$this->smtp_putcmd("AUTH LOGIN", base64_encode($this->user))) {
                                return $this->smtp_error("sending HELO command");
                        }
                
                        if (!$this->smtp_putcmd("", base64_encode($this->pass))) {
                                return $this->smtp_error("sending HELO command");
                        }
                }
                #
                if (!$this->smtp_putcmd("MAIL", "FROM:<".$from.">;")) {
                        return $this->smtp_error("sending MAIL FROM command");
                }
                
                if (!$this->smtp_putcmd("RCPT", "TO:<".$to.">;")) {
                        return $this->smtp_error("sending RCPT TO command");
                }
                
                if (!$this->smtp_putcmd("DATA")) {
                        return $this->smtp_error("sending DATA command");
                }
                
                if (!$this->smtp_message($header, $body)) {
                        return $this->smtp_error("sending message");
                }
                
                if (!$this->smtp_eom()) {
                        return $this->smtp_error("sending ;;.;; [EOM]");
                }
                
                if (!$this->smtp_putcmd("QUIT")) {
                        return $this->smtp_error("sending QUIT command");
                }
                
                return TRUE;
        }

        function smtp_sockopen($address)
        {
                if ($this->relay_host == "") {
                        return $this->smtp_sockopen_mx($address);
                } else {
                        return $this->smtp_sockopen_relay();
                }
        }
        
        function smtp_sockopen_relay()
        {
                $this->log_write("Trying to ".$this->relay_host.":".$this->smtp_port."\n");
                $this->sock = @fsockopen($this->relay_host, $this->smtp_port, $errno, $errstr, $this->time_out);
                if (!($this->sock && $this->smtp_ok())) {
                        $this->log_write("Error: Cannot connenct to relay host ".$this->relay_host."\n");
                        $this->log_write("Error: ".$errstr." (".$errno.")\n");
                        return FALSE;
                }
                $this->log_write("Connected to relay host ".$this->relay_host."\n");
                return TRUE;
        }

        function smtp_sockopen_mx($address)
        {
                $domain = ereg_replace("^.+@([^@]+)$", "\\1", $address);
                if (!@getmxrr($domain, $MXHOSTS)) {
                        $this->log_write("Error: Cannot resolve MX \"".$domain."\"\n");
                        return FALSE;
                }
                foreach ($MXHOSTS as $host) {
                        $this->log_write("Trying to ".$host.":".$this->smtp_port."\n");
                        $this->sock = @fsockopen($host, $this->smtp_port, $errno, $errstr, $this->time_out);
                        if (!($this->sock && $this->smtp_ok())) {
                                $this->log_write("Warning: Cannot connect to mx host ".$host."\n");
                                $this->log_write("Error: ".$errstr." (".$errno.")\n");
                                continue;
                        }
                        $this->log_write("Connected to mx host ".$host."\n");
                        return TRUE;
                }
                $this->log_write("Error: Cannot connect to any mx hosts (".implode(", ", $MXHOSTS).")\n");
                return FALSE;
        }

        function smtp_message($header, $body)
        {
                fputs($this->sock, $header."\r\n".$body);
                $this->smtp_debug(">; ".str_replace("\r\n", "\n".">; ", $header."\n>; ".$body."\n>; "));
                
                return TRUE;
        }

        function smtp_eom()
        {
                fputs($this->sock, "\r\n.\r\n");
                $this->smtp_debug(". [EOM]\n");
                
                return $this->smtp_ok();
        }

        function smtp_ok()
        {
                $response = str_replace("\r\n", "", fgets($this->sock, 512));
                $this->smtp_debug($response."\n");
                
                if (!ereg("^[23]", $response)) {
                        fputs($this->sock, "QUIT\r\n");
                        fgets($this->sock, 512);
                        $this->log_write("Error: Remote host returned \"".$response."\"\n");
                        return FALSE;
                }
                return TRUE;
        }

        function smtp_putcmd($cmd, $arg = "")
        {
                if ($arg != "") {
                        if($cmd=="") $cmd = $arg;
                        else $cmd = $cmd." ".$arg;
                }
        
                fputs($this->sock, $cmd."\r\n");
                $this->smtp_debug(">; ".$cmd."\n");
        
                return $this->smtp_ok();
        }

        function smtp_error($string)
        {
                $this->log_write("Error: Error occurred while ".$string.".\n");
                return FALSE;
        }

        function log_write($message)
        {
                $this->smtp_debug($message);
        
                if ($this->log_file == "") {
                        return TRUE;
                }
        
                $message = date("M d H:i:s ").get_current_user()."[".getmypid()."]: ".$message;
                if (!@file_exists($this->log_file) || !($fp = @fopen($this->log_file, "a"))) {
                        $this->smtp_debug("Warning: Cannot open log file \"".$this->log_file."\"\n");
                        return FALSE;
                }
                flock($fp, LOCK_EX);
                fputs($fp, $message);
                fclose($fp);
                
                return TRUE;
        }

        function strip_comment($address)
        {
                $comment = "\\([^()]*\\)";
                while (ereg($comment, $address)) {
                        $address = ereg_replace($comment, "", $address);
                }
                
                return $address;
        }

        function get_address($address)
        {
                $address = ereg_replace("([ \t\r\n])+", "", $address);
                $address = ereg_replace("^.*<(.+)>;.*$", "\\1", $address);
                
                return $address;
        }
        
        function smtp_debug($message)
        {
                if ($this->debug) {
                        echo $message;
                }
        }
}

function sendmail($smtpserver,$smtpuser,$smtppass,$smtpemailto,$smtpusermail, $mailsubject, $mailbody){
        $smtp = new smtp($smtpserver,25,true,$smtpuser,$smtppass);
        //$smtp->debug = TRUE;
        $smtp->sendmail($smtpemailto, $smtpusermail, $mailsubject, $mailbody, "HTML");        
}
//such as
//sendmail("smtp.126.com","test@126.com","password","1034555083@qq.com","test@126.com","title","body");
?>

php模拟asp中的XmlHttpRequest实现http请求

2011-1-29 11:00:35

为了自己方便模拟asp里面的xmlhttp组件写的phphttp请求类，基本的功能都实现了，支持gzip压缩
下载代码

类名 :HttpRequest($url="",$method="GET",$useSocket=0)
//$url为请求的地址；默认请求方法为GET；$useSocket默认为0，使用fsockopen方法，如果设置为1则使用socket_create方法

方法：
open($ip="",$port=-1) //打开同服务器的连接，默认不用设置这两个参数（一个同事在linux用的时候，请求的不是hostname解析的IP，因此加了这两个参数，以连接真实的服务器IP）
setTimeout($timeout=0) //设置获取数据的超时时间，必须在send方法调用之前设置才有效,单位秒，默认值0为不限制
setRequestHeader($key,$value="") //设置请求头，必须在send方法调用之前设置才有效
removeRequestHeader($key,$value="") //移除指定键值的请求头，必须在send方法调用之前调用才有效
send($data="") //发送数据$data到服务器
getResponseBody() //获取服务器返回的文本
getAllResponseHeaders() //获取服务器响应的所有头信息
getResponseHeader($key) //获取服务器响应的某个头信息，例如Server,Set_Cookie等

属性：
$url //要请求的url
$method //请求方法(POST/GET)
$port //请求的端口
$hostname //请求的主机名
$uri //url的文件部分
$protocol //请求协议(http)(包括本属性的以上5个属性均由程序自动通过url分析)
$excption //异常信息
$_headers=array() //请求头array("key"=>"value")
$_senddata //发送到服务器的数据
$status //返回的状态码
$statusText //状态信息
$HttpProtocolVersion //服务器的HTTP协议版本

注意：
Host头由程序自动设置，当用POST方法请求时，Content-Length和Content-Type已被自动设置。
支持gzip压缩的页面

如果这就是爱情-张靓颖

2011-1-5 20:22:01

http://player.youku.com/player.php/partnerid/XOTcy/sid/XMjE1MTY3MTY4/v.swf

在外部引用js里面获取当前js的路径

2010-12-4 16:24:48

下午在写一段多用户程序的时候，需要不同的用户js文件内部的一些参数要不一样，当时想都没想就用window.location获取，输出一看，错误，获取的是当前网页的url，以前没处理过类似的问题，于是到网上看了下，发现一个解决方法，就是给引用这个js的script标签加个id属性，然后用document.getElementById() 方法来获取--可以解决问题。但是有个缺点就是还要修改网页的html代码，想了一下，既然可以给script加一个id，那可不可以在js里面给页面输出一个节点，根据节点之间的关系来定位script呢，于是写了下面一段代码：

document.write("");
var _this = document.getElementById("_tmp").previousSibling;
alert(_this.src);

输出结果正确，获取到了js的路径，经过测试这个方法兼容各浏览器。
代码也没什么特别之处，就是在当前位置输出了一个span元素，通过span元素的previousSibling属性来定位script的。

Ajax跨域代理访问网络资源

2010-11-18 17:55:32

代码下载地址：/upfiles/20101118175349810.rar

解决Ajax跨域访问报“没有权限”的错误。

<%
Response.charset="utf-8"
dim url,method,data,charset
url =Request.Form("targeturl")
method =Request.Form("method")
data =Request.Form("data")
charset = Request.Form("charset")
if charset = "" then charset = "GB2312"
response.Write SmartHttp(url,method,data).send().gettext(charset)
set myhttp = nothing
%>

艾恩ASP无组件上传类配合Flash实现多文件上传

2010-11-13 21:31:23

可自由定义上传文件大小，类型等。

效果如图所示,代码下载。

560)this.width=560" />

PHP可用于地址栏的base64(phpbase64编码、解码)

2010-10-24 15:12:28

对字符串进行编码和解码，并可在地址栏传递使用，本方法使用的是替换字符，将/和+分别替换成-和(并将最后的等号转换成一个数字，代表等号出现的次数

function base64_en($str){
        $result = base64_encode($str);
        $result = str_replace("/","-",$result);
        $result = str_replace("+","(",$result);
        $i=0;
        while(substr($result,strlen($result)-1)=="="){
                $result = substr($result,0,strlen($result)-1);
                $i++;
        }
        return $result . $i;
}

function base64_de($str){
        $result = str_replace("-","/",$str);
        $result = str_replace("(","+",$result);
        $last = intval(substr($result,strlen($result)-1));
        $normal = substr($result,0,strlen($result)-1);
        if($last==0){return base64_decode($normal);}
        for($i=1;$i<=$last;$i++){
                $normal .= "=";
        }
        return base64_decode($normal);
}

“西游记”

2010-10-15 11:28:03

唐僧师徒历经九九八十一难，终于见到了如来佛求取真经。
如来问：“你们带U盘了么？”
唐僧师徒：...
如来又问：“移动硬盘呢？”
唐僧师徒：......
如来继续问：“IPOD也可以。”
唐僧师徒：.........
如来叹了口气：“那你们就原路回去吧，我用QQ传给你们！”
唐僧：我靠，早知道加你QQ就完了，老子还走这么远干嘛啊。
如来回应道：“你们以为要加就加啊，我经常隐身滴！最后，如来还来句：你们有没psp啊？”
唐僧:……
如来：那这么远的路，你们是怎么娱乐的？
唐僧师徒：打怪升级……

后续：
唐僧回去加了如来QQ。
数据传送中……
1年过去了,数据传送中……
5年过去了,数据传送中……
10年过去了,数据传送中……
15年过去了,数据传送中……
如来打来电话：怎么这么慢呢，你什么网啊？
唐僧：单位的网……
如来： ……你再来一趟吧，带上U盘
唐僧: ……

100句英语谚语，你会几个？

2010-10-10 10:54:01

1. Never say die.永不言败。

2.No cross, no crown.不经历风雨，怎么见彩虹。

3.New wine in old bottles.旧瓶装新酒。

4.Never too old to learn, never too late to turn.亡羊补牢，为时未晚。

5.No garden without its weeds.没有不长草的园子。

6.No living man all things can.世上没有万事通。

7.No man can do two things at once.一心不可二用。

8.No man is born wise or learned.没有生而知之者。

9.No man is content.人心不足蛇吞象。

10.No man is wise at all times.聪明一世，糊涂一时。

11.None are so blind as those who won't see.视而不见。

12.None are so deaf as those who won't hear.充耳不闻。

13.No news is good news.没有消息就是好消息。

14.No one can call back yesterday.昨日不会重现。

15.No pains, no gains.没有付出就没有收获。

16.No pleasure without pain.没有苦就没有乐。

17.No rose without a thorn.没有不带刺的玫瑰。

18.No sweet without sweat.先苦后甜。

19.No smoke without fire.无风不起浪。

20.Nothing brave, nothing have.不入虎穴，焉得虎子。

21.Nothing dries sooner than a tear.眼泪干得最快。

22.Nothing in the world is difficult for one who sets his mind to it.世上无难事，只怕有心人。

23.Nothing is difficult to the man who will try.世上无难事，只要肯登攀。24.Nothing seek, nothing find.没有追求就没有收获。

25.Nothing is so necessary for travelers as languages.外出旅行，语言最要紧。

26.Nothing is to be got without pains but poverty.世上唯有贫穷可以不劳而获。

27.Not to advance is to go back.不进则退。

28.Not to know what happened before one was born is always to be a child.不懂世故，幼稚可笑。

29.No way is impossible to courage.勇者无惧。

30.Obedience is the first duty of a soldier.军人以服从命令为天职。

31.Observation is the best teacher.观察是最好的老师。

32.Offense is the best defense.进攻是最好的防御。

33.Old friends and old wines are best.陈酒味醇，老友情深。

34.Old sin makes new shame.一失足成千古恨。

35.Once a man and twice a child.一次老，两次小。

36.Once a thief, always a thief.偷盗一次，做贼一世。

37.Once bitten, twice shy.一朝被蛇咬，十年怕井绳。

38.One boy is a boy, two boys half a boy, three boys no boy.一个和尚挑水喝，两个和尚抬水喝，三个和尚没水喝。

39.One cannot put back the clock.时钟不能倒转。

40.One eyewitness is better than ten hearsays.百闻不如一见。

41.One false move may lose the game.一着不慎，满盘皆输。

42.One good turn deserves another.行善积德。

43.One hour today is worth two tomorrow.争分夺秒效率高。

44.One man's fault is other man's lesson.前车之鉴。

45.One never loses anything by politeness.讲礼貌不吃亏。

46.One swallow does not make a summer.一燕不成夏。

47.One's words reflect one's thinking.言为心声。

48.Out of debt, out of danger.无债一身轻。

49.Out of office, out of danger.无官一身轻。

50.Out of sight, out of mind.眼不见，心为静。

51.Patience is the best remedy.忍耐是良药。

52.Penny wise, pound foolish.贪小便宜吃大亏。

53.Plain dealing is praised more than practiced.正大光明者，说到的多，做到的少。

54.Please the eye and plague the heart.贪图一时快活，必然留下隐祸。

55.Pleasure comes through toil.苦尽甘来。

56.Pour water into a sieve.竹篮子打水一场空。

57.Practice makes perfect.熟能生巧。

58.Praise is not pudding.恭维话不能当饭吃。

59.Praise makes good men better, and bad men worse.好人越夸越好，坏人越夸越糟。

60.Prefer loss to unjust gain.宁可吃亏，不贪便宜。

61.Prevention is better than cure.预防胜于治疗。

62.Pride goes before, and shame comes after.骄傲使人落后。

63.Promise is debt.一诺千金。

64.Proverbs are the daughters of daily experience.谚语是日常经验的结晶。

65.Pull the chestnut out of fire.火中取栗。

66.Put the cart before the horse.本末倒置。

67.Put your shoulder to the wheel.鼎力相助。

68.Reading enriches the mind.开卷有益。

69.Reading is to the mind while exercise to the body.读书健脑，运动强身。

70.Respect yourself, or no one else will respect you.要人尊敬，必须自重。

71.Rome is not built in a day.冰冻三尺，非一日之寒。

72.Saying is one thing and doing another.言行不一。

73.Seeing is believing.眼见为实。

74.Seek the truth from facts.实事求是。

75.Send a wise man on an errand, and say nothing to him.智者当差，不用交代。

76.Set a thief to catch a thief.以贼捉贼。

77.Short accounts make long friends.好朋友勤算账。

78.Something is better than nothing.聊胜于无。

79.Soon learn, soon forgotten.学得快，忘得快。

80.Soon ripe, soon rotten.熟得快，烂得快。

81.Speech is silver, silence is gold.能言是银，沉默是金。

82.Still water run deep.静水常深。83.Strike the iron while it is hot.趁热打铁。

84.Success belongs to the persevering.坚持就是胜利。

85.Take things as they come.既来之，则安之。

86.Talking mends no holes.空谈无补。

87.Talk of the devil and he will appear.说曹操，曹操就到。

88.Hasty love, soon cold.一见钟情难维久。

89.Health is better than wealth.健康胜过财富。

90.Health is happiness.健康就是幸福。

91.Hear all parties.兼听则明。

92.Heaven never helps the man who will not act.自己不动，叫天何用。

93.He is a fool that forgets himself.愚者忘乎所以。

94.He is a good friend that speaks well of us behind our backs.背后说好话，才是真朋友。

95.He is a wise man who speaks little.聪明不是挂在嘴上。

96.He is lifeless that is faultless.只有死人才不犯错误。

97.He is not fit to command others that cannot command himself.正人先正己。

98.He is not laughed at that laughs at himself first.自嘲者不会让人见笑。

99.He is wise that is honest.诚实者最明智。

100.He knows most who speaks least.大智若愚

C#破解access97密码

2010-8-31 2:14:30

只支持acc97的密码破解~100%正确

    public string acc(string fname){
        FileStream f = new FileStream(fname, FileMode.Open);
        byte[] Buf = new byte[100];
        f.Read(Buf, 0, 100);
        int j = 66;
        byte[] pwd = new byte[13];
        for (int i = 0; i < 13; i++) { 
            int b = (int)Buf[j];
            if (b < 0) { b = 256 + b; }
            pwd[i] = (byte)b;
            j++;
        }
        byte[] by1 = new byte[]{ 0x86, 0xfb, 0xec, 0x37, 0x5d, 0x44, 0x9c, 0xfa, 0xc6, 0x5e, 0x28, 0xe6, 0x13 };
        byte[] pwd1 = new byte[13];
        StringBuilder sb = new StringBuilder();
        j = 0;
        for (int k = 0; k < 13; k++) {
            if ((pwd[k] ^ by1[k]) != 0) {
                pwd1[j] = (byte)(pwd[k] ^ by1[k]);
                j++;
            }
            
        }
        return Encoding.GetEncoding("gbk").GetString(pwd1);

    }

调用WebServices查IP的地理位置

2010-7-26 21:55:33

很多很多查IP地理位置都是用的纯真数据库，数据库的数据更新及时，也很准确。这里共享一个调用webservices的方法，当然webservices是其他人的。主要是一个调用webservices的类，是使用GET方式调用的Webservices。

<%
'首行把Webservices类包含进来，这个类是根据Webservices地址用原创程序自动生成的
Dim WS,QueryIP,XMLDOM,Result
Set Ws= new IP 'IP是类名
QueryIP = request.ServerVariables("REMOTE_ADDR") '获取访问者的IP
returnXML = WS.GetCityByIP(QueryIP) '调用webservices的方法，返回结果XML

'下面把XML加载到DOM，分析出返回的地址Result
Set XMLDOM = server.CreateObject("MSXML2.DomDocument")
XMLDOM.LoadXML returnXML
if Not (XMLDOM.documentElement is Nothing) Then
Result = XMLDOM.documentElement.selectSingleNode("string").text
End If
Response.Write Result
%>

IP查询的Webservices类，如下：

<%
Class IP
        Public Url,Charset
        Private Sub Class_Initialize()
                Url = "http://gz.wufish.com/webservice/ip.asmx"
                Charset="UTF-8"
        End Sub
        
        Public Function GetCityByIP(IP)
                GetCityByIP = doWebservices("GetCityByIP","IP",Array(IP))
        End Function

        
        Function doWebservices(fn,keys,values)
                Dim WS,MyUrl,QString
                Set WS = Server.CreateObject("MSXML2.ServerXMLHTTP.3.0")
                MyUrl = Url & "/" & fn & "?"
                QString = ""
                If Keys<>"" Then
                        MyKeys = Split(Keys,",")
                        For i=0 to ubound(MyKeys)
                                QString = QString & MyKeys(i) & "=" & server.URLEncode(values(i)) & "&"
                        Next
                        QString = left(QString,len(QString)-1)
                End If
                MyUrl = MyUrl & QString
                WS.open "GET",MyUrl,False
                Ws.Send()
                If Ws.ReadyState = 4 Then
                        If Ws.status = 200 Then
                                doWebservices = Bytes2Str(Ws.responseBody,Charset)
                        End If
                End If
        End Function
        
        Private Function Bytes2Str(ByVal byt,ByVal cSet)
                If LenB(byt) = 0 Then
                        Bytes2Str = ""
                        Exit Function
                End If
                Dim mystream, bstr
                Set mystream =server.createobject("ADODB.Stream")
                mystream.Type = 2
                mystream.Mode = 3
                mystream.Open
                mystream.WriteText byt
                mystream.Position = 0
                mystream.CharSet = cSet
                mystream.Position = 2
                bstr = mystream.ReadText()
                mystream.Close
                Set mystream = Nothing
                Bytes2Str = bstr
        End Function
End Class
%>

养胃食谱(2)

2010-7-26 21:25:11

有两种饮料应该多喝,一是牛奶,二是热水。不要早晨空腹喝牛奶，而是改在早饭后1-2小时后喝牛奶，胃中有食物防止了空腹喝牛奶的缺点；二是喝奶前先吃一些含淀粉较多的食物，如馒头等；三是早晨喝牛奶时要同时吃些馍、米饭、面包、饼干、点心等含淀粉的食物，这样可使牛奶在人胃中停留时间较长，牛奶与胃液能够充分发生酶解作用，使蛋白质能够很好的消化吸收。
　　胃不好，要少食多餐。
　　花生，生吃最好，饭前吃个4到6粒，吃太多反而伤胃。
　　大枣、豆腐、白菜、牛奶、胡萝卜、健脾和胃
　　苹果、柚子、葡萄、桔子、风梨，防脂肪积聚，补心益气生津止津
　　核桃、榛子、松子、桂圆、花生等坚果食品可及时补给微量元素益骨质健康。
　　花生，蜂蜜都是养胃的。
　　红茶+蜂蜜....十分养胃
如何养胃
　　俗话说胃病“三分治七分养”，七分养应该在三分治的基础上进行，经全面检查确诊后进行系统治疗，并配合精神方面进行调养，才能达到理想的治疗效果。胃就像一部每天不停工作的机器，食物在消化的过程中会对黏膜造成机械性的损伤，保持有节制的饮食是治疗胃病的关键。另外，高度精神紧张也是胃病发生的重要原因，如司机、建筑工人、办公室工作人员等的胃病发生率都很高，所以这些人更应该保持良好的生活习惯及精神的愉悦。
调理方法
　　1、从生活作息上做起，最起码一天三顿要定时定量，最好给自己设定一个时间表，然后严格遵守。这同时会对睡眠时间产生影响，因为一些晚睡晚起的人是早中餐一块吃的，这种习惯必须要改，并不是说晚上吃夜宵可以弥补过来的，因为人的生物钟虽然可以前后移动，但总是在一定范围内，不可能产生太大的差别。如果不相信的话，可以去查一下相关人体生物钟的资料。
　　2、一般，胃消化功能不好的人，症状是吃一点点就会饱，稍微多吃一点就会胃胀，特别在晚上多吃的话，还会因为胃部滞胀而影响入睡。硬的、纤维类的东西不好消化。因而建议少吃多餐，如果还没到正餐时间，可以补充一些食物，但不宜过多，一定要记住这不是正餐，正餐还是要按正常来吃。食物以软、松为主，一些比较韧性、爽口的东西不宜多吃，因为这些东西最难消化。汤最好饭前喝，饭后喝也会增加消化困难。入睡前两三个小时都最好不要吃东西，否则容易影响入睡，如果觉得肚子空可以多喝水。
　　3、胃病的人应该戒烟、酒、咖啡、浓茶、碳酸性饮料。
　　4、豆奶虽好，但为寒性，牛奶也为寒性，胃病的人应尽量少食或不食。
　　5、馒头可以养胃，不妨试试作为主食。
　　6、其他蔬菜水果类的食物是人体不能缺乏的，所以应该足量。但最好煮得软一点再吃，这样胃会好受一点。菜和果皮的纤维比较多，可以适度食用，但不宜太多，不容易消化，因而瓜果可以相对多吃。
　　7、有胃病的人饭后不宜运动，最好休息一下等胃部的食物消化得差不多了再开始工作，或者慢步行走，也对消化比较好，总之，餐后不宜工作。
　　8、非急性情况下，不提倡吃药，因为长期吃药都有副作用，而胃病是一种慢性病，不可能在短期内治愈。如果需要，提倡去看中医，中医的良方对于养胃特别有效。
　　9、木瓜适合胃的脾性，可以当作养胃食物，不过对于胃酸较多的人，不要使用太多。而且，一定要记住，胃喜燥恶寒，除了冰的东西以外，其他寒凉的食物像绿豆沙等也都不宜多吃。
　　10、再提一次，胃病是一种慢性病，不可能在短期内治好。治病良方就是靠“养”，急不来，只能从生活习惯的改良中获得。我们都需要一个好的胃，这些习惯的改变都是必需的。

养胃食谱

2010-7-26 21:23:04

　　鲢鱼：用于缓解胃痛，常用于脾胃虚弱的治疗。尤其适用于胃寒疼痛或由消化不良引起的慢性胃炎。
　　带鱼：补五脏、祛风、杀虫，对脾胃虚弱、消化不良尤为适宜。
　　胖头鱼：有暖胃、补虚、化痰、平喘的作用。体质虚弱的最好多吃胖头鱼的鱼头,暖胃的同时还能起到治疗耳鸣、头晕目眩的作用。
　　狗肉：性温味甘，具有安五脏、暖肾壮阳之功效，善治脾胃虚寒之症疾。在冬季里常吃狗肉，对于脚冷、腰痛、体质虚弱者有良好的保暖御寒作用。
　　羊肉：性味甘温，含丰富的脂肪、蛋白质、碳水化合物、无机盐和钙、磷、铁等人体所必需的营养成分，常被人们用作冬季御寒和进补壮阳的佳品，具有暖中补肾虚、开胃健脾、御寒去湿之功效。
　　虾米：非常适合冬季肾虚所致的畏寒的人食用。因为它富含蛋白质、碳水化合物、脂肪及钙、磷、铁等成分，具有补肾壮阳、滋阴健胃、通畅血脉之功效。
　　核桃：它含有40-50%的脂肪，其中多数为不饱和脂肪酸，具有降低胆固醇，防止动脉硬化及高血压之功效。核桃仁中还富含磷脂和维生素E，具有增强细胞活性，促进造血功能，增进食欲之功效。这些都对提高身体健康，抵御寒冷大有益处。
　　板栗：栗子性味甘温，入脾、胃、肾三经，有养胃健脾、强筋活血等功效。适用于脾胃虚寒引起的慢性腹泻

早晚养胃粥
　　材料：粳米50克、大枣10个、莲子20克。
　　做法：
　　1、莲子用温水泡软、去芯，粳米淘洗干净，大枣洗净。
　　2、三者同入锅内，加清水适量，旺火煮开后，文火熬煮成粥。
　　3、根据个人口味调味后早晚食用。
　　功效：养胃健脾，还可防治缺铁性贫血。
　　清晨养胃汤
　　材料：红枣50克，带蚕蛹的蚕茧20个，适量白糖。
　　做法：
　　1、将洗净的红枣，和蚕茧一起入锅，加800克水。
　　2、煮沸后改用小火慢煎15分钟。
　　3、滤汁入大碗，加入白糖调味即成。
　　功效：汤甜味美，养胃健脾，润肺生津。

　　桑椹三明治
　　材料：切片面包若干（无味或咸味）、桑椹罐头1瓶。
　　做法：
　　1、将桑椹罐头打开，舀出3～4粒桑椹粒放在面包上。
　　2、再舀几勺桑椹汁，均匀地浇在面包片上，将面包片对折即可。
　　功效：不仅养胃，还具有明目、清肝及健脑的作用。
　　木瓜鲩鱼尾汤
　　用料：番木瓜1个，鲩鱼尾100克。
　　制法：木瓜削皮切块，鲩鱼尾入油镬煎片刻，加木瓜及生姜片少许，放适量水，共煮1小时左右。
　　功用：滋养、消食。对食积不化、胸腹胀满有辅助疗效。
　　食物功效：番木瓜的木瓜蛋白酶，有助于食物的消化吸收，对消化不良、痢疾、胃痛、胃溃疡、十二指肠溃疡等均有疗效。番木瓜的脂肪酶，可分解脂肪成脂肪酸，有利于对食物中的脂肪消化吸收。木瓜蛋白酶还能够促进和调节胰液的分泌，对胰腺功能不全引起的消化不良有治疗作用。鲩鱼，味甘，性温。功能暖胃和中、消食化滞。
　　砂仁黄芪猪肚
　　用料：砂仁6克，黄芪20克，猪肚1个。
　　制法：猪肚洗净，将砂仁、黄芪装入猪肚内，加水炖熟，调味食用。
　　功用:益气健脾，消食开胃。适用于脾胃虚弱之食少便溏、胃脘疼痛。可用于胃下垂及慢性胃炎病人。
　　食物功效：砂仁能行气和胃，醒脾，用于胃呆食滞。临床服用砂仁适量具有促进消化液分泌和增强胃肠蠕动的作用。猪肚能健脾胃、补虚损。
　　黄芪内金粥
　　用料：生黄芪12克，生薏米、赤小豆各10克，鸡内金粉7克，金橘饼1个，糯米80克。
　　制法：将生黄芪加水煮20分钟，取汁，加入薏米、赤小豆、糯米煮成粥，加入鸡内金粉即可。
　　功用：消食和胃。用于脾虚湿滞食停所致的脘腹胀闷、食欲不振、体困便溏等。
　　食物功效：黄芪能补气固表，敛疮生肌。薏米健脾渗湿，除痹止泻。赤小豆能利湿退黄，清热解毒。鸡内金消食健脾，能使胃液分泌量及酸度增加，胃的运动机能增加，排空加速。糯米能补中益气。
　　淮山蜂蜜煎
　　用料：淮山30克，鸡内金9克，蜂蜜15克。
　　制法：淮山、鸡内金水煎取汁，调入蜂蜜，搅匀。日1剂，分两次温服。
　　功用：健脾消食。用于脾胃虚弱，运化不健之食积不化、食欲不振等。
　　食物功效：淮山能健脾补肺，固肾益精。用于消化不良，小儿厌食症。淮山所含消化酶，能促进蛋白质和淀粉的分解，故有增进食欲的作用。蜂蜜能补中益气，润肠通便，对创面有收敛、营养和促进愈合作用。
　　酸奶养胃：早上喝酸奶对人体有益，酸奶容易消化，还可中和胃酸，保护胃粘膜。牛奶也能养胃，有胃溃疡的人喝了牛奶能减轻症状。
白开水养胃
　　：白开水并没有什么营养成分，只是经过一个晚上，人体消耗了一些水分，可用其来补充、平衡身体的水分。
　　粥养胃：粥类容易消化，尤其八宝粥，里面含有花生、杏仁、白糖等，热量更高更丰富，对胃有好处。而新鲜的花生富含蛋白质、脂肪，能有效地保护胃。
　　最养胃的，是面条;米中含酸多，所以少吃米饭。
　　如果熬粥，少放点苏打进去，对胃有好处。
　　小米粥就馒头（不是包子），可以养胃。

ASP批量上传文件

2010-7-23 10:14:17

直接上代码了~示例包下载

index.asp--表单页

An-Upload无组件上传类9.4.10 示例

本示例演示文件和表单数据同时上传:

表单1 
表单2 
文件1 
文件2

upload.asp---数据接收页

<%
Dim Upload,path,tempCls,e
'===============================================================================
set Upload=new AnUpLoad                                                                 '创建类实例
Upload.SingleSize=clng(1000 * 1024) * 1024                                    '设置单个文件最大上传限制,按字节计；默认为不限制
Upload.MaxSize=clng(1000 * 1024) * 1024                                            '设置最大上传限制,按字节计；默认为不限制
Upload.Exe="*"                                          '设置合法扩展名,以|分割,忽略大小写
Upload.Charset="gb2312"                                                                '设置文本编码，默认为gb2312
Upload.GetData()                                                                                '获取并保存数据,必须调用本方法
'===============================================================================
if Upload.ErrorID>0 then                                                                '判断错误号,如果myupload.Err<=0表示正常
        response.Write Upload.description
else
        if Upload.files(-1).count>0 then                                         '这里判断你是否选择了文件
                path=server.mappath("files")                                         '文件保存路径(这里是files文件夹)
                response.Write "表单数据1：" & upload.forms("form1") & ""
                response.Write "表单数据2：" & upload.forms("form2") & ""
                '保存第一个文件(以新文件名保存)
                set tempCls=Upload.files("file1") 
                Set e = tempCls.SaveToFile(path,0)
                if e.error then
                        response.Write e.description
                else
                        response.write "文件:" & tempCls.FileName & "上传完毕,扩展名为" & tempCls.extend & ",大小为" & Upload.getsize(tempCls.Size) & ";原文件名" & tempCls.LocalName & "!"
                End If
                set tempCls=nothing

                '保存第二个文件(以新文件名保存)
                set tempCls=Upload.files("file2") 
                Set e = tempCls.SaveToFile(path,0)
                if e.error then
                        response.Write e.description
                else
                        response.write "文件:" & tempCls.FileName & "上传完毕,扩展名为" & tempCls.extend & ",大小为" & Upload.getsize(tempCls.Size) & ";原文件名" & tempCls.LocalName & "!"
                End If
                set tempCls=nothing
                                
        end if
end if
response.Write "上传使用时间:" & Upload.LostTime & "MS"
set Upload=nothing                   '销毁类实例
%>

超小型ajax实现

2010-6-16 20:34:40

SmartAjax源代码下载

// Aien,i@ruboy.com,1034555083
// Ajax(a,b,c,d,e,f,g);
// 参数说明：a-请求方法；b-请求的地址；c-请求的数据，a为post时有效；d-回调函数，函数里面的this引用是xmlhttp对象；e-是否异步，除非设置为false，否则为异步调用；f,g-登录用户名和密码
function Ajax(a,b,c,d,e,f,g){
        a = a.toUpperCase();
        if(e===false){e=false;}else{e = true;}
        var obj = Ajax.Ajax_GetObj();
        if(obj){
                if(f){
                        obj.open(a,b,e,f,g);        
                }else{
                        obj.open(a,b,e);        
                }        
                if(a.toUpperCase()=="POST"){
                        obj.setRequestHeader("Content-Type", "application/x-www-form-urlencoded");        
                }
                obj.onreadystatechange=function(){if(typeof d != "function"){return;}d.apply(obj,[a,b,c,d,e,f,g]);};
                obj.send(c);
        }                
}
Ajax.Ajax_GetObj = function(){
        var b = null;
        if (window.ActiveXObject) {  //for ie
                var httplist = ["MSXML2.XMLHttp.5.0","MSXML2.XMLHttp.4.0","MSXML2.XMLHttp.3.0","MSXML2.XMLHttp","Microsoft.XMLHttp"];
                for(var i = httplist.length -1;i >= 0;i--){
                        try{
                                b = new ActiveXObject(httplist[ i]);
                                return b;
                        }catch(ex){}
                }
        }else if (window.XMLHttpRequest) {  //for other
                b = new XMLHttpRequest(); 
        }
        return b;                
}

在ASP中使用JSON的简单例子

2010-6-12 13:57:26

function getjson(str){
try{
eval("var jsonStr = (" + str + ")");
}catch(ex){
var jsonStr = null;
}
return jsonStr;
}

<%
set obj = getjson("{name:'anlige'}")
response.write obj.name
%>

中国最流行的客套话和假话有哪些？

2010-5-21 10:21:12

1．家长：压岁钱我给你存着。
2．公车司机：后面还有一辆车！
3．饭店服务员：您要的菜马上就好…
4．小学老师，你跟我说实话，我不告诉你家长！
5．初中老师：这节课体育老师有事不上了…
6．高中老师：我就占你们一分钟…
7．学习好的同学：这次又没考好。
8．一群人来打球：我们都不会玩！
9．街边小店：跳楼大甩卖！
10.领导上台前说:下面我简单的说两句!
11.新闻里常说:有困难找民警
12.借钱时说:我有了马上还你,结果你不要他不还,你要了,他也不一定会还...
13. 医生：“我们已经尽了最大努力了……"
14.见到久别的同学，存下各自的号码：有空常联系！
15.明星：我们只是普通朋友。。。。
16.就想抱着你睡觉，我绝对不动手动脚
17.地震局说：专家分析,近几年没有大地震。
18.太　　太：（出门前化妆时）马上就好！马上就好！
19.老　　公：（一面盯着别的女生）她哪有你漂亮？？？　
20.食品包装：保证不添加防腐剂。
21.女　　生：我们还是可以当朋友的。
22.男生:乖,不会痛的....
23.售票员说：往里边走！里边有坐！
24.老师对最后一名的学生说：你很聪明，只是不努力。。。。。。。
25.你人来就好了嘛还带什么礼物嘛.
26.小时候犯错或撒谎被揭穿时总会说:我下次再也不敢了...
27.小姐：我是新来的,刚做这行没几天..
28.“有关部门已经介入调查”
29.中巴车售票员：上来吧,保证有坐,马上就走。。上车就走
30.公车司机最假的应该是：往里走，后面都没有人.（我日他大爷，后面的人脸都贴窗上了，他说没人）
31.售货员:我真的不挣你钱,我这是按进价卖的.
32.我再也不跟你玩了！”
33.改天请你吃饭！！
34.其实你是个好人，就是我们不太适合
35.老师和家长:等你考完试想怎么玩就怎么玩,没人管你!

“接入服务提供者互联网站备案管理系统”开发完成喽

2010-3-28 21:40:18

“接入服务提供者互联网站备案管理系统” 开发完成，顺利用过国家通信计量站的评测。
系统核心使用.net制作的dll，业务逻辑使用asp。

杭州创业互联科技有限公司
报告号：RJ20100013
产品名称：第一商务ICP/IP备案管理系统
版本：V1.0.0.888

http://www.tmcofmii.com/news_content.asp?id=221

新增ICP备案的XML文件，符合XSD标准

2010-3-18 15:40:04

新增ICP备案的XML文件，符合XSD标准，注意把Qqdwid节点的值改成你自己的

    
                    42
                    我要测试啦
                    5
                    我自己啊
                    
                        330000
                        330100
                        330106
                    
                        2
                        371323198709022314
                        当然是我的地址了哈哈哈
                    
                        我自己
                        086-0532-87568223
                        13456789213;13256789213
                        i@baiboke.com
                        i@baiboke.com
                        1034555083
                        2
                        371323198709022314
                    
                    0
                    备注~哈哈哈~
                
                    29
                    我来测试网站
                    
                        1
                         6
                    
                        20
                        woceshi.com
                    
                        21
                        woceshi.cn
                    
                        54
                        
                            34
                        
                            2
                        
                            46
                            2078993383
                            2078993383
                        
                            47
                            2078933506
                            2078933514
                        
                        我自己
                        086-0532-87568242
                        13456789213;13256789213
                        i@baiboke.com
                        i@baiboke.com
                        1034555083
                        2
                        371323198709022314
                    
                    www.woceshi.com;www.woceshi.cn
                    备注~啦啦啦啦
                
        130000000097

Download方法下载下来的xml文件，只有HSRW的节点

2010-3-11 16:29:57

Download方法下载下来的xml文件（是自己手动根据xsd生成的），只有HSRW的节点，谁有空就分析入库试试，里面有前置审批

  
    
      
        
          10001
          艾恩
          1
          
            370000
            371300
            371323
            我们公司
          
          
            1
            3713231986
            我们公司的
          
          
            张艾恩
            13963961834
            13963961834;13063961834
            i@baiboke.com
            i@baiboke.com
            1034555083
            1
            371323134609029115
          
          张艾恩
          1
          2010-2-21
          2010-2-21
          备注
        
        
          100345
          艾恩asp
          
            
              1
              FG232323
              /9j/4AAQSkZJRgABAQEAAAAAAAD/2wBDAAYEBQYFBAYGBQYHBwYIChAKCgkJChQODwwQFxQYGBcUFhYaHSUfGhsjHBYWICwgIyYnKSopGR8tMC0oMCUoKSj/2wBDAQcHBwoIChMKChMoGhYaKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCj/wAARCADBAXADASIAAhEBAxEB/8QAHwAAAQUBAQEBAQEAAAAAAAAAAAECAwQFBgcICQoL/8QAtRAAAgEDAwIEAwUFBAQAAAF9AQIDAAQRBRIhMUEGE1FhByJxFDKBkaEII0KxwRVS0fAkM2JyggkKFhcYGRolJicoKSo0NTY3ODk6Q0RFRkdISUpTVFVWV1hZWmNkZWZnaGlqc3R1dnd4eXqDhIWGh4iJipKTlJWWl5iZmqKjpKWmp6ipqrKztLW2t7i5usLDxMXGx8jJytLT1NXW19jZ2uHi4+Tl5ufo6erx8vP09fb3+Pn6/8QAHwEAAwEBAQEBAQEBAQAAAAAAAAECAwQFBgcICQoL/8QAtREAAgECBAQDBAcFBAQAAQJ3AAECAxEEBSExBhJBUQdhcRMiMoEIFEKRobHBCSMzUvAVYnLRChYkNOEl8RcYGRomJygpKjU2Nzg5OkNERUZHSElKU1RVVldYWVpjZGVmZ2hpanN0dXZ3eHl6goOEhYaHiImKkpOUlZaXmJmaoqOkpaanqKmqsrO0tba3uLm6wsPExcbHyMnK0tPU1dbX2Nna4uPk5ebn6Onq8vP09fb3+Pn6/9oADAMBAAIRAxEAPwD2uuY8d67NoUOkmK/0zTkvL37NLd6ihaKJfIlkzjzE5LRqoy38Xety1tbWQ30s1naTSm7K75rdJDgQw4GWB45P51jeLrPUpbjw9PodlazyWV+0zRSzfZ4ljNtPHnIViBmRQAqnqOgyRkWY2heKru+8RDTrTXPDWv79PuLkDT1MXlyRvCqK7CWXCt5jc7cjbxnpXOaT8SfEOoaLPdyadYWuy10yQSCC6lO+6uPLZlhKI0i7dxARm5UANJuO3rJbfxHc+Ior++02C1jt9KvYI302+W4lMsj27KAJoo1Dfu2xnK5HzYHXk9L+F17o1tFaW1z5tte/Yku0hMduLcW9yJg3mRxo8jeXujEo2uXwxGGzC9BHaeH/ABQ83g1dX1VfMm+1S2ipBbtAZnF00ESiORsozkIMOw2lvmIAOJdJ8WC61dtMv9Lu7G6S4Nk0rPHJA9wIRNsRlbeQY8uGZFGBg7W+Ws3R/D183gJLBoJLS8j1J9QigvJ/MbC35uY0kkVn5ZQoL5cjcT8xGDi6Tc3dx42aXUdPu7KFtXN/GFsruVg/2QWYjdhAIlHVzIsjKMYBYfPSGeg6Jqf9oxXCSw+Re2kv2e6gDbxHJtV/lbA3KVdGBwDhhkK2VGlWL4asriBtUvryPyJtTuhdm3LBjABDFEqsw4LYiDHGQCxALABjsPHFKNs8EEy9ds0SyAH1wwIz70AOoqH7JZf9A3Tf/AKL/wCJo+yWX/QN03/wCi/+Jo0AmoqH7JZf9A3Tf/AKL/4mj7JZf9A3Tf8AwCi/+Jo0AmoqH7JZf9A3Tf8AwCi/+Jo+yWX/AEDdN/8AAKL/AOJo0AmoqH7JZf8AQN03/wAAov8A4mj7JZf9A3Tf/AKL/wCJo0AmoqH7JZf9A3Tf/AKL/wCJo+yWX/QN03/wCi/+Jo0AmoqH7JZf9A3Tf/AKL/4mj7JZf9A3Tf8AwCi/+Jo0AmoqH7JZf9A3Tf8AwCi/+Jo+yWX/AEDdN/8AAKL/AOJo0AmorN1q1s10a/ZNP09GFvIQy2kSkHaeQQuQfetrUP8Aj/uf+urfzNAFeuP8T+Lb7R9XltbTR47+CBLJpmF35cpNzcPAixoU2sQUz8zoOeveultbW1kN9LNZ2k0puyu+a3SQ4EMOBlgeOT+dcZ4q8E3Wr+MLbV7YaMkMH9nhBNalpoxBdPK4icECIFWAwA27GDtAzRoAsPj6b7Zqk1xoV/HpFnpUep+esltIdhE7FspOwZWEShNuec7sAg0X/ibUYdRWwOq2FrdQyxWdwf7CvLmHz5Cvl/vldUj3rJEdhJ2lsb261Wv/AA/ezwePYdP0ee1jvtKe0tRNNGftM7PeSOy4dtqs1wpG/bjd0AHEuu+A2uPEN5rcf9mTO97baiqnTFe9BgEP7mK4aVQobyccjA3tn1p6Ab2leI9/gXSNd1GPM15a2shht1+/NMECxpuPGXcKNxwM8kDJqtpHi+W911dHufD+rWt0vE0xVGt0/wBcA+7cH8tmt5ArFFz8hIG9cx2GgXzfDXQdKkWOHUrG3sHaORvl823aKTyyy5wC0e3cA2M5AbGDS0rWpW8f39xc6bf29td2ttZIGsbtnSWN5Cd7CEwhczsN6ysvyA5Ib5UB1eian/aMVwksPkXtpL9nuoA28RybVf5WwNylXRgcA4YZCtlRpVi+GrK4gbVL68j8ibU7oXZtywYwAQxRKrMOC2IgxxkAsQCwAY7DxxSjbPBBMvXbNEsgB9cMCM+9ADqKh+yWX/QN03/wCi/+Jo+yWX/QN03/AMAov/iaNAJqKh+yWX/QN03/AMAov/iaPsll/wBA3Tf/AACi/wDiaNAJqKh+yWX/AEDdN/8AAKL/AOJo+yWX/QN03/wCi/8AiaNAJqKh+yWX/QN03/wCi/8AiaPsll/0DdN/8Aov/iaNAJqKh+yWX/QN03/wCi/+Jo+yWX/QN03/AMAov/iaNAJqKh+yWX/QN03/AMAov/iaPsll/wBA3Tf/AACi/wDiaNAJqKh+yWX/AEDdN/8AAKL/AOJpLBEjhvFijiiQXrYSJAij9zB0AAAoAWy/1V5/1+t/6IgqaobL/VXn/X63/oiCsbxgZmh0m3t7q4tDdanbWzywNtcI77WwSCM4PcGjdgb9FeKaR4ui1e9W3sH8VMHv4tNWZ9ZtTGJpjOIsskLZU+UhLJuADPjdtXzMaX4paWPM8qTxi2N2zdqcC7v9Ztz+4OM4hz1xvfrsG/dYWrLaLM3Vit2fQlFeUa/rmm6UuvrB4i1q+u9F3/abWHUSrjEzQ9Xswn32twcMcB5CN2weZyUvxS0seZ5UnjFsbtm7U4F3f6zbn9wcZxDnrje/XYN5HC1ZK6i/uB1Yrdn0JRXz3L8UtLHmeVJ4xbG7Zu1OBd3+s25/cHGcQ5643v12DeS/FLSx5nlSeMWxu2btTgXd/rNuf3BxnEOeuN79dg319TrfysXtodz6Eoryz4bavZePdXvdPsdV8VWTQRCVZJtQtnLAzbP9WIw33WjbIyAWKkjCl+1/4ROP/oa/E/8A31F/hWE4OD5ZaM0UlJXRvUVy0enHSvGXhe3j1vWb+G8unWWO8kQJtWNmAwoBPIHfHGMHNdTUtDCiuQkS3u/E2ujVdd1uwtrVbRba30wGSSaSRZCyrEsbu5xGWwo4Csx4BItzaf4ahjgkbxt4rMcqGR2Rd4tUDMpa4IgP2cBkkUmXZgxyA42Nh8ornSUVgto/h1L+4tZvG/ieHyPMD3MzrHbFowTIq3DQiJmQK5ZVYlfLkyBsbFrQvCul6554sfFfjBJYNpkgu1+yzKrZ2t5csCttO1gGxglWAOVOHyhzGpRTv+FbR/8AQ0+J/wDwJi/+NUf8K2j/AOhp8T/+BMX/AMao5Q5htFO/4VtH/wBDT4n/APAmL/41TZPh7FbRtOfEniObygX8uS5j2vjnBxGDg+xB96OULhRV3WZrfT1lla1DogkkYIkjtgO3CohyTgcAAk9qwk1xNQ8KyalbafLZO9s8ix3cMkU0LAHhkY8EEe4PUZBBM2GO1z/kC6h/17yf+gmtbUP+P+5/66t/M1ymnyyT/Dy2lnkeSWTSld3c5ZiYQSST1NdXqH/H/c/9dW/maOgFGy/1V5/1+t/6IgqaobL/AFV5/wBfrf8AoiCpqGCCiiikAUUUUAFFRXM8VtA807rHEg3M7dFHqah0y7j1W3sr+xuYjptxb/aEdo23SBlBj2jjbnOTkU7O1yeeLk4J6rW3rt+T+5luoDdwfZGullR7dVLmRDuGB16dehqWKKOPz3/etLK6tlpCVRQuNqr0HqTTy37uKMBVjiQRoqqFCqOgwKCihq+q2ej6VLqWqTG2s4o/Nd5EYFVxn7uM5x2xmrSzI1y8C7jKkYlbCnCqTgEnGOtR6rZ2ur20lvq1tDfW8mC8VyglVsEEZDZBxgflVpXdUZFZgrY3AHg49abtbQmPPd81rdP+CQpNG8skaSI0keN6hgSuemR2qSlVtkbxqFVXcSNhQCzAYBJ6njioDC0VlBBYvtkQKplunaXd83zMcc9CeB6CkUTUVU1fU7HSWi+2XKok86W0LFT+8d3CIAB6lh9Op4BNW6GmtyYzjJtRd7b+XXX5NMKKKKRQUUUUAFQ2X+qvP+v1v/REFTVDZf6q8/6/W/8AREFNAFl/qrz/AK/W/wDREFY/ir/X+Hf+w3Zf+jRWxZf6q8/6/W/9EQVHe6fDqE1g1zLJEtpdxXi+WgYs0bblByRxnGfbjvkPqLofLuoalceHLN5IbjGsXmsRavESwkaFIRIYZSS8obzDOzDc7HbGrZdZFY5Ws6H9s1mGTw7b7tN1LM1qof5IMKHlhd2PHk5IZn2/KBIcKwNfU7+A/A8k5nm0KCacsHaSZZJGdgYzli0pLEmJck5zl858x90cXw98BReXt8O2h2bcbo5Gzt8vGcy8/wCqXOeuXznzH3erTzFQivd1OWWGbe55L4p8RyeJdB+Il5YnxPcaIeIbq81B5rEn7dblVjiMS+W21gQpYlVyMHrXiNfZEXw98BReXt8O2h2bcbo5Gzt8vGcy8/6pc565fOfMfcRfD3wFF5e3w7aHZtxujkbO3y8ZzLz/AKpc565fOfMfc6eYwpqyj+IpYZy1bPjeivsiL4e+AovL2+HbQ7NuN0cjZ2+XjOZef9Uuc9cvnPmPuIvh74Ci8vb4dtDs243RyNnb5eM5l5/1S5z1y+c+Y+7T+1o/y/iT9Ufc8p/ZQkx4p1mPzMbrWJtm/G7E6c7d4zjPXY2M/eTOH7Px14D1TX/ENhf6R4s1rR7YuFv7e3vJVV0A4aJQcI5wFPG3ndjIIfr9O8K+HtGtLmHw5HcaLJcRrE89lu34Xy8H55GUtiMfMQSCzkEM7E0/+ETj/wChr8T/APfUX+FeXiKvtqjqLS/+R1U4ckVEjuYVt/GngWCMyFIrmVFMkjSMQIGHLMSWPuSSe9dFWRpfhiystb0/U59c1y+kspDJFHciIrkqVPQA9Ce/pWvWDNEcnbHUl8U+I20XSpb+7D2A82AQGeyQxXIaaITsqGTBMYyePMJIcAo2hqvh3UpdM1610jw3fW0PiHQhpCRzXEDPZTB7vdNdN5zFw5ug5dDK7YcsNxAbe0CGHSdU1PUUmkafUBEsiGIFUEYYLj5gcnc2fw9Mnd/t3/a/8gf/AGdWmibHH/8ACJ3upSWugatpMraTBq2p6hc3ZnQQXNvdreKIo9r+aJMXig5RQNj4Y/Lu0Phppevpquqaz4lXUo7i8srO18nUpbSSZHiad32taqsZizOApIDkh8gDbXQf27/tf+QP/s6P7d/2v/IH/wBnT5kFjforA/t3/a/8gf8A2dH9u/7X/kD/AOzo5kFjfqDUP+PC5/65N/I1j/27/tf+QP8A7OmTayJYXjZyFdSpxBzz/wADpcyCxyPifwloL3d7f3NhqV7eStLMUh1GRC5DMAqgsFHQAZIA9hXOw+HvDl14YbVF0PWbCZrdpkt77UJRImASu9Vc47HGcjODg5A29Y0ObUdTuboeIdchSWRnSKOWNUjUkkKBs4Az7+5J5qi/hOSRGSTxHr7IwwytNGQR6H93U3HYXSf+SbWX/YJT/wBEiuu1D/j/ALn/AK6t/M1gXNnHp3hOWygLtFbWRhQucsQseBnHfit/UP8Aj/uf+urfzNIZRsv9Vef9frf+iIKmqGy/1V5/1+t/6IgqahggooopAFRtMguYoPmMsisyqqk8LySSBwBkdaJ/M8iTyNnnbTs3527scZx2zU4LQfKk4clArvGCgbIGRg84z60wKslnDPYS298ftqTlxLFNEpj8s9Ex/EMdc9adbQQ2ttFb20UcMESCOOONQqooGAoA4AA4xUtFFwsr3CisS4/4l3iW2lT/AFGqZt5EHadEZ0fHTlEdWPJOyIDgGtugAooopAFFFFAFW9sLO+Nub60t7k28qzwmaNX8qQdHXI4YdiOae7x2VmZbm4llYykn93woZgERQoyeuM9eanpVYqwZSQwOQR1FO4WS2BlKsVYEMDgg9RSUgEslxNJLNGIggKqVYyO5bk56AY/EmlpAFFFFABUNl/qrz/r9b/0RBU1Q2X+qvP8Ar9b/ANEQU0AWX+qvP+v1v/REFLcXEFsge5mjhQnAaRgoz6c0ll/qrz/r9b/0RBXI/FlVfw1bq6hla+gBBGQRup7sDpv7W07/AKCFp/3+X/Gj+1tO/wCghaf9/l/xryCw0XT7m58uS2t40CO7MsCscKpbgcenrUx0PRpLa4kto1Z4UDlZLNFBG5V6hj/e9KfKhXPWf7W07/oIWn/f5f8AGj+1tO/6CFp/3+X/ABrxf+zbH/nytv8Av0v+FH9m2P8Az5W3/fpf8KOUOY9o/tbTv+ghaf8Af5f8aP7W07/oIWn/AH+X/GvF/wCzbH/nytv+/S/4Uf2bY/8APlbf9+l/wo5Q5j2j+1tO/wCghaf9/l/xo/tbTv8AoIWn/f5f8a8hh8P200SyJa6aFPZ3hQ/kSDTLvRbO1lCNbWEhKhsxBHHPbI7jp/8AWo5UFz2H+1tO/wCghaf9/l/xo/tbTv8AoIWn/f5f8a8X/s2x/wCfK2/79L/hV9NA0guokn0xUz8xW3ckD2GwZo5Ques/2tp3/QQtP+/y/wCNH9rad/0ELT/v8v8AjXjL6ZYK7KtraOAcBliGD7jIzUtjo1jdXtvb/ZbZPNkWPd5KnGTjOKOULnsP9rad/wBBC0/7/L/jR/a2nf8AQQtP+/y/415f/wAI3on2fzuNvk+fj7CmdvmeX/f65/Ss6+0axtb24t/sts/lSNHu8lRnBxnFHKguew/2tp3/AEELT/v8v+NH9rad/wBBC0/7/L/jXjlvpmls5FzbRRpjgx2yOc/QkVa1HQ9GtJZ4UjWSeJymDZoqkg4PO4n9KOULnrP9rad/0ELT/v8AL/jR/a2nf9BC0/7/AC/414v/AGbY/wDPlbf9+l/wq1Z+H4rrDRaUJId21nitQ+PXt1x2zRyhc9e/tbTv+ghaf9/l/wAalt7+zuZRFbXdvLKQSEjkDE4GTwD6AmvIL3wyLJpfP0lBHGxUy/ZvkPOMgkdDXTfCe0toPEdy0FvDExsZgSiBTjA9KOULnaa5/wAgXUP+veT/ANBNa2of8f8Ac/8AXVv5msnXP+QLqH/XvJ/6Ca1tQ/4/7n/rq38zU9BlGy/1V5/1+t/6IgqaobL/AFV5/wBfrf8AoiCpqGCCmyMEjZznCgk4p1NCSPcp+9ijt1Ry+5SWZuNoXHA75JoW+oppuLUXZmV4V1jTfEOmf23pkQkjud9vHPIPmKRyspK4JABKk+pGM46Vr0UUMErKzCiiikMo61Yf2lpk1ssnkyna8Uu3d5UqsGjfGedrKpweDjB4o0W//tLTIblo/JlO5JYt27ypVYrImcc7WVhkcHGRxV6sSz/4l3iS4sV/4976N72JR/yzdSqzDHQBi8bDGSWaUk8imBt1m+MdYXQ10C3JYS3JuLiRTgKyLEcLnsS2zGOeD9Dr2sJuLiOJc5dgMgZx715t4v1dNY+LU9pF5ZsoFj00hFK7lWRWdTnuHLDIxwBj1OlKHNdvojlxVXk5Ip6yaX6v8FY9EooorI6gooooAjniSeCSGVd0cilGGcZBGDWdqniDT9P13R9HeMRXOpF47aGFQFVY4yzE5PAAUDvyw9yNWo5xM0e22eJJSyjdKCVUZGSQOTxmqTXUmak7crt/WxJRTpAqyMEbeoJAbGMj1xTakoKhsv8AVXn/AF+t/wCiIKmqGy/1V5/1+t/6IgpoAsv9Vef9frf+iIK5L4rf8i5bf9f0H/oVdbZf6q8/6/W/9EQVi+L40mbQIpkWSJ9aslZGGQwMoyCO4prcXQ4PQ5BFqAczCD91KBISRtJjYA8c9cdOauvcyNp9+k+ri73RKFjLyHnzEORvAHQH3r3j/hHND/6A2m/+Aqf4Uf8ACOaH/wBAbTf/AAFT/CrsSfNdWob6WGJY0S2Kju9vG5/MqTX0V/wjmh/9AbTf/AVP8KP+Ec0P/oDab/4Cp/hTA+dbm/nuYFhk8kRqxcBIUTBIwfugeg/IelVa+lP+Ec0P/oDab/4Cp/hR/wAI5of/AEBtN/8AAVP8KAPndLSFkVm1C1QkZKssuR7HCYqK5hjh2+Xcwz5znyw4x9dyivo3/hHND/6A2m/+Aqf4Uf8ACOaH/wBAbTf/AAFT/CgD5tRS7qi4BY4G4gD8SeBWui3yIqL/AGUQowNxtSfxJ5Ne9/8ACOaH/wBAbTf/AAFT/Cj/AIRzQ/8AoDab/wCAqf4UAfOF1Cbe4eIvHJtON8bhlb3BFT6O6x6vYvIwVFnQszHAA3Dk19Ef8I5of/QG03/wFT/Cj/hHND/6A2m/+Aqf4UAeExvZ5lSW8tjbND5CIjSqyrvD/eMRycg547nGBgVm6w6yavfPGwZGncqynII3HkV9Ef8ACOaH/wBAbTf/AAFT/Cj/AIRzQ/8AoDab/wCAqf4UrAfPmhpKb1DHdfZY9yrLILhYmCE84yRnp79qv38l5d6feG8uoHczrMsYu0YKAJNwUbj6rx16V7p/wjmh/wDQG03/AMBU/wAKP+Ec0P8A6A2m/wDgKn+FFgPmurVr5cUE00uxmKmONDg/MRgsR2ABOD/exjODj6K/4RzQ/wDoDab/AOAqf4Uf8I5of/QG03/wFT/CmB86y+XLZJKNiTxsI3UYG9cfKwHqMEE/7vck103wu/5GG5/68pv5CvVLS18J3es6hpNrY6RLqOnpFJdQpbITCJdxj3HGASEJx1xg4wwzYvNJ06wj82x0+0tpSrqXhhVCR5bcZA6cCkxnIa5/yBdQ/wCveT/0E1rah/x/3P8A11b+ZrJ1z/kC6h/17yf+gmtbUP8Aj/uf+urfzNZ9CijZf6q8/wCv1v8A0RBU1Q2X+qvP+v1v/REFTUMEFQ2ht3jlngkaczuGEgm3IqgY2qOg55J9adPKkEEk0rbY41LscZwAMmpAxaCBQnlxpGqxp5ezamMgbcDHWgAooopAFFFFABWP4phkOlm9tY3kvNPb7ZAiKWaRlUhowPV0LpnBxvyBkCtiimBZ0m8t7eyudaLGeytLVrrfAQ29dpPy84OVzjnHTmvCPh7G+o+KUmuJXe4aUStK5LMxGXOSTySV616hBpy3dhqvgy6mSzsEMOpyXLIcR6czOQgfARHWWF1UH5RFtI3EMBxHgO2tX8b302jjOmpcTGHrxCNwQ/Nz0ZevPrXVC0aMu7PJxClPHUuyv99v00+89VooorkPWCiiigAooooAhtjbxxpa28jPJAgWUyTeZIWOTub0z6VNTI50Es1pGPnwLiXbH/wAFmx7YAJ7U+mAVDZf6q8/6/W/9EQVNUNl/qrz/r9b/wBEQUIAsv8AVXn/AF+t/wCiIKx/FX+v8O/9huy/9Gitiy/1V5/1+t/6IgrH8Vf6/wAO/wDYbsv/AEaKa3F0PXKKKz5tb0qDWYNIn1Oxj1a4QyQ2T3CCeRBuyyxk7iPlbkD+E+hrQk0KKKKACis/Tdb0rVLq9tdM1OxvLmxfy7qK3uEke3fJG2QAkqcqwwcdD6VoUAFFFRQ3ME8k8cE0Uklu4jmVHBMblVYKwHQ7WVsHswPcUAS0UVn63relaDapda5qdjpts7iNZby4SFGcgkKCxAzgE49jQBoUVV0vUrHV7CK+0q9tr6ylz5dxbSrLG+CQcMpIOCCPqDVqgAorP1vW9K0G1S61zU7HTbZ3Eay3lwkKM5BIUFiBnAJx7GtCgAorifiV8SdH+Hv9nf21bahP9v8AM8r7JGjY2bc7tzr/AHxjGe9c/b/G3TbnSTqlv4S8Zy6YEaQ3cemq0IVc7m3iTbgYOTnjBrWNCpKPMloQ5xTs2erUUUVkWcrp0OoL8TdcupdLuY9Nm0yzt4b1pIjHJJFJcOwChzIOLhQCVAyj/wCzu29a/wCPZf8Agf8A6Lekh1vSp9Zn0iDU7GTVrdBJNZJcIZ40O3DNGDuA+ZeSP4h6il1r/j2X/gf/AKLekwRwWuf8gXUP+veT/wBBNa2of8f9z/11b+ZrJ1z/AJAuof8AXvJ/6Ca1tQ/4/wC5/wCurfzNZ9CyjZf6q8/6/W/9EQVNUNl/qrz/AK/W/wDREFTUMENkYrGzAFiASAO9Z3hzWLjXtJj1G8sruxlleRfIu1ZZQqyMqswYAjcqhsEcbu/Wr86u8EixSeXIykK+M7Tjg471KyomFjeSRQoG+QAMxxySBx1zRdWsTyvn5r6dv17iUUUUigooooAKKKvaJAZ9Si67UO84PTHT9cUwPPPjZr8dtqltpEAiiuY9MkhluoZWLIsrIzQbQeA3kR5zzhh0G4NjfCZSl1hhg/ZmP4F1Irkdf1BvFPjLUNRcuYp5mdd6hWEQ4RSBxkKFHGfXnrXsfhfR10mx+bJuZgGlyeh/ujtxk896666VOCgjxsunPFVp4mWyvFel7/16vXRGzRRRXGeyFFFFABRRRQBlahrNzZa1pemQWF3PDqDOJriNW8q3VEZgXIBGSwVQCRnccdMHVpqR/vpZJJ5NvlhY4VVdu7PLE9enGKdTbT2JhFxvd3/rYKhsv9Vef9frf+iIKmqGy/1V5/1+t/6IgoRQWX+qvP8Ar9b/ANEQVj+Kv9f4d/7Ddl/6NFbFl/qrz/r9b/0RBWP4q/1/h3/sN2X/AKNFNbi6HrledahLYzeN7rS7nTtXtrNtQtr2Z49Nupk1C7VIfKfzlRo44Y/Lhz8ylnjO7aqt53otZ82t6VBrMGkT6nYx6tcIZIbJ7hBPIg3ZZYydxHytyB/CfQ1oSaFFFRNcwLdR2rTRC5kRpEiLjeyKVDMB1IBdAT23D1FAHC+Gk+0+OLa4srDUrbT7LTJrQ217Y/ZY9MYtbhYLchVWVW8pyzK0ygxJsZVYB+/rP03W9K1S6vbXTNTsby5sX8u6it7hJHt3yRtkAJKnKsMHHQ+laFAEV2s7Wsy2ckUVyUYRSSxmRFfHBZQylgDjIDDPqOtedfBvTtS0O78WaVqem/ZPLvbedJxLLOLtmtIUeXzmhiWVmaIs7Dkuz7gOGf0VbmBrqS1WaI3MaLI8Qcb1RiwViOoBKOAe+0+hotrmC6jMlrNFNGrvGWjcMA6MVdcjuGUqR2II7UAS1yvxCtI5rPS7uSfW7VtPvftCXOj2yXM0LGGWLJiaOQupEpXCoxBYHhQzDqqz7vW9Ks9Mm1K81Oxg06B2jlupbhFijdX8sqzk4BDgqQT97jrQBV8G3Go3Ph23l1gS/aS8oRpo/KkkhErCGSRMDbI8QjZl2rhmI2pjaNqorS5gvLWG6s5op7adFkilicMkiMMhlI4IIIIIqWgDzr4naa9xr+j3dxPq9vpI0++sbqTTNPW/dzM9sVieEwzZjZYpMnZj5QCw3AN2vh6XUZ9A0yXXIIrbVpLWJ7yGI5SOYoC6qcngNkDk/U1FqHiPQ9O0q21PUNZ0200252+Rdz3SRwy7lLLtcnDZUEjB5AzWrQB82/tjf8yj/wBvn/tCvErC/wBngfWEa7zdtLaWMUTyZP2QtPPIqKTwvnRwsSBwT1+c5+6PEWk6BqMcEniSw0u6jicRwtfwxuEeRlUKpccFm2LgdTgelZs3gvwRBJBHP4a8NxyXDmOFXsIAZHCsxVQV5O1WbA7KT2NejRxsadNU2tv87nNOi5SckzqaKKimuYIJII55oo5LhzHCruAZHCsxVQep2qzYHZSexrzjpPL9DsL5fGVhA8Gpf6LrV/ey2clqy2VpFILrZcw3GweZLJ50e5DLIB58mI02Dy/Rta/49l/4H/6Leqlt4s8OXWsnSLXX9Im1ZXeM2Ud7G04dM718sNuyNpyMcYPpVvWv+PZf+B/+i3pMEcFrn/IF1D/r3k/9BNa2of8AH/c/9dW/maydc/5Auof9e8n/AKCa1tQ/4/7n/rq38zWfQso2X+qvP+v1v/REFTVDZf6q8/6/W/8AREFTUMEFQ2xt440tbeRnkgQLKZJvMkLHJ3N6Z9KmpI2k8z7NBbuyy7p5ZERQF2qBl269MADmgBaKKKQBRRRQAVlfETUW0T4bahIhkWfUpFso2UKw2nJbOegKiQZ65I6da140aSRUQZZiFA9Sa83+NN8mo+LrLQoY9ttpMWXYjBZpArHkHkY2dgcluvFb4eKc7vZHDmNSUaLhD4paL5/8AzPhdovn3i3Uo+SLEp57/wAA6/Vvwwa9ZrL8Nab/AGXpMUDDEzfvJf8AePbqegwOPStSs6k3OTkzow9COHpRpR2QUUUVBsFFFFABRRUc8jRR7o4ZZ3LKqxxDLMSQOM49aAG2ht3jlngkaczuGEgm3IqgY2qOg55J9amp8oaPZAyqggXylRVACgduKZTAKhsv9Vef9frf+iIKmqGy/wBVef8AX63/AKIgoQBZf6q8/wCv1v8A0RBWP4q/1/h3/sN2X/o0VsWX+qvP+v1v/REFY/ir/X+Hf+w3Zf8Ao0U1uLoeuV5V4wsNSHjB9N0gXL2+panpmsXKyaVLJGzRTQrIEu1cRxbIrNHKSKSS2FJLhV9VorQkK4rUUhj+MWh3CWFyZX0W8tpr2OxkaPma3eKN5wu0f6uchS3BPYuN3a0UAeYfDi1uxdeDbeWxvoJPD/hyXS9QNxbSQolwTZgLG7gLMP8AR5fnjLL8oOfmXPp9FFAHFaKkMPxc8UNDYXMP2nTLDzLr7DJHDPLG9xu/fbQjsElgH3icDH8DBT4QpDD4QltrawudPt4dT1DybeexktNkT3cskW2N1UhfLdMYGB04IIHa0UAFeQaHcQaT4EsHsvD+pRS2fiC//s9Do92q2Kyy3RSdrdEEjRCCYgKq4LOqExnLJ6/RQBi+DYbKDw7bjTftxgd5Zme+t3gnkleVnlkeN1QqWkZ2wFVfm+UBcCtDVhatpV6NQt/tNkYXE8HkGfzY9p3L5YBL5GRtAJOcYOatUUAeYeHJ0sPhb4PW8tPEGm30WkxWJvrPR2mu7J0WISRGJopHUOYjyYyhEYO4Exk9r4ItJ9P8F6BZ3lnFY3Nvp9vDLaROXSB1jUGNWLMSFIIBLNnHU9a2qKAOK+LKQnw/pkslhc3stvrWnXMQtrGS6ki8u6jeSQLGrMuIllG7A4JXqwBxfG2mazD8TvCmuJZRahYpqEVukiNMXsY2t7lJCY1ifAZpVLS7lU7IEZVCGWvT6KACuK8dJCvi/wABXJsLm4uINTmzcQWMk32eJ7SaM7pEUiNWkeDO4gHGTwhI7WigDzrQI73SvFy6fpM3iCS0l1C8nv7TUbJFtbaKUzTebBcLEoctM0WE812CSsGQFTs7bWv+PZf+B/8Aot6v1Q1r/j2X/gf/AKLekwRwWuf8gXUP+veT/wBBNa2of8f9z/11b+ZrJ1z/AJAuof8AXvJ/6Ca1tQ/4/wC5/wCurfzNZ9CyjZf6q8/6/W/9EQVNUNl/qrz/AK/W/wDREFTUMEFNkLCNigBfBwD606ihOzuKUeaLV7XMrwzc6pd6NFPr1klhqDvLutlcP5aeYwjyVZgTs2k4PUnp0rVqGQQ2/wBpu/swluDDs3Ku6TapLbV56k/nU7JJHgTRtFJtBKNjK5GcHHfmh9wSsrCUUUUhlmzmhsYrrU7shbWxiaaQkZ6A44HPv0PSvK/BWmTalr82ragoE0z/AG+YAYUPIS6AYY8YO79CK7LxqY59JttKkUNDM5vLxdh3GCLDEA5HU7B1/wCWhOOM1Y0Gzey08Cc5upmM059Xbk9OOOBxxxWvNywsupzOHtK/M9o7er3/AA/NmjRRRWR0hRRRQAUUUUAFZGpXOrR67pNvY2KTabM0hvblnUGBRGxUAbgSWfYOAcAHOOCNGSM3f2m3e2le3EOZZOiYYlduc5z9KnbZwIoo4Y1UKqRjCqAMAAfhVJ2JlHmtrawlFFFSUFQ2X+qvP+v1v/REFTVDZf6q8/6/W/8AREFNAFl/qrz/AK/W/wDREFY/ir/X+Hf+w3Zf+jRWxZf6q8/6/W/9EQVj+Kv9f4d/7Ddl/wCjRTW4uh0XxjutOsvDel3Oq30VlHFrumSI8tz5KMVvIi27kBwIxI5DZA2bsfKCOU1Bktfi7dX16dIudUh1a2j0yxngYak1tLbQwyS28nmZ+zoZbmRk8tk3RzElWyyey0VoSFcLqd1p0Hxs8PxPfRLqM+hX8YtnueSPPtmTbETgEhJjkDLCM5JCcd1RQB518NvCmgaJ4q8VS6Lo9jp7WD2+jQ/Z4QCYUtopyzMcs0jNcEMxPzCKPPKkn0WiigDyrW7y1j8ZfEu30y6ubnV28M2sv2OxvT9r8xRefLCPmMTYeEjauA0qttJf5rfwkjsYtV12PRbjRLvTfJtWE/h63W304ylp96CNXkHnhRGXbfko0IKrtBb0qigArxCxn0Sf4UJdR6jpF/ommeI777RDqV40tpdpJeXEcSXE2JTjNxBMHdXyVRjgHePb6KAOQ+EzTt4GtWuI4olN1eGCOGQyQrb/AGqXyRCxVd0Ii2eWQoBTbgAYFWviPc6VaeDr2fxBNLFpaPCZlR0Xzv3yYhcv8nlyHEb7yF2u24quSOlooA8QsY/ByXWkvq9/4WufCUqX8ktuk0Mmj2V6TZ+VBFu/diQRidhkKzF53CqHKj0/4e/bv+EB8Nf2v9p/tL+zLb7V9q3ed5vlLv37ud27Oc85zmugooA86+LNz4ciutHt/Ec2kGa4SdbWDXHj/s9OYt9zIsmA8kYwqKpDHzmHyqXkSKxn0ez+Jvgy2t9d/tC4k8M3UMMlxfiaS6jElo0cuM4ZnVJWLqMuEJ5CcelUUAFeVfE6XwrL4qjsNc1XTbHUpbKN0u9TuYov7Mi3yfvrPfgi5dsjepwvko7fcRJPVaKAPKvDUvhW8+I8x03VdNTV7W9u0lZ7mL+09RlzIHhcDEn2aEEhUYEnyY2GEiVpfRta/wCPZf8Agf8A6Ler9UNa/wCPZf8Agf8A6LekwRwWuf8AIF1D/r3k/wDQTWtqH/H/AHP/AF1b+ZrJ1z/kC6h/17yf+gmtbUP+P+5/66t/M1n0LKNl/qrz/r9b/wBEQVNUNl/qrz/r9b/0RBU1DBBRRRSAKaI91yjvPIkSI+Y0VT5jHG3JPQDnpTqKAI4JknRni3FFkaIsVIBZeCBkc49qkqvqj3zaZMmnvGbtUb7Os7ERh+2cAkAnrgVBoaakmnaba6kDd6ktoDeXMKgReYiDe3bALZwAPwFVbS5Kk+Zxt216ddPlbX1RPPbLM4ZskbkLKSxHyksuBnAO7BzjkDB7YsVGk0byyRpIjSR43qGBK56ZHapKRQUUUUgCiiq5uVe2Wa1VrsMwVFt8OXJbbxzjr79jQBYqvu+2wN9nnlhUS+WZhFkgqw3hdwwe4z0ql4kt9bL2UWiy2sDJeRfbDOefIVwZFT5WBYgFe33icggVrs7siozMVXO0E8DPpVNWJjJybVrW/HRO6/L1TCTZ5jeXu2ZO3d1x2zTaKKkoKKKKACobL/VXn/X63/oiCpqhsv8AVXn/AF+t/wCiIKaALL/VXn/X63/oiCsfxV/r/Dv/AGG7L/0aK2LL/VXn/X63/oiCsfxV/r/Dv/Ybsv8A0aKa3F0Nf4s3PhyK60e38RzaQZrhJ1tYNceP+z05i33MiyYDyRjCoqkMfOYfKpeRMXVovDsWq+GRpGp22pa7FNp6CadjNqt7b7oAJre4Jz5Hl+Y8pjRo5F88ZRjIw9forQkK8q1aXwrdfFB7WbVdNtddgvbaR7m8uYkvUbZEY7KzBxIInGGk6q3nyIu5pHMXqtFAHlXw+u9Qi+LPiay1+C5j1W70y3uiZbmJ4zGl1dqohUSFvKVZI0DbEJKF5FR5AG9VoooA8Q1K18JeItT8S6fZa3Y2upsmp2s86lJ9WvpHSZZImhTEslvAGISIgs5hjK4WNWl6r4Tf2VHdaxb6HB4WntlSCRtU8N2KW1vO7GUGBgryAyRhQx+fpOvyr1b0WigDK8WSWsXhXWZNQvrnT7JLKZp7y1YrNbxhDukQgEhlGSCATkDg14reL4fu9NtbjQtQ8I6fotxqcR1LTkEN1pdjALa68tryOKRYzLJL5YLbgu9IFUuYg7+/0UAc18N5Uk8EaVHBBFDbWyNZ2/kljHLDC7RRTR7ix8uREWRcs3yuPmb7xPiPc6VaeDr2fxBNLFpaPCZlR0Xzv3yYhcv8nlyHEb7yF2u24quSOlooA8Q1Twz4S1jwA08C+H9VWfUItORdNdJ7TSRez2sEyWoHypIq7ZA5UEyMz7VEhSvarS2gs7WG1s4YoLaBFjiiiQKkaKMBVA4AAAAAqWigDzr4s3PhyK60e38RzaQZrhJ1tYNceP8As9OYt9zIsmA8kYwqKpDHzmHyqXkTjzFYx+LLQ2+p22o3sV7pcdhJcss+r31r5dtuuLa5BBFsQZWlVY3V9t0d6+YdnutFABXlXxOl8Ky+Ko7DXNV02x1KWyjdLvU7mKL+zIt8n76z34IuXbI3qcL5KO33EST1WigDxrT1S1+LtrY2Q0i51SHVrmTU76CdhqTW0ttNNHFcR+Xn7Ohlto1fzGTdHCAFbCp6trX/AB7L/wAD/wDRb1fqhrX/AB7L/wAD/wDRb0mCOC1z/kC6h/17yf8AoJrW1D/j/uf+urfzNZOuf8gXUP8Ar3k/9BNa2of8f9z/ANdW/maz6FlGy/1V5/1+t/6IgqaobL/VXn/X63/oiCpqGCCiiikAUUVj6pr0VhqUdgLLUby6eIzhLK2achAdpJC8gZI/MUwNiisH/hIZP+hd8T/+CqX/AAo/4SGT/oXfE/8A4Kpf8KLMLm+rbI3jUKqu4kbCgFmAwCT1PHFQGAR2CW9rJKkixFPOlfzWL8/Oc/Xp04rH/wCEhk/6F3xP/wCCqX/Cj/hIZP8AoXfE/wD4Kpf8KdmF0WfFkGrPoNzD4VuYU1QxhIZ70AKGxguQqsMjkgYIyADxWmkf76WSSeTb5YWOFVXbuzyxPXpxisP/AISGT/oXfE//AIKpf8KP+Ehk/wChd8T/APgql/wpu7VrERiotyvv5/l2NyKKOPz3/etLK6tlpCVRQuNqr0HqTTy37uKMBVjiQRoqqFCqOgwKwP8AhIZP+hd8T/8Agql/wo/4SGT/AKF3xP8A+CqX/ClZl3RvUVg/8JDJ/wBC74n/APBVL/hTo9flkkVB4f8AEa7iBuk0yRFHuWIAA9ycClZhc3KKsNZyhnGY8I5TJkVQSOuMkUfZJP70H/f9P8aLAV6KpaRqMGq2Iu7Tf5LPIilhgnY7ITj0JUke3pV2kAVDZf6q8/6/W/8AREFTVDZf6q8/6/W/9EQU0AWX+qvP+v1v/REFY/ir/X+Hf+w3Zf8Ao0VsWX+qvP8Ar9b/ANEQVU1fTp9Rn0j7P5YFrqNvdyGRwg2RuGbGep4wB6n0yafUXQ6rxpYHVI4bW3upWvgjzQaemrS6aLjDIrSNLCDLhA+MDK5kG4Z2MvnWg6zfapoieJH1fUri9g1PRLKCVpGt45ILmLTzL5lqjGEs/wBqmOSGKlhtb5EI9L1uHRNetUtdc0ux1K2RxIsV4kEyK4BAYBiRnBIz7miaHRJ9Zg1efS7GTVrdDHDeukBnjQ7sqshO4D5m4B/iPqau5NjfrgPGIktdbs9WsdTuX8rU7Syu9movtsxLLAiwi0XEUnmCYlnlO9BKHUttjUdh/akP93/yLH/8VWfNDok+swavPpdjJq1uhjhvXSAzxod2VWQncB8zcA/xH1NFwsVPBUl0da8aw3d9c3iwa0Fh89gfKjaztZBGoAACgu2BjPcksST1VYGmw6Jpd1e3WmaXY2dzfP5l1LbpBG9w+Sd0hBBY5Zjk56n1rQ/tSH+7/wCRY/8A4qi4WL9FUP7Uh/u/+RY//iqP7Uh/u/8AkWP/AOKouFi/RVD+1If7v/kWP/4qj+1If7v/AJFj/wDiqLhYv0VQ/tSH+7/5Fj/+Ko/tSH+7/wCRY/8A4qi4WL9FUP7Uh/u/+RY//iqP7Uh/u/8AkWP/AOKouFi/RVD+1If7v/kWP/4qj+1If7v/AJFj/wDiqLhYv0VQ/tSH+7/5Fj/+Ko/tSH+7/wCRY/8A4qi4WL9UNa/49l/4H/6Lej+1If7v/kWP/wCKqrqF7FcQYXau0OcmRD/Aw7MT1IobGcZrn/IF1D/r3k/9BNa2of8AH/c/9dW/maydc/5Auof9e8n/AKCa1tQ/4/7n/rq38zWfQoo2X+qvP+v1v/REFTVDZf6q8/6/W/8AREFTUMEFFFFIAqj4c/5KzF/2BJv/AEfFV6odEs5oPHI1l/L+xppz2mDKocu0qPwCRwAnX3GM84qO4M9Eoqh/akP93/yLH/8AFUf2pD/d/wDIsf8A8VV3IsX6iu1na1mWzkiiuSjCKSWMyIr44LKGUsAcZAYZ9R1qr/akP93/AMix/wDxVQ3d7bXVrNby+ascyNGxiuVjcAjB2urhlPoQQR1BouFjirbV9Z1HwD4M1GbWLm2k1DTIZZjp8MDXt7evFGyRxJLG0QUjz2c4XbtVtyormu60ttV+y6cuqx2JuTag3sltI4RbjCZESsuTGSZOWYEYXg5JXlf+EV8NLYaTZwxalBFpUMltZtb63NFJFE5UtH5izhmX92mFYkAKAMAV0FtLZ2/2Xyzcn7NCbdPMvvMyp28vukO9vkHztluW5+ZslwscffeIdZ8Karqa6rdXOpommT30aXMcEEM0qNCMWzRAmGBWm2yNcklAUYMyrK9avw08RXXiLwg14mo6brV7Fqd1ayz27iKExpduqlQu/H7jYyqSSwKZb5t9W9E0vQtEunuNOtZUkKGKMSXvmpbxkgmOFHkKwx/KvyRhV+RBj5VxLp9ppOn21zBZR3MUVxetqEijUD/rmkEjFf3vyqz5JRcIdzAjDMCXCxz+oXevWXje6l1e88QWfh5tQtobKS1TT2s2R0hRY5Aytc5e4Z0JUcBlOVALCl8N/Emq6zYef4hm1JJdZ0dNStLW6gtRCABmdrd4WLeV+/gAWfDgYOWJbb1FzpehXOsjVJrWU3O9JWQXu2CSRMbJJIRJ5byLtTDspYbEwRsXEWnaPomlG4k0y2kjlkhaCIS3vmpbxnH7uFHkKwx8L8kYVfkQY+VcFxmL4hHiqbU7lNFsdMlskmcq80ku8scZyFQgdBxk+vfA5vS/Dni7TLzUbqz0zTRNqEonuDJe3koZwMZCupC8AD5QOFUdFGN/xJrWpw6jPb6f4fnvrdZXcXC3UKK+7HQFs4GOpx/U8xpcutadeajcx+HdYma9lEpS51eOVIePuxKzkIucnA9cdAoEDNbwFD9n8MW8RmgmKzXG54GLJnznyASATg8ZxzjjiuhrB8EWVzp/hq3t76EwXAkmdoyysVDSuw5UkdCOhrepPcYVDZf6q8/6/W/9EQVNUNl/qrz/AK/W/wDREFCALL/VXn/X63/oiCpqgjiuo/PERsSkkxmHmzSKwyiJggRsP4M9e9Lsvf8AqG/+BEv/AMZoaAmoqHZe/wDUN/8AAiX/AOM0bL3/AKhv/gRL/wDGaLBcmoqHZe/9Q3/wIl/+M0bL3/qG/wDgRL/8ZosFyaiodl7/ANQ3/wACJf8A4zRsvf8AqG/+BEv/AMZosFyaiodl7/1Df/AiX/4zRsvf+ob/AOBEv/xmiwXJqKh2Xv8A1Df/AAIl/wDjNGy9/wCob/4ES/8AxmiwXJqKh2Xv/UN/8CJf/jNGy9/6hv8A4ES//GaLBcmoqHZe/wDUN/8AAiX/AOM0bL3/AKhv/gRL/wDGaLBcmoqHZe/9Q3/wIl/+M0bL3/qG/wDgRL/8ZosFyaiodl7/ANQ3/wACJf8A4zRsvf8AqG/+BEv/AMZosFyaiodl7/1Df/AiX/4zRsvf+ob/AOBEv/xmiwXK+uf8gXUP+veT/wBBNa2of8f9z/11b+ZrLvrW9urK4t9+mp5sbR7vPlOMjGceVWleOsl5O6HKtIzA+oJo6AU7L/VXn/X63/oiCpqgjiuo/PERsSkkxmHmzSKwyiJggRsP4M9e9Lsvf+ob/wCBEv8A8ZoaAmoqHZe/9Q3/AMCJf/jNGy9/6hv/AIES/wDxmiwXJqKh2Xv/AFDf/AiX/wCM0bL3/qG/+BEv/wAZosFyaiodl7/1Df8AwIl/+M0bL3/qG/8AgRL/APGaLBcmoqHZe/8AUN/8CJf/AIzRsvf+ob/4ES//ABmiwXJqKh2Xv/UN/wDAiX/4zRsvf+ob/wCBEv8A8ZosFyaiodl7/wBQ3/wIl/8AjNGy9/6hv/gRL/8AGaLBcmoqHZe/9Q3/AMCJf/jNGy9/6hv/AIES/wDxmiwXJqKh2Xv/AFDf/AiX/wCM0bL3/qG/+BEv/wAZosFyaiodl7/1Df8AwIl/+M0bL3/qG/8AgRL/APGaLBcmqGy/1V5/1+t/6Igo2Xv/AFDf/AiX/wCM0+2ieGCXzngaWW4aXbCzMFHlxqOWVefkPagB9FFFIAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooA//9kN
            
            
              2
              FG232323
              /9j/4AAQSkZJRgABAQEAAAAAAAD/2wBDAAYEBQYFBAYGBQYHBwYIChAKCgkJChQODwwQFxQYGBcUFhYaHSUfGhsjHBYWICwgIyYnKSopGR8tMC0oMCUoKSj/2wBDAQcHBwoIChMKChMoGhYaKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCj/wAARCADBAXADASIAAhEBAxEB/8QAHwAAAQUBAQEBAQEAAAAAAAAAAAECAwQFBgcICQoL/8QAtRAAAgEDAwIEAwUFBAQAAAF9AQIDAAQRBRIhMUEGE1FhByJxFDKBkaEII0KxwRVS0fAkM2JyggkKFhcYGRolJicoKSo0NTY3ODk6Q0RFRkdISUpTVFVWV1hZWmNkZWZnaGlqc3R1dnd4eXqDhIWGh4iJipKTlJWWl5iZmqKjpKWmp6ipqrKztLW2t7i5usLDxMXGx8jJytLT1NXW19jZ2uHi4+Tl5ufo6erx8vP09fb3+Pn6/8QAHwEAAwEBAQEBAQEBAQAAAAAAAAECAwQFBgcICQoL/8QAtREAAgECBAQDBAcFBAQAAQJ3AAECAxEEBSExBhJBUQdhcRMiMoEIFEKRobHBCSMzUvAVYnLRChYkNOEl8RcYGRomJygpKjU2Nzg5OkNERUZHSElKU1RVVldYWVpjZGVmZ2hpanN0dXZ3eHl6goOEhYaHiImKkpOUlZaXmJmaoqOkpaanqKmqsrO0tba3uLm6wsPExcbHyMnK0tPU1dbX2Nna4uPk5ebn6Onq8vP09fb3+Pn6/9oADAMBAAIRAxEAPwD2uuY8d67NoUOkmK/0zTkvL37NLd6ihaKJfIlkzjzE5LRqoy38Xety1tbWQ30s1naTSm7K75rdJDgQw4GWB45P51jeLrPUpbjw9PodlazyWV+0zRSzfZ4ljNtPHnIViBmRQAqnqOgyRkWY2heKru+8RDTrTXPDWv79PuLkDT1MXlyRvCqK7CWXCt5jc7cjbxnpXOaT8SfEOoaLPdyadYWuy10yQSCC6lO+6uPLZlhKI0i7dxARm5UANJuO3rJbfxHc+Ior++02C1jt9KvYI302+W4lMsj27KAJoo1Dfu2xnK5HzYHXk9L+F17o1tFaW1z5tte/Yku0hMduLcW9yJg3mRxo8jeXujEo2uXwxGGzC9BHaeH/ABQ83g1dX1VfMm+1S2ipBbtAZnF00ESiORsozkIMOw2lvmIAOJdJ8WC61dtMv9Lu7G6S4Nk0rPHJA9wIRNsRlbeQY8uGZFGBg7W+Ws3R/D183gJLBoJLS8j1J9QigvJ/MbC35uY0kkVn5ZQoL5cjcT8xGDi6Tc3dx42aXUdPu7KFtXN/GFsruVg/2QWYjdhAIlHVzIsjKMYBYfPSGeg6Jqf9oxXCSw+Re2kv2e6gDbxHJtV/lbA3KVdGBwDhhkK2VGlWL4asriBtUvryPyJtTuhdm3LBjABDFEqsw4LYiDHGQCxALABjsPHFKNs8EEy9ds0SyAH1wwIz70AOoqH7JZf9A3Tf/AKL/wCJo+yWX/QN03/wCi/+Jo0AmoqH7JZf9A3Tf/AKL/4mj7JZf9A3Tf8AwCi/+Jo0AmoqH7JZf9A3Tf8AwCi/+Jo+yWX/AEDdN/8AAKL/AOJo0AmoqH7JZf8AQN03/wAAov8A4mj7JZf9A3Tf/AKL/wCJo0AmoqH7JZf9A3Tf/AKL/wCJo+yWX/QN03/wCi/+Jo0AmoqH7JZf9A3Tf/AKL/4mj7JZf9A3Tf8AwCi/+Jo0AmoqH7JZf9A3Tf8AwCi/+Jo+yWX/AEDdN/8AAKL/AOJo0AmorN1q1s10a/ZNP09GFvIQy2kSkHaeQQuQfetrUP8Aj/uf+urfzNAFeuP8T+Lb7R9XltbTR47+CBLJpmF35cpNzcPAixoU2sQUz8zoOeveultbW1kN9LNZ2k0puyu+a3SQ4EMOBlgeOT+dcZ4q8E3Wr+MLbV7YaMkMH9nhBNalpoxBdPK4icECIFWAwA27GDtAzRoAsPj6b7Zqk1xoV/HpFnpUep+esltIdhE7FspOwZWEShNuec7sAg0X/ibUYdRWwOq2FrdQyxWdwf7CvLmHz5Cvl/vldUj3rJEdhJ2lsb261Wv/AA/ezwePYdP0ee1jvtKe0tRNNGftM7PeSOy4dtqs1wpG/bjd0AHEuu+A2uPEN5rcf9mTO97baiqnTFe9BgEP7mK4aVQobyccjA3tn1p6Ab2leI9/gXSNd1GPM15a2shht1+/NMECxpuPGXcKNxwM8kDJqtpHi+W911dHufD+rWt0vE0xVGt0/wBcA+7cH8tmt5ArFFz8hIG9cx2GgXzfDXQdKkWOHUrG3sHaORvl823aKTyyy5wC0e3cA2M5AbGDS0rWpW8f39xc6bf29td2ttZIGsbtnSWN5Cd7CEwhczsN6ysvyA5Ib5UB1eian/aMVwksPkXtpL9nuoA28RybVf5WwNylXRgcA4YZCtlRpVi+GrK4gbVL68j8ibU7oXZtywYwAQxRKrMOC2IgxxkAsQCwAY7DxxSjbPBBMvXbNEsgB9cMCM+9ADqKh+yWX/QN03/wCi/+Jo+yWX/QN03/AMAov/iaNAJqKh+yWX/QN03/AMAov/iaPsll/wBA3Tf/AACi/wDiaNAJqKh+yWX/AEDdN/8AAKL/AOJo+yWX/QN03/wCi/8AiaNAJqKh+yWX/QN03/wCi/8AiaPsll/0DdN/8Aov/iaNAJqKh+yWX/QN03/wCi/+Jo+yWX/QN03/AMAov/iaNAJqKh+yWX/QN03/AMAov/iaPsll/wBA3Tf/AACi/wDiaNAJqKh+yWX/AEDdN/8AAKL/AOJpLBEjhvFijiiQXrYSJAij9zB0AAAoAWy/1V5/1+t/6IgqaobL/VXn/X63/oiCsbxgZmh0m3t7q4tDdanbWzywNtcI77WwSCM4PcGjdgb9FeKaR4ui1e9W3sH8VMHv4tNWZ9ZtTGJpjOIsskLZU+UhLJuADPjdtXzMaX4paWPM8qTxi2N2zdqcC7v9Ztz+4OM4hz1xvfrsG/dYWrLaLM3Vit2fQlFeUa/rmm6UuvrB4i1q+u9F3/abWHUSrjEzQ9Xswn32twcMcB5CN2weZyUvxS0seZ5UnjFsbtm7U4F3f6zbn9wcZxDnrje/XYN5HC1ZK6i/uB1Yrdn0JRXz3L8UtLHmeVJ4xbG7Zu1OBd3+s25/cHGcQ5643v12DeS/FLSx5nlSeMWxu2btTgXd/rNuf3BxnEOeuN79dg319TrfysXtodz6Eoryz4bavZePdXvdPsdV8VWTQRCVZJtQtnLAzbP9WIw33WjbIyAWKkjCl+1/4ROP/oa/E/8A31F/hWE4OD5ZaM0UlJXRvUVy0enHSvGXhe3j1vWb+G8unWWO8kQJtWNmAwoBPIHfHGMHNdTUtDCiuQkS3u/E2ujVdd1uwtrVbRba30wGSSaSRZCyrEsbu5xGWwo4Csx4BItzaf4ahjgkbxt4rMcqGR2Rd4tUDMpa4IgP2cBkkUmXZgxyA42Nh8ornSUVgto/h1L+4tZvG/ieHyPMD3MzrHbFowTIq3DQiJmQK5ZVYlfLkyBsbFrQvCul6554sfFfjBJYNpkgu1+yzKrZ2t5csCttO1gGxglWAOVOHyhzGpRTv+FbR/8AQ0+J/wDwJi/+NUf8K2j/AOhp8T/+BMX/AMao5Q5htFO/4VtH/wBDT4n/APAmL/41TZPh7FbRtOfEniObygX8uS5j2vjnBxGDg+xB96OULhRV3WZrfT1lla1DogkkYIkjtgO3CohyTgcAAk9qwk1xNQ8KyalbafLZO9s8ix3cMkU0LAHhkY8EEe4PUZBBM2GO1z/kC6h/17yf+gmtbUP+P+5/66t/M1ymnyyT/Dy2lnkeSWTSld3c5ZiYQSST1NdXqH/H/c/9dW/maOgFGy/1V5/1+t/6IgqaobL/AFV5/wBfrf8AoiCpqGCCiiikAUUUUAFFRXM8VtA807rHEg3M7dFHqah0y7j1W3sr+xuYjptxb/aEdo23SBlBj2jjbnOTkU7O1yeeLk4J6rW3rt+T+5luoDdwfZGullR7dVLmRDuGB16dehqWKKOPz3/etLK6tlpCVRQuNqr0HqTTy37uKMBVjiQRoqqFCqOgwKCihq+q2ej6VLqWqTG2s4o/Nd5EYFVxn7uM5x2xmrSzI1y8C7jKkYlbCnCqTgEnGOtR6rZ2ur20lvq1tDfW8mC8VyglVsEEZDZBxgflVpXdUZFZgrY3AHg49abtbQmPPd81rdP+CQpNG8skaSI0keN6hgSuemR2qSlVtkbxqFVXcSNhQCzAYBJ6njioDC0VlBBYvtkQKplunaXd83zMcc9CeB6CkUTUVU1fU7HSWi+2XKok86W0LFT+8d3CIAB6lh9Op4BNW6GmtyYzjJtRd7b+XXX5NMKKKKRQUUUUAFQ2X+qvP+v1v/REFTVDZf6q8/6/W/8AREFNAFl/qrz/AK/W/wDREFY/ir/X+Hf+w3Zf+jRWxZf6q8/6/W/9EQVHe6fDqE1g1zLJEtpdxXi+WgYs0bblByRxnGfbjvkPqLofLuoalceHLN5IbjGsXmsRavESwkaFIRIYZSS8obzDOzDc7HbGrZdZFY5Ws6H9s1mGTw7b7tN1LM1qof5IMKHlhd2PHk5IZn2/KBIcKwNfU7+A/A8k5nm0KCacsHaSZZJGdgYzli0pLEmJck5zl858x90cXw98BReXt8O2h2bcbo5Gzt8vGcy8/wCqXOeuXznzH3erTzFQivd1OWWGbe55L4p8RyeJdB+Il5YnxPcaIeIbq81B5rEn7dblVjiMS+W21gQpYlVyMHrXiNfZEXw98BReXt8O2h2bcbo5Gzt8vGcy8/6pc565fOfMfcRfD3wFF5e3w7aHZtxujkbO3y8ZzLz/AKpc565fOfMfc6eYwpqyj+IpYZy1bPjeivsiL4e+AovL2+HbQ7NuN0cjZ2+XjOZef9Uuc9cvnPmPuIvh74Ci8vb4dtDs243RyNnb5eM5l5/1S5z1y+c+Y+7T+1o/y/iT9Ufc8p/ZQkx4p1mPzMbrWJtm/G7E6c7d4zjPXY2M/eTOH7Px14D1TX/ENhf6R4s1rR7YuFv7e3vJVV0A4aJQcI5wFPG3ndjIIfr9O8K+HtGtLmHw5HcaLJcRrE89lu34Xy8H55GUtiMfMQSCzkEM7E0/+ETj/wChr8T/APfUX+FeXiKvtqjqLS/+R1U4ckVEjuYVt/GngWCMyFIrmVFMkjSMQIGHLMSWPuSSe9dFWRpfhiystb0/U59c1y+kspDJFHciIrkqVPQA9Ce/pWvWDNEcnbHUl8U+I20XSpb+7D2A82AQGeyQxXIaaITsqGTBMYyePMJIcAo2hqvh3UpdM1610jw3fW0PiHQhpCRzXEDPZTB7vdNdN5zFw5ug5dDK7YcsNxAbe0CGHSdU1PUUmkafUBEsiGIFUEYYLj5gcnc2fw9Mnd/t3/a/8gf/AGdWmibHH/8ACJ3upSWugatpMraTBq2p6hc3ZnQQXNvdreKIo9r+aJMXig5RQNj4Y/Lu0Phppevpquqaz4lXUo7i8srO18nUpbSSZHiad32taqsZizOApIDkh8gDbXQf27/tf+QP/s6P7d/2v/IH/wBnT5kFjforA/t3/a/8gf8A2dH9u/7X/kD/AOzo5kFjfqDUP+PC5/65N/I1j/27/tf+QP8A7OmTayJYXjZyFdSpxBzz/wADpcyCxyPifwloL3d7f3NhqV7eStLMUh1GRC5DMAqgsFHQAZIA9hXOw+HvDl14YbVF0PWbCZrdpkt77UJRImASu9Vc47HGcjODg5A29Y0ObUdTuboeIdchSWRnSKOWNUjUkkKBs4Az7+5J5qi/hOSRGSTxHr7IwwytNGQR6H93U3HYXSf+SbWX/YJT/wBEiuu1D/j/ALn/AK6t/M1gXNnHp3hOWygLtFbWRhQucsQseBnHfit/UP8Aj/uf+urfzNIZRsv9Vef9frf+iIKmqGy/1V5/1+t/6IgqahggooopAFRtMguYoPmMsisyqqk8LySSBwBkdaJ/M8iTyNnnbTs3527scZx2zU4LQfKk4clArvGCgbIGRg84z60wKslnDPYS298ftqTlxLFNEpj8s9Ex/EMdc9adbQQ2ttFb20UcMESCOOONQqooGAoA4AA4xUtFFwsr3CisS4/4l3iW2lT/AFGqZt5EHadEZ0fHTlEdWPJOyIDgGtugAooopAFFFFAFW9sLO+Nub60t7k28qzwmaNX8qQdHXI4YdiOae7x2VmZbm4llYykn93woZgERQoyeuM9eanpVYqwZSQwOQR1FO4WS2BlKsVYEMDgg9RSUgEslxNJLNGIggKqVYyO5bk56AY/EmlpAFFFFABUNl/qrz/r9b/0RBU1Q2X+qvP8Ar9b/ANEQU0AWX+qvP+v1v/REFLcXEFsge5mjhQnAaRgoz6c0ll/qrz/r9b/0RBXI/FlVfw1bq6hla+gBBGQRup7sDpv7W07/AKCFp/3+X/Gj+1tO/wCghaf9/l/xryCw0XT7m58uS2t40CO7MsCscKpbgcenrUx0PRpLa4kto1Z4UDlZLNFBG5V6hj/e9KfKhXPWf7W07/oIWn/f5f8AGj+1tO/6CFp/3+X/ABrxf+zbH/nytv8Av0v+FH9m2P8Az5W3/fpf8KOUOY9o/tbTv+ghaf8Af5f8aP7W07/oIWn/AH+X/GvF/wCzbH/nytv+/S/4Uf2bY/8APlbf9+l/wo5Q5j2j+1tO/wCghaf9/l/xo/tbTv8AoIWn/f5f8a8hh8P200SyJa6aFPZ3hQ/kSDTLvRbO1lCNbWEhKhsxBHHPbI7jp/8AWo5UFz2H+1tO/wCghaf9/l/xo/tbTv8AoIWn/f5f8a8X/s2x/wCfK2/79L/hV9NA0guokn0xUz8xW3ckD2GwZo5Ques/2tp3/QQtP+/y/wCNH9rad/0ELT/v8v8AjXjL6ZYK7KtraOAcBliGD7jIzUtjo1jdXtvb/ZbZPNkWPd5KnGTjOKOULnsP9rad/wBBC0/7/L/jR/a2nf8AQQtP+/y/415f/wAI3on2fzuNvk+fj7CmdvmeX/f65/Ss6+0axtb24t/sts/lSNHu8lRnBxnFHKguew/2tp3/AEELT/v8v+NH9rad/wBBC0/7/L/jXjlvpmls5FzbRRpjgx2yOc/QkVa1HQ9GtJZ4UjWSeJymDZoqkg4PO4n9KOULnrP9rad/0ELT/v8AL/jR/a2nf9BC0/7/AC/414v/AGbY/wDPlbf9+l/wq1Z+H4rrDRaUJId21nitQ+PXt1x2zRyhc9e/tbTv+ghaf9/l/wAalt7+zuZRFbXdvLKQSEjkDE4GTwD6AmvIL3wyLJpfP0lBHGxUy/ZvkPOMgkdDXTfCe0toPEdy0FvDExsZgSiBTjA9KOULnaa5/wAgXUP+veT/ANBNa2of8f8Ac/8AXVv5msnXP+QLqH/XvJ/6Ca1tQ/4/7n/rq38zU9BlGy/1V5/1+t/6IgqaobL/AFV5/wBfrf8AoiCpqGCCmyMEjZznCgk4p1NCSPcp+9ijt1Ry+5SWZuNoXHA75JoW+oppuLUXZmV4V1jTfEOmf23pkQkjud9vHPIPmKRyspK4JABKk+pGM46Vr0UUMErKzCiiikMo61Yf2lpk1ssnkyna8Uu3d5UqsGjfGedrKpweDjB4o0W//tLTIblo/JlO5JYt27ypVYrImcc7WVhkcHGRxV6sSz/4l3iS4sV/4976N72JR/yzdSqzDHQBi8bDGSWaUk8imBt1m+MdYXQ10C3JYS3JuLiRTgKyLEcLnsS2zGOeD9Dr2sJuLiOJc5dgMgZx715t4v1dNY+LU9pF5ZsoFj00hFK7lWRWdTnuHLDIxwBj1OlKHNdvojlxVXk5Ip6yaX6v8FY9EooorI6gooooAjniSeCSGVd0cilGGcZBGDWdqniDT9P13R9HeMRXOpF47aGFQFVY4yzE5PAAUDvyw9yNWo5xM0e22eJJSyjdKCVUZGSQOTxmqTXUmak7crt/WxJRTpAqyMEbeoJAbGMj1xTakoKhsv8AVXn/AF+t/wCiIKmqGy/1V5/1+t/6IgpoAsv9Vef9frf+iIK5L4rf8i5bf9f0H/oVdbZf6q8/6/W/9EQVi+L40mbQIpkWSJ9aslZGGQwMoyCO4prcXQ4PQ5BFqAczCD91KBISRtJjYA8c9cdOauvcyNp9+k+ri73RKFjLyHnzEORvAHQH3r3j/hHND/6A2m/+Aqf4Uf8ACOaH/wBAbTf/AAFT/CrsSfNdWob6WGJY0S2Kju9vG5/MqTX0V/wjmh/9AbTf/AVP8KP+Ec0P/oDab/4Cp/hTA+dbm/nuYFhk8kRqxcBIUTBIwfugeg/IelVa+lP+Ec0P/oDab/4Cp/hR/wAI5of/AEBtN/8AAVP8KAPndLSFkVm1C1QkZKssuR7HCYqK5hjh2+Xcwz5znyw4x9dyivo3/hHND/6A2m/+Aqf4Uf8ACOaH/wBAbTf/AAFT/CgD5tRS7qi4BY4G4gD8SeBWui3yIqL/AGUQowNxtSfxJ5Ne9/8ACOaH/wBAbTf/AAFT/Cj/AIRzQ/8AoDab/wCAqf4UAfOF1Cbe4eIvHJtON8bhlb3BFT6O6x6vYvIwVFnQszHAA3Dk19Ef8I5of/QG03/wFT/Cj/hHND/6A2m/+Aqf4UAeExvZ5lSW8tjbND5CIjSqyrvD/eMRycg547nGBgVm6w6yavfPGwZGncqynII3HkV9Ef8ACOaH/wBAbTf/AAFT/Cj/AIRzQ/8AoDab/wCAqf4UrAfPmhpKb1DHdfZY9yrLILhYmCE84yRnp79qv38l5d6feG8uoHczrMsYu0YKAJNwUbj6rx16V7p/wjmh/wDQG03/AMBU/wAKP+Ec0P8A6A2m/wDgKn+FFgPmurVr5cUE00uxmKmONDg/MRgsR2ABOD/exjODj6K/4RzQ/wDoDab/AOAqf4Uf8I5of/QG03/wFT/CmB86y+XLZJKNiTxsI3UYG9cfKwHqMEE/7vck103wu/5GG5/68pv5CvVLS18J3es6hpNrY6RLqOnpFJdQpbITCJdxj3HGASEJx1xg4wwzYvNJ06wj82x0+0tpSrqXhhVCR5bcZA6cCkxnIa5/yBdQ/wCveT/0E1rah/x/3P8A11b+ZrJ1z/kC6h/17yf+gmtbUP8Aj/uf+urfzNZ9CijZf6q8/wCv1v8A0RBU1Q2X+qvP+v1v/REFTUMEFQ2ht3jlngkaczuGEgm3IqgY2qOg55J9adPKkEEk0rbY41LscZwAMmpAxaCBQnlxpGqxp5ezamMgbcDHWgAooopAFFFFABWP4phkOlm9tY3kvNPb7ZAiKWaRlUhowPV0LpnBxvyBkCtiimBZ0m8t7eyudaLGeytLVrrfAQ29dpPy84OVzjnHTmvCPh7G+o+KUmuJXe4aUStK5LMxGXOSTySV616hBpy3dhqvgy6mSzsEMOpyXLIcR6czOQgfARHWWF1UH5RFtI3EMBxHgO2tX8b302jjOmpcTGHrxCNwQ/Nz0ZevPrXVC0aMu7PJxClPHUuyv99v00+89VooorkPWCiiigAooooAhtjbxxpa28jPJAgWUyTeZIWOTub0z6VNTI50Es1pGPnwLiXbH/wAFmx7YAJ7U+mAVDZf6q8/6/W/9EQVNUNl/qrz/r9b/wBEQUIAsv8AVXn/AF+t/wCiIKx/FX+v8O/9huy/9Gitiy/1V5/1+t/6IgrH8Vf6/wAO/wDYbsv/AEaKa3F0PXKKKz5tb0qDWYNIn1Oxj1a4QyQ2T3CCeRBuyyxk7iPlbkD+E+hrQk0KKKKACis/Tdb0rVLq9tdM1OxvLmxfy7qK3uEke3fJG2QAkqcqwwcdD6VoUAFFFRQ3ME8k8cE0Uklu4jmVHBMblVYKwHQ7WVsHswPcUAS0UVn63relaDapda5qdjpts7iNZby4SFGcgkKCxAzgE49jQBoUVV0vUrHV7CK+0q9tr6ylz5dxbSrLG+CQcMpIOCCPqDVqgAorP1vW9K0G1S61zU7HTbZ3Eay3lwkKM5BIUFiBnAJx7GtCgAorifiV8SdH+Hv9nf21bahP9v8AM8r7JGjY2bc7tzr/AHxjGe9c/b/G3TbnSTqlv4S8Zy6YEaQ3cemq0IVc7m3iTbgYOTnjBrWNCpKPMloQ5xTs2erUUUVkWcrp0OoL8TdcupdLuY9Nm0yzt4b1pIjHJJFJcOwChzIOLhQCVAyj/wCzu29a/wCPZf8Agf8A6Lekh1vSp9Zn0iDU7GTVrdBJNZJcIZ40O3DNGDuA+ZeSP4h6il1r/j2X/gf/AKLekwRwWuf8gXUP+veT/wBBNa2of8f9z/11b+ZrJ1z/AJAuof8AXvJ/6Ca1tQ/4/wC5/wCurfzNZ9CyjZf6q8/6/W/9EQVNUNl/qrz/AK/W/wDREFTUMENkYrGzAFiASAO9Z3hzWLjXtJj1G8sruxlleRfIu1ZZQqyMqswYAjcqhsEcbu/Wr86u8EixSeXIykK+M7Tjg471KyomFjeSRQoG+QAMxxySBx1zRdWsTyvn5r6dv17iUUUUigooooAKKKvaJAZ9Si67UO84PTHT9cUwPPPjZr8dtqltpEAiiuY9MkhluoZWLIsrIzQbQeA3kR5zzhh0G4NjfCZSl1hhg/ZmP4F1Irkdf1BvFPjLUNRcuYp5mdd6hWEQ4RSBxkKFHGfXnrXsfhfR10mx+bJuZgGlyeh/ujtxk896666VOCgjxsunPFVp4mWyvFel7/16vXRGzRRRXGeyFFFFABRRRQBlahrNzZa1pemQWF3PDqDOJriNW8q3VEZgXIBGSwVQCRnccdMHVpqR/vpZJJ5NvlhY4VVdu7PLE9enGKdTbT2JhFxvd3/rYKhsv9Vef9frf+iIKmqGy/1V5/1+t/6IgoRQWX+qvP8Ar9b/ANEQVj+Kv9f4d/7Ddl/6NFbFl/qrz/r9b/0RBWP4q/1/h3/sN2X/AKNFNbi6HrledahLYzeN7rS7nTtXtrNtQtr2Z49Nupk1C7VIfKfzlRo44Y/Lhz8ylnjO7aqt53otZ82t6VBrMGkT6nYx6tcIZIbJ7hBPIg3ZZYydxHytyB/CfQ1oSaFFFRNcwLdR2rTRC5kRpEiLjeyKVDMB1IBdAT23D1FAHC+Gk+0+OLa4srDUrbT7LTJrQ217Y/ZY9MYtbhYLchVWVW8pyzK0ygxJsZVYB+/rP03W9K1S6vbXTNTsby5sX8u6it7hJHt3yRtkAJKnKsMHHQ+laFAEV2s7Wsy2ckUVyUYRSSxmRFfHBZQylgDjIDDPqOtedfBvTtS0O78WaVqem/ZPLvbedJxLLOLtmtIUeXzmhiWVmaIs7Dkuz7gOGf0VbmBrqS1WaI3MaLI8Qcb1RiwViOoBKOAe+0+hotrmC6jMlrNFNGrvGWjcMA6MVdcjuGUqR2II7UAS1yvxCtI5rPS7uSfW7VtPvftCXOj2yXM0LGGWLJiaOQupEpXCoxBYHhQzDqqz7vW9Ks9Mm1K81Oxg06B2jlupbhFijdX8sqzk4BDgqQT97jrQBV8G3Go3Ph23l1gS/aS8oRpo/KkkhErCGSRMDbI8QjZl2rhmI2pjaNqorS5gvLWG6s5op7adFkilicMkiMMhlI4IIIIIqWgDzr4naa9xr+j3dxPq9vpI0++sbqTTNPW/dzM9sVieEwzZjZYpMnZj5QCw3AN2vh6XUZ9A0yXXIIrbVpLWJ7yGI5SOYoC6qcngNkDk/U1FqHiPQ9O0q21PUNZ0200252+Rdz3SRwy7lLLtcnDZUEjB5AzWrQB82/tjf8yj/wBvn/tCvErC/wBngfWEa7zdtLaWMUTyZP2QtPPIqKTwvnRwsSBwT1+c5+6PEWk6BqMcEniSw0u6jicRwtfwxuEeRlUKpccFm2LgdTgelZs3gvwRBJBHP4a8NxyXDmOFXsIAZHCsxVQV5O1WbA7KT2NejRxsadNU2tv87nNOi5SckzqaKKimuYIJII55oo5LhzHCruAZHCsxVQep2qzYHZSexrzjpPL9DsL5fGVhA8Gpf6LrV/ey2clqy2VpFILrZcw3GweZLJ50e5DLIB58mI02Dy/Rta/49l/4H/6Leqlt4s8OXWsnSLXX9Im1ZXeM2Ud7G04dM718sNuyNpyMcYPpVvWv+PZf+B/+i3pMEcFrn/IF1D/r3k/9BNa2of8AH/c/9dW/maydc/5Auof9e8n/AKCa1tQ/4/7n/rq38zWfQso2X+qvP+v1v/REFTVDZf6q8/6/W/8AREFTUMEFQ2xt440tbeRnkgQLKZJvMkLHJ3N6Z9KmpI2k8z7NBbuyy7p5ZERQF2qBl269MADmgBaKKKQBRRRQAVlfETUW0T4bahIhkWfUpFso2UKw2nJbOegKiQZ65I6da140aSRUQZZiFA9Sa83+NN8mo+LrLQoY9ttpMWXYjBZpArHkHkY2dgcluvFb4eKc7vZHDmNSUaLhD4paL5/8AzPhdovn3i3Uo+SLEp57/wAA6/Vvwwa9ZrL8Nab/AGXpMUDDEzfvJf8AePbqegwOPStSs6k3OTkzow9COHpRpR2QUUUVBsFFFFABRRUc8jRR7o4ZZ3LKqxxDLMSQOM49aAG2ht3jlngkaczuGEgm3IqgY2qOg55J9amp8oaPZAyqggXylRVACgduKZTAKhsv9Vef9frf+iIKmqGy/wBVef8AX63/AKIgoQBZf6q8/wCv1v8A0RBWP4q/1/h3/sN2X/o0VsWX+qvP+v1v/REFY/ir/X+Hf+w3Zf8Ao0U1uLoeuV5V4wsNSHjB9N0gXL2+panpmsXKyaVLJGzRTQrIEu1cRxbIrNHKSKSS2FJLhV9VorQkK4rUUhj+MWh3CWFyZX0W8tpr2OxkaPma3eKN5wu0f6uchS3BPYuN3a0UAeYfDi1uxdeDbeWxvoJPD/hyXS9QNxbSQolwTZgLG7gLMP8AR5fnjLL8oOfmXPp9FFAHFaKkMPxc8UNDYXMP2nTLDzLr7DJHDPLG9xu/fbQjsElgH3icDH8DBT4QpDD4QltrawudPt4dT1DybeexktNkT3cskW2N1UhfLdMYGB04IIHa0UAFeQaHcQaT4EsHsvD+pRS2fiC//s9Do92q2Kyy3RSdrdEEjRCCYgKq4LOqExnLJ6/RQBi+DYbKDw7bjTftxgd5Zme+t3gnkleVnlkeN1QqWkZ2wFVfm+UBcCtDVhatpV6NQt/tNkYXE8HkGfzY9p3L5YBL5GRtAJOcYOatUUAeYeHJ0sPhb4PW8tPEGm30WkxWJvrPR2mu7J0WISRGJopHUOYjyYyhEYO4Exk9r4ItJ9P8F6BZ3lnFY3Nvp9vDLaROXSB1jUGNWLMSFIIBLNnHU9a2qKAOK+LKQnw/pkslhc3stvrWnXMQtrGS6ki8u6jeSQLGrMuIllG7A4JXqwBxfG2mazD8TvCmuJZRahYpqEVukiNMXsY2t7lJCY1ifAZpVLS7lU7IEZVCGWvT6KACuK8dJCvi/wABXJsLm4uINTmzcQWMk32eJ7SaM7pEUiNWkeDO4gHGTwhI7WigDzrQI73SvFy6fpM3iCS0l1C8nv7TUbJFtbaKUzTebBcLEoctM0WE812CSsGQFTs7bWv+PZf+B/8Aot6v1Q1r/j2X/gf/AKLekwRwWuf8gXUP+veT/wBBNa2of8f9z/11b+ZrJ1z/AJAuof8AXvJ/6Ca1tQ/4/wC5/wCurfzNZ9CyjZf6q8/6/W/9EQVNUNl/qrz/AK/W/wDREFTUMEFNkLCNigBfBwD606ihOzuKUeaLV7XMrwzc6pd6NFPr1klhqDvLutlcP5aeYwjyVZgTs2k4PUnp0rVqGQQ2/wBpu/swluDDs3Ku6TapLbV56k/nU7JJHgTRtFJtBKNjK5GcHHfmh9wSsrCUUUUhlmzmhsYrrU7shbWxiaaQkZ6A44HPv0PSvK/BWmTalr82ragoE0z/AG+YAYUPIS6AYY8YO79CK7LxqY59JttKkUNDM5vLxdh3GCLDEA5HU7B1/wCWhOOM1Y0Gzey08Cc5upmM059Xbk9OOOBxxxWvNywsupzOHtK/M9o7er3/AA/NmjRRRWR0hRRRQAUUUUAFZGpXOrR67pNvY2KTabM0hvblnUGBRGxUAbgSWfYOAcAHOOCNGSM3f2m3e2le3EOZZOiYYlduc5z9KnbZwIoo4Y1UKqRjCqAMAAfhVJ2JlHmtrawlFFFSUFQ2X+qvP+v1v/REFTVDZf6q8/6/W/8AREFNAFl/qrz/AK/W/wDREFY/ir/X+Hf+w3Zf+jRWxZf6q8/6/W/9EQVj+Kv9f4d/7Ddl/wCjRTW4uh0XxjutOsvDel3Oq30VlHFrumSI8tz5KMVvIi27kBwIxI5DZA2bsfKCOU1Bktfi7dX16dIudUh1a2j0yxngYak1tLbQwyS28nmZ+zoZbmRk8tk3RzElWyyey0VoSFcLqd1p0Hxs8PxPfRLqM+hX8YtnueSPPtmTbETgEhJjkDLCM5JCcd1RQB518NvCmgaJ4q8VS6Lo9jp7WD2+jQ/Z4QCYUtopyzMcs0jNcEMxPzCKPPKkn0WiigDyrW7y1j8ZfEu30y6ubnV28M2sv2OxvT9r8xRefLCPmMTYeEjauA0qttJf5rfwkjsYtV12PRbjRLvTfJtWE/h63W304ylp96CNXkHnhRGXbfko0IKrtBb0qigArxCxn0Sf4UJdR6jpF/ommeI777RDqV40tpdpJeXEcSXE2JTjNxBMHdXyVRjgHePb6KAOQ+EzTt4GtWuI4olN1eGCOGQyQrb/AGqXyRCxVd0Ii2eWQoBTbgAYFWviPc6VaeDr2fxBNLFpaPCZlR0Xzv3yYhcv8nlyHEb7yF2u24quSOlooA8QsY/ByXWkvq9/4WufCUqX8ktuk0Mmj2V6TZ+VBFu/diQRidhkKzF53CqHKj0/4e/bv+EB8Nf2v9p/tL+zLb7V9q3ed5vlLv37ud27Oc85zmugooA86+LNz4ciutHt/Ec2kGa4SdbWDXHj/s9OYt9zIsmA8kYwqKpDHzmHyqXkSKxn0ez+Jvgy2t9d/tC4k8M3UMMlxfiaS6jElo0cuM4ZnVJWLqMuEJ5CcelUUAFeVfE6XwrL4qjsNc1XTbHUpbKN0u9TuYov7Mi3yfvrPfgi5dsjepwvko7fcRJPVaKAPKvDUvhW8+I8x03VdNTV7W9u0lZ7mL+09RlzIHhcDEn2aEEhUYEnyY2GEiVpfRta/wCPZf8Agf8A6Ler9UNa/wCPZf8Agf8A6LekwRwWuf8AIF1D/r3k/wDQTWtqH/H/AHP/AF1b+ZrJ1z/kC6h/17yf+gmtbUP+P+5/66t/M1n0LKNl/qrz/r9b/wBEQVNUNl/qrz/r9b/0RBU1DBBRRRSAKaI91yjvPIkSI+Y0VT5jHG3JPQDnpTqKAI4JknRni3FFkaIsVIBZeCBkc49qkqvqj3zaZMmnvGbtUb7Os7ERh+2cAkAnrgVBoaakmnaba6kDd6ktoDeXMKgReYiDe3bALZwAPwFVbS5Kk+Zxt216ddPlbX1RPPbLM4ZskbkLKSxHyksuBnAO7BzjkDB7YsVGk0byyRpIjSR43qGBK56ZHapKRQUUUUgCiiq5uVe2Wa1VrsMwVFt8OXJbbxzjr79jQBYqvu+2wN9nnlhUS+WZhFkgqw3hdwwe4z0ql4kt9bL2UWiy2sDJeRfbDOefIVwZFT5WBYgFe33icggVrs7siozMVXO0E8DPpVNWJjJybVrW/HRO6/L1TCTZ5jeXu2ZO3d1x2zTaKKkoKKKKACobL/VXn/X63/oiCpqhsv8AVXn/AF+t/wCiIKaALL/VXn/X63/oiCsfxV/r/Dv/AGG7L/0aK2LL/VXn/X63/oiCsfxV/r/Dv/Ybsv8A0aKa3F0Nf4s3PhyK60e38RzaQZrhJ1tYNceP+z05i33MiyYDyRjCoqkMfOYfKpeRMXVovDsWq+GRpGp22pa7FNp6CadjNqt7b7oAJre4Jz5Hl+Y8pjRo5F88ZRjIw9forQkK8q1aXwrdfFB7WbVdNtddgvbaR7m8uYkvUbZEY7KzBxIInGGk6q3nyIu5pHMXqtFAHlXw+u9Qi+LPiay1+C5j1W70y3uiZbmJ4zGl1dqohUSFvKVZI0DbEJKF5FR5AG9VoooA8Q1K18JeItT8S6fZa3Y2upsmp2s86lJ9WvpHSZZImhTEslvAGISIgs5hjK4WNWl6r4Tf2VHdaxb6HB4WntlSCRtU8N2KW1vO7GUGBgryAyRhQx+fpOvyr1b0WigDK8WSWsXhXWZNQvrnT7JLKZp7y1YrNbxhDukQgEhlGSCATkDg14reL4fu9NtbjQtQ8I6fotxqcR1LTkEN1pdjALa68tryOKRYzLJL5YLbgu9IFUuYg7+/0UAc18N5Uk8EaVHBBFDbWyNZ2/kljHLDC7RRTR7ix8uREWRcs3yuPmb7xPiPc6VaeDr2fxBNLFpaPCZlR0Xzv3yYhcv8nlyHEb7yF2u24quSOlooA8Q1Twz4S1jwA08C+H9VWfUItORdNdJ7TSRez2sEyWoHypIq7ZA5UEyMz7VEhSvarS2gs7WG1s4YoLaBFjiiiQKkaKMBVA4AAAAAqWigDzr4s3PhyK60e38RzaQZrhJ1tYNceP8As9OYt9zIsmA8kYwqKpDHzmHyqXkTjzFYx+LLQ2+p22o3sV7pcdhJcss+r31r5dtuuLa5BBFsQZWlVY3V9t0d6+YdnutFABXlXxOl8Ky+Ko7DXNV02x1KWyjdLvU7mKL+zIt8n76z34IuXbI3qcL5KO33EST1WigDxrT1S1+LtrY2Q0i51SHVrmTU76CdhqTW0ttNNHFcR+Xn7Ohlto1fzGTdHCAFbCp6trX/AB7L/wAD/wDRb1fqhrX/AB7L/wAD/wDRb0mCOC1z/kC6h/17yf8AoJrW1D/j/uf+urfzNZOuf8gXUP8Ar3k/9BNa2of8f9z/ANdW/maz6FlGy/1V5/1+t/6IgqaobL/VXn/X63/oiCpqGCCiiikAUUVj6pr0VhqUdgLLUby6eIzhLK2achAdpJC8gZI/MUwNiisH/hIZP+hd8T/+CqX/AAo/4SGT/oXfE/8A4Kpf8KLMLm+rbI3jUKqu4kbCgFmAwCT1PHFQGAR2CW9rJKkixFPOlfzWL8/Oc/Xp04rH/wCEhk/6F3xP/wCCqX/Cj/hIZP8AoXfE/wD4Kpf8KdmF0WfFkGrPoNzD4VuYU1QxhIZ70AKGxguQqsMjkgYIyADxWmkf76WSSeTb5YWOFVXbuzyxPXpxisP/AISGT/oXfE//AIKpf8KP+Ehk/wChd8T/APgql/wpu7VrERiotyvv5/l2NyKKOPz3/etLK6tlpCVRQuNqr0HqTTy37uKMBVjiQRoqqFCqOgwKwP8AhIZP+hd8T/8Agql/wo/4SGT/AKF3xP8A+CqX/ClZl3RvUVg/8JDJ/wBC74n/APBVL/hTo9flkkVB4f8AEa7iBuk0yRFHuWIAA9ycClZhc3KKsNZyhnGY8I5TJkVQSOuMkUfZJP70H/f9P8aLAV6KpaRqMGq2Iu7Tf5LPIilhgnY7ITj0JUke3pV2kAVDZf6q8/6/W/8AREFTVDZf6q8/6/W/9EQU0AWX+qvP+v1v/REFY/ir/X+Hf+w3Zf8Ao0VsWX+qvP8Ar9b/ANEQVU1fTp9Rn0j7P5YFrqNvdyGRwg2RuGbGep4wB6n0yafUXQ6rxpYHVI4bW3upWvgjzQaemrS6aLjDIrSNLCDLhA+MDK5kG4Z2MvnWg6zfapoieJH1fUri9g1PRLKCVpGt45ILmLTzL5lqjGEs/wBqmOSGKlhtb5EI9L1uHRNetUtdc0ux1K2RxIsV4kEyK4BAYBiRnBIz7miaHRJ9Zg1efS7GTVrdDHDeukBnjQ7sqshO4D5m4B/iPqau5NjfrgPGIktdbs9WsdTuX8rU7Syu9movtsxLLAiwi0XEUnmCYlnlO9BKHUttjUdh/akP93/yLH/8VWfNDok+swavPpdjJq1uhjhvXSAzxod2VWQncB8zcA/xH1NFwsVPBUl0da8aw3d9c3iwa0Fh89gfKjaztZBGoAACgu2BjPcksST1VYGmw6Jpd1e3WmaXY2dzfP5l1LbpBG9w+Sd0hBBY5Zjk56n1rQ/tSH+7/wCRY/8A4qi4WL9FUP7Uh/u/+RY//iqP7Uh/u/8AkWP/AOKouFi/RVD+1If7v/kWP/4qj+1If7v/AJFj/wDiqLhYv0VQ/tSH+7/5Fj/+Ko/tSH+7/wCRY/8A4qi4WL9FUP7Uh/u/+RY//iqP7Uh/u/8AkWP/AOKouFi/RVD+1If7v/kWP/4qj+1If7v/AJFj/wDiqLhYv0VQ/tSH+7/5Fj/+Ko/tSH+7/wCRY/8A4qi4WL9UNa/49l/4H/6Lej+1If7v/kWP/wCKqrqF7FcQYXau0OcmRD/Aw7MT1IobGcZrn/IF1D/r3k/9BNa2of8AH/c/9dW/maydc/5Auof9e8n/AKCa1tQ/4/7n/rq38zWfQoo2X+qvP+v1v/REFTVDZf6q8/6/W/8AREFTUMEFFFFIAqj4c/5KzF/2BJv/AEfFV6odEs5oPHI1l/L+xppz2mDKocu0qPwCRwAnX3GM84qO4M9Eoqh/akP93/yLH/8AFUf2pD/d/wDIsf8A8VV3IsX6iu1na1mWzkiiuSjCKSWMyIr44LKGUsAcZAYZ9R1qr/akP93/AMix/wDxVQ3d7bXVrNby+ascyNGxiuVjcAjB2urhlPoQQR1BouFjirbV9Z1HwD4M1GbWLm2k1DTIZZjp8MDXt7evFGyRxJLG0QUjz2c4XbtVtyormu60ttV+y6cuqx2JuTag3sltI4RbjCZESsuTGSZOWYEYXg5JXlf+EV8NLYaTZwxalBFpUMltZtb63NFJFE5UtH5izhmX92mFYkAKAMAV0FtLZ2/2Xyzcn7NCbdPMvvMyp28vukO9vkHztluW5+ZslwscffeIdZ8Karqa6rdXOpommT30aXMcEEM0qNCMWzRAmGBWm2yNcklAUYMyrK9avw08RXXiLwg14mo6brV7Fqd1ayz27iKExpduqlQu/H7jYyqSSwKZb5t9W9E0vQtEunuNOtZUkKGKMSXvmpbxkgmOFHkKwx/KvyRhV+RBj5VxLp9ppOn21zBZR3MUVxetqEijUD/rmkEjFf3vyqz5JRcIdzAjDMCXCxz+oXevWXje6l1e88QWfh5tQtobKS1TT2s2R0hRY5Aytc5e4Z0JUcBlOVALCl8N/Emq6zYef4hm1JJdZ0dNStLW6gtRCABmdrd4WLeV+/gAWfDgYOWJbb1FzpehXOsjVJrWU3O9JWQXu2CSRMbJJIRJ5byLtTDspYbEwRsXEWnaPomlG4k0y2kjlkhaCIS3vmpbxnH7uFHkKwx8L8kYVfkQY+VcFxmL4hHiqbU7lNFsdMlskmcq80ku8scZyFQgdBxk+vfA5vS/Dni7TLzUbqz0zTRNqEonuDJe3koZwMZCupC8AD5QOFUdFGN/xJrWpw6jPb6f4fnvrdZXcXC3UKK+7HQFs4GOpx/U8xpcutadeajcx+HdYma9lEpS51eOVIePuxKzkIucnA9cdAoEDNbwFD9n8MW8RmgmKzXG54GLJnznyASATg8ZxzjjiuhrB8EWVzp/hq3t76EwXAkmdoyysVDSuw5UkdCOhrepPcYVDZf6q8/6/W/9EQVNUNl/qrz/AK/W/wDREFCALL/VXn/X63/oiCpqgjiuo/PERsSkkxmHmzSKwyiJggRsP4M9e9Lsvf8AqG/+BEv/AMZoaAmoqHZe/wDUN/8AAiX/AOM0bL3/AKhv/gRL/wDGaLBcmoqHZe/9Q3/wIl/+M0bL3/qG/wDgRL/8ZosFyaiodl7/ANQ3/wACJf8A4zRsvf8AqG/+BEv/AMZosFyaiodl7/1Df/AiX/4zRsvf+ob/AOBEv/xmiwXJqKh2Xv8A1Df/AAIl/wDjNGy9/wCob/4ES/8AxmiwXJqKh2Xv/UN/8CJf/jNGy9/6hv8A4ES//GaLBcmoqHZe/wDUN/8AAiX/AOM0bL3/AKhv/gRL/wDGaLBcmoqHZe/9Q3/wIl/+M0bL3/qG/wDgRL/8ZosFyaiodl7/ANQ3/wACJf8A4zRsvf8AqG/+BEv/AMZosFyaiodl7/1Df/AiX/4zRsvf+ob/AOBEv/xmiwXK+uf8gXUP+veT/wBBNa2of8f9z/11b+ZrLvrW9urK4t9+mp5sbR7vPlOMjGceVWleOsl5O6HKtIzA+oJo6AU7L/VXn/X63/oiCpqgjiuo/PERsSkkxmHmzSKwyiJggRsP4M9e9Lsvf+ob/wCBEv8A8ZoaAmoqHZe/9Q3/AMCJf/jNGy9/6hv/AIES/wDxmiwXJqKh2Xv/AFDf/AiX/wCM0bL3/qG/+BEv/wAZosFyaiodl7/1Df8AwIl/+M0bL3/qG/8AgRL/APGaLBcmoqHZe/8AUN/8CJf/AIzRsvf+ob/4ES//ABmiwXJqKh2Xv/UN/wDAiX/4zRsvf+ob/wCBEv8A8ZosFyaiodl7/wBQ3/wIl/8AjNGy9/6hv/gRL/8AGaLBcmoqHZe/9Q3/AMCJf/jNGy9/6hv/AIES/wDxmiwXJqKh2Xv/AFDf/AiX/wCM0bL3/qG/+BEv/wAZosFyaiodl7/1Df8AwIl/+M0bL3/qG/8AgRL/APGaLBcmqGy/1V5/1+t/6Igo2Xv/AFDf/AiX/wCM0+2ieGCXzngaWW4aXbCzMFHlxqOWVefkPagB9FFFIAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooA//9kN
            
          
          
            1
            2
          
          
            1234
            colala.cn
          
          
            2324
            dev.mo.cn
          
          
            2323
            
              2
              3
            
            
              1
              4
            
            
              122
              65444784
              65444784
            
            
              234
              65444782
              65444782
            
            1223
            1
          
          
            2334
            
              2
              3
            
            
              1
              4
            
            
              122
              65444784
              65444784
            
            
              234
              65444782
              65444782
            
            1223
            1
          
          
            张艾恩
            0571-87756824
            13963961834;13063961834
            i@baiboke.com
            i@baiboke.com
            1034555083
            1
            371323134609029115
          
          www.dev.mo.cn;www.colala.cn
          备注
          2009-9-18
          2009-12-18
        
      
    
  

C#版本的备案接口pwdHash生成代码(测试通过)

2010-2-21 18:40:00

为了方便查看，代码放到类里面去了，关键的代码就是Hex2Bin函数和EncodeBase64,EncodeBase64直接接受的就是Hex2Bin生成的字节数组

using System;
using System.Configuration;
using System.Web;
using System.Web.Security;
using System.Text;
/// 
///PWDHASH 的摘要说明
/// 
public class PWDHASH
{
    //测试函数
    public string Test()
    {
        string Password = "123";    //用户口令
        string RandStr = GetRandomString(20); //获取长度为20的随机字符串，即传递给省系统的randVal参数
        return pwdHash(Password, RandStr);    //获取Hash，即传递给省系统的pwdHash参数
    }


    //生成Hash的函数，参数为用户口令和随机字符
    public string pwdHash(string PassWord, string RndStr)
    {
        return EncodeBase64(Hex2Bin(MD5(PassWord + RndStr)));
    }

    //MD5，参数为字符串
    public string MD5(string str)
    {
        return MD5(str, 32);
    }

    //MD5重载
    public string MD5(string str, int code)
    {
        if (code == 16)
        {
            return System.Web.Security.FormsAuthentication.HashPasswordForStoringInConfigFile(str, "MD5").ToLower().Substring(8, 16);
        }
        else
        {
            return System.Web.Security.FormsAuthentication.HashPasswordForStoringInConfigFile(str, "MD5").ToLower();
        }
    }

    //16进制字符串转字节数组，参数为md5后的字符串
    public byte[] Hex2Bin(string str)
    {
        byte[] byt = new byte[16];
        int k = 0;
        for (int i = 0; i < 31; i++)
        {
            if (i % 2 == 0)
            {
                string HexCode = str.Substring(i, 2);
                byt[k] = (byte)Convert.ToInt16(HexCode, 16);
                k++;
            }
            i++;
        }
        return byt;
    }

    //base64编码，参数是字节数组
    public string EncodeBase64(byte[] bytes)
    {
        return Convert.ToBase64String(bytes).ToString();
    }

    //获取len长度的随机字符串
    public string GetRandomString(int len)
    {
        string Seed = "abcdefghijklmnopqrstuvwxyzABCDEFGHIGKLMNOPQRSTUVWXYZ0123456789";
        string ReturnStr = "";
        Random Rnd = new Random();
        for (int i = 1; i <= len; i++)
        {
            ReturnStr += Seed.Substring(Rnd.Next(62), 1);
        }
        return ReturnStr;
    }

}

addnew后获取不到数据表标识列的值的解决方法

2010-2-8 12:22:46

Function AddToOrder(recID,Username,agent1,memo,detail)
Dim tmpRs
Set tmpRs = server.CreateObject("Adodb.RecordSet")
tmpRs.open "Select * From FreeHost.FreeHost_Cart Where Cart_ID=" & recID,conn,1,3
If recID = 0 Then tmpRs.addNew()
tmpRs("Cart_Detail") = detail
tmpRs("Cart_Memo") = memo
If recID = 0 Then tmpRs("Cart_CreateDate") = now()
tmpRs("Cart_UserName") = Username
tmpRs("Cart_Agent") = agent1
tmpRs("Cart_IP") = request.ServerVariables("REMOTE_ADDR")
tmpRs("Cart_State") = 0
tmpRs.Update
AddToOrder = tmpRs("Cart_ID").value
If err Then
WriteSomethingToLog(err.description)
Else
WriteSomethingToLog("没错误")
End If
Set tmpRs = Nothing
End Function

AddToOrder = tmpRs("Cart_ID").value的时候无论如何也获取不到这个值，而在另外一段相同的操作其他表代码中却能获取，最后发现是两个表的差异：一个设置了主键一个没设置。设置主键后，自动编号的数值就能正确获取到了。

Ping

2010-1-27 9:34:36

ping love :destidation unreachable
ping job : request time out
ping happyness:unknow hostname
ping success:TTL expired in transit
ping future: reply from hell:bytes=32 time＝10ms TTL=1

新年快乐

2009-12-31 23:55:30

同志们，新年快乐！！！！！！！！！！！！！！！！！！！！！！

艾恩ASP上传类完整说明文档

2009-12-31 12:37:07

前几天抽空重新写了下，一直没时间发出来。

下载地址

一、简介
自从接触ASP就开始接触上传，看过一些上传类，但是总感觉封装的还是不够简单，因此自己尝试写一个能够用最少最简单的代码实现各种上传方式的上传类。在学校期间就开始写，一点点的完善、优化，到现在的版本，现在的版本能适应各种上传方式。上
传类的主要的功能如下：
1、自由设置最大上传大小、单文件最大上传大小
2、自由设置允许上传的文件类型
3、可设置文本的编码，以适应各种上传环境
4、内置进度条，用户可选择开启和关闭
5、多种错误状态处理
6、多种文件保存方式：原文件名、随机文件名、用户自定义文件名
7、自由选择是否覆盖已存在文件
8、完整保存表单数据，支持同名表单，不支持同名文件域
注意：
1、特别注意Form一定要加上enctype="multipart/form-data"属性,method属性值必须是post,否则上传会出错
2、request.form()方法获取数据失效,请使用UpLoad.forms()
3、上传前请确认保存文件的文件夹有读写权限,若不可写则会出现"文件无法写入"错误,解决方法
     http://dev.mo.cn/show.asp?id=81
二、调用方法
1、无组件类的调用方法：
Dim Upload
set Upload = new AnUpLoad
2、组件的调用方法：
Dim Upload
Set Upload = server.CreateObject("Anasp.Anupload")
注意：上传属性的设置必须在调用Upload.GetData()之前。
简单调用示例：
  Dim Upload
  set Upload=new AnUpLoad 'Set Upload = server.CreateObject("Anasp.Anupload")
Upload.SingleSize=1024*1024*1024 '设置单个文件最大上传限制,按字节计；默认为不限制
  Upload.MaxSize=1024*1024*1024 '设置最大上传限制,按字节计；默认为不限制
  Upload.Exe="bmp|rar|pdf|jpg|gif" '设置合法扩展名,以|分割
  Upload.Charset="gb2312" '设置文本编码，默认为gb2312
  Upload.openProcesser=false '禁止进度条功能，如果启用，需配合客户端程序
  Upload.GetData() '获取并保存数据,必须调用本方法

BLOG换域名了，顺便简单说下301永久重定向

2009-12-24 1:20:13

    由于原服务器暂时出现了问题，为了保证博客能够正常访问，将网站又一次转移了服务器，网站现在放在我们自己公司的机房服务器里面了。
   服务器转移了，同时也更换了BLOG的域名，由原来的ii-home.cn换成dev.mo.cn。网站换域名，势必会影响到网站的访问量以及新域名在各大搜索引擎的收录，为让搜索引擎将权重转移到新域名上面，有很多方法，在这里只推荐一种方法“301永久重定向”。
    所谓301永久重定向(或叫301转向，301跳转)，是指当用户或搜索引擎向网站服务器发出浏览请求时，服务器返回的HTTP数据流中头信息(header)中的状态码的一种，表示本网页永久性转移到另一个地址。
    对于搜索引擎优化（SEO）来说，给搜索引擎一个友好的信息，告诉它此页面已永久重定向，避免搜索引擎找不到页面。这对于网站的SEO是很重要的，因为301永久重定向对SEO无任何不好的影响！而且原域名的关键词排名和PR级别都会传达给新域名！
    下面是我在本次域名迁移中所做的工作，其实很简单：
    1.将原域名解析到另外一个空间，将这个空间的404错误页设置为/404.asp,其中404.asp放在根目录，其内容如下（请将里面的玉米换成自己相应的原玉米和新玉米）

<%
        Dim Str
        Str = lcase(request.QueryString())
        str = replace(Str,"404;","")
        str = replace(Str,":80","")
        str = replace(Str,"dev.mo.cn","dev.mo.cn") 'dev.mo.cn是原玉米
        str = replace(Str,"ii-home.cn","dev.mo.cn")          'dev.mo.cn是新玉米
        Response.Status="301 Moved Permanently"       '设置301状态
        Response.AddHeader "Location",str                     '设置要转向的地址
%>

2.同时，在这个空间放一个default.asp,其内容如下

<%
        Response.Status="301 Moved Permanently"        '设置状态
        Response.AddHeader "Location", "http://dev.mo.cn/"   '设置首页的转移地址
%>

    3.说明一点，放404.asp的作用就是：用原域名访问网站的时候，除了默认首页（default.asp）外，其他的页面都会转到404.asp处理，因此在404.asp集中处理就好了，至于404.asp所包含的内容我以前在一篇关于404伪静态的文章中详细说明了
   4.301适用于只换域名不换网站结构的情况，如果你的网站结构同样发生了较大的变化，那就把404.asp里面的所有页面都直接转向新域名的首页。
   5.对于网站结构发生变化的情况，还有一种特殊状态，如果你原网站结构和新网站结构对应关系比较明确，完全可以在404.asp里面进行处理，然后301永久重定向到新地址。例如，你原网站的有篇文章的地址是http://XXX/article.asp?id=123,新网站中使用了静态地址，例如http://zzz/article/123.html,那么在404.asp页面匹配http://XXX/article.asp?id=123，取出id后生成新地址，并转向。
   6.当然，最重要的一点，你的新域名要解析到新网站。

   在转移的过程中，尽量让全部的地址都转移到新网站，最小工作量的情况就是利用404错误页，进行集中转向。
   希望换域名的站长们在这“和谐时代”，能完美切换域名。
   同时，也祝大家在这“和谐时代”圣诞节快乐、马上到来的元旦快乐、即将到来的春节快乐

整个人现在的状态

2009-12-23 19:31:03

1.想读圣经，因为社会太和谐了
2.想躲起来，谁也找不到
3.因为社会和谐，“快乐”地来回迁网站
4.准备抛弃ii-home.cn玉米，使用dev.mo.cn，暂时看一下状况
5.有点压力
6.想吃饭了，晚上买的菜
7.想睡个懒觉
8.希望社会真的和谐
9.菜好了。。。吃饭了

简单明了的ASP无组件上传

2009-12-20 20:33:51

有人嫌无组件上传类太大（我的上传类是13.8KB大小），下面就写了个简单的单文件上传的示例，顺便把无组件上传的原理也写在代码里面了。下面的示例适合在iframe或者弹出窗口中调用。不过，还是推荐大家用完整的类进行上传，完整的类在功能、易用性以及安全性上都比较好。

选择文件: 
<%
If request.QueryString("action")="upload" Then
        Call doUpload("upload")
End If

Function doUpload(Byval savePath)
        Dim vData, vSplit, SplitStart, SplitEnd, ValueEnd, path, value
        Dim vdata1, Str, FormNameStart, FormNameEnd, FormName, FileNameStart, FileNameEnd, FileName, ContentType
        vData = request.BinaryRead(request.TotalBytes)
        SplitStart = instrb(vData,chrb(13) & chrb(10))        '找到分隔字符串的位置
        vSplit = midb(vData, 1, SplitStart - 1)                                '取出分隔符
        SplitEnd = instrb(vData,chrb(13) & chrb(10) & chrb(13) & chrb(10)) '找到文件数据的开始位置
        
        '读出数据前面的描述部分，类似于
        'Content-Disposition: form-data; name="file1"; filename="D:\TempFiles\a.jpg"
        'Content-Type: image/pjpeg
        vdata1 = midb(vData,SplitStart + 2,SplitEnd - SplitStart - 2)
        str = BinToGB(vdata1) 
        FormNameStart = instr(1,str,"name=""") + 6
        FormNameEnd = instr(FormNameStart,str,"""")
        FormName = Mid(str,FormNameStart,FormNameEnd-FormNameStart) '读出表单名字
        
        FileNameStart = instr(1,str,"filename=""")+10
        FileNameEnd = instr(FileNameStart,str,"""")
        FileName = Mid(str,FileNameStart,FileNameEnd-FileNameStart) '读出文件在客户端的路径
        FileName = Replace(FileName,"/","\")
        FileName = split(FileName,"\")(ubound(split(FileName,"\"))) '读出文件名字
        
        SplitEnd = SplitEnd + 4                                                         '数据真正开始的位置
        ValueEnd = instrb(SplitEnd,vData,vSplit)                        '找到数据结束位置
        value = midb(vData,SplitEnd,ValueEnd-SplitEnd-2)                        '取出数据
        
        '保存文件的代码,因为stream直接写入value会出错，因此用adodb.recordset转换一下
        Dim tmpStrm
        Set tmpStrm = server.CreateObject("adodb.stream")
        tmpStrm.mode=3
        tmpStrm.type= 1
        tmpStrm.open()
        Dim Info : Set Info = server.CreateObject("ADODB.Recordset")
        Info.Fields.Append "value", 205,-1
        Info.open()
        Info.addNew()
        Info("value").appendChunk(value)
        tmpStrm.write(Info("value"))
        Info("value").appendChunk(null)
        Info.update()
        Info.Close()
        Set Info = Nothing
        tmpStrm.saveToFile server.MapPath(savePath) & "\" & FileName,2  '以原文件名保存到upload下面
        tmpStrm.close()
        Set tmpStrm = Nothing
        doUpload = FileName
End Function

'二进制转GB函数
Function BinToGB(Bin)
        Dim i,tAsc,str
        for i=1 to lenb(Bin)
                tAsc = ascb(midb(bin,i,1))
                if tAsc<128 Then
                        str = str & chr(tAsc)
                Else
                        i = i+1
                        str = str & chr(clng("&H" & hex(tAsc) & hex(ascb(midb(bin,i,1)))))
                End if
        Next
        BinToGB = str
End Function
%>

PHP生成分页字符串（可以准备好鸡蛋和砖块）

2009-12-10 16:17:14

//生成分页字符串
function createPage($url, $CurrentPage, $TotalRecord, $PageSize){
$pagecount = intval($TotalRecord / $PageSize) + (($TotalRecord % $PageSize == 0) ? 0 : 1);
$PageStr = "\n";
$PageStr .= "共[$pagecount]页当前[$CurrentPage/$pagecount] {$PageSize}条/页   ";
$PageStr .= $CurrentPage <= 1 ? "首页  " : "首页  ";
$PageStr .= $CurrentPage <= 1 ? "上一页  " : "上一页  ";
$PageStr .= $CurrentPage >= $pagecount ? "下一页  " : "下一页  ";
$PageStr .= $CurrentPage >= $pagecount ? "末页  " : "末页  ";
$PageStr .= "转向第";
$i = 1;
while($i <= $pagecount){
if($CurrentPage == $i){
$PageStr .= "" . $i . "";
}else{
$PageStr .= "" . $i . "";
}
$i++;
}
return $PageStr . "页\n";
}

手机丢了

2009-12-3 0:36:46

   哎，真是的，刚想攒俩钱，手机又丢了。
  早上骑自行车上班，手机放在上衣兜里，不小心漏了出来，听见手机掉下来的声音了，但是没有想到是手机，直到一个人跟我说我手机掉了，才意识到那是手机掉地上的声音。回去找，自然不见了，也就十几秒的时间。
  第一次丢手机，有点小郁闷，不过郁闷几分钟就好了，丢了的东西即使再郁闷也找不回来了，因此下午花500块钱去买了个山寨手机用着了，明后天到货。
  以后得注意点了，很少丢东西的我竟然把手机搞丢了。

网站换服务器了

2009-11-23 22:35:59

奶奶的原来服务器不知道什么时候装上了非法信息检测系统，竟然从我页面检测出Liu He Cai非法信息，奶奶的咋检测出来的。。。我看了好几遍都没看见有个Liu He Cai。。
晚上把服务器切换到另外一台了，速度不错，赞下85，哈哈

艾恩AJAX类，支持完整调用，表单提交和简洁调用

2009-11-19 11:26:19

演示地址：http://dev.mo.cn/aiencode/ajax/
下载地址：http://dev.mo.cn/source_194.html

Ajax类库使用说明
完整调用统一调用入口：Ajax(setting); 关于参数setting,请详细参考下面的说明。

简洁调用入口：Ajax.get(url,data,fn); 以及 Ajax.post(url,data,fn);

Ajax的配置:
var settings = {
    asc: true,              //true-异步传输；false-同步传输
    form: formObj,    //表单对象,如果设置本项，则会用ajax提交表单，忽略设置的method,url和data属性
    url: "",                //若不设置form属性，则本项为必选值
    dataType: "text",     //可取值text,xml,json
    method: "get",     //可取post,get 不区分大小写。设置form属性后，本项会被忽略。
    data: "",             //具体格式请看示例程序。设置form属性后，本项会被忽略。
    timeout: 10000,    //设置超时时间，默认为10秒（即10000毫秒）
    succeed: function(a,b,c){return true},
    error: function(a,b,c){return true},
    ontimeout: function(a,b,c){return true}
};

还没感觉到秋天，冬天说到就到了，好冷啊

2009-11-16 20:04:01

   冷啊冷啊，晚上去买了件外套穿了，来杭州就带了个人来，其他的啥也没带，悲剧了
   秋天就像被“友情忽略”了一样，还没露个面的冬天就来了。其他地方都下起了大雪，杭州却一直在下雨，下雨的感觉真不好，感觉身上湿湿的，特不舒服。
   不知道这雨会下到什么时候，会不会下雪，估计现在下雪也不好，下了就会化了，弄的到处是水。。。
   冷啊。。。

XMLHTTP和ServerXMLHTTP超时的判断

2009-11-13 9:04:08

XMLHTTP我想大家都知道是用过，很熟悉吧，
一些小偷程序都用他，用他来抓个远程网页什么的很方便。

但是！！！

很少有人知道XMLHTTP是用于客户端的，

不知道是什么时候起，流行网络小偷程序，而这个XMLHTTP也开始被很多ASP爱好者所认识。

但是几乎所有人都一至的认为XMLHTTP是ASP中唯一获取远程连接的方案。

于是大家都用它，弄到最后，流量一大IIS就会罢工，最轻的也是打不开ASP页面，但是HTML页面可以打开，于是就查呀查呀，却总也查不到原因。

其实问题就在XMLHTTP上面，

XMLHTTP不是用于服务端的，XMLHTTP只适用于客户端，当然服务端也可以调用这个组件，但是这个组件是一个很危险的组件。他会在连接网络失败的情况下导致IIS罢工，流量小的时候没什么反应，流量一大，必然会出问题。

与XMLHTTP相比，ServerXMLHTTP稍好一些，但是同样，这个家伙也不是什么好东西，弄不好的话，也会和XMLHTTP一样。

但是ServerXMLHTTP有一个SetTimeOuts方法，通过SetTimeOuts方法可以设置超时，一旦网络连接超时，就断开连接，如果你不设置超时，那你的IIS很有可能就此罢工了。

具体的应用，我给出一段代码大家看看。

Set objXml =Server.CreateObject("MSXML2.ServerXMLHTTP")
objXml.SetTimeOuts 10000, 10000, 15000, 15000

第一个数值：解析DNS名字的超时时间10秒
第二个数值：建立Winsock连接的超时时间10秒
第三个数值：发送数据的超时时间15秒
第四个数值：接收response的超时时间15秒

这个问题也曾一度困扰着我，后来也是遍历资料才找到答案的。

希望大家引以为戒，不要小看他的杀伤力噢，弄不好你的IIS就会罢工的，

再有，有条件的话，建议大家学学PHP吧，我也在学习中，买了书看了一半了，

不过有很多地方不太容易理解，ASP现在越来越觉得不够用了，.Net那东西看起来好像比PHP还要麻烦。

艾恩ASP无组件上传最新更新说明

2009-11-1 15:50:10

利用周末的时间，对上传组件进行了比较大的更新，优化了上传代码，尽可能的降低上传的内存消耗同时提高上传的速度。具体修改及增加的功能如下:

1.文件类改用jscript

2.文件类增加几个属性
    属性extend来保存文件的后缀
    属性UserSetName来保存用户自定义的文件名
    属性FormName来保存上传文件对应的表单名
    属性Path来保存文件在服务器上的物理路径
    属性ContentType来保存文件的类型

3.修改文件类SaveToFile方法
    本方法有3个参数SaveToFile(Path,Option,OverWrite)
    本方法的所有参数可选，但是要求至少传递一个参数，即文件的保存路径-Path。
    参数Option：文件的保存方式，默认为0，使用类自动生成的文件名；Option为-1并且UserSetName不为空时使用用户自定义的文件名保存；Option为1时使用原文件名保存
    参数OverWrite：是否覆盖同名文件，默认为true--覆盖同名文件；若为false，程序会在同名文件后面加数字再进行保存，例如生成类似test(0).rar的文件名字

    本方法抛弃保存文件时用全局stream的Copy方法读取文件内容以保存文件的方法，使用recordset配合stream直接保存

4.文件类增加GetFilePath方法，对象内部方法，不能单独在对象外部使用

5.文件类增加CreateFolder方法，自动创建不存在文件夹

6.上传类GetData修改了很大部分代码，主要是修改了循环读取文件的方法，降低内存消耗

7.上传类增加了只写属性Mode,默认为0--分段读取上传数据；如果设置为1--直接读取全部数据。建议时候用默认值，经过测试，分段读取比直接读取效率会提高几倍或者几十倍。

8.增加只读属性LostTime，获取上传消耗的时间

整个新版本的改动基本就是这些了，所有示例已经同步更新。
艾恩ASP无组件上传类(An-Upload)V9.11.01(最新更新)
艾恩Ajax无刷新文件上传最新示例集2009-11-01
艾恩Ajax无刷新文件上传(带进度条,无组件)
ASP无刷新上传高级上传实例（11.1日最新更新）
艾恩Ajax无刷新上传(ASP)最简单的调用方法

小提示窗口(纯css)

2009-10-18 12:14:59

小提示窗口

CSS

目前推荐遵循的是W3C于1998年5月12日推荐
CSSCascading Style Sheets 层叠样式表
。W3CWorld Wide Web Consortium 万维网联盟创建CSS标准的目的是以CSS取代HTMLHyper Text Mark-up Language 超文本标记语言表格式布局、帧和其他表现的语言。纯CSS布局与结构式XHTMLThe Extensible HyperText Markup Language 可扩展超文本标记语言相结合能帮助设计师分离外观与结构，使站点的访问及维护更加容易。

企业网站中英文对照

2009-10-18 11:56:43

公司简介：Company brief

产品展示 Product

企业荣誉 Enterprise honor

合作伙伴 Cooperation partner

质量认证 Quality certificate

企业文化 Enterprise Culture

成长历程 Development history

经营理念 Management ideas

经营理念 Operation philosophy

服务理念 Service philosophy

营销理念 Marketing philosophy

人才思略Talent policy

质量方针 Quality policy

以质求生存，以量求发展Quality for survival, and quantity for growth

企业理念 Company philosophy

企业宗旨 Company tenet

销售网络 Selling network

营销网络 Sales Network

企业荣誉 Enterprise honor/Glories

公司设备 Equipment

企业文化 Enterprise Culture

资质认证 Quality certification

企业规模 Scale

组织机构 Organization

合作加盟 Join in Cooperation

技术力量 Technology

经理致辞 Manager`s oration

发展历程 Development history

工程案例 Engineering Projects

业务范围 Business Scope

分支机构 Branches

供求信息 Supply & Demand

经营理念 Operation Principle

产品销售 SALES Sales

联系我们 Contact Us

信息发布 Information

返回首页 Back Homepage

在线订单 On-line Order

分类浏览 Browse by category

电子商务 E-Business

公司实力 Strength

版权所有 Copy right

友情连结 Hot link

应用领域 Application Fields

人力资源 Human Resource HR

领导致辞 Leader`s oration

企业资质 Enterprise qualification

行业新闻 Trade news

行业动态 Trends

客户留言 Customer Message

客户服务 Customer Service

新闻动态 News & Trends

公司名称 Company Name

销售热线 Sales Hot-line

联系人 Contact Person

您的要求 Your requirements

建设中 In construction

下载中心 Download center

会员登陆 Member Entrance

意见反馈 Feedback

常见问题 FAQ

中心概况 General Profile

教育培训 Education & Training

产品展厅 Product gallery

超越自我，追求卓越 Surpass selfhood,pursue excellence

建议使用1024x768分辨率浏览 Resolution of 1024*768 or higher is recommended.

工具 Tools

资源 Resources

常用中英文对照表：

证书 Certificate

地址 Add

邮编 CODE Zipcode

电话 Tel

分公司 Branch

推荐产品 Recommend products

Previous Page 上一页

Category 分类

网站导航 site map

诚征代理 Agents wanted

工程实例 Project cases

分类范畴 Categories

产品导航Products Guide

招聘：Recruitment

详细描述 Detail

传真 Fax

企业新闻 Enterprise news

行业新闻 Field news

市场行情 Market

流行时尚 Popular fashion

其他新闻 Other news

产品名称 Product Name

产品说明 Description

价格 Price

品牌 Brand

规格 Specification

尺寸 Size

生产厂家 Manufacturer

型号 Model

产品标号 Item No.

技术指标 Technique Data

产品描述 Description

产地 Production Place

销售信息 Sales Information

用途 Application

论坛 Forum

在线订购 On-line order

招商 Enterprise-establishing

招标 Bid inviting

综述 General

业绩 Achievements

招聘 Join Us

求贤纳士 Join Us

大事 Great Event

动态 Trends

服务 Service

投资 Investment

行业 Industry

规划 Programming

环境 Environment

发送 Delivery

提交 Submit

重写 Reset

登录 Login

注册 Register

全程无忧Worriless Whole-process

产品铺贴指导Guide for Paving & Sticking of Products

保养常识 Maintenance Common Sense

产品介绍 Product Introduction

工程目录 Project Content

企业信息 Enterprise Information

企业理念 Company philosophy

常用中英文对照表：

中国企业网技术支持 Powered by ce.net.cn

社区 Community

业务介绍 Business introduction

在线调查 Online inquiry Inquiry

游乐园 amusement park

在线交流 Online communication

专题报道 Special report

补丁：patch Previous

上一页下一页 Next Pages (7): ? 1 [2] 3 4 5 ? ... Last ?

给我们打电话或发邮件--Call or Write to Us Legal Information

法律声明

Forgotten your password? 忘记了你的密码？

设计与技术支持：Designed and supported by

技术支持：Technical Support

网站地图-Site Map

Service & Support

服务和支持如何购买

How To Buy

服务和维护合同

工程实例：Engineering Projects

实例：Projects

Congratulations, you can now access your personalized page from any computer using your email address and password. An email has been sent to you with your information. 祝贺,你现在可以从任何一页进入你的个人电脑使用的电子邮件地址和你的密码. 已发送电子邮件给你了,你的资料.

User Profile 用户信息

User register 用户注册

Username: * Must between 2 to 24 chars 用户名必须是2到24个字节

Password: * Must between 6 to 16 chars

密码 Confirm Password

重复密码: *Must match the password above

Gender 性别

Unkown 不知道

Male男的

Female 女的

Email: Hide my Email address :

Security Code: 验证码

Collapse all 收缩所有

Expand all 展开所有

Sign in 登入

I lost my password 我的密码丢失了

Existing User 已经存在的用于(已经注册的用的登录）

Sign up now 现在就注册

checking... 正在检验

Save my information 保存我的信息

第一辑

About us 关于我们

Products 产品/产品展示

Services 服务/售后服务/客户服务

Support 技术支持

Company 公司简介

News 新闻动态/公司新闻

Latest News 最近新闻

Privacy Policy 隐私声明

Legal Notices 法律条款

Contact us 联系我们

Home 主页/首页

Back 返回

Next 下一页/后一页

Prev/Previous 上一页/前一页

Pages 页

More 更多

Detail 详细

Help/Help Center 帮助/帮助中心

Email 邮箱

Tel 电话

PostCode 邮编/邮政编码

Search 搜索

Advanced search 高级搜索

Close 关闭/关闭窗口

Downloads 下载/下载中心

FAQ 问答中心

Photo Gallery 相册

View 查看

Submit 提交

Reg 注册

Login 登陆

Sign in 登陆

Sign out 退出

Username 用户名

Password 密码

New features 新特性

Settings 设置

Language 语言

Chinese 中文版

English 英文版

Enter 进入

Skip 跳过

Cancel 取消

save 保存

Delete 删除

Confirm 确定

save change 保存改变

send 发送

OK 确定

Partners 合作伙伴

Solutions 产品

Success Stories 成功案例

Company Everts 公司动态

Press Release 新闻发布

Press Room 新闻中心

Version/Ver 版本

Issue 出版物

Magazine 杂志/电子期刊/网络杂志

Projects 工程项目

Photography 影集展示/图片展示

Preview 预览

Cart 购物车

Order 订购

BBS 论坛/公告板

Forums 论坛

Club 俱乐部

site map 站点地图

web hosting 虚拟主机

clients 客户/案例

description 描述

technology 技术

image 图片

Links 友情链接

FeedBack 反馈

Keyword 关键词

shop 网上商店

register 注册

update 升级

prices 价格

title 标题/主题

content 内容

more info 更多信息

Guides 向导/指引

URLs 链接

photo album 相册

case 案例

casus 案例

第二辑

网站导航 SITE MAP | Site Map

公司简介 PROFILE or COMPANY | Profile or Company

公司设备 EQUIPMENT | Equipment

公司荣誉 GLORIES | Glories

企业文化 CULTURE | Culture

产品展示 PRODUCT | Product

资质认证 Quality Certification

企业规模 SCALE | Scale

营销网络 Sales Network

组织机构 ORGANIZATION | Organization

合作加盟 Join in Cooperation

技术力量 TECHNOLOGY | Technology

经理致辞 Manager`s oration

发展历程 Development history

工程案例 Engineering Projects

业务范围 Business Scope

分支机构 Branches

供求信息 Supply & Demand

经营理念 Operation Principle

产品销售 Sales

联系我们 CONTACT US

信息发布 INFORMATION Information

返回首页 HOMEPAGE | Homepage

产品定购 ORDER | order

分类浏览 Browse by category

电子商务 E-Business

公司实力 STRENGTH Strength

版权所有 Copy right

友情连结 Hot link

应用领域 Application Fields

人力资源 Human Resource HR

领导致辞 Leader`s oration

企业资质 Enterprise qualification

行业新闻 Trade news

行业动态 Trends

客户留言 Customer Message

客户服务 Customer Service

新闻动态 News & Trends

公司名称 Company Name

销售热线 Sales Hot-line

联系人 Contact Person

您的要求 Your requirements

建设中 In construction

证书 CERTIFICATE Certificate

地址 ADD | Add

邮编 POSTAL CODE Zipcode

电话 TEL | Tel

传真 FAX | Fax

产品名称 Product Name

产品说明 DEscriptION | Description

价格 Price

品牌 Brand

规格 Specification

尺寸 Size

生产厂家 MANUFACUTURER Manufacturer

型号 Model

产品标号 Item No.

技术指标 Technique Data

产品描述 Description

产地 Production Place

销售信息 Sales Information

用途 Application

论坛 Forum

在线订购 On-line order

招商 Enterprise-establishing

招标 Bid inviting

综述 General

业绩 Achievements

招聘 Join Us

求贤纳士 Join Us

大事 Great Event

动态 Trends

服务 Service

投资 Investment

行业 Industry

规划 Programming

环境 Environment

发送 Delivery

提交 Submit

重写 Reset

登录 Enter

注册 Login

中国企业网技术支持 Powered by ce.net.cn

社区 Community

业务介绍 Business introduction

在线调查 Online inquiry Inquiry

下载中心 Download

会员登陆 Member Entrance

意见反馈 Feedback

常见问题 FAQ

中心概况 General Profile

教育培训 Education & Training

游乐园 amusement park

在线交流 Online communication

专题报道 Special Repor

asp远程下载图片并生成缩略图(使用ASPJpeg组件)

2009-10-17 13:02:47

<%'函数名:SaveUrlTo
'作用:下载文件
'参数:URL-要获取的URL，savePath为文件保存地址
Public Function SaveUrlTo(ByVal URL, ByVal savePath)
On Error Resume Next
Dim ResBody, sStr, vPath, fileName, vErr
vErr = True
Set Http = Server.CreateObject("MICROSOFT.XMLHTTP")
Http.Open "GET", URL, False
Http.Send
If Http.Readystate = 4 Then
  If Http.Status = 200 Then
     ResBody = Http.responseBody
         Set jpeg = Server.CreateObject("Persits.Jpeg")
         jpeg.OpenBinary ResBody
         jpeg.Quality=100
         jpeg.width = 160
         jpeg.height = 160
     jpeg.SendBinary()
         jpeg.close()
         Set jpeg = Nothing
  End If
End If
End Function
saveUrlTo "http://www.baidu.com/img/baidu_logo.gif",""
%>

修改windows2003的默认上传限制

2009-10-17 12:38:58

win2003服务器默认最大上传大小为200K，可通过如下方法修改
1.先停止IIS服务（在服务页，而不是停止IIS）
2.在目录C:\WINDOWS\system32\inetsrv下找到MetaBase.xml文件用记事本打开,找到AspMaxRequestEntityAllowed="204800"节点.
3.修改AspMaxRequestEntityAllowed的值为你需要的大小(以字节为单位),保存.
4.启动IIS服务

腾讯QQ、阿里旺旺、淘宝、MSN在线状态代码生成

2009-10-8 13:08:00

QQ在线代码生成：http://is.qq.com/webpresence/code.shtml
阿里旺旺在线代码生成：http://www.taobao.com/help/wangwang/wangwang_0628_12.php
MSN在线代码生成:http://www.365groups.com/msnonlinecode.aspx
Skype在线代码生成：http://skype.tom.com/products/skypeme.htm
如何在网页上显示腾讯QQ/MSN/旺旺在线洽谈?
1.QQ在线咨询代码
(qq在线交谈代码/qq在线客服代码/qq在线状态代码/qq在线客服代码)
(将66757924换成你的号码,site后面换成你的网站就可以了)

更多的生成显示QQ在线状态的代码,请查看腾讯官方网站
http://imis.qq.com/webpresence/code.shtml
你只需要填写你的号码,网站名称以及提示就可以点击生成就可以生成QQ在线状态的代码,拷贝生成的代码加入网页即可

2.阿里巴巴旺旺在线状态代码生成,cardlanok改成你的ID就行了,还有alt改成你的内容

更多的阿里巴巴旺旺在线状态代码生成样式,请查看阿里巴巴官方网站
http://www.taobao.com/help/wangwang/wangwang_0628_04.php

3.skype在线状态代码生成
将yisung换成你的skype ID就可以了,需要在skype个人账户里设置对任何人显示状态

更多的skype在线状态代码生成样式,请查看skype的官方网站
http://www.skype.com/share/buttons/

4.如何生成MSN在线状态代码,可以设置自定义显示图片,不过检测速度有点慢,另外一部分人在ｍｓｎ的配置中，设置了不加好友就不显示在线。这是为了个人隐私保护，但这样会显示状态未知或者离线。如果你不介意别人看到你，就开启那个选项就好了。
msnim:chat?contact=用户帐号                 //建立对话
msnim:add?contact=用户帐号                 //添加好友
msnim:voice?contact=用户帐号               //语音聊天
msnim:video?contact=用户帐号               //视频聊天

回来了

2009-10-7 17:31:39

终于回来了，好累。放了7天假，有4天的时间是在火车或汽车上的。。。。
回来还买的是站票。。。痛苦啊

放假了，十一后见

2009-9-30 12:15:02

如题。。。哈哈
86

vbscript和javascript(JScript)互相调用方法

2009-9-27 8:42:08

　　ASP具备管理不同语言脚本程序的能力，能够自动调用合适的脚本引擎以解释脚本代码和执行内置函数。ASP开发环境提供了两种脚本引擎，即VBScript（缺省）和JScript。不过，开发者并没有被限制于只能使用这两种语言，只要能够提供合适的ActiveX脚本引擎就能使用任何脚本语言。
　　脚本语言的选择往往基于许多不同原因：它可能是开发者最为熟悉的语言，可能是对给定工程来说能够提供最多特色支持的，也有可能是最具效率的。不同的环境和要求使得我们在选择脚本语言时注重不同的因素，同时也使得我们在某些时候面临选定的脚本语言不能直接提供其它语言固有的函数这一问题，或某个脚本已经写成但用的却是另外一种脚本语言。
　　此时应该怎么办？是否需要用当前所用的脚本语言重写这些脚本？或者说，是否有可能在一种脚本语言中调用其它脚本语言的内置函数？本文要说明的就是在ASP应用中如何让VBScript脚本和JScript脚本交互以最大限度地获得两种脚本语言的特色支持。
　　一、VBScript和JScript的内置函数
　　在VBScript和JScript中，有大量的内置函数功能是相同或类似的。然而，在一种脚本语言中内置的函数并非总是在另外一种脚本语言中也有对应的函数。例如，VBScript提供了许多用于操作字符串和格式化数据的函数，这些函数在JScript中并不存在。这些函数包括StrReverse()、Filter()以及FormatCurrency()等。在另一方面，JScript所提供的用于管理数组、字符串编码等的函数在VBScript中也没有定义，如join()、reverse()、pow()、位操作、escape()和unescape()等。
　　那么，如果在JScript程序中需要一个VBscript函数该怎么办呢?
　　二、异种脚本的互相调用
　　如果需要在JScript脚本中调用一个VBScript中内置的函数，则应该写一个VBScript用户定义函数（在这里调用VBScript内置函数），然后在JScript脚本中象调用公用JScript函数一样调用这个用户定义函数。

　　例如，如果要调用的VBSCript内置函数是FormatCurrency()，则可以声明如下自定义函数：
　　
　　Function FormatValue(Value)
　　　　FormatValue = FormatCurrency(Value)
　　End Function
　　
　　接下来在JScript代码中就可以象普通JScript函数一样调用FormatValue()了。用类似的方法也可以实现VBScript代码调用JScript函数。
　　应用同样的规则，我们可以在任何脚本内调用任何用户定义函数。不过，从JScript脚本内调用一个不带参数的VBScript过程（Sub）时应略加注意，此时在JScript中应该象调用一个不带参数的JScript函数一样调用它，如用foo()调用VBScript Sub foo过程。
　　三、数据共享
　　在某些情形下混合运用VBScript和JScript函数是非常有用的，但在不同语言脚本之间共享数据也可能很有用。实现这种共享的方法很简单：不管使用的是什么语言，只要是在页面级声明的变量就可以任意引用。
　　对象的使用方法也相似，可以任意选用合适的语言读取、修改属性或调用对象的方法。当然给定对象的属性和方法是由创建该对象实例的语言所定义的。正如上例VBScript的过程调用，当从JScript中调用一个不带参数的VBScript对象的方法时，其调用方法也遵从JScript的调用规则，反之亦然。
　　四、数组管理

　　数组共享问题稍微复杂一点。虽然数组也象其它变量一样可以在不同语言脚本之间共享，但必须注意兼容方面的问题。
　　VBScript数组在JScript下可以用VBScript的符号引用，即用myArray(2)引用数组元素而不是JScript的数组元素引用符号myArray[2]。此外，还可以使用一个特殊的JScript对象——VBArray对象将VBScript数组转换为JScript数组。下面的代码从VBScript数组myVBArray创建JScript数组myJSArray：
　var Temp = new VBArray(myVBArray)
　var myJSArray
　myJSArray = Temp.toArray()
　　上述代码首先创建一个临时的VBArray对象，然后使用它的toArray()方法将自己转换为JScript数组。此后就可以象普通JScript数组一样使用myJSArray，如myJSArray[1]。但应当注意的是，toArray()方法将把一个多维的VBArray转换为一维的JScript数组。
　　从VBScript中引用JScript数组更为复杂。虽然在VBScript中我们可以直接访问JScript数组相关的方法和属性，但没有直接访问JScript数组的单个元素的方法。也就是说，我们可以在VBScript脚本中读取JScript数组的长度属性，如下所示：
　　x = myJSArray.length
　　但无法直接读取该数组的单个元素，下面的VBScript代码是不正确的：
　　x = myJSArray(3)
　　解决该问题的一个可行的方法是执行一个转换过程，如下面的代码所示，此处假定VBScript是缺省的脚本语言：
<%
　　Dim Temp
　　Dim myVBArray
　　Temp = myJSArray.join(", ")
　　myVBArray = Split(Temp, ", ")
%>
　　此处的JScript join()方法将数组myJSArray元素转换到一个以逗号为分割符的字符串，VBScript Split()函数将字符串转换为VBScript数组。注意这里我们是在VBScript环境下调用JScript的join方法。依照此例，我们可以通过自定义VBScript函数来模拟JScript的VBArray对象的toArray()方法以实现JScript数组到VBScript数组的转换。
　　五、小结
　　在同一个ASP工程内灵活选用不同脚本语言具有许多优点，这些脚本之间的交互能力更为开发者集成不同语言所提供的内置函数和其它功能带来了更多的机会，同时也使得实现既可用于VBScript也可用于JScript环境的通用脚本库成为可能。

好累呀，去萧山了

2009-9-21 16:33:09

   今天陪商务去萧山见了个客户，好远的路啊，中间要转2次车，来回将近6个小时，上午8点半出发的，跟客户谈了不到一个小时就往回走了。回来的时候下午4点多了，还下雨了。。。雨下的很不舒服
  累是累点，不过只有跟客户面对面沟通了，才能真正了解客户的需求，才能做出符合客户的产品。
  同时，也了解到了商务的辛苦，程序员是脑力劳动，而商务人员还要进行疲乏的体力劳动。
  总之，不虚此行。还有免费萧山一日游，哈哈。

目的，所有的答案我知道

2009-9-18 8:36:37

没日没夜的工作为了什么？

一天天算计着过日子为了什么？

来杭州3个月不知道西湖什么样子，而公司就是西湖区。。。

一起吃饭同事问我，省那一块钱做什么？小心没汤掖着。

笔记本包坏了，天天用5年前买的背包背着去上班，为了什么？

吃喝玩乐？花在其他女孩身上？

再想想，来杭州又是为了什么？

所有的答案我都知道，然而。。。。好好吃饭吧，饿了

就这样的生活？

2009-9-15 12:47:41

突然发现，“局态”发生了某些转变。。。
我很积极，但是还是听从天意吧

还在公司。。。盹呀

2009-9-11 2:58:56

盹呀盹呀盹~

4点14了还在公司。。。

盹了。。。我要睡觉了。。。凌晨6点。。

醒了。。。凌晨7点半，喝杯咖啡。。。

吃完午饭了。。。继续睡会觉，要垮掉了

光学游戏-挑战你的智商和逻辑思维能力

2009-9-6 21:32:04

在校内玩一个测智商的游戏，玩完后提示进入这个页面“挑战自己的智商”，好奇心一下就来了。
发现还是个不错的游戏，不仅仅是光学问题，还要有一定的逻辑思维能力。
有兴趣的就玩玩看吧，刚开始几关很简单，后面有比较复杂的几关，我自己是单人无答案通关的。
如果有需要答案的可以给我发邮件，网上有没有这个还不大清楚~
据说后面还有几关，有机会跟作者要去~目前总共25关~

http://dev.mo.cn/upfiles/20090906212048894.swf

我亲爱的朋友和同学们

2009-9-2 12:37:36

    发现最近忽略了好多朋友，萍姐、东晓、海鹏、小猪、彬哥。。。，竹子、小齐、老贼还有杨杨等一大堆人，还有孙丛珊，王伟，兰新等几个学弟学妹，最近发生了太多，太多自己都想不到的事情，被弄的心身疲惫，幸好有老婆陪着，如果没了她我恐怕现在已经不成人样了，最感激也最对不起的就是我女朋友了，对不起因为我施加在她身上的压力，谢谢她陪我走过了这段最无助的时间。
  同时也非常感谢朋友们对我的支持和谅解。刚踏入社会只有为了生活去拼命努力和奔波，为了朋友、为了家人、更是为了自己的将来，努力奋斗，为自己闯出一片天地来。
   也希望我的朋友们，不管选择了什么，我们的未来在我们自己手中，为了我们的未来，都要努力加油拼搏。

解决不同目录调用同一个数据库连接出现路径错误的问题

2009-8-30 2:11:13

在晚上Blog改动，把管理文件转移到单独文件夹的时候解决了一个困扰大家，包括我在内的asper的一个头疼的问题--在子目录下包含根目录的数据库连接文件的时，导致数据库路径出错的问题，尽管有很多asper通过各式个样的方法解决过这个问题，但我想我的方法会比价实用些，这个方法利用了jscript的type{}catch(){}块，代码如下

    /*
    只需要调用Connect方法，判断返回值是true还是false，如果是true说明数据库连接成功
    */
    var dbPath="data/test.mdb"; //这个路径是相对于根目录的
    var conn=null;
    function Connect(){
        try{
            conn = server.CreateObject("ADODB.CONNECTION");
            try{
                conn.open("provider=Microsoft.jet.oledb.4.0;data source=" + server.MapPath(dbPath))        ;
                //在根目录的程序文件引用数据库连接的时候这句会执行成功，程序直接返回true
                return true;
            }catch(ex){
                try{
                    conn.open("provider=Microsoft.jet.oledb.4.0;data source=" + server.MapPath("../" + dbPath));
                    //在一级子目录的程序文件中引用数据库连接的时候这句会执行成功，程序返回true
                    return true;
                }catch(ex){
                    //如果在其他级别子目录引用，这里可以继续try，否则返回false
                    return false;
                }
            }
        }catch(ex){
            //创建组件失败，返回false
            return false;
        }
    }

顺手做了一个演示程序: 示例程序
运行根目录和admin目录下的index.asp，会提示数据库连接成功
运行admin目录下的test目录中的index.asp会提示失败，因为我们没有在conn.asp中对二级目录对数据库的引用作相应的代码处理。

其实，再仔细想想，我们完全可以用vbs的if语句和fso来解决这个问题，思路大家应该都明白，就是判断文件是不是存在，存在就连接，不存在继续下一个路径，一般数据库连接的引用就局限在根目录和一级目录里面

利用下班的晚上时间对blog进行了小的改动

2009-8-30 1:39:17

由于最近太忙了，没有时间来管理自己的blog，因为自己美工水平有限，自己站的界面又太难看，因此去网上找了张图片，作blog的背景图片用，就是下面这张了
560)this.width=560" />

好像是z-blog的一个模板里面的，这次换肤只用了这个背景图片和几个小的图标。由于整个页面全部是用div+css布局，因此每次换肤都会很快搞定，实际用了不到2小时的时间就把blog的皮给换了。今天顺便把管理相关的文件转移到一个文件夹中，使目录结构看起来更简单明了些。并且在转移文件的时候解决了一个困扰大家，包括我在内的asper的一个头疼的问题--在子目录下包含根目录的数据库连接文件的时，导致数据库路径出错的问题，尽管有很多asper通过各式个样的方法解决过这个问题，但我想我的方法会比价实用些,具体方案和代码见下面文章:
解决不同目录调用同一个数据库连接出现路径错误的问题

对建站宝进行小的总结

2009-8-27 21:02:01

    建站宝从开发到现在已经有两个多月了，从我来杭州，来第一商务的第一天起就和我一起并肩齐行。说实话，像自己孩子一样看他，尽管他还没长大，还没成熟，但是我要细心的把他养大，让他能独立站在蔚蓝的天空下。
   7月20号发布出去的第一版，多少有些匆忙，有很多BUG，很多用户也提出了对建站宝的意见和建议，这一版我们将修正这些BUG，甚至以一个全新的面貌去面对大家，让整套程序更方便使用。我熟悉建站宝的每一句代码，每一个功能，操作起来得心顺手，不管是标签类还是模板类以及原创的上传类，还有针对商城的购物车，都熟悉不过了，因为这些都是我们自己一句句代码一个个字母敲出来的。
   前几天看到有人说“函数名很多都是抄袭PJ的”，说实话，有的函数就是引用的PJ的，因为小组2个成员都是PJ开发团队的，包括我（进PJ还没有做什么贡献，有点惭愧），如果对建站宝引用PJ的函数有很大意见的话，我们会考虑自己写同样功能的函数，我不是对PJ有意见，我这里陈述一个事实。
   第一版到现在，已经完善了很多，最重要的几点是：
   1，实现购物车功能，并且能够在线支付，提供支付宝和网银在线接口(网银在线需要客户和对象签合同才能取现)
    2，优化和修改模板类，实现各标签的数据缓存，完全在模板类内部实现，无需调用外部方法，是否缓存可以自己定义

   不管其他人怎样看建站宝，我看好他，不会放弃他，我会去努力做好他。同时，也希望大家支持。
   最近发生了太多的事，同时由于建站宝的开发，因此对于自己写的一些东西没有进行更新以及及时的BUG处理，也希望大家能够原谅。

钱小样语录

2009-8-25 13:00:49

1、人不犯我，我不犯人；人若犯我，礼让三分；人再犯我，我还一针；人还犯我，斩草除根。
2、我允许你走进我的世界,但不许你在我的世界里走来走去。
3、明骚易躲，暗贱难防。
4、天没降大任于我，照样苦我心智，劳我筋骨。
5、执子之手，方知子丑，泪流满面，子不走我走。
6、红豆不长南国，长我脸上了，真相思！
7、我深信，会有一个女人是为受我的折磨而来到这世上的。
8、西游记告诉我们：凡是有后台的妖怪都被接走了，凡是没后台的都被一棒子打死了。
9、你有什么不开心的事？说出来让大家开心一下。
10、我那么喜欢你，你喜欢我一下会死啊。
11、虽然你身上喷了古龙水，但我还是能隐约闻到一股人渣味儿。
12、我诅咒你一辈子买方便面没有调料包。
13、不吃饱哪有力气减肥啊。
14、妈妈问我有女朋友了么,我说没有,妈妈说：这个可以有,我说：这个真没有……
15、理想很丰满，现实却很骨感。
16、雷锋做了好事不留名，但是每一件事情都记到日记里面。
17、我又不是人民币，怎么能让人人都喜欢我？！
18、令人不能自拔的，除了牙齿还有爱情。
19、当生活心怀歹毒地将一切都搞成了黑色幽默，我顺水推舟把自己变成了一个受过高等教育的流氓。
20、时间太瘦，指缝太宽。
21、小姑娘们梦中都想找一匹白马，睁开眼发现满世界都是灰不溜秋的驴，悲痛欲绝后，只能从驴群中挑个身强力壮的，这样的驴就被命名为：经济适用男。
22、我就要哭，我就要闹，一宿一宿不睡觉，手里拿瓶安眠药，拿根小绳要上吊。再丑也要谈恋爱，谈到世界充满爱。
23、我们的目标：向钱看，向厚赚。
24、我是你转身就忘的路人甲，凭什么陪你蹉跎年华到天涯？
25、间歇性郁闷症发作期间，生人勿扰，熟人勿找。
26、没有医保和寿险的，天黑后不要见义勇为……
27、琴棋书画不会，洗衣做饭嫌累。
28、说金钱是罪恶，都在捞；说美女是祸水，都想要；说高处不胜寒，都在爬；说烟酒伤身体，都不戒；说天堂最美好，都不去！
29、挤公交是包含散打、瑜珈、柔道、平衡木等多种体育和健身项目于一体的综合性运动。
30、老娘法眼一开就知道你是个妖孽了。
31、手插口袋，谁都不爱。
32、手拿菜刀砍电线，一路火花带闪电。
33、单身并不难，难的是应付那些千方百计想让你结束单身的人。
34、幸福是什么?幸福就是你吃鱼,我吃肉,看着别人啃骨头。
35、念了十几年书，想起来还是幼儿园比较好混！
36、他们说我是BT，让我去做CT，结果我是ET。
37、我的优点是：我很帅；但是我的缺点是：我帅的不明显。
38、我当年也是个痴情的种子，结果下了场雨……淹死了。
39、很多人说婚姻是爱情的坟墓，但是能够入土为安的爱情总比暴尸街头要好。
40、有空学风水去，死后占个好墓也算弥补了生前买不起好房的遗憾
41、据说，人只有两个选择，忙着死或是忙着活，我想我有了第三种选择：忙着等死。
42、春困夏乏秋无力，冬日正好眠。
43、思念不能自已，痛苦不能自理，结果不能自取，幸福不能自予。
44、小时候我以为自己长大后可以拯救整个世界，等长大后才发现整个世界都拯救不了我。
45、如果你注定不能给予我期待的回应.那么就保持在安全距离之外吧。
46、请不要把我对你的容忍，当成你不要脸的资本。
47、女子无才便是德，我一定是太缺德了。
48、诸葛亮出山前也没带过兵啊，你们凭啥要我有工作经验。
49、用嘻哈的蓝调精神来过二胡一样的生活。
50、鸵鸟的幸福，只是一堆沙子。
51、老天，太蓝！大海，太咸！人生，太难！工作，太烦！和你，有缘！想你，失眠！见你，太远！
52、一觉醒来，天都黑了。
53、喝药递瓶，上吊给绳，跳楼的挥着小手绢送行。
54、铁杵能磨成针，但木杵只能磨成牙签，材料不对，再努力也没用。
55、傻子偷乞丐的钱包，被瞎子看到了，哑巴大吼一声，把聋子吓了一跳，驼子挺身而出，瘸子飞起一脚，通辑犯要拉他去公安局，麻子说，看我的面子算了。
57、你要搞清楚自己人生的剧本——不是你父母的续集，不是你子女的前传，更不是你朋友的外篇。
59、树愈静而风不止，我愈恋而他不在。
60、多想某天醒来睁开眼，发现自己坐在小学教室的课桌椅上。老师掷来的粉笔头正好打在额头上。
61、少年不胡作妄为，大胆放肆，试问老年时哪来的题材话当年。
62、作为一个怪兽，我的愿望是至少消灭一个奥特曼。
64、再过几十年我们来相会送到火葬场全部烧成灰你一堆我一堆谁也不认识谁全部送到农村做化肥~
65、学问之美，在于使人一头雾水；诗歌之美，在于煽动男女出轨；女人之美，在于蠢得无怨无悔；男人之美，在于说谎说得白日见鬼。
66、我以为我很颓废,今天我才知道,原来我早报废了。
67、不成熟男人的标志是可以为了理想壮烈的牺牲，成熟男人的标志的可以为了理想卑贱的活着。
68、生活就像宋祖德的嘴，你永远都不知道下一个倒霉的会是谁。
69、阳光温热，岁月静好，你还不来，我怎敢老去？
70、人又不聪明，还学别人秃顶。
71、我以神的姿态,闪耀在这美的瞬间.凡人勿扰…
73、年轻的时候，我们常常冲着镜子做鬼脸；年老的时候，镜子算是扯平了。
76、要努力！！为了你的奥迪我的迪奥。
77、我是白领：今天领了薪水，交了房租水电，买了油米泡面，摸了口袋，感叹一声，这个月工资又白领了…
78、执子之手，将子拖走。子说不走，好吧，关门放狗！
79、生活,就是这样.永远占领着绝对领导的位置,当无数的傻子高呼着自己控制了生活,掌握了命运.却没看到,生活在更高的苍穹上.露出讥笑的嘲讽的面孔。
80、他就是一盆水，倒入你的米堆里，若干年后，清水变成了醇香的酒，而你变成了一堆废弃的烂米，不是没用了，还可以拿来喂猪的。
81、不愿做奴隶的人民，愿做人民币的奴隶。
83、我不是天桥上算命的，唠不出那么多你爱听的磕。
84、生活二字二几十年来回味得我大小脑抽搐，脊髓痉挛。始终不得要领。
85、真的猛士，敢于直面自己未化妆的脸。
86、天山童姥——外表正太，内心却有三百六十五道裂痕，每道裂痕上书春夏秋冬四字，沧桑到妖。
87、世事往往如此，想回头也已经来不及，即使你肯沦为劣马，不一定有回头草在等着你。
88、曾经我们都以为自己可以为爱情死，其实爱情死不了人，它只会在最疼的地方扎上一针，然后我们欲哭无泪，我们辗转反侧，我们久病成医，我们百炼成钢。你不是风儿，我也不是沙，再缠绵也到不了天涯，擦干了泪，明天早上，我们都要上班。
89、曾经和朋友一起仰望星空，随之我们泪流满面，他是因为失恋，我则是因为扭伤了脖子。
90、其实你我都一样，人人都在装，关键是要装像了，装圆了，有一个门槛，装成了就迈进去，成为传说中的性情中人，没装好，就卡在那里了。就是卡门。

一年一次，人神共赏，人鬼同泣（2009高考作文语录）

2009-8-16 23:37:17

1、随着李鸿章签下的一款款条约，一个古老民族的尊严丧失殆尽，中国沉寂了，但是90后出现了，希望出现了。（我等着90后推翻卖国贼李鸿章的统治。）
2、这群刚长出羽翼的孩子。（鸟人一族？）
3、一个“80后”倒下去，千百个“90后”站起来。（……）
4、9.8级的地震把整个四川变成一片瓦砾。（同学，你太狠了吧。）
5、在九千年前大诗人苏轼就曾经说过……（周口店人苏轼？）
6、蝴蝶也是朝生暮死的东西。（珍惜蝴蝶吧，明天就看不见同一只了。）
7、过去的将来，人们充满希望，现在的过去，有赞扬赞许和担心忧虑，现在的将来，有坚定和迷茫，那么将来的过去会是怎样呢？（看明白这段时态的有赏）
8、仿佛自己才是家庭小宇宙的中心。（你们家都是圣斗士？还有小宇宙！）
9、没进过厨房，分不清油盐酱醋茶。（这五样外观都不一样，不至于分不清吧。）
10、像我这么大的十八九的青年男女有的已经有的结了婚，有的已经有了孩子。（咱国家《婚姻法》还管用不？）
11、也许这种心情是茅盾的。（对，不是老舍的。）
12、十二年寒窗苦读为的就是在今天都够实现自己的梦想，成为天空中搏击的雄鹰，成为嗷嗷叫的狼。（变成狼就够呛了，还变成“嗷嗷叫的”。）
13、或许我们现在娇生惯养，但我们面对风雨时并不会马上死去。（除非被雷劈死，一般都不会马上死去。）
14、要传承一个日不落的民族，就必须有精卫填海，夸父追日的不弃和不舍。（你们大英帝国的也到中国参加高考？）
15、不过我比他幸运的是我在一个较好的学校，他在下面的学校，他总跟我说他们那的学生，没有素，没有没文修养，读是白念了，三两天就会出现打架的迹象。（就您这文笔通顺程度，到底谁是差学校的学生啊？）
16、多少的80后的志愿者为了国家的荣誉，昌着残酷的裂日，环视着北京城的卫生。（志愿者难道是城管？）
17、无私应如司马迁，记录真实的历史，用“史家之绝唱”的《离骚》，为我们将历史的长河疏浚。（都怪鲁迅先生，说什么《史记》是“无韵之离骚”，让人家考生写错……）
18、邱绍云离我们的**远去，蒋姐的年代已经离我们渐渐走远，他们的作为我们从不忘记。（作为没忘记，名字都忘记了。）
19、我们要有“江山代有才人出，一代更比一代强”的坚定信念。（又见组合诗词的高手。）
20、在我的盘问下，您才说出“不太舒服”三个字。（……）
21、传说中的菲尔普斯，那个拿了八块奥运金牌的人……他教练说：“他平时就是吃饭、睡觉、游戏！”（我的生活也是这三样，怎么没拿金牌？）
22、二万秦关终属楚……千万越兵可吞吴。（夸张的手法？）
23、I’m90后，我也是90后。（同学你是小沈阳吗？英文中文的还说两遍？）
24、70后的人被称为英雄，他们艰苦奋战，创立了新中国。（19世纪的70后？）
25、力拔山兮气盖势，时不利兮骓不逝，逝不骓兮可奈何，虞姬虞姬奈若何……你面对眼前的大河，毅然投身乌江。（可怜的霸王，你要报仇就去找那考生吧。）
26、天津市一所中学的高三毕业生中，有一名叫做小超的同学……在病床上坚持读书，要在明天参加高考。（小超不用考语文和数学吗？为什么今天不来参加高考？）
27、隆美尔毅然决定违抗希特勒的指令，用自己的方式诠释青春。（隆大爷那岁数怎么诠释“青春”？）
28、社会以语不惊人的速度更迭着。（社会不算“语不惊人”，您“语不惊人”。）
29、人麻人生肉长（我师兄看了五分钟，告诉我：“考生大致要说：‘人嘛，都是人生肉长的。’”）
30、然就那一刻糟千人恨万人怨的地震爆发了。（你说“挨千刀的地震”多好？）
31、他们呀，他们，他们面对他们的选择死而无憾。（同学，你是口吃？）
32、马云曾经说过：“短暂的激情不算什么，长久的激情才能赚钱。”（怎么看这句话都更像是拉皮条的说的。）
33、灾区的处境第一时间传遍了神舟大地。（还是联想的比好好。）
34、70后早已作古，80后也不足挂齿。（幸好我是80后。）
35、徐霞客一生只写过一书，一部《霞客行》流传千载。（考生的想象力让我不得不击节叫好，我一辈子也想不出这样巧妙的句子。）
36、太阳一分一秒的爆炸。（爆炸一次您也活不了！）
37、我是业障（你这业障！）
38、吕蒙是三国时期的名将，但是他年轻的时候是个有勇无谋的猛将，但是在鲁豫的劝说下，他发奋苦读，最终成了一代名将。（原来吕蒙也参加过《鲁豫有约》呀）
39、常言人必须一生中有感情趣的事情，在你有性趣感认它。（没看明白，这句话好像在说一些不好的事似的。）
40、80后的人们风韵犹存。（幸好没用“昨日黄花”。）
41、环境不会为你而改变，既然你不能适应环境，那你就灭亡吧，留你也没用，也是浪费粮食，还不如给其他人做贡献，也算学雷锋做好事吧。（有些拙嘴笨腮的女生还是好好和这位考生学学吧，以后甩闲话用得着。）
42、《史记》是我们90后耳熟能详的一篇文章。（别装，你肯定没读过。）
43、李白在一首诗中写道：天生我材必有用，我也从李白那里学到了妄自尊大。（你学点好，行不行？）
44、（居里夫人）不畏辛苦终于终日的钻研除了第一个放射性元素“镭”，近而她也获得了诺贝尔文学奖。（同学，其实诺贝尔奖还有好多别的奖项呢！）
45、歌德花了五十八年创作出影响思想界文化界的《浮世绘》。（这老家伙不好好写浮士德，跑到日本画画去了。）
46、“天生我材必有用，明朝散发弄扁舟。”（唯一欣慰的一点就是这两句都是李白的。）
47、80后是垮掉的一代，90后是趴下的一代。80后拒绝加班，90后拒绝上班。（2000后的情形我想象不出来）
48、就拿我来说吧，我是伴随着苏联解体而生的，当然它们的解体和我没有关系。（同学你太谨慎了，你不说我们也知道。）
49、居理夫人在电闪雷鸣中奋斗着雷元素的摄取。（小心被雷倒！）
50、就像李白在乌苏台案被赐金放还一样。（仅仅把李白和苏轼的事情记混了，这样的事情我早就司空见惯了，问题时我想知道乌苏台到底是乌苏里江还是乌里雅苏台。）
51、莎士比亚在教育亚里士多德时，默罕默德在旁边讲了一句话：“不可以貌取人！”（这仨人说话互相能听懂吗？）
52、时间就像拉出来的屎一样无法收回。（同学，你实在是……太恶心了！）
53、我们90后的目标就是制造09后。（哦，那好，你们抓紧时间吧。）
54、大江东去浪淘尽，千古风流人物，故垒西边，人道寄奴曾住。（这两句词连得多顺！）
55、我们为什么要学外语，因为外国人骂我们的时候，我们能听得懂，还可以还嘴去骂他们。（这样的话，你用不着学多少句。）
56、机遇像雨点般向我打来，但我都一一闪过。（你够背的。）
57、鲁迅先生怀着曲线救国的梦想，赴日本学习医术。（……）
58、风筝在天空飘着，高兴地说：“好风凭借力，送我上青云。”（风筝都看过《红楼梦》不成？）
59、世界巨富比尔盖茨发家不也是从玩电脑开始的的吗？（盖茨小的时候有魔兽吗？）
60、（司马迁）有两种选择：一是享受荣华富贵，写假史，而是受尽世人凌辱，写真史。（自从《报任安书》入选课本之后，司马迁的伤疤就被考生一遍一遍地撕来撕去，不过这位考生说的，还是蛮有新意的嘛！）
61、90后的第一人要德才都有的，但我才真是不都。而高考在下，也是我才能的表现，也能好一点我是才子，不好一点我是啦吸。（闭嘴！你就是啦吸！）
62、古时候，有这样一个人，他是范进，他在考试中屡遭失败，但他懂得珍惜时间和青春，没有放弃考试，他的青春无悔。虽然范进在很老的时候考上了，但是他的青春是无悔的，因为他懂得珍惜青春。（您当时学《范进中举》时敢情一直拿范进当正面人物呢？）
63、还有可能是对压抑心情的排泄吧。（排遣、发泄两个词不能省略着用）
64、那个在指挥台上指挥若定的周周你们记得吗？他是“90后”的代表。（求你们找个正常人当代表吧！）
65、我也认为要使官员廉洁公正，一定要启用“90后”的我们。（先去考公务员去。）
66、父亲像亲人一样疼爱着我。（真可怜，后爹吗？）
67、我们永远也忘不了那难忘的一刻，2008年8月8日，就在那一天，奥运会成功的在我国落下了帷幕。（还没开呢就完了？）
68、（鲁迅）做出了一个决定：弃医从文，这个决定一般人看来觉得他很傻，觉得医学专业那么挣钱，何必去学文学？（同学，鲁迅先生要像你那么聪明就好了。）
69、我们要秀出自己的风格，发扬自己的性趣，爱好，不做父母手中的小玩物。（这家里面太乱了，都没法想，越想越乱。）
70、2008年5月12日，中国的四川被撕成两半。（你当撕卷子呢？）

哥做的不是网站是寂寞(真实又搞笑)

2009-8-16 13:09:18

每当夜半三更
五环外管庄人民的鼾声此起彼伏
哥还在古董笔记本前面徘徊
烟屁横飞代码狂舞

哥是这个圈子里的元老
四里八村乡亲们的电脑都是我亲自维护
服务周到还免费
刻录光盘 U盘移动硬
应有尽有贼便宜
其实他们不知道
哥的专业是做网站

哥今天的早餐是煎饼果子
加薄脆多来葱花面酱的那种
开封菜的发疯烧饼哥是不屑吃的
性价比太低！！！
其实，像哥这种夜魅族是很少吃早餐的
按照地球那边的作息时间
吃多了容易发胖
可是哥今天要去见客户

哥承认哥做过很多网站
老多大客户都喜欢我的作品
很简单一定要把他们喷晕
网络营销电子商务
希望，哥要给他们希望
他们看到了希望
哥明天的早餐才有希望

领带，没错，今天要穿西服去接客
啐一口唾沫抹一抹鬓角
发型不乱才自信
吃了加葱薄脆的煎饼不怕
咱有绿贱口香糖
就凭我手上这三百套韩国模板
哥打遍天下无敌手

胸怀天下的人是要讲究环保的
哥从容的身手打了一辆小排量的“蹦蹦”
在看到地铁保安之前
将剩下的半瓶雪碧喝掉
八通线一如既往的繁忙
一号线摩肩接踵的喧嚣
二号线亦如期待中的沙丁鱼罐头
东直门
980路
密云

“找一下信息部的张主管”
前台美眉飞来了一丝暧昧的白眼球
“有约么？登个记”
哥也去过N多高档的写字楼
哥也修过无数的笔记本
哥没见过这么暧昧的前台美眉
哥掏出一张名片
“麻烦你帮我登一下吧，我是XXX科技公司的，昨天约好的”
精美的签字笔扔了过来
“自己写~”
靠！拿哥当推销保健品卖保险的么
哥是非常有身份的
哥是搞IT的
哥揣着一颗提高全社会信息化应用的赤子之心
哥头脑里装的是策略和科技
哥不是求着你做网站
好吧，哥忍了
就这一次，下不为例

张主管是哥的铁子
我们昨天半夜在“相约同城”聊天室一起把妹
这是什么样的交情？
穿一条裤子的交情！
哥跟着张主管来到办公室
空调很猛烈
窗机
哥今天主要喷了搜索优化的重要性
还推荐了火爆地带等产品
竞价排名
网络实名
就在张主管被喷昏昏欲睡之前
哥拿到了本月最大的订单
还预拿到了百分之20的首付
今天的午餐、晚餐，明天的早餐都有着落了

哥手里拿着崭新的钞票
一张红色的一张绿色
一共150块钱啊
心情无比的激动
哥要请张主管吃饭
当然哥知道红色那张是给张主管的回扣

今天不要火烧
今天吃驴肉板肠锅仔
哥今天整点小二
哥不怕驴杂汤弄脏了西装
哥今天要开怀畅饮

哥在回家的路上一直打饱嗝
看来今天的晚饭有省了
哥看惯了三环堵车
所以哥不买车
同样是堵
你们开车的坐着
哥站着堵而已

每当站着的时候
哥就在思考
都说哥做的网站管生不管养
屁话，给几百块钱，哥也要管养么
每当这个时候，眼泪就止不住的往下流
楼下的小卖部烟又涨价了
哥凭啥就要做几百块钱的网站呢
哥还会平面设计
哥还会转视频文件
哥会的很多

哥每晚在家要处理很多事务
要严防哥的那些网站被挂马
还要用ASP商城模板伺候张主管的网站
公司简介产品展示联系我们
打开PSD发现有三个飞机稿没完成
翻了翻记账本
还有700块钱的网站尾款没要回来
下个月要交房租了
哥很忙

洗完澡，哥点上一支烟
深深的吸了一口
打开遨游浏览器
从收藏里找到“相约同城”聊天室
小甜甜今天不在线
红姐貌似有了聊友不爱搭理我
姗姗的大姨妈来了
哥三十了，还没个女朋友呢

哥在睡觉前还做了一个手提袋的广告设计
新下载了三个韩国网站模板
哥累了
明天周六，哥还要去京客隆做豆浆机的促销员
哥坚持IT事业的理想
自摸一下睡去

哥做的不是网站是寂寞

APerson'sLife

2009-8-13 20:28:15

Dim me,State,Result
Set me = New Person
me.age = 0
me.sex = "boy"
me.name = "Aien"
me.grow(8)
State = me.gotoschool("Child")
if State = true Then
     response.write "happy times."
Else
    response.write "So Badly"
End If
State = me.grow(5)
if State = true Then
    response.write "I Have so many friends."
Else
   response.write "Meet a Ghost"
End If
State = me.grow(7)
if State = true Then
    Result = me.meet("Tandy")
    response.write "Go to OUC.Got so many things.I made a mistake,maybe!"
    response.write Result 'It writes that we have long happy times
Else
    response.write "I will bw not here"
End If
State = me.grow(4)
response.write State
'It writes that i went to hangzhou after leaving OUC,and left my girl friend in Qingdao.

NowState = me.getState(now())
if me.found(NowState) = "happy" Then
   me.LiveTo("Tabdy")
Elseif me.found(NowState) = "unhappy" Then
   me.Goto("Dead",Now())
End If

me.state = "Dead"
me.Goto("Be a Ghost",dateadd("y",int(rnd()*400),now()))
Set me = Nothing

玩网游不会被封号的名字,搞笑

2009-8-8 14:27:02

不会被封的名字
  .▂▃▄☆★取名"不认识"★☆▄▃▂
  举报人:"管理员,我举报"
  管理员:"谁?"
  举报人:"不认识"
  管理员:"……滚……"

  2.▂▃▄☆★取名"请等等"★☆▄▃▂
  举报人:"管理员,我举报"
  管理员:"谁?"
  举报人:"请等等"
  管理员:"好的,快点!"
  一分钟后……
  管理员:"到底是谁?"
  举报人:"请等等啊!!!"
  管理员:"等你个头啊,滚……"

  3.▂▃▄☆★取名:"就是我"★☆▄▃▂
  举报人:"我举报!!!"
  管理员:"谁?"
  举报人:"就是我"
  管理员:"很好,成全你..封!"
  举报人:"……救命啊……"

  4.▂▃▄☆★取名:"骗你的"★☆▄▃▂
  举报人:"管理员,我举报"
  管理员:"又举报?谁?"
  举报人:"骗你的"
  管理员:"吃饱了没事干回家喝奶去,滚!"

    5.▂▃▄☆★ 取名"嘿嘿嘿嘿" ★☆▄▃▂
  举报人:"管理员,有人用辅助,我举报"
  管理员:"好的,是谁?"
  举报人:"嘿嘿嘿嘿"
  管理员:"……请问是谁?"
  举报人:"嘿嘿嘿嘿"
  管理员:"来人啊,拨打神经病医院电话……"

  6.▂▃▄☆★取名"我是你爸"★☆▄▃▂
  举报人:"管理员有人用辅助"
  管理员:"谁?"
  举报人:"我是你爸"
  管理员:"我是你爷爷!"

  7.▂▃▄☆★取名'不是我'★☆▄▃▂
  举报人:"我举报,有人用辅助"
  管理员:"****,谁?"
  举报人:"不是我"
  管理员:"???那是谁?"
  举报人:"就不是我"
  管理员:"你TM废话,不是你是谁?"
  举报人:举报人:"真的,不是我呀"
  管理员:"滚***……"

  8.▂▃▄☆★取名"管理员啊"★☆▄▃▂
  举报人:"管理员哥哥,有人用辅助,我举报"
  管理员:"好的,是谁?"
  举报人:是"管理员啊"
  管理员:"谁?你说谁?"
  举报人:"管理员啊"
  管理员:"***,我有必要用辅助吗?灭了你!***."

  9.▂▃▄☆★取名:"本人已死" ★☆▄▃▂
  举报人:"管理员,有人辅助,我举报"
  管理员:"****小子我被玩了一天了,在报假案,俺宰了你,快说是谁?"
  举报人:"本人已死"
  管理员:"你***,死了闹什么闹,活了在来找我."

  10.▂▃▄☆★取名:打死我也不说 ★☆▄▃▂
    举报人:"管理员我举报"
  管理员:"又举报?谁?"
  举报人:"打死我也不说"
  管理员:"*!吃饱了没事干,滚***!"

    11.▂▃▄☆★取名"你去死"★☆▄▃▂
  举报人:"管理员,我举报"
  管理员:"谁?"
  举报人:"你去死"
  管理员:"……敢骂我?你***,你给我滚~~~~~...我封你的号"

  12.▂▃▄☆★取名"你是猪" ★☆▄▃▂
  举报人:"管理员有人用辅助"
  管理员:"谁?"
  举报人:"你是猪"
  管理员:"你TMD是猪!"

    13.▂▃▄☆★取名:先给我发钱 ★☆▄▃▂
  举报人:"管理员,我举报."
  管理员:"还举报?烦不烦啊?谁?"
  举报人:"先给我发钱."
  管理员:"@#%$^*&*(*&+"

  14.▂▃▄☆★取名 "忘了叫啥"★☆▄▃▂
  举报人 :管理员.有人用辅助.我举报"
  管理员: 好.告诉我他叫什么?
  举报人: "忘了叫啥"
  管理员: 晕死.回去想想"
  举报人: 不用想了管理员.我知道的"
  管理员: 知道就说?
  举报人: 忘了叫啥
  管理员: 回家睡觉去吧……

    15.▂▃▄☆★取名:"逗你玩 " ★☆▄▃▂
  举报人:"管理员,我举报"
  管理员 :谁?
  举报人:"逗你玩"
  管理员:"想玩回家玩去.滚……"

  16.▂▃▄☆★取名"不能说"★☆▄▃▂
  举报人:"管理员,我举报"
  管理员:"谁?"
  举报人:"不能说"
  管理员:"别怕,有我给你撑腰,说!"
  举报人:"不能说,就是不能说"
  管理员:kao,不能说就滚……

好烦啊，我们的美工啊

2009-8-7 9:33:07

昨天，好不容易招来的美工被我们气走了，人家才来上了2天班，好郁闷。和小喻怎么留都留不住她，建站宝的升级准备工作做了一大部分了，购物车马上完成了，没了美工，工作真的很难进行下去，哎，好无语。

一个多月的上班生活

2009-7-31 18:05:19

    上班一个多月了，刚到公司的第一天就开始了建站宝的开发，历时1个月左右，在7月20号匆匆忙忙把第一个版本发出去了。说实话，有点后怕，自己感觉程序还不是很成熟，还有很多小问题，功能也不是很完善，不知道会不会对以后的版本有影响。
   一个多月基本都忙在建站宝的开发上了，有点累，还好是我喜欢的东西。最近半个多月发生了太多事，一个人承受了太多太多，感觉好累，好像安安静静地躺一会，哪怕是一小会。昨天晚上在公司玩了会才往家走，走在路上感觉腿发软，没有力气，想叫辆出租车了，一想才5里路，半个小时就回去了，还是慢慢走回家吧，走到半路还肚子痛，因此就走的更慢了，到家用了将近一个小时的时间。
   特对不起女朋友，尽管最近给了她太多的压力，但这一切都是无意的，希望她能理解我，不管怎样都希望我们能好好在一起。想了一星期了，想让女朋友开学前来杭州玩玩，但不知道会怎样，好想她。
   一直以来有种无形的压力在心头，并且是我无法摆脱的压力，也是不能逃避的压力，需要自己去淡化的压力。不管怎样，加油吧，天塌下来又怎么样了，还得生活(恐怕那时候就没有所谓的生活了)，给自己打气，努力，加油。。。。

常用CSS缩写语法总结

2009-7-27 16:00:07

使用缩写可以帮助减少你CSS文件的大小，更加容易阅读。css缩写的主要规则如下：

颜色
16进制的色彩值，如果每两位的值相同，可以缩写一半，例如：
#000000可以缩写为#000;#336699可以缩写为#369;

盒尺寸
通常有下面四种书写方法:

property:value1; 表示所有边都是一个值value1；
property:value1 value2; 表示top和bottom的值是value1,right和left的值是value2
property:value1 value2 value3; 表示top的值是value1，right和left的值是value2，bottom的值是value3
property:value1 value2 value3 value4; 四个值依次表示top,right,bottom,left
方便的记忆方法是顺时针，上右下左。具体应用在margin和padding的例子如下：
margin:1em 0 2em 0.5em;

边框(border)
边框的属性如下：

border-width:1px;
border-style:solid;
border-color:#000;
可以缩写为一句：border:1px solid #000;

语法是border:width style color;

背景(Backgrounds)
背景的属性如下：

background-color:#f00;
background-image:url(background.gif);
background-repeat:no-repeat;
background-attachment:fixed;
background-position:0 0;
可以缩写为一句：background:#f00 url(background.gif) no-repeat fixed 0 0;

语法是background:color image repeat attachment position;

你可以省略其中一个或多个属性值，如果省略，该属性值将用浏览器默认值，默认值为：

color: transparent
image: none
repeat: repeat
attachment: scroll
position: 0% 0%
字体(fonts)
字体的属性如下：

font-style:italic;
font-variant:small-caps;
font-weight:bold;
font-size:1em;
line-height:140%;
font-family:"Lucida Grande",sans-serif;
可以缩写为一句：font:italic small-caps bold 1em/140% "Lucida Grande",sans-serif;

注意，如果你缩写字体定义，至少要定义font-size和font-family两个值。

列表(lists)
取消默认的圆点和序号可以这样写list-style:none;,

list的属性如下:

list-style-type:square;
list-style-position:inside;
list-style-image:url(image.gif);
可以缩写为一句：list-style:square inside url(image.gif);

忽悠移动1860话务员小姐全记录!~!

2009-7-22 10:13:34

那天晚上在班来上晚自习课觉得无聊,所以就拿同学电话打1860忽悠服务小姐,自己的手机不愿意打,哈哈...过程如下!
第1个电话~!
拨叫方法:1860-1(普通话服务)-2(继续服务)-0(人工服务)
服务器:现在是*****号话务员为您服务~!
话务员小姐:先生,有什么要服务的吗?
秋木:你猜我是谁?
话务员小姐:........
秋木:你猜嘛!
话务员小姐:先生,如果没什么其他要服务的我们将挂断电话,再见!
秋木:......

第2个电话~!
拨叫方法:1860-1(普通话服务)-2(继续服务)-3(投诉建议)
服务器:现在是*****号话务员为您服务~!
话务员小姐:先生,请问有什么问题吗?
秋木:我要投诉~!
话务员小姐:先生有什么要投诉的?
秋木:刚才嫩有个小姐挂我电话~!
话务员小姐:几号小姐?他为什么挂您电话?
秋木:我忘了多少号了,反我记得是个女的!嫩帮我查查.我刚说了一句话,他就把我电话挂了!
话务员小姐:我们这都是女的....先生请问您说什么?
秋木:我就说你猜我是谁?...他直接就给挂了.!
话务员小姐:.......啊.啊.啊....?!
秋木:他猜不出来,你猜我是谁?
话务员小姐:先生...再见
秋木:.......

第3个电话~!
拨叫方法:1860-1(普通话服务)-2(继续服务)-0(人工服务)
服务器:现在是*****号话务员为您服务~!
话务员小姐:先生,有什么要服务的吗?
秋木:小姐,麻烦问一下,我今天买了个100的冲值卡已经不好用~!
话务员小姐:先生,请问嫩在哪买的?
秋木:我在台东联通营业厅买的~!
话务员小姐:....(听到这位小姐在憋着笑..)先生,我们是移动的服务台~!
秋木:哎呀,嫩不是一家的?我还心思嫩一家的来~!
话务员小姐:先生,我们真不是一家的!
秋木:那你没有利用价值了....再见
话务员小姐:......

第４个电话~!
拨叫方法:1860-1(普通话服务)-2(继续服务)-3(投诉建议)
服务器:现在是*****号话务员为您服务~!
话务员小姐:先生,有什么要服务的吗?
秋木:我带投诉...哎哎...我带投诉.....
话务员小姐:先生您先冷静一下,有什么要投诉的?
秋木:我今天再嫩营业厅买了个东西不好用...
话务员小姐:请问嫩买的是什么?
秋木:皮搋子...
话务员小姐:..(这位小姐以为自己听错了)先生,什么?
秋木:我说,投厕所用的皮搋子...
话务员小姐这小姐郁闷了....-_-!)先生,你说什么????
秋木:就是扑哧扑哧,投厕所的皮搋子.....
话务员小姐:........先生.再见-_-|||

第5个电话~!
拨叫方法:1860-1(普通话服务)-2(继续服务)-3(投诉建议)
服务器:现在是*****号话务员为您服务~!
话务员小姐:先生,有什么要服务的吗?
秋木:我今天在嫩营业厅买了个50的充值卡出了点问题....
话务员小姐:先生请问什么问题?
秋木:我没给钱....哎(←这个字调号发三声)...我没给钱...哈哈!
话务员小姐:....先生....~~!~!~!-_-!
秋木:哈哈哈哈...
话务员小姐:.....-_-

第6个电话~!
拨叫方法:1860-1(普通话服务)-2(继续服务)-3(投诉建议)
服务器:现在是*****号话务员为您服务~!
话务员小姐:先生,有什么要服务的吗?
秋木:我要投诉..
话务员小姐:请问什么事?
秋木:俺家刚买的牛不产奶....!!!!!
话务员小姐这小姐直接塄了)先.........生,怎....么...回.....事?
秋木:俺家刚买的牛不产奶,tmd全是蜗牛...
话务员小姐小姐忍住笑声,感觉快喷了..)先生,再见....!
秋木:...俺下半年可怎么过....?~!救命呀...全是蜗牛...

第7个电话~!这是我最满意的,服务态度相当好~!而且很有耐心拨叫方法:1860-1(普通话服务)-2(继续服务)-0(人工服务)
服务器:现在是*****号话务员为您服务~!
话务员小姐:先生,有什么要服务的吗?
秋木:我今天新买的手机卡,想咨询一下!
话务员小姐:先生,请说!
秋木:我先问问嫩这个1860收费吗?
话务员小姐:我们服务是免费的!
秋木:免费?你是不是在搞笑?还有这种好事?
话务员小姐:真的是完全免费的!
秋木:太好了,那就聊吧....
话务员小姐:-_-!好..好..呀...先生,很愿意接受您的咨询!
秋木:我不是刚该的手机卡,一条短信多少钱?
话务员小姐:平均每条5分多..每月360条!
秋木:昂.那如果我360条7天发完了多少钱?
话务员小姐:-_-|||....这个我们不知道!
秋木:除不尽是吧?那360条15天发完每天带多少钱?
话务员小姐:先生,您可以自己算一下!
秋木:我不识数.
话务员小姐:-_-o..
秋木:那我问问话费吧,一分钟多少钱?
话务员小姐:两角5分,先生
秋木:昂,那3分37秒多少钱?
话务员小姐:按4分钟算
秋木:4分17秒多少钱?
话务员小姐:按5分钟算!
秋木:那5分09秒是不是按6分钟算?我聪明吧?
话务员小姐:-_-||||||.....是.是..呀!聪~~明~!
秋木:谢谢..谢谢,那我问一下gprs的问题吧!
话务员小姐小姐这时肯定很郁闷..心想还来?-_-)好呀,先生!
秋木:请问你们gprs多少钱?
话务员小姐:不一定的,不同的网站服务是不一样的,我们没法查询!
秋木:啊..你不厚道,你不告诉我,让网站坑我钱?讹人是吧???
话务员小姐:...不...是...呀.先生!您误会了.....gprs不是我们扣除的!
秋木:哎,这么回事!不好意思昂,我太冲动了,冲动是魔鬼!你的服务真好..声音也很好听..
话务员小姐:呵呵,先生,这是应该的...
秋木:要不说嘛.嫩联通服务就是好!
话务员小姐:先生,我们是移动的!
秋木:啊?移动?我晕,我打错了~!不好意思昂...拜拜...
话务员小姐:-_-|||||||||||||||........(持续吐血中.....)

我国主要城市日全食见食时间表

2009-7-21 22:45:22

　　我国主要城市日全食见食时间表(7月22日)：

　　地名　初亏全食始(食既) 食甚全食终(生光) 复圆

　　上海 8时23分25秒 9时36分44秒 9时39分16秒 9时41分49秒 11时01分36秒

　　重庆 8时07分54秒 9时12分59秒 9时15分08秒 9时17分17秒 10时30分34秒

　　常州 8时21分44秒 9时35分23秒 9时36分28秒 9时37分34秒 10时57分55秒

　　无锡 8时22分03秒 9时35分10秒 9时37分05秒 9时39分01秒 10时58分48秒

　　苏州 8时22分21秒 9时35分13秒 9时37分41秒 9时40分10秒 10时59分41秒

　　杭州 8时21分26秒 9时34分11秒 9时36分55秒 9时39分40秒 10时59分21秒

　　宁波 8时23分07秒 9时37分20秒 9时39分34秒 9时41分50秒 11时02分44秒

　　嘉兴 8时22分20秒 9时35分01秒 9时37分59秒 9时40分57秒 11时00分21秒

　　湖州 8时21分31秒 9时33分50秒 9时36分45秒 9时39分41秒 10时58分50秒

　　绍兴 8时21分52秒 9时35分19秒 9时37分42秒 9时40分05秒 11时00分26秒

　　舟山 8时23分54秒 9时38分01秒 9时40分38秒 9时43分16秒 11时03分53秒

　　合肥 8时18分39秒 9时30分48秒 9时31分48秒 9时32分49秒 10时52分07秒

　　芜湖 8时19分37秒 9时31分06秒 9时33分38秒 9时36分10秒 10时54分45秒

　　马鞍山 8时19分57秒 9时32分15秒 9时33分52秒 9时35分29秒 10时54分47秒

　　铜陵 8时18分49秒 9时29分47秒 9时32分39秒 9时35分31秒 10时53分46秒

　　安庆 8时17分46秒 9时28分30秒 9时31分15秒 9时34分01秒 10时52分15秒

　　黄山 8时18分58秒 9时32分40秒 9时33分29秒 9时34分19秒 10时55分27秒

　　巢湖 8时19分10秒 9时30分47秒 9时32分46秒 9时34分46秒 10时53分29秒

　　六安 8时17分45秒 9时28分58秒 9时30分29秒 9时32分00秒 10时50分31秒

　　宣州 8时19分55秒 9时31分26秒 9时34分17秒 9时37分10秒 10时55分47秒

　　贵池 8时18分19秒 9时29分13秒 9时32分03秒 9时34分54秒 10时53分10秒

　　九江 8时16分19秒 9时28分46秒 9时29分23秒 9时30分00秒 10时50分15秒

　　武汉 8时14分53秒 9时23分56秒 9时26分39秒 9时29分24秒 10时46分15秒

　　黄石 8时15分31秒 9时25分32秒 9时27分53秒 9时30分16秒 10时48分05秒

　　荆州 8时12分48秒 9时20分47秒 9时23分21秒 9时25分57秒 10时41分56秒

　　宜昌 8时12分11秒 9时19分27秒 9时22分07秒 9时24分48秒 10时40分01秒

　　荆门 8时13分09秒 9时20分58秒 9时23分32秒 9时26分07秒 10时41分48秒

　　鄂州 8时15分25秒 9时25分00秒 9时27分37秒 9时30分14秒 10时47分37秒

　　孝感 8时14分41秒 9时23分25秒 9时26分08秒 9时28分53秒 10时45分22秒

　　黄冈 8时15分25秒 9时24分56秒 9时27分35秒 9时30分15秒 10时47分33秒

　　咸宁 8时14分35秒 9时24分52秒 9时26分31秒 9时28分12秒 10时46分26秒

　　随州 8时14分36秒 9时24分08秒 9时25分30秒 9时26分53秒 10时44分02秒

　　恩施 8时10分28秒 9时16分50秒 9时19分23秒 9时21分58秒 10时36分26秒

　　成都 8时07分05秒 9时11分06秒 9时12分47秒 9时14分29秒 10时26分22秒

　　自贡 8时06分44秒 9时10分55秒 9时13分01秒 9时15分07秒 10时27分27秒

　　遂宁 8时07分51秒 9时12分09秒 9时14分25秒 9时16分43秒 10时28分59秒

　　内江 8时07分01秒 9时11分08秒 9时13分26秒 9时15分45秒 10时27分59秒

　　乐山 8时06分15秒 9时09分31秒 9时11分54秒 9时14分19秒 10时25分38秒

　　南充 8时08分22秒 9时13分10秒 9时15分12秒 9时17分15秒 10时30分00秒

　　广安 8时08分30秒 9时13分16秒 9时15分42秒 9时18分09秒 10时30分56秒

　　达州 8时09分34秒 9时15分44秒 9时17分07秒 9时18分30秒 10时32分34秒

　　雅安 8时06分05秒 9时08分57秒 9时11分16秒 9时13分36秒 10时24分24秒

　　眉山 8时06分35秒 9时09分52秒 9时12分14秒 9时14分38秒 10时25分53秒

　　资阳 8时07分05秒 9时10分46秒 9时13分11秒 9时15分37秒 10时27分18秒

　　康定 8时05分34秒 9时08分06秒 9时10分10秒 9时12分16秒 10时22分38秒

建站宝(EBdiy)正式发布了，完全免费、绝对开源

2009-7-20 22:38:06

    EBdiy企业建站宝官方发布网址：www.ebdiy.com，该系统所有的代码程序、企业网站模板免费开源下载，
欢迎大家下载使用，在发布之日，对提供优秀模板的用户，经EBdiy建站宝小组审核通过，我们将赠送空间和
域名，EBdiy建站宝开发团队欢迎大家踊跃下载和提供模板，空间域名数量有限，送完为止！

    EBdiy企业建站宝是一款开源免费的企业建站系统，该系统做到企业站动态模版化，代码界面分离，是一
套为网站用户提供无技术门坎、操作简单、维护方便、功能强大、安全可靠的建站工具。网站模版丰富，可
任您满意选择，让您在几分钟内快速掌握并拥有自己理想的网站。

    官方网站：www.ebdiy.com

    EBdiy建站宝开发团队联系方式：

    联系电话：0571-88276011        0571-88276022

     客服qq
         客服小喻:89931633          E_mial:yujc@eb.com.cn
         客服小沈:89931685          E_mial:shenyj@eb.com.cn
         客服小张:89931669          E_mial:zhanghg@eb.com.cn

安装注意事项:

请首先运行instal/index.asp进行安装，程序将安装到本目录，若程序未删除install文件夹，为了安全起见，请手动删除。

请尽量在不含有空格或中文的目录下安装，在安装之前要注意设置安装目录得权限，以允许程序的正常安装
否则可能会出现500错误
Microsoft VBScript runtime (0x800A0046)
Permission denied

安装完成后，一定要进入后台，选一套模板，否则会出现"读取模板错误"的错误信息

就这样了

2009-7-19 19:12:31

就这样了~

欲哭无泪

2009-7-19 15:48:51

真他妈的想扇自己，干了件天下最蠢的蠢事~~~~，做事谨慎些，不要贪图便宜。。。果子很苦的，明天系统上线，今天又冒出这么的事，天哪。。。午饭都吃不下去了。

关于无组件类的使用说明文档

2009-7-18 0:17:45

   近来发现很多"盟友"使用我的这个类，反映也不错，也有很多人提出修改意见，先谢谢大家的支持。以前写过一个很详细的PDF格式的开发说明手册，里面的内容很详尽，甚至说有点罗嗦。觉得写一个简洁明了的帮助文档非常必要，让大家在最短的时间内学会使用这个类，毕竟这个类使用起来非常方便，你只需要做很少的工作就能实现安全的上传。
  由于刚来杭州上班，手头上有一些紧急的项目要完成，除了修改一些技术BUG，没有对整个类进行大的修改，在手头上的系统完成后，一定会仔细修改这个类，并且写一个让用户最容易上手的文档，好实现ASP"简单"上传的目标。
  我会努力，也希望大家能够支持。
  很晚了，准备睡觉了。。。

BLOG程序小改版完成

2009-7-12 4:29:22

搞了一晚上，把自己的blog改版啦
具体改版内容如下。。。

1.同时支持静态和动态
2.无需后台，任何用户可以在动态和静态之间无缝切换
如果访问http://dev.mo.cn/index.html，系统会自动识别为静态，链接将全部是静态链接
如果访问http://dev.mo.cn/index.asp，系统会自动识别为动态，链接将全部是动链接(测试完成，动态已取消，访问动态地址不会报错，但页面的链接保持静态)

欢迎网友进行测试并提出意见或建议，谢谢

一头猪重400斤，一座桥承重200斤，猪怎么过桥？

2009-7-9 0:50:14

题目：一头猪重400斤，一座桥承重200斤，猪怎么过桥？

条件：

1.猪是活猪，任何解决方案都不得切割猪

2.故事发生在猪王国，不要引入人的因素

3.是过桥，不是过河，不要说是游泳过去

4.是过桥，不是过涧，不要说是飞过去丫

5.桥是承重两百斤的桥，把桥挪到平地上抑或过另一座承重超过四百斤的桥都属改变性状

6.不是文字游戏，不要说“猪晕过去了”

答案汇编：

1、PS张过了桥的照片，让政府出面证实猪是过了桥的，谁敢说它没有过！

2、猪把体内注的水放掉就过去了···

3、叫上统计局的“砖家”，只要统计局一来,四万斤的猪也能给你弄过去 ···

4、地球是圆的，反个方向走过去不就行了。

5、把桥命名为有中国特色的社会主义桥，再让CCTV“现场直播”，大家就都能看到它过去了。

6、找个领导（譬如淋输记、曾小狗）张嘴一吹就过去了，别说400斤，4000斤都能安然无恙的过桥。

7、花点钱，给猪贴个ZF认可的标签，此猪200斤；或者花点钱，请专家出据报告，此桥承重400斤。

8、进A股市场呆一段再出来就可以过了···

9、一只大河蟹托过去，河蟹的力量最大了，400斤不在话下！所以咱们要共建河蟹社会···

10、周正龙手拿一架佳能数码相机，一边调着焦距一边念叨：“靠，400斤算什么？800斤我也能叫它过桥”于是按下了快门。很快就打印出来一张猪的照片。只见周正龙高举着猪的照片，走上桥头：“我才一百来斤，我过！”很快，林业局发布新闻：“谁说400斤的猪，过不了200斤承重的桥。”

11、桥比猪短，猪没有全部站在桥上 ···

12、是只母猪，过桥前生了10只小猪“`一只20J “`HOHO “然后全过去了···

13、从相对论来说，速度越快质量越轻，所以猪要过去就必须达到某个速度，也就是说跑过去：猪对地面产生的压力就为 mg/2 （g = 9.8 地表重力加速度）

mg/2 = mv**2/r
v = (gr/2)**0.5 = 0.7071
第一宇宙速度 = 7.9千米/秒

如果这头猪跑的够快的话，即它的速度超过 7.9千米/秒就可以安全过桥 ···

14、这头猪马上改名朱坚强，只靠雨水存活1个月后，体重从400降到150，可轻松过桥···

15、猪肉一降价，自然就可轻松过桥啦···

16、反方向想，猪正面的系只可以承受200斤的桥，将猪反方向行走，就等于猪已经過桥啦！！！

17、猪直接可以行过桥，因为只猪名叫四百斤，不是猪重四百斤···

18、寄快递（EMS）···

19、过桥这个概念有两种，走桥的纵向是过桥，走桥的横向也可以叫过桥；走横向的过桥，举例来说比如，一只船从桥下驶过，可以说是过桥。通常我们说过天安门，并非穿过了天安门城楼，而是从侧面过去了。过桥一样。这个猪只需要从一端走过即可，和承重能力无关。

20、假定这坐桥的长度这只猪会走N步，就是N步过桥。猪迈出第一步的时候，桥会塌吗？显然不会。迈出第二步的时候，桥会塌吗？显然也不会。迈出第三步的时候，桥会塌吗？显然也不会。第四步呢？第五步呢？~~~~~~55步呢？~~~~~99步呢？
于是得出结论在这只四百斤的猪走完桥长，迈过N步后，桥仍然完好无损。于是大摇大摆的过去了。

21、桥变说

1）、这座桥是承重200斤的，是说桥建成初期标称的理论承重值是200斤，这种标称承重值其实有保守的成分，也就是说桥可以承受的极限即便是 250斤，或者300，400斤也会“保守的说承重200斤”；这个现象如同食品的保质期，标称是12个月的食品，你即便13个月去吃亦然不会有问题，而且味道不会有变化，14~15个月去吃同样也可能得到相同的味道。如此，这座桥完全，而且肯定可以通过400斤重的猪。

2）、这座桥是承重200斤的，是说桥建成初期标称的理论承重值是200斤。根据分子原子运动原理，建造桥的结构之间，也就是每个基本部件之间存在着分子原子的运动，而且是一个组件融合的过程。举例：如果这座桥是用大冰块建造的，建造初期桥是承重200斤的，可是冰块之间水分子原子是互相融合运动的，慢慢的结构成一个整体。注意，一个整体的冰结构一定比搭建初期的建筑冰结构的承重能力强很多很多的哦。所以，初期结构承重不能证明当前结构承重，这只 400斤重的猪就安然过桥了

22、意识说

1）、猪过桥的目的是到达彼岸，其实人生如猪孤苦无依总在大海漂泊一样寻找彼岸，佛语有云“苦海无边回头是岸”，彼岸看似遥远而不可及，事实上不过是“回头”这么简单。猪想通这个道理后，思想达到了彼岸就已经过了桥。

2）、儒家提倡“知其不可为而为之”，过桥这件事情就是一件知其不可而为的事情，有这样的勇气去做，不论成功与否我们都会认为他过去了，或者追认它为“过桥英雄”，他的精神已经超越了这座桥本身。

易中天版：

400斤的猪居然要去过承重200斤的桥？这下它的朋友一听吃惊坏了！它要过桥？它没事过什么桥啊？因为它的朋友们知道，过桥那不是一般猪能过的啊？那哪是一般猪能过的?于是它们马上跑去劝它。说你不要过桥了，你一过桥就怎么样怎么样的，大概意思就是过桥的时候，桥塌了你就完了，用现代话讲就是 OVER 了。其实400斤的猪过承重200斤桥有危险吗？有人说了它毕竟有前辈啊，它的前辈就成功的过了桥。其实正史不是这样，据《历代杂食类动物过桥志－豚之父别传》中记载，其实豚的父亲并没有过桥。所以其实豚的父亲过桥只是后人的杜撰。那么据《历代飞禽鸟类动物过桥志－动物鹰传》记载：豚之父欲过桥，恐桥毁，欲飞未果，动物鹰出爪，逐载豚父飞过桥也。所以啊，豚的父亲其实是被动物鹰带过桥去的。

刘心武版：

其实，要解答400斤的猪怎么过承重200斤的桥，我们要从字面上分析一下，我也是参考了很多史料得出的结论。首先我们看“猪”这个字是什么意思呢？那么这就涉及到《红楼梦》里的黑话了，曹雪芹在创作的时候因为有些东西是不能直接往书中写的，所以就用了很多黑话，这些是非常有研究价值的。可能观众朋友们不懂，其实我只要帮你们稍微解释一下你们就明白了。猪在12生肖里排位是多少呀？12位，最后一位呀，其实这就暗示我们是最小的意思。再看看承重 200斤的桥是什么意思呢？什么桥能承重200斤呀，一定是一座小桥呀。那这小桥代表什么呢？我查找了许多资料，找到了“遥想公瑾当年，小乔出嫁了”小乔，那是具有皇室血统的女成员呀。那么就是说那个猪是具有皇室血统最小的女皇室成员的小母猪呀。这其实就说明了，这个小母猪其实就是前太子的后代，而皇室成员的小母猪过桥，应该就是它要采取行动了。那么是什么样的行动呢？

周汝昌版：

400斤的猪怎么过承重200斤的桥？其实是一们很深奥的科学，里面有太多东西让我们深思了。我们首先来分析一下猪：曹雪芹为什么要提到猪？《红楼梦》里是没有废话的，既然提到了就必然有他的价值。那么400斤的猪价值在什么地方？嗯？其实啊，“这里面倾注了作者曹雪芹很深的情感在里面。”12生肖就代表金陵12钗，那么这里面其实就暗示了很多东西。首先，大观园里有多少人和属猪的有关？王熙凤，还有一个，就是史湘云。凤和麒麟都是祥瑞，是同类的。那么，我们都知道了，王熙凤已经嫁了人了。她就被排除了，唯一剩下的未婚的就是史湘云。其实啊，400斤的猪过承重200斤的桥正好暗示了宝玉最后娶了史湘云。而史湘云恰好有个金猪。在这里我们不能不敬佩作者的良苦用心啊。那么400斤的猪过承重200斤的桥，想想，宝玉娶史湘云难度多大呀？

阎崇年版：

400斤的猪怎么过承重200斤的桥，可以写一部一百万字的大书都不为过。但是我们今天只有四十多分钟的时间，我想概略来说一下。明朝的主要优长是坚城，坚城下面都布上一些桥。后金的主要长处是骑兵，骑兵善于野战，基本都是骑着猪。和努尔哈赤的铁猪争锋，造一些承重200斤桥这叫以静制动、以主待客，反了，你出了城了，你过那桥，变成以动制静，反主为客，放弃城战，进行野战。其实啊，这个早有人批评过了。我觉得400斤的这个猪，它身上有一股气，就叫做正气，用孟子的话来说，叫做“浩然正气”；它要过承重200斤的桥，身上有一种精神，叫爱国精神，他这个爱国精神，是强烈的爱国，不是一般的说出来的。这个浩然正气和爱国精神深深的震撼了我，我愿意把我受到的这个震撼传递给全国广大电视观众，也震撼他们。从哲理上来说，死是一个大关节，也是一种大境界，400斤的猪过桥摔死，虽死犹生，因为他精神超越时空，永存。

纪连海版：

我们应该怎么来正确的看待400斤的猪过承重200斤桥的这件事呢？首先，我们应该理性的分析一下这件事情的起因。当我们真的在书中看到，或听到 400斤的猪怎么过承重200斤的桥。我们脑子里的第一反应是什么？危险！哎，400斤的小猪本来是个非常弱小的动物，它想要过承重200斤的桥，这可以说是非常冒险的事情。但是呢，我们要理性的看待这件事的话，其实事实并不想我们想象当中的那样。首先我们先来看看400斤的猪，那么小的猪是什么样的呢？清史里的记载是哺乳动物、身体肥壮、四肢短小，猪其实不笨，速度快，意思是很灵活。啊，看上去啊，过承重200斤的桥是比较危险。但是也有好处，什么呢？灵活，速度快，所以呢它桥塌的机会也比较低，你要是换个比较笨比较大的动物，比如骆驼啊大象啊什么的那肯定就把桥压塌了。第二呢，就是猪要过的桥，这个也是有特殊原因的。怎么呢？它选择的时机非常恰当，什么时机呢？晚上，晚上过桥上人非常少。车呢？您别忘了那是什么时代。清朝啊！那时候哪有汽车啊。自行车都没有，当时是什么？是马车，速度比较慢。这样,你就算闭着眼睛飞奔过桥，其实都是十分安全的。

孔庆东版：

我今天准备“漫谈400斤的猪怎么过承重200斤的桥”，为什么叫漫谈呢？因为我感觉400斤在猪怎么过承重200斤的桥是说不完的，这个话题可以无穷地拓展出去，起码在若干年内是说不完的。我自己也写过一些有关400斤的猪怎么国承重200斤桥的东西，我也在一些大学、一些媒体上讲过这猪是怎么过桥的，每次都觉得意犹未尽。我们先看看金庸的原文：这是一条宽不过N丈的河，上面横架一条承重200斤的桥，桥头站着一头威武的体重400斤的猪。今天我们来欣赏和探讨是金庸小说中的爱情问题，而金庸笔下那些奇绝的爱情，有时候更令读者来深思，透过这些奇绝的爱情我们看到一些奇绝的人性，奇绝的人生。像这头要飞身过桥的猪，明知过桥有杀身之祸，可它偏要过桥去华山论剑，这就是爱情的力量。像郭靖，像杨过这样大侠的爱情，其实金庸小说他写爱情令人佩服，不仅仅写这些高山大河式的爱情，连这头猪的爱情，我给它命名过一个词，就叫做“猪的爱情”，猪的爱情都写得非常好，这是他跟其他武侠小说言情小说家相比，更高出一筹的地方，使我们觉得他笔下的爱情，不仅仅是琳琅满目，而且真是惊心动魄，刻骨铭心。

于丹版：

400斤的猪怎么过承重200斤的桥是政治？政治并不一定让猪都过上一种物质文明上的发达生活，它仅仅是一个标志，这些都是来源于信仰。这就是一种理念，他认为信仰的力量足矣把一群猪凝聚起来。其实猪的视力是有两种功能的，一个是向外去无限等待喂食的人，另外是向内无限深情的注视槽里的食物。400 斤的猪过承重200斤的桥，能够带给它快乐的秘诀就是，必须亲自丈量桥面的每一步路。它敢于亮出自己的弱项，生和死只是一个形态的变化。它对待死的态度：①不怕死；②绝不找死。这是一种境界、感悟和超越。它觉是过桥只是一个瞬间，悟是一个过程，“无为而无不为”才是大境界。它坚持过桥，在它成长中一定有某种潜能从没有被开发出来。有些奇迹其实就是在坚持中完成，有些奇迹永远不是那些自认为最机灵和最聪明的人能做完成的。

艾恩Asp无组件带进度条上传最新更新（7.2日）

2009-7-2 14:44:13

   完全修正了在虚拟主机使用本程序是出现的js错误，主要原因是没有处理好JSON数据，导致解析错误，现已修正。

   请放心下载使用

  升级方法为:用本下载包内的JS文件夹内的anplus.js覆盖原来的anplus.js，打开AjaxUploader.js,在var pro=_this.getInformation(msg);前面加一句if(msg==null){return;}

   下载地址

对本人及建站宝的一个小声明，哈

2009-7-1 20:23:18

由于刚来杭州上班，工作比较忙，我发布的各种源码及作品没有及时更新及修改BUG，等系统开发完成后，会及时将现存的各种BUG修正。
从上周一到公司来之后就开始开发建站宝，以前公司发布过一个版本，主要用来测试用户的反应，我们正在开发的版本发出后，一定会给大家带来良好的用户体验，我们会加油，尽早让新版本发布。

呀呀呀呀呀呀呀呀呀呀

2009-6-27 18:03:00

    这周公司双休，真不知道该干点什么。。。
   今天睡了个懒觉，9点多才起来，没吃本来想在家里呆一天了，想想没什么事做就提着本本到公司来了，至少在公司能上网，还能写点东西。公司人不多，连姐回来待了一会就出去了，整个大办公室就我一个人。
   XP用了很久了，现在上班了发现用起来很不方便，下午就把本本系统换成2003了，好多东西2003都不支持，郁闷的很，IE7还得必须要SP1以上的系统版本，300多M，在公司下载超慢，一下载就打不开网页，整整一下午就下了不到一半。想想自己的鞋子坏了，刚来也不知道哪里有卖的，就查了下最近的超市位置，然后跑了去，发现里面的东西好“便宜”，花120买了双打5.5折的鞋子，本来想再买点吃的了，没什么胃口就没有买。下午天一直阴沉沉的，很是不舒服，感觉风扇吹出来的风都是潮湿的。
   6点喽，给老婆发的信息老婆也还没回，不知道忙啥去了。明天周日去干什么去呢，好迷茫。。。要不就在家睡一天觉吧。

来杭州两天了

2009-6-24 13:27:55

到杭州两天多了。。。第一次出来工作。。。贴几张图片

住处距公司半个多小时的路，上下班要不行，我们住在22楼，本来房东今天要给我们安空调，但是不知道怎么就耽误了，得等到7月1号左右，好热啊。

560)this.width=560" />

住的小区

560)this.width=560" />

产品部办公室

560)this.width=560" />

上班要走的路（到公司要半个小时）

560)this.width=560" />

我的桌子

560)this.width=560" />

我的床（晚上有蚊子，在22楼比较少）

560)this.width=560" />

我的衣橱

560)this.width=560" />
560)this.width=560" />

上下楼都要用电梯，22层呀

560)this.width=560" />

杭州的自行车

560)this.width=560" />

上班路上的我

560)this.width=560" />

丰潭桥。。。潭潭潭。。。

560)this.width=560" />

我的办公桌，除了本本，啥也没有

到杭州了

2009-6-22 12:39:52

坐了一整天的火车，终于来到了杭州，下车第一感觉---热，也是阴天的原因，一直阴沉沉的。根据小沈的指点，自己坐公交车到了公司，公司不错，很多人，大家都很好，杭州市第一商务。
不论如何，要加油了。。。

PJBlog介绍

2009-6-19 11:44:19

560)this.width=560" />

　　PJBlog是由舜子（陈子舜，英文名字PuterJam，PJblog就是以他英文名字缩写命名的，他本人就职于腾讯公司QZONE开发组）所开发的一套开源免费的中文个人博客系统程序，采用asp+Access的技术，PJBlog同时支持简繁中文，UTF-8编码，相对于其他系统，PJBlog具有相当高的运作效能以及更新率，也支持目前Blog所使用的新技术。

    系统配置：
    服务器：Windows 2000及IIS5.0以上，需要ADO数据库、FSO、XMLDOM、ADODB.stream、VBScript 5.6以上脚本解释器等系统组件支持。
　　客户端：支持IE6.0及以上版本、Mozilla FireFox 1.0及以上版本、Opear 8及以上版本、Safari。客户端需要JavaScript脚本支持。原则上只要支持W3C网页标准的浏览器皆能正确浏览。

    主要功能和特点：
　　支持全静态化、半静态化、动态化三种页面生成模式；
　　多浏览器相容，能够相容IE、Firefox、Safari等主流浏览器；
　　功能强大的文章编辑器，同时兼容两种编辑方式，在线编辑器采用FCKEditor；
　　PJBlog3采用的UBB编辑器由Blog作者独立开发，支持自定义面板和CSS，内建HTML转换UBB代码功能；
　　自定义模块，可以自己修改页面上的的布局。可以让不懂制作网页的用户也能自己增加和修改页面上的版块；
　　自定义Skin功能，随时可以给自己的Blog换上新的CSS样式界面；
　　自定义分类，可以同时定制外部连接分类和Blog内置分类，可以自定义分类显示的位置，由用户自己定义顶部导航条和侧边导航条；
　　权限分组，管理员还可以对每个分组成员指定上传文件的权限等等；
　　Blog数据采用缓存方式保存，减轻服务器负担和增加运行速度；
　　用户密码用SHA1算法加密。

    PJblog3 版权申明
　　PJBlog3程序版权归作者陈子舜(PuterJam) 所有。使用者必须遵循创作共用（Creative Commons）协议你可以免费: 拷贝、分发、呈现和表演当前作品,制作派生作品,但是不得移除 PJBlog3 标识。非商业用途。你不可将当前作品用于商业目的。

    PJblog开发历程
　　PL-Blog 1.0b(L-blog 1.06的基础上修改) 2004-8-20 11:30 发布
　　PL-Blog 1.1 2004-09-13发布
　　PL-Blog V1.2 2004-09-13发布
　　PL-Blog 1.2 (SP2) 2004-12-01发布
　　PL-Blog 2 2005-02-16开始制作
　　L-Blog 1.2的升级(PL-Blog 2)正式更名为PJ-Blog2 2005-06-20
　　PJBlog2 2005-07-26发布
　　PJBlog2 2.1.0802 2005-08-02发布
　　PJBlog2 繁体中文发布站开通 2005-09-05
　　PJBlog2 v2.3.0905 2005-09-06发布
　　PJBlog2 v2.6 2006-07-02发布
　　PJBlog2 v2.7 Build05 2007-11-09发布
　　PJBlog3 v2.8.5.150 2008-08-25发布
　　PJBlog3.0 最终版 v3.0.6.170 发布 2009-2-24 发布
　　PJBlog3 3.1.6.227 公测版本发布 2009-5-26 发布
　　......

     PJblog3相关资源
　　随着PJBLOG3的开发，PJBLOG3项目已经架设到了Google Code上，项目所有进展情况及程序源码更新均会在Google Code和PJblog官方网站上及时公布。PJHOME BBS是PJblog的官方技术论坛，论坛汇集有PJblog基础使用教程及常用问题解决集、成千的PJblog皮肤、各种强大的功能扩展源码及绿色易用的后台插件，是pjblog用户使用交流的聚集地。
　　PJBlog3 最终版主要更新功能
　　1. 增加了'别名系统'，利于SEO。
　　以特定分类名作为目录名,比如
　　http://你的网址/article/分类目录自定义/生成页面自定义.html
　　后台操作FSO能准确移动删除更新文章
　　兼容日志加密功能
　　对SEO友好,使文章更容易本搜索引擎收录
　　2. 修复了Cookie不能保存的问题。
　　3. 修复了[mdown]标签在静态下失效的问题。
　　4. 对友情链接的批量删除。
　　5. snail.rison进行了部分BUG修复。
　　6. 建立Ajax模型。
　　7. 对代码进行优化。
　　8. 其他修正，修正以往版本中存在的已知问题，具体细节不再一一描述。
　　PJhome BBS官方论坛：http://bbs.pjhome.net
　　PuterJam个人官方博客：http://www.pjhome.net
　　PJblog Code：http://code.google.com/p/pjblog
　　PJblog3非官方资源站：http://www.pjblog3.com.cn

答辩结束了，都要结束了

2009-6-14 13:15:46

    不知道怎么了，从起床到现在答辩完，总感觉不舒服，但也说不出哪里不舒服。答辩进行了4个多小时，说实话-很无聊，好的论文确实有，但很大一部分感觉做了根本没什么意义，包括自己的论文，我也说不出来到底干了什么，采集--计数、称量--数据统计--结论--完稿，三个月下来，是感觉挺累的，看着一大堆数据也挺欣慰的，但总感觉不像是论文，而只是例行的调查。
   不管怎样，现在一切都要结束了，也要离开海大了。多少有点留恋，毕竟是待了整整4年的地方，生活、学习。。。天下没有不散的宴席，希望认识我的和我认识的每位同学和老师，都有份好的工作，有好的发展前途。
   该说再见的时候了，我们一定会再见的。

论文终于要答辩了，大学生活也要面临结束

2009-6-12 8:34:56

    答辩时间定在了14号，忙活了3个多月终于要结束了。这几天更是累的要死，提交申请，论文完稿，打印，PPT制作（为了制作PPT自己专门PS的模版，第一次PS出自己比较满意的东西），昨天急急忙忙跑去打印，人家下班了，今天得排队打印了，打印完还得去找一堆老师签字画押，晕死啊。
   今天恐怕得忙活一整天了。
   不过，忙归忙，没有忘记写PJ平台的权限管理程序，昨天熄灯后又写了2个多小时，基本把主干程序全部写出来了，剩下的就是一些小的细节和与其他模块整合的问题了，答辩完后全力写程序。
   眼看大学生活就要结束了，说实话，感觉有点遗憾，不后悔自己学习编程以及网页制作，因为自己的学习有成果了。唯一有一点感觉不舒服的是没有学好自己专业，既然以经这样，剩下的就靠自己的努力打拼了，不仅仅是为了家人，更是为自己的前途打拼。
   给自己加油！加油努力！

PJBlog，我们一起加油

2009-6-10 23:38:53

这两天大体把PJ的程序看了下，PJ还是一个很不错的系统，拥有广大的用户群以及支持者，以及无数的插件开发者，是一个最易用的博客系统，完全支持皮肤、插件、以及自定义页面。PJ是一个完全开源的系统，只要一个ASP的初学者就能完全看懂和修改代码，系统并没有进行高度的封装，在GoogleSvn可以查看所有源码及开发进度。
非常感谢evio的邀请，加入一个开发团队，这也是一直以来的一个小目标，我喜欢很多人一起讨论一起开发的感觉，在PJ，我也会努力工作，争取和大家一起把PJ做的更好，敬请大家拭目以待不久的新版本。

网页刷新后保持菜单的原状态

2009-5-24 0:09:56

一般菜单刷新后，当前的选中状态会失效，本代码用cookie和jquery来解决这个问题，代码如下；
其中，jquery仅仅用了他的each方法，以减少代码量，你完全可以把onclick事件要执行的代码分离出来，然后通过其他方式调用，而不是像我这样批量处理

 
     
     艾恩ASP学习Blog-天下没有免费的午餐,这里有免费的Asp大餐
     
         
         $(document).ready(function(){
    $("#menu > a").each(function(i){
                this.onclick=function(){
                        cookie.SET("Aien_currentID",this.id,365);
                };
    });
    var currentID=cookie.GET("Aien_currentID");
    if(currentID!=null){
                $("#" + currentID).css({"background-color":"#eee","color":"red"});
    }
});
var cookie={
    SET        : function(name, value, days) {var expires = "";if (days) {var d = new Date();d.setTime(d.getTime() + days * 24 * 60 * 60 * 1000);expires = "; expires=" + d.toGMTString();}document.cookie = name + "=" + value + expires + "; path=/";},
        GET        : function (name) {var re = new RegExp("(\;|^)[^;]*(" + name + ")\=([^;]*)(;|$)");var res = re.exec(document.cookie);return res != null ? res[3] : null;}
};
         
 

 
  
     
          首页
          心情日志
          程序随笔
          资源分享

          艾恩作品
          留言簿
      

下载源码

Asp用来生成json数据的类

2009-5-20 15:30:52

艾恩Asp生成Json数据类
除jsEncode函数为json官方类函数外，其他内容均原创，转载请注明出处
http://dev.mo.cn QQ:1034555083 Email:zhanghuiguoanlige@126.com

1.支持生成对象和数组两种json数据格式，通过设置JsonType来选择，本属性有两个可用值object和array；
2.json中的数据支持数字(整形，单精度，双精度)、字符串、日期、布尔值、数组以及对象
3.程序会自动转换vb数组为js数组，添加到json对象
4.重名键值，程序会自动以,分隔，仅限于数字、字符串、日期等基本数据类型
5.支持json数据无限嵌套，示例中最多嵌套了3层
下载地址 http://dev.mo.cn/source_186.html

哈，写了个迅雷漫画频道的采集程序，分享出来

2009-5-13 10:57:23

本程序可以采集迅雷漫画频道所有的漫画，

  本程序功能:
  1.提供多种检索方式，可以按字母，类型，状态，地区，颜色以及页码进行检索
  2.各种检索方式都提供缓存机制，第一次加载可能会比较慢，第二次加载会比较快
  3.既可以在线浏览，也可以采集到本地收藏
  4.直接在右边点击链接是在线浏览；选中后，点击下面的"批量采集"，会自动保存到本地
  5.程序根据漫画名和卷名称或话名称自动建立文件夹

  声明: 本程序为作者原创，请保留页面底部信息；
漫画来源为迅雷漫画频道，请勿将采集结果用于非法用途；否则，一切法律后果自负。

  注意: 因为是采集程序，如果某个类别下的漫画项目过多，加载时间可能会过长，请耐心等待；
加载速度取决于服务器和迅雷之间的通讯状况
可以到这里来下载：http://dev.mo.cn/source_185.html
  QQ:1034555083/Email:zhanghuiguoanlige@126.com

男朋友和男的朋友的区别

2009-4-29 10:43:26

         男的朋友：半夜会找你打电话聊天到很晚。　
　　　男朋友：半夜看你在网上会赶你下线。　
　　　男的朋友：他会找你出去玩，叫你放弃正事或逃课。　
　　　男朋友：他会催你快写作业，或者与你讨论功课。　
　　　男的朋友：在你生病时，会讲好话关心你。　
　　　男朋友：在你生病时，他会关心到你烦，并强迫你去看医生。　
　　　男的朋友：他会尽量说好话来讨好你，你也会觉得他很棒。　
　　　男朋友：他所说的话，都是关心你的，但通常象是在命令。　
　　　男的朋友：他什么事情都配合着你，只要你高兴。　
　　　男朋友：他会帮你辨别是非，但你会觉得他管得太多。　
　　　男的朋友：他会说他要给你最大的快乐。　
　　　男朋友：他只能给你保证，你跟他在一起，他是最快乐的。　
　　　男的朋友：他在意你的生活细节，即使你做错了什么，他也不会指出来。　
　　　男朋友：他会注意你的一举一动，告诉你什么地方做错了，什么地方该如何做，该　　
　　　如何与别人交往。　
　　　男的朋友：他会帮你买夜宵，送夜宵，载你上下课或上下班。　
　　　男朋友：他会帮你吃夜宵，不过他会提醒你吃什么比较健康；他会载你上下课或上　
　　　下班，但通常是顺路，因为他不会为你逃课或旷工。因为他知道，他要为你们的将　　
　　　来而努力。　
　　　男的朋友：他不在意你去做什么，与什么人交往。　
　　　男朋友：他很在意你做什么，与什么人交往。他还会告诫你不要与什么人交往。　
　　　男的朋友：他只想现在。　
　　　男朋友：他已经预见将来，该怎么自我努力，好好给你幸福。　
　　　男的朋友：他会说，我喜欢你。　
　　　男朋友：他会说，我爱你

用于Asp的base64编码/解码函数

2009-4-29 0:45:06

网上很多关于base64编/解码的代码，找到的这个是最好的了，有个不尽人意的地方是--编/解码调用一堆函数，我给增加了2个函数用来编/解码,调用方法：
将第二段代码保存到base64.inc,在需要编码的页面将base64.inc包含进来，调用相应函数即可，例如

<%
'---------------------------------------------------------------------------------
str="我爱你tandy"
encodestr=encode64(str) '编码
response.write encodestr & ""
response.write decode64(encodestr) & "" '解码
%>

代码段二：

<%
sBASE_64_CHARACTERS = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/"
sBASE_64_CHARACTERS = strUnicode2Ansi(sBASE_64_CHARACTERS)

'计算unicode字符串的Ansi编码的长度
Function strUnicodeLen(asContents)
 '计算unicode字符串的Ansi编码的长度
 asContents1="a"&asContents
 len1=len(asContents1)
 k=0
 for i=1 to len1
  asc1=asc(mid(asContents1,i,1))
  if asc1<0 then asc1=65536+asc1
  if asc1>255 then
   k=k+2
  else
   k=k+1
  end if
 next
 strUnicodeLen=k-1
End Function

'将Unicode编码的字符串，转换成Ansi编码的字符串
Function strUnicode2Ansi(asContents)
 '将Unicode编码的字符串，转换成Ansi编码的字符串
 strUnicode2Ansi=""
 len1=len(asContents)
 for i=1 to len1
  varchar=mid(asContents,i,1)
  varasc=asc(varchar)
  if varasc<0 then varasc=varasc+65536
  if varasc>255 then
   varHex=Hex(varasc)
   varlow=left(varHex,2)
   varhigh=right(varHex,2)
   strUnicode2Ansi=strUnicode2Ansi & chrb("&H" & varlow ) & chrb("&H" & varhigh )
  else
   strUnicode2Ansi=strUnicode2Ansi & chrb(varasc)
  end if
 next
End function

'将Ansi编码的字符串，转换成Unicode编码的字符串
Function strAnsi2Unicode(asContents)
 '将Ansi编码的字符串，转换成Unicode编码的字符串
 strAnsi2Unicode = ""
 len1=lenb(asContents)
 if len1=0 then exit function
 for i=1 to len1
  varchar=midb(asContents,i,1)
  varasc=ascb(varchar)
  if varasc > 127 then
   strAnsi2Unicode = strAnsi2Unicode & chr(ascw(midb(asContents,i+1,1) & varchar))
   i=i+1
  else
   strAnsi2Unicode = strAnsi2Unicode & chr(varasc)
  end if
 next
End function

'将Ansi编码的字符串进行Base64编码
Function Base64encode(asContents)
 '将Ansi编码的字符串进行Base64编码
 'asContents应当是ANSI编码的字符串（二进制的字符串也可以）
 Dim lnPosition
 Dim lsResult
 Dim Char1
 Dim Char2
 Dim Char3
 Dim Char4
 Dim Byte1
 Dim Byte2
 Dim Byte3
 Dim SaveBits1
 Dim SaveBits2
 Dim lsGroupBinary
 Dim lsGroup64
 Dim m4,len1,len2

 len1=Lenb(asContents)
 if len1<1 then
  Base64encode=""
  exit Function
 end if

 m3=Len1 Mod 3
 If M3 > 0 Then asContents = asContents & String(3-M3, chrb(0))
 '补足位数是为了便于计算
 IF m3 > 0 THEN
  len1=len1+(3-m3)
  len2=len1-3
 else
  len2=len1
 end if
 lsResult = ""
 For lnPosition = 1 To len2 Step 3
  lsGroup64 = ""
  lsGroupBinary = Midb(asContents, lnPosition, 3)
  
  Byte1 = Ascb(Midb(lsGroupBinary, 1, 1)): SaveBits1 = Byte1 And 3
  Byte2 = Ascb(Midb(lsGroupBinary, 2, 1)): SaveBits2 = Byte2 And 15
  Byte3 = Ascb(Midb(lsGroupBinary, 3, 1))
  
  Char1 = Midb(sBASE_64_CHARACTERS, ((Byte1 And 252) \ 4) + 1, 1)
  Char2 = Midb(sBASE_64_CHARACTERS, (((Byte2 And 240) \ 16) Or (SaveBits1 * 16) And &HFF) + 1, 1)
  Char3 = Midb(sBASE_64_CHARACTERS, (((Byte3 And 192) \ 64) Or (SaveBits2 * 4) And &HFF) + 1, 1)
  Char4 = Midb(sBASE_64_CHARACTERS, (Byte3 And 63) + 1, 1)
  lsGroup64 = Char1 & Char2 & Char3 & Char4
   
  lsResult = lsResult & lsGroup64
 Next
  
 '处理最后剩余的几个字符
 if M3 > 0 then
  lsGroup64 = ""
  lsGroupBinary = Midb(asContents, len2+1, 3)
  
  Byte1 = Ascb(Midb(lsGroupBinary, 1, 1)): SaveBits1 = Byte1 And 3
  Byte2 = Ascb(Midb(lsGroupBinary, 2, 1)): SaveBits2 = Byte2 And 15
  Byte3 = Ascb(Midb(lsGroupBinary, 3, 1))
  
  Char1 = Midb(sBASE_64_CHARACTERS, ((Byte1 And 252) \ 4) + 1, 1)
  Char2 = Midb(sBASE_64_CHARACTERS, (((Byte2 And 240) \ 16) Or (SaveBits1 * 16) And &HFF) + 1, 1)
  Char3 = Midb(sBASE_64_CHARACTERS, (((Byte3 And 192) \ 64) Or (SaveBits2 * 4) And &HFF) + 1, 1)
   
  if M3=1 then
   lsGroup64 = Char1 & Char2 & ChrB(61) & ChrB(61) '用=号补足位数
  else
   lsGroup64 = Char1 & Char2 & Char3 & ChrB(61) '用=号补足位数
  end if
   
  lsResult = lsResult & lsGroup64
 end if
  
 Base64encode = lsResult  
End Function

'将Base64编码字符串转换成Ansi编码的字符串
Function Base64decode(asContents)
 '将Base64编码字符串转换成Ansi编码的字符串
 'asContents应当也是ANSI编码的字符串（二进制的字符串也可以）
 Dim lsResult
 Dim lnPosition
 Dim lsGroup64, lsGroupBinary
 Dim Char1, Char2, Char3, Char4
 Dim Byte1, Byte2, Byte3
 Dim M4,len1,len2
 
 len1= Lenb(asContents)
 M4 = len1 Mod 4
 
 if len1 < 1 or M4 > 0 then
  '字符串长度应当是4的倍数
  Base64decode = ""
  exit Function
 end if

 '判断最后一位是不是 = 号
 '判断倒数第二位是不是 = 号
 '这里m4表示最后剩余的需要单独处理的字符个数
 if midb(asContents, len1, 1) = chrb(61) then m4=3
 if midb(asContents, len1-1, 1) = chrb(61) then m4=2
 
 if m4 = 0 then
  len2=len1
 else
  len2=len1-4
 end if

 For lnPosition = 1 To Len2 Step 4
  lsGroupBinary = ""
  lsGroup64 = Midb(asContents, lnPosition, 4)
  Char1 = InStrb(sBASE_64_CHARACTERS, Midb(lsGroup64, 1, 1)) - 1
  Char2 = InStrb(sBASE_64_CHARACTERS, Midb(lsGroup64, 2, 1)) - 1
  Char3 = InStrb(sBASE_64_CHARACTERS, Midb(lsGroup64, 3, 1)) - 1
  Char4 = InStrb(sBASE_64_CHARACTERS, Midb(lsGroup64, 4, 1)) - 1
  Byte1 = Chrb(((Char2 And 48) \ 16) Or (Char1 * 4) And &HFF)
  Byte2 = lsGroupBinary & Chrb(((Char3 And 60) \ 4) Or (Char2 * 16) And &HFF)
  Byte3 = Chrb((((Char3 And 3) * 64) And &HFF) Or (Char4 And 63))
  lsGroupBinary = Byte1 & Byte2 & Byte3

  lsResult = lsResult & lsGroupBinary
 Next

 '处理最后剩余的几个字符
 if M4 > 0 then
  lsGroupBinary = ""
  lsGroup64 = Midb(asContents, len2+1, m4) & chrB(65) 'chr(65)=A，转换成值为0
  if M4=2 then '补足4位，是为了便于计算
   lsGroup64 = lsGroup64 & chrB(65)
  end if
  Char1 = InStrb(sBASE_64_CHARACTERS, Midb(lsGroup64, 1, 1)) - 1
  Char2 = InStrb(sBASE_64_CHARACTERS, Midb(lsGroup64, 2, 1)) - 1
  Char3 = InStrb(sBASE_64_CHARACTERS, Midb(lsGroup64, 3, 1)) - 1
  Char4 = InStrb(sBASE_64_CHARACTERS, Midb(lsGroup64, 4, 1)) - 1
  Byte1 = Chrb(((Char2 And 48) \ 16) Or (Char1 * 4) And &HFF)
  Byte2 = lsGroupBinary & Chrb(((Char3 And 60) \ 4) Or (Char2 * 16) And &HFF)
  Byte3 = Chrb((((Char3 And 3) * 64) And &HFF) Or (Char4 And 63))

  if M4=2 then
   lsGroupBinary = Byte1
  elseif M4=3 then
   lsGroupBinary = Byte1 & Byte2
  end if

  lsResult = lsResult & lsGroupBinary
 end if

 Base64decode = lsResult

End Function

function encode64(byval str)
        encode64=strAnsi2Unicode(Base64encode(strUnicode2Ansi(str)))
end function

function decode64(byval str)
        decode64=strAnsi2Unicode(Base64decode(strUnicode2Ansi(str)))
end function
%>

利用404错误页实现整站静态化-本站采用的方法

2009-4-20 23:53:33

原理说明：
1.请求http://dev.mo.cn/source_175.html的时候，出现404错误，会转向404.asp，但浏览器地址不会变，
这时候的request.querystring的值类似于：404;http://dev.mo.cn/source_175.html

2.然后在404.asp分析这个request.querystring，找出你要transfer的地址(使用正则，我的是detial.asp)，

3.server.transfer("detial.asp")后，request.querystring会传递到detial.asp

4.在detial.asp分析http://dev.mo.cn/source_175.html,主要是分析source_175.html,我的程序是用_分割，分隔后的数组第二个项就是id，然后修改你源程序获取参数的方法为这种方法

5.下面就是你原来的程序

这样，整个流程就结束了，具体实现方法比较复杂，包括正则分析，参数分析，参数获取等

具体实例请下载Demo包进行查看http://dev.mo.cn/upfiles/20090608160059216.rar

win2003服务器的基本安全

2009-4-16 14:26:58

以下是一台win2003服务器的基本安全，设置完相对会安全些。

1，打全补丁
   新装好的系统直接用360安全卫士打补丁最快。还有就是别忘记查查系统是不是已经是SP2了。有时机房给装的是sp1的。那就必须下载sp2。
   打开自动更新(我的电脑，右键属性，自动更新)。一般默认是晚上3：00自动更新并重启。这比较重要。如果不是一定不能重启的机器，这个一定要开。不然机器一多，你平时没空管，那有新补丁出来你也就没给服务器打上了。

2，帐号安全
   1)禁用guest帐号并改名。
   2)网站IIS帐号最好用独立的。（网站目录也是）
   3)用户名和密码一定不能用容易被人猜到的。最好用杂乱的 7uxj2A这类。例如你是sms服务器，你密码用smsserver就是弱密码，容易被人猜到。人家只要通过你某个漏洞查到你的管理员名字就直接进了。
   4）不让系统显示上次登录的用户名，具体操作如下：修改注册表“HKLM\Software\Microsoft\WindowsNT\Current Version\Winlogon\Dont Display
Last User Name”的键值，把REG_SZ 的键值改成1。

3，修改远程端口
   运行--> regedit
   查找 portnumber，查以的所有原来为：3389的，全部更换为你的新端口号。（同样如果你的防火墙原来有开了，记得要更改端口号，否则一重启就生效，你就连不进服务器了）

4，关闭无用服务
   管理工具- 服务（这里仅列出默认装好的SP2系统要关闭的，要更高安全还有其它的要关，但会影响到其它服务）
   DHCP Client 停用，禁用。这是自动分配IP用的，正常的服务器我们都有指定了固定IP了，所以这个服务多余了。
   Print Spooler 停用，禁用，打印服务，服务器谁能用来打印？
   Remote Registry 停用，禁用，远程注册表操作，无用。漏洞。
   Wireless Configuration 停用，禁用，服务器都是用网卡的，都不需要无线网卡，如果这个不关掉，去设置网卡属性的时候老是会弹出个东西，极度不爽。所以一定要关掉。
   TCP/IP NetBIOS Helper  停用，禁用。常用漏洞。


5，开启win2003自带的防火墙。
   虽然这个系统网卡里的自带防火墙并不强，但是有总比没有好。至少不会把一些现成的漏洞直接暴露到黑客眼前。
   网上邻居-右键属性-网卡-右键属性
   1）删除文件共享服务。- 服务器哪里需要和别人共享？！
   2）打开防火墙 - 记得设置好端口再打开，否则没设置好就连不上远程桌面了。

6，关掉关机提醒
   关机或注销的时候老弹出个提示要你填原因。麻烦。
   运行：gpedit.msc ，计算机配置 - 管理模板 - 系统
   显示 “关闭事件跟踪程序”- 选 “已禁用”

7，管理工具-- 本地安全策略
   这个也比较重要，当你系统出漏洞的时候，有时候你都不知道人家从哪里进的，因为你日志什么都没开。
   安全策略--本地策略-- 审核策略 (这里正常是这么设置：第1，2项和最后两项，选上成功与失败，其余的只记录失败)
   本地策略--安全选项 - 可远程访问的注册表路径和子路径（有两项），清空。

8，IIS安全及优化
   直接删掉默认站点，删除c:\Inetpub ，(早期这个下面会有漏洞，现在应该没了，但留着也碍眼)
   关掉默认的FTP服务，系统有时候有些装机的人会给装上FTP服务，最好关掉。
   站点属性-- 主目录--配置 --里面有一些如 .cdx .cer .idc要删掉。这是非常老的漏洞。不管现在还能不能用，删了最好。
   主目录下，执行权限，普通的网站，只能给“纯脚本”权限，这样正常的php,asp..net这些就已经可以运行了。有些新手选择了“脚本和可执行文件”，天大的漏洞，我传个.exe上来，直接IE用URL来执行.exe都可以了。所以这里千万要小心。
   WEB服务扩展- 看具体情况打开。服务器安全有一个准则：不用的服务坚决不打开。

   关闭IIS错误日志，经常服务器C盘被占满，都是这个原因。直接关了。(日志文件在C:\WINDOWS\system32\LogFiles\HTTPERR)
   http://www.1982y.com/soft2222/httperr.rar （下载后把后缀改为.reg，执行，重启生效）

关于sql语句使用变量的问题

2009-4-12 10:24:08

(下例中表名为table,字段id为数字，字段uname为文本)

一、通过ID检索
sql="select * from table where id=1"
等价于
dim t:t="table"
dim n:n=1 'dim n:n="1",这样写也没问题
sql="select * from " & t & " where id=" & n & ""

二、通过uname检索,uname用变量表示了
sql="select * from table where uname='anlige'"
等价于
dim t:t="table"
dim n:n="anlige"
dim field:field="uname"
sql="select * from " & t & " where " & field & "='" & n & "'"

其实，只要注意一个问题就好，就是组合起来的SQL语句是合法的
想检查是不是合法，只要输出下SQL语句，就能很明显的看出来

flash钢琴，附歌谱

2009-4-11 22:13:52

http://dev.mo.cn/upfiles/music.swf

今天发现个有意思的玩意，发上来给大家玩玩。
先用鼠标在钢琴上点一下。键盘输入字母
歌谱：
童话：LONOL LONOL LONO OOMML LONOL LQPPO LONOM MMOTS PPRRQQ QQNPOONO ONOR LSRQP PPRRQQ QQVUTUV VPOT TTSSS
LSRQQRQ QRQ RQPO OQST TTSPPRQ OQST TTSPPRQRQPO PQMMOONO
月亮代表我的心
LOQSONQS STUVTS QPOOO QPOOO PQPOMPQP
LOQSONQS STUVTS QPOOO QPOOO PQPMNOPO
QSQPOSN MNMNMLQ SQPOSN MNOOOPQP
LOQSONQS STUVTS QPOOO QPOOO PQPMNOPO
痴心绝对
OPQQQRQPPOPPSP ONOOOQQOOMNNQN
MLMMMRRQSO MLMMMRROOMP
OOPQQQRQPPOPPSP ONOOOQQOOMNNQN
MLMMRRQSO MLMMMRROOONO
北京欢迎你》歌谱
QSQPQPQQPMO QP
北京欢迎你
POMOPQSPQTSSPO
POMOPQSPQTSSQ
PQPOSTQMQPPO
QSVSTTS QQ SS QS TV WV SQ P S Q Q
QS VS TV WV SQ SVT QP QS XW VV
千千阙歌
HHIJ LMONNNLJ
IIIJK MOQPPNL
HHIJ LMONNNLJ
IIIJK MOQPPNL
MLMLMNNMN PPPPNOPQ
QQPPPOQ NLM
LMOPQQPQ QPOP OMM
LMOP QQPQ QSTSQQ
QQPPOPOM QQRQPOP QQ Q P
POP OMOO
会呼吸的痛
STVTXXTW WWVUVWXWSV
VUTUVRRRVVWVSSS SYXWXX
STVTXXTW WWVUVWXWSVV
VUTUVRRRVVWVSSS STUVVUVV

艾恩Asp上传组件(类)最新更新

2009-4-11 15:36:06

艾恩Asp无组件上传类及上传组件最新更新！更新版本为9.4.10，本次更新优化可上传类的代码，修正了用户发现的bug，重新写了简单的示例程序，同时修改了无刷新上传的js代码，对程序进行优化。

本次更新的内容有:

修改AnUpload类的Err属性为ErrorID，防止与系统对象冲突
严格定义各变量，修正了使用Option Explicit选项时的BUG
开放fileAction类的NewName和LocalName的可读属性
修正Ajax无刷新上传时上传3个文件不能上传的BUG
舍弃以前的示例，重新写了示例程序

详细示例请参考http://dev.mo.cn/show.asp?id=192

如何通过使用XMLHTTP发送二进制流

2009-4-10 11:19:23

   本文章摘自 "Microsoft帮助和支持"中心，由于没有测试环境，未对下面代码进行测试
   有些情况下，您可能需要向服务器发送二进制数据流。要这样做，一种方法是使用IXMLHTTPRequest 对象。本文说明如何从服务器中检索 ADO 记录集，修改它，然后将它作为二进制数据流发送回服务器。
  本例使用ADODB.Stream 对象来保存将发送回服务器的二进制数据。如果已经以并列模式安装了更高版本的 MSXML，要使用该特定版本运行示例代码，必须明确使用该版本的 GUID 或 ProgID。例如，MSXML 第 4 版仅在并列模式下安装。请参考以下 Microsoft 知识库文章，了解使用 MSXML 4.0 分析器运行示例代码需要更改哪些代码：Q305019 INFO:MSXML 4.0 Specific GUIDs and ProgIds（MSXML 4.0 特定的 GUID 和 ProgId）。

例如，在以下代码中，您将用 MSXML 4.0 和下面的语句创建对象：
var xmlhttp = new ActiveXObject("Msxml2.XMLHTTP.4.0");
xmldoc = new ActiveXObject("Msxml2.DOMDocument.4.0");
var xmlhttp = new ActiveXObject("Msxml2.XMLHTTP.4.0");
要用 XMLHTTP 向服务器发送二进制数据流，请遵循以下步骤：
1.将下面的代码粘贴到默认 Web 文件夹中的某个文件中并将该文件命名为 Receiver.asp。

<%
dim Connection
dim rs
Connection = "Provider=SQLOLEDB.1;Data Source=servername;User Id=username;Password=password;Initial Catalog=Northwind;"
sql =  "Select * from Customers"


set rs = server.CreateObject("ADODB.Recordset")

if Request.QueryString("getRecordset") = "YES" then
        rs.ActiveConnection = Connection
        rs.CursorLocation = 3 'Client Side
        rs.CursorType = 3 'Static Recordset
        rs.LockType = 4 'Batch Optimistic
        rs.Open sql
        rs.Save response, 1 'persist adPersistXML
        Response.End
else
        rs.open Request '.BinaryRead(Request.TotalBytes)
        rs.activeconnection = Connection 'Reconnect
        rs.updatebatch 'Update adAffectAll
        rs.close
        Response.Write "Recordset Saved" 'Send back response
        Response.End
end if

%>

2.将下面的代码粘贴到默认 Web 文件夹中的某个文件中并将该文件命名为 Sender.asp

3.修改 Receiver.asp 页，使连接变量包含 Microsoft SQL Server 名称和有效的 SQL 用户 ID 和密码。
4.启动 Microsoft Internet Explorer，然后浏览到 http://localhost/sender.asp。
5.单击Get Recordset（获得记录集）。出现一个消息框，告诉您记录集已成功加载。
6.单击Update（更新）。出现一个消息框，显示更新前的值。出现第二个消息框，显示更新后的值。
7.单击Send Recordset（发送记录集）。出现一个消息框，告诉您记录集已更新。

虽然这使您可以使用持久的机制向客户端来回传递数据，但在 SQL Server 2000 中，建议您使用 UpdateGrams 或OpenXML 来传递和发送 XML 格式的记录集数据。
成形记录集 (Shaped Recordset) 中有些限制。编辑过的成形记录集不能以 XML 格式保持。另外，参数化的成形命令根本不可能保持。有关保持和限制的其他相关信息，请参见下面的 Microsoft Developer Network (MSDN) Web 站点：
XML Persistence Format（XML 持久格式）
http://msdn.microsoft.com/library/psdk/dasdk/xmli3vsk.htm

XML技术上传文件

2009-4-10 11:14:16

为了在HTML网页中获得上传功能，在客户端我们可以使用如下格式的FORM：

< FORM NAME="myForm" ACTION="TargetURL.asp" ENCTYPE="multipart/form-data"METHOD="post" >
< INPUT TYPE="file" NAME="myFile" >
< INPUT TYPE="submit" VALUE="Upload File" >
< /FORM >

　　这种方案在客户端和服务器端的使用都有很多限制。首先，我们必须使用POST方法，因为GET方法无法处理这样的表单数据。并且，没有什么方法可以在不使用表单的情况下引发一个POST动作。把数据发送给表单处理程序后，浏览器将会把处理程序作为新页面加载，然后使用者会看到一个不讨人喜欢的页面转换过程。

　　ENCTYPE属性为表单定义了MIME编码方式，上传文件的表单的ENCTYPE属性必须使用“multipart/form-data”。把这个属性设置为“multipart/form-data”就创建了一个与传统结构不同的POST缓冲区（复合结构），ASP的Request对象无法访问这样的表单内容。所以，我们可以使用Request.binaryRead方法来访问这些数据，但是无法使用脚本语言来完成这一切。Request.binaryRead方法返回一个VTarray型数据（只包含无符号一字节字符的Variant型数组）。但是脚本语言只能处理Variant型数据。为了解决这个问题，只能使用专用的ASP上传组件，或者ISAPI扩展程序，比如CPSHOST.DLL。这是设计上的限制。

新的上传方案

需要按照如下步骤操作。
客户端：

使用MSXML 3.0创建一个XML文档
创建一个针对二进制内容的XML节点
使用ADO Stream object将上传的文件数据放入该节点
使用XMLHTTP对象把这个XML文档发送给Web服务器

服务器端：

　　从Request对象中读出XML文档读出二进制节点中的数据并且存储到服务器上的文件中。当然，我们也可以将其存储到数据库的BLOB型字段中。
　　在解释这段代码之前，我们可以对这个方案进行一些思考。

对XML的思考

　　XML格式支持很多数据类型，比如numeric, float, character等等。很多作者将XML定义为ASCII格式，但是我们不能忽视，XML技术还可以使用“bin.base64”数据类型来描述二进制信息。这个特性在MS XML3.0解析器重得到完全的支持，但是目前还需要一些特别设置。该对象提供一些可以对二进制数据进行完全控制的属性：

　　obj_node.dataType - 该可读写的属性定义了特定节点的数据类型。MSXML解析器支持更多的数据类型（参见MSDN：http://msdn.microsoft.com/library/psdk/xmlsdk/xmls3z1v.htm）
对于二进制数据，我们可以使用“bin.base64”类型。

　　obj_node.nodeTypedValue - 该可读写属性包含了按照制定类型表示的指定节点的数据。
我们可以创建一个包含多个bin.base64类型节点的XML文档，节点中包含上传的文件。这点特性可以使用一个POST一次上传多个文件。

　　我们可以使用XMLHttpRequest对象和POST方法发送一个XML文档给Web服务器。该对象为HTTP服务器提供了客户端协议支持，允许在Web服务器上发送和接受MS XMLDOM对象。XMLHttpRequest是Internet Explorer 5内置的COM对象（不需要定制安装），并且发送完毕后无需转换页面。

对ADO Stream对象的思考

　　我们可以在客户端创建一个包含一个或者多个二进制节点的XML文档。我们还必须把文件内容填入节点中。但是很不幸，脚本语言不能访问本地文件系统，并且Scripting.FileSystem对象（是Win32系统的内置对象）到目前为止还不能访问二进制文件。这是设计上的限制。所以我们需要另外找一个可以提供对本地二进制文件的访问的COM对象。

　　ADO Stream对象（MDAC 2.5中的组件）提供了读、写和管理二进制流数据的手段。字节流的内容可以是文本，或者二进制数据，并且没有容量上的限制。在ADO 2.5中，Microsoft对Stream对象的介绍不属于ADO对象结构的任何一层，所以，我们无需捆绑即可使用该对象。

　　本文中使用Stream对象来访问文件内容，再把内容存入XML节点。

客户端

以下示例代码使用Stream和MSXML对象完成文件上传动作。

< HTML >
< HEAD >< TITLE >File Send< /TITLE >< /HEAD >
< BODY >
< INPUT id=btn_send name="btn_send" type=button value="FILE SEND" >
< DIV id=div_message >Ready


< /BODY >
< /HTML >

< SCRIPT LANGUAGE=JavaScript >

// 上传函数
function btn_send.onclick()
{
// 创建 ADO-stream 对象
var ado_stream = new ActiveXObject("ADODB.Stream");

// 创建包含默认头信息和根节点的 XML文档
var xml_dom = new ActiveXObject("MSXML2.DOMDocument");
xml_dom.loadXML(' ');
// 指定数据类型
xml_dom.documentElement.setAttribute("xmlns:dt", "urn:schemas-microsoft-com:datatypes");

// 创建一个新节点，设置其为二进制数据节点
var l_node1 = xml_dom.createElement("file1");
l_node1.dataType = "bin.base64";
// 打开Stream对象，读源文件
ado_stream.Type = 1; // 1=adTypeBinary 
ado_stream.Open(); 
ado_stream.LoadFromFile("c:\\tmp\\myfile.doc");
// 将文件内容存入XML节点
l_node1.nodeTypedValue = ado_stream.Read(-1); // -1=adReadAll
ado_stream.Close();
xml_dom.documentElement.appendChild(l_node1);

// 可以创建多个二进制节点，一次上传多个文件

// 把XML文档发送到Web服务器
var xmlhttp = new ActiveXObject("Microsoft.XMLHTTP");
xmlhttp.open("POST","./file_recieve.asp",false);
xmlhttp.send(xml_dom);
// 显示服务器返回的信息
div_message.innerHTML = xmlhttp.ResponseText;
}
< /SCRIPT >

服务器端

以下代码使用相同的对象提供服务器端的上传处理功能。

< %@ LANGUAGE=VBScript% >
< % Option Explicit
Response.Expires = 0 

' 定义变量和对象。
dim ado_stream
dim xml_dom
dim xml_file1

' 创建 Stream 对象
set ado_stream = Server.CreateObject("ADODB.Stream")
' 从Request对象创建 XMLDOM对象
set xml_dom = Server.CreateObject("MSXML2.DOMDocument")
xml_dom.load(request)
' 读出包含二进制数据的节点
set xml_file1 = xml_dom.selectSingleNode("root/file1")

' 打开Stream对象，把数据存入其中 
ado_stream.Type = 1 ' 1=adTypeBinary 
ado_stream.open 
ado_stream.Write xml_file1.nodeTypedValue
' 文件存盘
ado_stream.SaveToFile "c:\tmp\upload1.doc",2 ' 2=adSaveCreateOverWrite 
ado_stream.close

' 销毁对象 
set ado_stream = Nothing 
set xml_dom = Nothing
' 向浏览器返回信息
Response.Write "Upload successful!"
% >

也可以使用Stream对象把数据放到数据库的BLOB型字段中。

使用该方法的益处

不引起页面转换。
不需要专用组件。
可同时上传多个文件。

　　这段程序是纯脚本写成的，可以很容易的插入到其他代码中，而不需要任何HTML对象的配合。还可以把这个逻辑在任何支持COM标准的语言中实现。

系统安全考虑

　　该方法只能使用于内部网络，因为它需要IE5的安全级别设置为“低”。必须：

　　允许脚本和ActiveX对象。该设置允许浏览器执行类似 "myobj = new activexobject(...)"的 JScript语句；

　　必须允许穿越域访问数据源。这个设置允许在客户端使用Stream对象。还必须在服务器和客户端都安装MS XML DOM 3.0 和MDAC 2.5 。

强烈推荐的一本JS书籍《悟透JavaScript》

2009-4-10 9:19:52

突然发现这本书的作者太强了，讨论js的同时连物理，哲学，文学...一起讨论了，值得一看，况且内容也不错

下面几个段落摘自本书

段落1

   编程世界里只存在两种基本元素，一个是数据，一个是代码。编程世界就是在数据和代码千丝万缕的纠缠中呈现出无限力。
    数据天生就是文静的，总想保持自己固有的本
   你看，数据代码间的关系与物质能量间的关系有着惊人的相似。数据也是有惯性的，如果没有代码来施加外力，她总保持自己原来的状态。而代码就象能量，他存在的唯一目的，就是要努力改变数据原来的状态。在代码改变数据的同时，也会因为数据的抗拒而反过来影响或改变代码原有的趋势。甚至在某些情况下，数据可以转变为代码，而代码却又有可能被转变为数据，或许还存在一个类似E=MC2形式的数码转换方程呢。然而，就是在数据和代码间这种即矛盾又统一的运转中，总能体现出计算机世界的规律，这些规律正是我们编写的程序逻辑。

段落2

我们知道，数组应该算是线性数据结构，线性数据结构一般有一定的规律，适合进行统一的批量迭代操作等，有点像波。而离散数据结构，适合描述分散的和个性化的东西，有点像粒子。因此，我们也可以这样问：JavaScript里的对象到底是波还是粒子？
如果存在对象量子论，那么答案一定是：波粒二象性！

段落3

还记得儿时那个“小蝌蚪找妈妈”的童话吗？也许就在昨天晚，你的孩子刚好是在这个美丽的童话中进入梦乡的吧。可爱的小蝌蚪也就是在其自身类型不断演化过程中，逐渐变成了和妈妈一样的“类”，从而找到了自己的妈妈。这个童话故事中蕴含的编程哲理就是：对象的“类”是从无到有，又不断演化，最终又消失于无形之中的...

“类”，的确可以帮助我们理解复杂的现实世界，这纷乱的现实世界也的确需要进行分类。但如果我们的思想被“类”束缚住了，“类”也就变成了“累”。想象一下，如果一个生命对象开始的时就被规定了固定的“类”，那么它还能演化吗？蝌蚪还能变成青蛙吗？还可以给孩子们讲小蝌蚪找妈妈的故事吗？

下载地址：upfiles/20090410091404072.rar

“正式”回到学校了

2009-4-9 16:37:47

    回来啦！
   回家待了5天，昨天下午回来啦，回来发现累的要死，不知道怎么了，心情也特别不好，宿舍也不能上网了，就睡了一下午，哈。
   今天大早上又去薛家岛采集生物样品，本来要挖50个蛤蛎的，跑遍整个沙滩就挖了18个(亲自数的，哈哈)。一直忙到下午1点才吃午饭，吃午饭也吃的很郁闷，海边的餐馆太黑，吃碗炒面好几十块钱(人家说里面有鲍鱼，超汗)，9个人要了10个菜1个汤再加主食花了350，很吓人的，以后再也不去那边吃饭了，估计他们也没啥回头客。
   本来打算下午继续去挖挖看，吃完饭大家都没心情了，就坐轮渡(在青岛待了四年，第一次坐，惭愧)直接回青岛了。
   好累。。。Now。。。

清明了，回家看看

2009-4-3 9:15:18

   清明到了，准备回家看看。以前不管什么节日，很少回家过，现在特别想回家了，哈，顺便带上女朋友一起回去。

  下周二才能回来，不在的这几天可能就不会上网了，网站备份一下，暂停维护。如果期间有什么问题，可以将问题发送到我的邮箱，回来的时候我会第一时间查看。

  劳累在网站制作第一线的朋友们借假期好好休息两天，回来继续加油。哈哈

  闪人，回家了！再见，我的朋友们！节日快乐！

  PS：假期联系方式  0539-2886529

乞丐给我上了一课

2009-4-2 22:20:56

我拎着刚买的levis从茂业出来，站在门口等一个朋友。一个职业乞丐发现了我，非常专业的、径直的停在我面前。这一停，于是就有了后面这个让我深感震撼的故事，就象上了一堂生动的市场调查案例课。为了忠实于这个乞丐的原意，我凭记忆尽量重复他原来的话。
"先生……行行好，给点吧。"我一时无聊便在口袋里找出一个硬币扔给他并同他攀谈起来。
乞丐很健谈。"……我只在华强北一带乞讨，你知道吗？我一扫眼就见到你。在茂业买levis，一定舍得花钱……"
"哦？你懂的蛮多嘛！"我很惊讶。
"做乞丐，也要用科学的方法。"他说。
我一愣，饶有兴趣地问"什么科学的方法？"
"你看看我和其它乞丐有什么不同的地方先？"我仔细打量他，头发很乱、衣很破、手很瘦，但都不脏。
他打断我的思考，说："人们对乞丐都很反感，但我相信你并没有反感我，这点我看的出来。这就是我与其它乞丐的不同之处。"
我点头默认，确实不反感，要不我怎么同一个乞丐攀谈起来。
"我懂得swot分析，优势、劣势、机会和威胁。对于我的竞争对手，我的优势是我不令人反感。机会和威胁都是外在因素，无非是深圳人口多和深圳将要市容整改等。 "
"我做过精确的计算。这里每天人流上万，穷人多，有钱人更多。理论上讲，我若是每天向每人讨1块钱，那我每月就能挣30万。但是，并不是每个人都会给，而且每天也讨不了这么多人。所以，我得分析，哪些是目标客户，哪些是潜在客户。"他润润嗓子继续说，"在华强北区域，我的目标客户是总人流量的3成，成功几率70%。潜在客户占2成，成功几率50%；剩下5成，我选择放弃，因为我没有足够的时间在他们身上碰运气。"
"那你是怎样定义你的客户呢？"我追问。
"首先，目标客户。就像你这样的年轻先生，有经济基础，出手大方。另外还有那些情侣也属于我的目标客户，他们为了在异性面前不丢面子也会大方施舍。其次，我把独自一人的漂亮女孩看作潜在客户，因为她们害怕纠缠，所以多数会花钱免灾。这两类群体，年龄都控制在20~30岁。年龄太小，没什么经济基础；年龄太大，可能已结婚，财政大权掌握在老婆手中。这类人，根本没戏，恨不得反过来找我要钱。"
"那你每天能讨多少钱。"我继续问。
"周一到周五，生意差点，两百块左右吧。周末，甚至可以讨到四、五百。"
"这么多？"
见我有些怀疑，他给我算了一笔帐。"和你们一样，我也是每天工作8小时，上午11点到晚上7点，周末正常上班。我每乞讨1次的时间大概为5秒钟，扣除来回走动和搜索目标的时间，大概1分钟乞讨1次得1块钱，8个小时就是480块，再乘以成功几率60%[（70%+50%）÷2]，得到将近300块。"
"千万不能黏着客户满街跑。如果乞讨不成，我决不死缠滥打。因为他若肯给钱的话早就给了，所以就算腆着脸纠缠，成功的机会还是很小。不能将有限的时间浪费在无施舍欲望的客户身上，不如转而寻找下一个目标。"
强！这个乞丐听上去真不可貌相，倒像是一位资深的市场营销总监。
"你接着说。"我更感兴趣了，看来今天能学到新的东西了。
"有人说做乞丐是靠运气吃饭，我不以然。给你举个例子，女人世界门口，一个帅气的男生，一个漂亮的女孩，你选哪一个乞讨？"
我想了想，说不知道。
"你应该去男的那儿。身边就是美女，他不好意思不给。但你要去了女的那边，她大可假装害怕你远远地躲开。"
"再给你举个例子。那天cocopark门口，一个年轻女孩，拿着一个购物袋，刚买完东西；还有一对青年男女，吃着冰淇淋；第三个是衣着考究的年轻男子，拿着笔记本包。我看一个人只要3秒钟，我毫不犹豫地走到女孩面前乞讨。女孩在袋子里掏出两个硬币扔给我，并奇怪我为什么只找她乞讨。我回答说，那对情侣，在吃东西，不方便掏钱；那个男的是高级白领，身上可能没有零钱；你刚从超市买东西出来，身上肯定有零钱。"
有道理！我越听越有意思。
"所以我说，知识决定一切！"我听十几个总裁讲过这句话，第一次听乞丐也这么说。
"要用科学的方法来乞讨。天天躺在天桥上，怎么能讨到钱？走天桥的都是行色匆匆的路人，谁没事走天桥玩，爬上爬下的多累。要用知识武装自己，学习知识可以把一个人变得很聪明，聪明的人不断学习知识就可以变成人才。21世纪最需要的是什么？就是人才。"
"有一次，一人给我50块钱，让我替他在楼下喊'安红，我想你'，喊100声。我一合计，喊一声得花5秒钟，跟我乞讨一次花费的时间相当，所得的酬劳才5毛钱，于是我拒绝了他。
"在深圳，一般一个乞丐每月能讨个千儿八百。运气好时的大概两千多点。全深圳十万个乞丐，大概只有十个乞丐，每月能讨到一万以上。我就是这万中挑一的一个。而且很稳定，基本不会有很大的波动。"
太强了！我越发佩服这个乞丐了。
我常说我是一个快乐的乞丐。其它乞丐说是因为我讨的钱多，所以快乐。我对他们说，你们正好错了。正是因为我有快乐、积极的心态，所以讨的钱多。"
说的多好啊！
"乞讨就是我的工作，要懂得体味工作带来的乐趣。雨天人流稀少的时候，其它乞丐都在抱怨或者睡觉。千万不要这样，用心感受一下这坐城市的美。晚上下班后带着老婆孩子逛街玩耍看夜景，一家三口其乐融融，也不枉此生了。若是碰到同行，有时也会扔个硬币，看着他们高兴的道谢走开，就仿佛看见自己的身影。"
"你还有老婆孩子？"我不禁大声赞叹，引来路人侧目。
"我老婆在家做全职太太，孩子念小学。我在福田区贷款买了一套房，十年分期，
还差六年就还清了。我要努力挣钱，供我儿子读大学念市场营销专业，然后子承父业当一个比我更出色的乞丐。"、
"我5年前在微软大中华区做市场策划，2年前升为营销经理，月薪5千。那时分期付款买了一台1万多的三星笔记本计算机，每个月还款2千，要死要活的。后来我想这样永远也出不了头，就辞职不干了，下海来做乞丐，我愿意做一个高素质的乞丐。"
听完，我激动地说："你有没有兴趣收我做徒弟？"......

超搞笑段子,哈哈

2009-3-31 17:01:41

1.我以后生个儿子名字要叫“好帅”，那别人看到我就会说“好帅的爸爸”
2.工作，退一步海阔天空，爱情，退一步人去楼空。
3.工作的最高境界就是看着别人上班，领着别人的工资。
4.钱不是问题，问题是没钱！
5.喝醉了我谁也不服,我就扶墙!

6.我就像一只趴在玻璃上的苍蝇，前途一片光明，但又找不到出路．
7.大师兄，你知道吗？二师兄的肉现在比师傅的都贵了

8.如果多吃鱼可以补脑让人变聪明的话，那么你至少得吃一对儿鲸鱼……
9.水至清则无鱼，人至贱则无敌。
10.青春就像卫生纸，看着挺多得，用着用着就不够了
11.我身边的朋友们啊，你们快点出名吧，这样我的回忆录就可以畅销了
12.一女同学黑了些,她男友又太白了些,有天宿舍里得毒舌天后突然对她冒出一句：“你们这样不行,你们会生出斑马来的”

13.老娘一向视帅哥与金钱如粪土，而他们也一直是这样看我的
14.不要和我比懒,我懒得和你比
15.我不是个随便的人我随便起来不是人
16.上帝说,要有光,我说我反对,从此世界上有了黑暗
17.今天心情不好.我只有四句话想说.包括这句和前面的两句.我的话说完了 .
18.做人就要做一个徘徊在牛A和牛C之间的人
19.我的大名叫上帝，小名叫耶稣，英文名God，法号是如来...
20.树不要皮，必死无疑；人不要脸，天下无敌。

21.农夫三拳有点疼
22.其实我一直很受人欢迎的：小时候的我人见人爱，如今的我人贱人爱
23.不怕虎一样的敌人，就怕猪一样的队友

24.走自己的路，让别人打车去吧(走别人的路,让别人走投无路)

25.老鼠扛刀，满街找猫
26.只要功夫深，拉屎也认真 R>)
27.中国人谁跑的最快？是曹操（非刘翔）。因为说曹操曹操到
28.思想有多远，你就给我滚多远
29.只有在火车站大排长龙时，才能真正意识到自己是“龙的传人”。
30.有情人终成家属
31.春天来了,一群大雁正向北飞,一会儿排成B字型,一会儿排成T字型..
32.在哪里跌倒就在哪里躺下
33.老虎不发威你当我是HELLO KITTY！
34.驴是的念来过倒~
35.吃自助最高境界：扶墙进，扶墙出。
36.丢失...
37.没有钱，没有权，再不对你好点，你能跟我？
38.拿份报纸上厕所，俺是读书人。
39.上Google上百度一下。
40.女人一定要对自己好一点。一旦累死了，就会有别的女人花你的钱，住你的房，睡你的老公，打你的娃！
41.你的丑和你的脸没有关系…
42.爷爷都是从孙子走过来的……

43.老天，你让夏天和冬天同居了吗？！生出这种鬼天气！
44.鸟大了什么林子都有！

45.不怕虎一样的敌人，就怕猪一样的队友。
46.夏天就是不好，穷的时候我连西北风都没得喝……
47.随你大小便！
48.怀才就像怀孕，时间久了才能让人看出来。
49.没什么事就不要找我，有事了更不要找我。
50.你以为我会眼睁睁地看着你去送死？我会闭上眼睛的。
51.天使之所以会飞，是因为她们把自己看得很轻……
52.我想早恋，可是已经晚了……
53.请你以后不要在我面前说英文了，
54.思想有多远，你就给我滚多远！
55.好久没有人把牛皮吹的这么清新脱俗了！
56.老板，钱对你来说真的就那么重要吗？讲了三个多小时了一分钱都不降？
57.一觉醒来，天都黑了。
58.我要是做了人事部经理，第一件事就是提拔自己做老总。
59.我每天除了吃饭的时间全在减肥，你还说我没有毅力？
60.水能载舟，亦能煮粥。
61.买了电脑不上宽带，就好比酒肉都准备好了却在吃饭前当了和尚。
62.有一个很古老的传说??能在XX校园里看到美女的人会长生不老
63.生，容易；活，容易；生活，不容易。

64.打死你我也不会说。
65.钱可以解决的问题都不是问题。
66.念了十几年书，想起来还是幼儿园比较好混！
67.连广告也信，读书读傻了吧？

68.不吃饱哪有力气减肥啊？
69.睡眠是一门艺术??谁也不能阻挡我追求艺术的脚步。
70.早起的鸟儿有虫吃，早起的虫虫被鸟吃。
71.天哪，我的衣服又瘦了！

72.我在女友手机里的名字是“他”，分手后，我就变成了“它”。
73.我和你不一样，因为我是人。

74.问君能有几多愁，恰似一群太监上青楼

75.我喝水只喝纯净水，牛奶只喝纯牛奶，所以我很单纯
76 上天赐予我们青春的同时也赐予了我们青春痘。
77 出问题先从自己身上找原因，别一便秘就怪地球没引力。

78 虽然我长的不是很帅，但小时候也有人夸我左边鼻孔很偶像派。
79 老妈的规劝：闺女，要适当吃一点才有劲减肥啊！
80 春天是感冒和感情高发的季节，有人不小心感冒了，有人不小心恋爱了，我属于前者。

81 我当年也是个痴情的种子，结果下了场雨~~~~~~~~~~~~~~~淹死啦。
82 钞票不是万能的，有时还需要信用卡。
83 我允许你走进我的世界，但决不允许你在我的世界里走来走去。
84 我希望有一天能用鼠标双击我的钱包，然后选中一张百元大钞，按下“CTRL+C”.接着不停地“CTRL+V”.
85 我是一棵孤独的树，千百年来矗立在路旁，寂寞的等待，只为有一天你从我身边走过时为你倾倒，砸不扁你就算我白活了。
86 爱我的请举手，不爱我的请倒立。
87 人怕出名猪怕壮，男怕没钱女怕胖。
88 如果有钱也是一种错，我情愿一错再错。
89 如果婚姻是爱情的坟墓，那么我期待有一个人把我埋了。
90 千万别在一棵树上吊死，可以到周围的树上都试几次。
91 不要把银行卡密码设成女朋友的生日，不然总要换多麻烦。
92 最幸福的事：睡觉睡到自然醒。数钱数到手抽筋。最悲哀的事：睡觉睡到手抽筋，数钱数到自然醒。
93 钱可以买房子但买不到家，可以买婚姻但买不到爱情，可以买钟表但买不到时间，钱不是一切，反而是痛苦的根源。把你的钱给我，让我一个人承担痛苦把！
94 男孩穷着养，不然不晓得奋斗，女孩富着养，不然人家一块蛋糕就哄走了。

95 士为知己者装死，女为悦己者整容。
96 命运负责洗牌，但是玩牌的是我们自己！
97 年轻的时候，我们常常冲着镜子做鬼脸，年老的时候，镜子算是扯平了。
98 爱人是种无奈，被爱是种姿态，等爱是种期待，无爱是种能耐。
99 女人之美，在于蠢的无怨无悔，男人之美，在于说谎说的白日见鬼。
100 明月几时有，把酒问室友，不知隔壁帅哥，可有女朋友？
101 武功在高，也怕菜刀。

艾恩Javascript插件及Asp无组件上传综合演示

2009-3-26 18:15:48

  欢迎使用艾恩Javascript系列插件以及Asp无组件上传类，本示例综合演示了各功能，各插件除日历外均为原创。
  演示的功能包括：拖动，UBB编辑器，Ajax无刷新上传以及日历插件(本插件非原创，经他人修改而来，版权归"UANV_日历"原作者所有)

演示包下载地址

几个上传示例程序的下载地址(示例使用的最后版本均为V9.2.09):

编辑器下载地址

艾恩UBB编辑器(AnUbbEditor)

  拖动插件及日历插件都已经在编辑器的js文件里，根据本实例的方法进行调用即可；
  拖动的使用方法：_.EndragEx(source,target,0,0);通过拖动source来拖动target;
  点"上传文件"，在弹出层的标题上拖动鼠标，就会看到拖动效果。
  点编辑器最上面一排倒数第二个按钮可预览内容。

艾恩AJAX无刷新上传再次进行优化

2009-3-26 14:34:50

优化了上传控件的创建方法，传递的参数只保留一个，即要绑定的DIV标签;
通过设置控件的属性target,url,savePath来分别设置目标iframe,上传处理页面以及文件保存目录。

同时，ajax不再使用jquery,而使用自己原创Ajax函数，从而减小代码量；

/*======================================
下面语句使上传控件显示在上面ID为uploadContenter的Div标签
提交URL为upload.asp保存目录为upload
表单提交到上面name属性为AnUploader的iframe里面；
========================================*/

var AjaxUp=new AjaxProcesser("uploadContenter");

//设置提交到的iframe名称
AjaxUp.target="AnUploader";

//上传处理页面
AjaxUp.url="upload.asp";

//保存目录
AjaxUp.savePath="upload";

几个示例程序的下载地址(示例使用的最后版本均为V9.2.09):

如果有任何疑问或业务上的需要，请联系本人。本人简历 http://dev.mo.cn/resume

关于网友提出的一些问题

2009-3-12 18:54:07

最近经常看见网友在留言板提出一些问题，大部分都已经回答。由于本人准备毕业论文，精力有限，不能详细回答部分问题，见谅！

下面总结一下各种问题:
1、关于限制文件上传类型
   通过设置类属性Exe来设置允许上传的类型；例如Upload.Exe="doc|xls|jpg" 则允许上传word文档，excel文档和jpg格式图片

2、关于一个网友说可以通过抓包和NC上传木马
   带进度条的上传示例默认上传所有类型的文件，即使不用抓包和NC也一样能上传ASP文件；

3、关于上传和保存文件名到数据库的问题
   文件类fileAction的FileName属性可以获取保存到服务器的文件名称，调用savetofile方法后本属性有效；
   例如

set tempCls=Upload.files("file1") 
successful=tempCls.SaveToFile(path,1)
response.write  tempCls.Filename

4、上传过程中出现"文件写入失败"错误
您没有开启保存文件目录的读写权限，请参考http://dev.mo.cn/show.asp?id=81

5、由于精力问题，一些问题不方便解决。如果我的程序您要商用，可以联系我我单独给定制，中间可能会收取部分定制费用
非常感谢您能够使用我的程序！

笑死人的考试填空

2009-3-6 23:40:55

高考完后又是中考...考题千奇百怪，答卷也五花八门。真佩服现在的学生啊，思维跳脱，天马行空，和我们那时候的循规蹈矩，差别太大了，呵呵。看一组语文试卷中的填空题---

1.__________，为伊消得人憔悴同学答：宽衣解带终不悔（正解为“衣带渐宽终不悔”，偶承认这个是思想有问题）
2.问渠哪得清如许，__________同学答：心中自有清泉在（正解为“唯有源头活水来”，咱还是和水粘了点边~~~）
3.何当共剪西窗烛，__________同学答：夫妻对坐到天明（语文老师阅卷时笑晕。后在课堂时说此事，又晕！正解为“却话巴山夜雨时”）
4.蚍蜉撼大树，__________同学答：一动也不动（正解为“可笑不自量”。一动也不动，赫赫，很符合事实阿）
5.君子成人之美，__________同学答：小人夺人所爱（直接晕死）
6.穷则独善其身，__________同学答：富则妻妾成群　（正解：达则兼济天下）
7.__________，天下谁人不识君同学答：只要貌似萨达姆（汗|||....）
8.后宫佳丽三千人，__________同学答：铁棒也会磨成针~~~~~~（正解为“三千宠爱在一身”）
9.身有彩凤双飞翼，__________同学答：拔毛凤凰不如鸡还有个同学答：夫妻双双把家还（正解为“心有灵犀一点通”）
10.东边日出西边雨，__________同学答：床头打架床尾合还有个同学答：上错花轿嫁对郎
11.__________，糟糠之妻不下堂同学答：结发之夫不上床（语文老师暴怒！）
12.但愿人长久，__________同学答：一颗永流传（当时狂笑，现在觉得挺经典的。正解为“千里共婵娟”）
13.西塞山前白鹭飞，__________同学答：东村河边爬乌龟（对的挺工整的）
14.我劝天公重抖擞，__________同学答：天公对我吼三吼（正解为“不拘一格降人才”，龚自珍）
15.天生我才必有用，__________同学答：关键时刻显神通又有同学答：老鼠儿子会打洞（整办公室的语文老师集体毫无形象的狂笑）
16.天若有情天亦老，__________同学答：人不风流枉少年！（正解为“月若无恨月长圆”李贺《金铜仙人辞汉歌》)
17.洛阳亲友如相问，__________同学答：请你不要告诉他（正解为“一片冰心在玉壶”）
18.期末考试出对联,上联是英雄宝刀未老　　该初三同学对下联为：老娘丰韵尤存
19.良药苦口利于病，__________同学答：不吃才是大傻瓜人生自古谁无死，__________同学答：只是死的有先后（结局：家长会后被老师留下来训话鸟……）
20.床前明月光，__________同学答：李白睡的香
21.管中窥豹，__________同学答：吓我一跳（哈哈哈！正解为“可见一斑”)
22.__________，飞入寻常百姓家同学答：康佳彩霸电视机
23.葡萄美酒夜光杯，__________同学答：金钱美人一大堆
24.__________，路上行人欲断魂初一学生的杰作：半夜三更鬼敲门
25.还有次考陶渊明的“吾不能为五斗米折腰”，同学填的是“给我六斗就可以”…
26.老吾老以及人之老，__________同学答：妻吾妻以及人之妻（老师后来评卷时说那个同学特别具有奉献精神，哈哈）
27.想当年，金戈铁马，__________同学答：看今朝，死缠烂打（正解为“气吞万里如虎”）
28.五年级的一次考试就考到了“三个臭皮匠，__________”同学答：臭味都一样（把监考和外面的校长笑翻了）
29.初一的学生对对子，“登城白云间揽山色入怀，__________”同学答：我到酒店去抱小姐上床（他的语文老师差点当场吐血而亡）
30.两情若是长久时，__________同学答：该是两人成婚时
31.沉舟侧畔千帆过，__________同学答：孔雀开屏花样多
32.书到用时方恨少，__________同学答：钱到月底不够花
33.天若有情天亦老，__________同学答：人若有情死得早（正解为“月若无恨月长圆”）
34.人生自古谁无死，__________同学答：有谁大便不带纸（没有语言了...）
35.有次考李清照的如梦令，“知否？知否？___________”同学答：SORRYI，DON'TKNOW...（正解为“应是绿肥红瘦”）
36.有次考鲁迅先生某句：“___________，我以我血溅轩辕”同学答：他以他刀插我身
37.语文考试，填空里有一首革命诗：“为人进出的门紧锁着，________________，一个声音高喊着：_________________我渴望自由，但人的身躯怎能从狗洞子里爬出…”同学答：为狗爬出的洞也锁着/他妈的，都锁着！
38.千山万水总是情，___________同学答：多给一分行不行（批卷老师对了一句：情是情，分是分，多给一分都不行）
39.高一的时候，一次月考，上句“仰天大笑出门去，（正解）我辈岂是蓬蒿人”。班上有人写：一不小心扭到腰。
还有一句，上句：“清水出芙蓉，（正解）天然去雕饰”。有人写，淤泥出莲藕；还有人更绝，写：乱世出英雄
40.问君能有几多愁，___________同学答：恰似一壶二锅头（老师批“你又喝多了……”）
41._________________,不临深溪，不知地之厚也；(我们班语文测验我们好多男生一起写“不坐飞机，不知天之高”！！！！）

access与sqlserver的区别

2009-3-4 20:58:46

后台数据库：
[Microsoft Access]
与
[Microsoft Sql Server]
更换之后，ASP代码应注意要修改的一些地方：

[一]连接问题（举例)
[Microsoft Access]
constr = "DBQ=c:\data\clwz.mdb; DRIVER={Microsoft Access Driver (*.mdb)}"
[Microsoft Sql Server]
constr = "DRIVER={SQL Server};SERVER=host;DATABASE=mydata;uid=sa;pwd="

[二]相似函数（举例）

[1]DATEDIFF(datepart, startdate, enddate)
其中“datepart”参数可选项如下：
设置描述
————————————
[Microsoft Access]
年 yyyy
季度 q
月 m
一年的日数 y
日 d
一周的日数 w
周 ww
小时 h
分钟 n
秒 s

[Microsoft Sql Server]
year yy, yyyy
quarter qq, q
month mm, m
dayofyear dy, y
day dd, d
week wk, ww
hour hh
minute mi, n
second ss, s
millisecond ms

-------------------------

基本上差不多，但注意的是在写的时候，
[Microsoft Access]要加引号，如：datediff('d',enddate,'2004/08/01')
[Microsoft Sql Server]则不需要，如：datediff(d,enddate,'2004/08/01')

[2][Microsoft Access]中可用如cstr等转数据类型函数，而
[Microsoft Sql Server]中则用convert或cast函数，如：
convert(varchar,[amount])等。

[3][Microsoft Sql Server]
取当前时间用getdate等等...

[三]语句
[Microsoft Sql Server]
可以用
CASE
WHEN THEN
WHEN THEN
...
ELSE
END
语句，而
[Microsoft Access]
不支持。
[Microsoft Access]也不支持between语句
[Microsoft Sql Server]则可以这样写：
[date] between @date1 and @date2
[四]查询表
[Microsoft Sql Server]
可三个及以上表join查询，而
[Microsoft Access]
好像只能两个表联接查询（待权威确认）,
而且[Microsoft Sql Server]可用“*=”和“=*”连接符。[五]除零问题
[Microsoft Access]
在碰到除数为零时，自动丢掉相关记录，而
[Microsoft Sql Server]
则会报错，且查询中止。删除代码：
[Microsoft Access]
可以这样写：delete * from [tablename]
[Microsoft SQL Server]
只能这样写：delete from [tablename]
多*会报错
_____________________________________
当前日期：
[Microsoft Access]
用date()
[Microsoft SQL Server]
用getdate()如果数据库可能会更换类型的话，可以
在ASP代码中加上如这样：
if inStr(constr,"Microsoft Access") > 0 then
sqlstr=[Microsoft Access][sql代码]
else
sqlstr=[Microsoft Sql Server][sql代码]
end if
(constr--连接字符串)
这样即使改了数据库，也不用改数据库查询更新代码了。
再加：access中有true、false的字段记录，而sql里只有smallint，对应如果在access里有“字段名=true”的，在sql里要改成“字段名=1”
网上大部分的免费asp程序使用的是access数据库。但是access数据库作为一个中小型的单机数据库系统，在承担访问量、数据量大的网站应用时，往往就不堪重负了。一般认为，超过50M的access数据库性能就开始明显下降，超过100M以后，出错、运行慢的问题会更加突出。尽管可以如动网 7.0以后那样，从程序的角度尽量优化以图提高性能，但是不能从根本上解决问题。
这时也许使用微软的SQL Server数据库就是最可能的办法，当然也可以使用其它的如Oracle、MySQL等等，但是作为改写来说，由于同为微软的产品，改写成SQL Server应该是最省力的办法。

一、改写前提：

系统已经安装好SQL Server2000并且打上了SP3补丁；安装好Office套件里面的Access；使用一个支持纯文本编辑并且带有行号显示的编辑器，推荐Ultra Edit，当然也可以使用FrontPage2003，不过以前的版本行号显示不太好用。

个人能力要求：会基本的asp语法、access数据库的操作、SQLServer企业管理器的基本操作。

二、数据库的准备

一般来说有两种情况：
1、程序提供了SQL数据库格式：有一个MDF文件，或者提供了创建SQL数据库的SQL脚本文件（后缀名为.sql）。
如果有mdf文件，可以用企业管理器直接附加上，如果提供的是sql脚本文件，那么就先用企业管理器自己创建一个sql数据库，然后数据库用企业管理器中的查询分析器运行这个脚本创建数据库表。
这样建立的数据库基本不用再去改写什么了。
2、更多的是没有提供SQL数据库或脚本文件的，这时，就要自己来做这一切了，这也是我们这个帖子主要解决的问题。一般这样的程序会提供一个access数据库，这样你就用企业管理器导入access数据库，导入后需要改写下面一些东西：
对照原来的access，改写下面的部分：
（1）sql数据库表是没有自动字段的，因此原来access中的自动字段被转换成了普通字段，需要手工改成标识类型，增量为1。
（2）所有的时间字段，如果定义了默认值，那么原来肯定是now()，需要改成getdate()
（3）原来字段的默认值一般都不会自动引入，需要对照原表的字段手工添加。
（4）由于数据库的不同，access和sql的字段类型很多转换后就变化了，比如原来的《是否》字段会被转换成bit或者int，备注字段被转换成 longtext，text字段转换成varchar等等，一般来说不会影响程序运行，如果有问题，我们在下面的程序改写部分再说。
（5）如果你要用一个For SQL的程序，里面用到了存储过程，那么你应该有这个程序本身建立SQL数据库的方法：有其本身的SQL数据库文件，或者 sql脚本；如果没有的话，采用导入access数据库的方式是无法建立存储过程的，这样你最好放弃这个For SQL的程序版本，使用同样版本的 For Access的程序，导入access数据库，然后用下面的改写方法自己改成SQL版本的程序。

三、连接字符串的改写

可参考动网的这段，分别是针对access和SQL的
Dim ConnStr
If IsSqlDataBase = 1 Then
'sql数据库连接参数：数据库名、用户密码、用户名、连接名（本地用local，外地用IP）
Dim SqlDatabaseName,SqlPassword,SqlUsername,SqlLocalName
SqlDatabaseName = "dvbbs7"
SqlPassword = ""
SqlUsername = "dvbbs"
SqlLocalName = "(local)"
ConnStr = "Provider = Sqloledb; User ID = " & SqlUsername & "; Password = " & SqlPassword & "; Initial Catalog = " & SqlDatabaseName & "; Data Source = " & SqlLocalName & ";"
Else
'免费用户第一次使用请修改本处数据库地址并相应修改data目录中数据库名称，如将dvbbs6.mdb修改为dvbbs6.asp
'http://www.knowsky.com/
Db = "data/fengerqingqing.mdb"
ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(db)
End If
On Error Resume Next
Set conn = Server.CreateObject("ADODB.Connection")
conn.open ConnStr

当然你使用SQL的话，有关access的使用语句可以删除，就是else后面到on error resume next前面，变成这样：

Dim ConnStr
'sql数据库连接参数：数据库名、用户密码、用户名、连接名（本地用local，外地用IP）
Dim SqlDatabaseName,SqlPassword,SqlUsername,SqlLocalName
SqlDatabaseName = "dvbbs7"
SqlPassword = ""
SqlUsername = "dvbbs"
SqlLocalName = "(local)"
ConnStr = "Provider = Sqloledb; User ID = " & SqlUsername & "; Password = " & SqlPassword & "; Initial Catalog = " & SqlDatabaseName & "; Data Source = " & SqlLocalName & ";"
On Error Resume Next
Set conn = Server.CreateObject("ADODB.Connection")
conn.open ConnStr

也可以简洁一些，写成这样：
Set conn = Server.CreateObject("ADODB.Connection")
conn.open "Provider = Sqloledb; User ID = sa; Password = 1234567; Initial Catalog = dvbbs7; Data Source = (local);"
里面的数据库名称、数据源、用户、密码根据自己的实际情况改写一下。

四、程序的改写

这也有两种情况
1、如果你幸运，拿到的是For SQL的程序，那么如果上面的数据库建立过程没有遇到麻烦，程序基本上就可以运行了，出错的话，只是程序本身的bug，如何修改不是这个帖子讨论的内容，就不赘述了。
2、大多数情况，程序本身是For Access的，与For SQL的程序差别主要是程序中使用到的SQL查询语句。注意，SQL查询语句是数据库应用不可缺少的部分，不管是For SQL还是For Aceess的程序使用的语法大体差不多，但是有一些微妙的差别，正是这些差别，造成了程序的不通用，也是我们需要修改的主要内容。这样一般要修改的部分如下：
（1）时间函数的问题：SQL数据库的时间函数与access不同，最常见的是取现在时间的函数，access是now()，SQL是getdate ()。因此凡是在where子句中使用了now()的地方都要改成getdate();注意，now()函数在asp程序本身也要使用，凡是不在数据库查询或执行语句中使用的now()函数千万不要改。
（2）时间比较函数：datediff('d','时间1'，‘时间2’)这是access查询用的格式，SQl中这些引号都要去掉，同时时间格式的前后可能加上了#，这也要去掉。同样这也是指在sql语句中的，在asp语句中的要保持原样。
（3）空值的表示：在access中，判断空值一般用是否＝""来表示，但是这在SQL中往往出错，如果遇到出错的问题或者程序运行不正常，可以改成如这样判断：where (name is null)
（4）真假值判断：access中可以用＝true、＝false来判断，但是在SQL中就会出错，因此在SQL查询或执行语句中这类判断要分别改成＝ 1、＝0。注意一点：有些程序虽然写成＝“true”，但是由于有引号，所以这个字段是字符类型的，你不能改成＝1，保持原样即可。

以上是比较常见的改写的地方，还有一些不太常见，如果遇到了可以在此回帖讨论。

五、程序的调试

前面推荐使用带有行号的编辑器，是因为上述的改写不大可能是直接搜索程序源码来做，很难找全。
我采取的方式一般这样：数据库改写完成，直接调试程序，出错后，看看出错的提示，找到相应文件的代码行，但是根源往往不是那行，比如出错的语句是： conn.execute(sql)，但是这句本身是没有错的，错误原因是里面的这个sql字符串，那就向上看这个sql字符串是如何生成的，按照上面所说的程序修改办法修改。

数据库导入以后，自动增加字段需要重写，所有的数字类型需要增加长度，最好用decimal。

所有的默认值都丢失了。主要是数字类型和日期类型。

所有now()，time()，date()要改成getdate()。

所有datediff('d', time1, time2)要改成datediff(day, time1, time2)

有可能一些true/false类型不能使用，要变为1/0。

备注类型要通过cast(column as varchar)来使用。

CursorType要改成1,也就是打开数据库时要给出第一个数字参数为1，否则记录可能显示不完整。

isnull(rowname)要改成rowname = null

ACCESS的数据库中的自动编号类型在转化时，sql server并没有将它设为自动编号型，我们需在SQL创建语句中加上identity，表示自动编号！

转化时，跟日期有关的字段，SQL SERVER默认为smalldatetime型，我们最好将它变为datetime型，因为datetime 型的范围比smalldatetime型大。有时用smalldatetime型时，转化失败，而用datetime型时，转化成功。

对此两种数据库进行操作的sql语句不全相同，例如：在对ACCESS数据库进行删除纪录时用："delete * from user where id=10",而对SQL SERVER数据库进行删除是用："delete user where id=10".

日期函数不相同，在对ACCESS数据库处理中，可用date()、time()等函数，但对SQL SERVER数据库处理中，只能用datediff,dateadd等函数，而不能用date()、time()等函数。

在对ACCESS数据库处理中,sql语句中直接可以用一些VB的函数，像cstr()函数，而对SQL SERVER数据库处理中，却不能用。
下表比较了MicrosoftAccess数据库（MicrosoftAccess数据库：数据和对象（如表、查询或窗体）组成的集合，与特定的主题或用途有关。MicrosoftJet数据库引擎用于管理数据。）和MicrosoftAccess项目（MicrosoftAccess项目：与 MicrosoftSQLServer数据库连接且用于创建客户/服务器应用程序的Access文件。项目文件中不包含任何数据或基于数据定义的对象（如表或视图）。）的数据类型（数据类型：决定字段可拥有的数据类型的字段特征。数据类型包括Boolean、Integer、Long、Currency、 Single、Double、Date、String和Variant（默认））。

MicrosoftAccess数据类型SQLServer数据类型
是/否（“是/否”数据类型：一种字段数据类型，用于只有两种可能值（如是或否、True或False）的字段。不允许有Null值。）bit（bit数据类型：在Access项目中，一种存储值为1或0的数据类型。接受1和0以外的整数值，但总是将其解释为1。）
数字（“数字”数据类型：MicrosoftAccess数据库中的一种字段数据类型，用于将在数学运算中使用的数值数据。但是，若要显示或计算货币值，则应使用“货币”数据类型。）（字节）tinyint（tinyint数据类型：Access项目中的一种占一个字节（8位）的数据类型，用于存储从0到 255范围内的整数。）
数字（整型）smallint（smallint数据类型：Access项目中的一种2字节（16位）数据类型，存储位于-2^15(-32,768)与2^15-1(32,767)之间的数字。）
数字（长整型）int（int数据类型：Access项目中的一种4字节（32位）数据类型，存储位于-2^31(-2,147,483,648)与2^31-1(2,147,483,647)之间的数字。）
数字（单精度浮点型）real（real数据类型：在Access项目中，一种近似的数值数据类型，精度为7位，正值取值范围大致从1.18E-38到3.40E+38，负值取值范围大致从-1.18E-38到-3.40E+38，也可以取0。）
（无等价的数据类型）bigint（bigint数据类型：Access项目中的一种8字节（64位）数据类型，存储位于-2^63(- 9,223,372,036,854,775,808)与2^63-1(9,223,372,036,854,775,807)之间的数字。）
数字（双精度浮点型）float（float数据类型：在Access项目中，一种近似的数值数据类型，精度为15位。它所存储的正值范围大致是从2.23E-308到1.79E+308，负值范围大致是从-2.23E-308到-1.79E+308，也可以为0。）
货币（“货币”数据类型：MicrosoftAccess数据库中的一种数据类型，用于与货币有关的计算或其精确度极其重要的定点计算。）money （money数据类型：在Access项目中，用于存储货币值的数据类型，取值范围从-922,337,203,685,477.5707到 922,337,203,685,477.5807，精确度为万分之一个货币单位。）

smallmoney（smallmoney数据类型：Access项目中的一种存储货币值的数据类型，取值范围从-214,748.3648到214,748.3647，精确度为万分之一个货币单位。当显示smallmoney值时，会将它们四舍五入为两个小数位。）
小数/数值（decimal数据类型（Access数据库）：精确的数值数据类型，用于存储-10^38-1到10^38-1的值。可以指定数值范围（最大总位数）和精度（小数点右边的最大位数）。）decimal（decimal数据类型（Access项目）：精确的数值数据类型，用于存储-10^38 -1到10^38-1的值。可以指定数值范围（最大总位数）和精度（小数点右边的最大位数）。）

numeric（numeric数据类型：在Access项目中，一种精确的数值数据类型，取值从-10^38-1到10^38-1。可以指定数值范围（最大总位数）和精度（小数点右边的最大位数）。）
日期/时间（“日期/时间”数据类型：Access数据库的一种数据类型，用来存放日期和时间信息。）datetime（datetime数据类型：在 Access项目中，日期和时间的数据类型，范围从1753年1月1日到9999年12月31日，精确度为三百分之一秒，即3.33毫秒。）

smalldatetime（smalldatetime数据类型：Access项目中的一种日期和时间数据类型，精度不如datetime时间数据类型。数据取值范围从1900年1月1日到2079年6月6日，精确度为一分钟。）
自动编号（“自动编号”数据类型：MicrosoftAccess数据库中的一种字段数据类型，当向表中添加一条新记录时，这种数据类型会自动为每条记录存储一个唯一的编号。可以产生三种编号：顺序号、随机号和同步复制ID。）（递增）int（int数据类型：Access项目中的一种4字节（32位）数据类型，存储位于-2^31(-2,147,483,648)与2^31-1(2,147,483,647)之间的数字。）（定义了Identity属性）
文本（“文本”数据类型：MicrosoftAccess数据库中的一种字段数据类型。“文本”数据类型最多可以包含255个字符，或者是由 FieldSize属性指定的一个小一些的字符数。）(n)varchar(n)（varchar(n)数据类型：Access项目中的一种可变长度的数据类型，最大长度为8,000个ANSI字符。）

nvarchar(n)（nvarchar(n)数据类型：在Access项目中，一种可变长度的数据类型，最多可含4,000个Unicode字符。Unicode字符每字符占两个字节，而且支持所有国际字符。）
备注（“备注”数据类型：在MicrosoftAccess数据库中的一种字段数据类型。“备注”字段最多可以包含65,535个字符。）text （text数据类型：Access项目中的一种长度可变的数据类型，最多可存储2^31-1(2,147,483,647)个字符；默认长度为16。）
OLE对象（“OLE对象”数据类型：字段的数据类型之一，用于在其他应用程序中创建的、可链接或嵌入（插入）到Access数据库中的对象。） image（image数据类型：在Access项目中，一种长度可变的数据类型，最多可存储2^31-1(2,147,483,647)字节的二进制数据。image数据类型用来存储BLOB（二进制大对象），如图片、文档、声音和已编译代码。）
同步复制ID（又名全局唯一标识符（GUID：在Access数据库中，一种用于建立同步复制唯一标识符的16字节字段。GUID用于标识副本、副本集、表、记录和其他对象。在Access数据库中，GUID是指同步复制ID。）(GUID)）uniqueidentifier （uniqueidentifier数据类型：在Access项目中，16字节的全局唯一标识符(GUID)。）（仅适于SQLServer7.0或更高版本）
超链接（“超链接”数据类型：存储超链接地址的Access数据库字段的数据类型。地址最多可以包含四部分，用以下语法格式编写： displaytext#address#subaddress#。）char（char数据类型：在Access项目中，一种固定长度的数据类型，最多可含8,000个ANSI字符。）,

nchar（nchar数据类型：在Access项目中，一种固定长度的数据类型，最多可含4,000个Unicode字符。Unicode字符每字符占两个字节，而且支持所有国际字符。）,varchar,nvarchar（Hyperlink属性设为Yes）
（无等价的数据类型）varbinary（varbinary数据类型：Access项目中的一种可变长度的数据类型，最多可存储8,000字节的二进制数据。）
（无等价的数据类型）smallint（smallint数据类型：Access项目中的一种2字节（16位）数据类型，存储位于-2^15(-32,768)与2^15-1(32,767)之间的数字。）
（无等价的数据类型）timestamp（timestamp数据类型：在Access项目中，一种每插入或更新一行就会自动更新的数据类型。 timestamp列中的值不是datetime数据，而是binary(8)或varbinary(8)，标明了数据修改的顺序。）
（无等价的数据类型）charnchar
（无等价的数据类型）sql_variant（sql_variant数据类型：Access项目中的一种数据类型，存储除text、ntext、 image、timestamp和sql_variant类型以外的多种数据类型的值。在列、参数、变量或用户定义函数的返回值中使用。）
（无等价的数据类型）用户定义（用户定义的数据类型：在MicrosoftSQLServer数据库中，允许某列包含的数据的类型定义，由用户利用现有的系统数据类型定义。规则和默认值仅可以绑定到用户定义的数据类型。）

注释在Access项目或SQLServer数据库中，前缀“n”代表“国家/地区”，意思是这个数据类型是启用Unicode的。在Access数据库中，全部文本列在默认情况下都是启用Unicode的。
ACCESS转SQL需要注意的问题
2006-2-13 16:01:20
很多朋友想用SQL2000数据库的编程方法，但是却又苦于自己是学ACCESS的，对SQL只是一点点的了解而已，这里我给大家提供以下参考---将ACCESS转化成SQL2000的方法和注意事项
一，首先，我说的是在ACCESS2000，SQL2000之间转换，其他的我也还没有尝试过，希望大家多多试验，肯定是有办法的；
二，转换的方法
1，打开”控制面板“下”管理工具“中的”数据库源“；
2，按”添加“添加一个新的数据源，在选择栏里选”DriverdomicrosoftAccess
(*.mdb)”,完成后将出现一个框,

在”数据库源“里面输入你想写的名称，我取名叫“ABC”,说明不需要填，接着，按下面的选择，寻找你的数据库地址和选中（注意，请先备份自己的ACCESS数据库），然后确定。
数据源在这里建好了，剩下转换了。

3，打开SQL2000企业管理器，进入数据库，新建一个空的数据库“ABC”；
4，选择新建立的数据库，按鼠标右键，选择“所有任务”下“导入数据”，按“下一步”继续；
5，在数据库源下拉但中选择”DriverdomicrosoftAccess(*.mdb)“，在”用户/系统DSN“中，选种你刚才添加的”ABC“，按”下一步“；
6，“目的”不需要修改，选择服务器（一般下为自己的本机"local",也可以选择服务器地址或者局域网地址,确定你的权限是否可以操作,),"使用WINDOWS身份验证"指用自己的系统管理员身份操作,"使用SQL身份操作验证"可以用于网站的操作,推荐用后者;
7,选上"使用SQL身份操作验证"后,填写你的用户名和密码,我自己选择的是系统默认号码"sa","****",数据库选择刚新建的"ABC",按"下一步";
8,这一步的两个单项选择,"从数据源复制表和视图"与"用一条查询指令指定要传输的数据",选择前者,按"下一步"继续;
9,这里将出现你自己ACCESS数据库的表,按"全选"后,下一步;
10,"DTS导入/导出向导",看"立即运行"被选中按"下一步",
11,按"完成"继续;
12,这个步骤你将看到你的数据被导入SQL2000里面,当出现"已经成功把XXX个表导入到数据库"的字样,而且所有的表前面都有绿色的勾,就表示成功导入所有数据,如果中途出现问题或者表前面有红色的*的话,说明该表没有成功导入,这时就要回去查看自己的操作是否正确了.

三,数据修改
1,由于SQL2000里面没有"自动编号",所以你的以"自动编号"设置的字段都会变成非空的字段,这就必须手工修改这些字段,并把他的"标示"选择"是",种子为"1",增量为"1",
2,另外,ACCESS2000转换成SQL2000后,原来属性为"是/否"的字段将被转换成非空的"bit",这时候你必须修改成自己想要的属性了;
3,另外,大家要注意对时间函数的把握.ACCESS与SQL是有很多不同的.

四、相关的字段问题
1.ACCESS的数据库中的自动编号类型在转化时，sqlserver并没有将它设为自动编号型，我们需在SQL创建语句中加上identity，表示自动编号！
2.转化时，跟日期有关的字段，SQLSERVER默认为smalldatetime型，我们最好将它变为datetime型，因为datetime型的范围比smalldatetime型大。我遇见这种情况，用smalldatetime型时，转化失败，而用datetime型时，转化成功。
3.对此两种数据库进行操作的sql语句不全相同，例如：在对ACCESS数据库进行删除纪录时用："delete*fromuserwhereid=10",而对SQLSERVER数据库进行删除是用："deleteuserwhereid=10".
4.日期函数不相同，在对ACCESS数据库处理中，可用date()、time()等函数，但对SQLSERVER数据库处理中，只能用datediff,dateadd等函数，而不能用date()、time()等函数。
5.在对ACCESS数据库处理中,sql语句中直接可以用一些VB的函数，像cstr()函数，而对SQLSERVER数据库处理中，却不能用。

五、相关语句问题
自动增加字段需要重写。在access中经常使用的自动编号字段，导入到mssql后，他并不是自增型的int，需要手工设置，把导入后的自动编号字段的标识的“否”改为“是”，“种子”和“递增量”都为“1”，才能成为自动编号

所有的默认值都丢失了。主要是数字类型和日期类型

所有now()，time()，date()要改成getdate()

所有datediff('d',time1,time2)要改成datediff(day,time1,time2)

所有datediff('ww',time1,time2)要改成datediff(week,time1,time2)

所有datediff('d',time1,time2)要改成datediff(day,time1,time2)

在mssqlserver中，有许多保留字，在access中是没有的，当你把数据导入到mssql的时候，问题就出来了。mssql在导入的时候，会自动给这些字段（包括数据库中的表名）加上“[字段名]”，因此，你必须修改你的脚本，把相应的字段名字（或者表名字）加上中括号，或改变字段名字为不是 mssql的保留字

在用access关于时间的使用，大家喜欢使用“select*fromaaaawhiletime="&now()”这样的sql语句，然而，在mssql中没有“now()”这个函数，而是使用“getdate()”，所以，所有的sql语句中的“now()”必须换成“getdate ()”。

日期函数不相同，在对ACCESS数据库处理中，可用date()、time()等函数，但对
SQLSERVER数据库处理中，只能用datediff,dateadd等函数，而不能用date()、time()等函数。

转化时，跟日期有关的字段，SQLSERVER默认为smalldatetime型，我们最好将它变为datetime型。

忙着写程序，竟然忘了写个实用点的针对无刷新上传的示例了

2009-2-15 7:49:58

   只忙着写程序，竟然忘了给Ajax无刷新上传写一个实用的示例程序，同时也没给用户留出很大的自己操作的余地，今天又把程序更新了下，开放了两个接口。见谅！
   下面奉上刚写好的示例:


   Ajax无刷新上传示例程序下载

  560)this.width=560" />

  真正向用户推荐的只有三个接口:
  第一个---创建
  var AjaxUp=new AjaxProcesser("uploadContenter","upload.asp?path=upload","AnUploader",false);

  第二个---获取返回数据
  files是一个数组,结构为[{name:文件1的名字,size:文件1的大小},{name:文件2的名字,size:文件2的大小},...n]
  AjaxUp.succeed=function(files){
           var fujian=document.getElementById(objID);
           fujian.value="upload/" + files[0].name;  //因为上传控件就只上传一个文件，这里索引是0
  }

  第三个---出错显示（msg是出错的具体原因）
   AjaxUp.faild=function(msg){alert("失败原因:" + msg);contenter.style.display="none";}

《艾恩ASP文件上传类》开发和使用总结

2009-2-15 0:12:05

    从去年4月12号开始着手写Asp无组件上传类开始，到现在系统的做出了无刷新带进度条的上传方式，整个开发和完善过程用了将近一年，本类完全由本人个人开发，包括组件版的开发。非常感谢在此期间使用和测试本类的所有朋友们以及今后可能会使用本类的朋友，我努力追求的就是方便自己的同时也给大家带来最大的方便。无组件版和组件版均可"非商业非赢利性"免费使用！

    本类包括组件版和无组件版，目前二者均整合了进度条功能(默认不开启),普通上传和Ajax无刷新上传均可正常使用，下面具体说明下本类:

   几个示例程序的下载地址(示例使用的最后版本均为V9.4.10):

基本功能:

1.限制上传扩展名
2.限制上传大小
3.多种文件保存方式
4.可批量上传
5.准确获取上传中的错误信息，错误信息程序处理，用户无须参与
6.全面保存客户提交的信息(普通表单,文件域值,相同表单值)
7.同时可以获取文件的二进制形式,从而可以实现将二进制数据保存到数据库
8.文件保存函数简洁,调用方便,并且比较灵活(保存路径和保存方式可随时改变)

类创建调用方法:

(1)组件版 set Upload=server.createobject(“Anasp.AnUpload”)
(2)无组件版 set Upload=new AnUpload

   无组件版和组件版的另一区别就是在使用forms和files返回所有表单或文件的时候传递参数的不同，详细请参考开发文档
   下载地址: http://dev.mo.cn/upfiles/Anupload.pdf

   开发文档详细介绍了本类的各属性和方法

Ajax无刷新文件上传重要更新!!!!!!

2009-2-13 5:12:08

重要更新：

  1.封装了JS调用，上传更方便
  2.增加了返回用户上传文件列表功能(一个数组)和上传速度计算功能

下载: 艾恩Ajax无刷新文件上传(带进度条,无组件)

下载: 艾恩Ajax无刷新文件上传(带进度条,组件版,低CPU使用)

请分别下载上面的压缩包查看具体内容!!!!

var AjaxUp=new AjaxProcesser("uploadContenter","upload.asp","AnUploader",false);
//说明:本次更新重点封装了上传使用的JS类，上传控件表单完全自动生成
//var AjaxUp=new AjaxProcesser(Contenter,url,target,userStyle);
//参数说明:
//Contenter(字符串)    上传控件的容器，程序自动给容易四面增加3px的padding
//url(字符串)    表单要提交到的路径,可以包含参数，例如upload.asp?savepath=abc，主要是为了方便传递其他变量到上传页面(保存路径，保存方式等)
//target(字符串)    表单要提交到的隐藏iframe的name属性
//userStyle(布尔值)    如果为true，则表单的按钮以及文本框等控件的样式使用用户自定的样式，如果为false则使用类内部定义的样式

上面是本次的更新~~
本次更新重点封装了上传使用的JS类，上传控件表单完全自动生成
用户只要做很少工作即可实现文件上传

艾恩Ajax无刷新文件上传解决方案

2009-2-9 19:54:37

今天用一天的时间给自己的类加上了进度条，包括无组件版和组件版都同时更新了进度条功能.

下载: 艾恩Ajax无刷新文件上传(带进度条,无组件)

下载: 艾恩Ajax无刷新文件上传(带进度条,组件版,低CPU使用)

本上传使用的类为本人原创上传类,经修改后用于无刷新上传(普通上传同样可用)

详细显示上传过程,包括进度条，上传百分比，总上传数据大小，当前上传数据大小，上传进程时间等。。。

进度条样式可自行修改，样式文件为css.css

具体进程信息请查看js/custom.js中的getInformation(info)中的信息对象的说明

经测试~本程序在IE6,IE7和FireFox3.1 Beta 1 下运行都没有任何问题~~
同时如果有任何问题可以联系我1034555083/zhanghuiguoanlige@126.com

=======================================
说明一点:
本次给上传类增加了一个方法setApp,用来设置Application;
调用方法Upload.setApp state,total,current,description
参数说明:
state--当前状态,建议取值请查看js/custom.js中的getInformation(info)函数中的状态说明
total--总上传数据大小
current--已上传数据大小
description--描述,主要是在出现错误的时候使用，一般使用空值即可

请保留upload.asp中对Application的设置(共四处,最后一处可选择性删除)

想开启进度条功能,必须设置类对象的openProcesser=true
例如
set Upload=new AnUpLoad
'组件版的创建方法为set Upload=Server.createobject("Anasp.Upload")
Upload.openProcesser=true  '打开进度条显示

其实区别就一点,组件和无组件的上传实例创建方法:
无组件直接创建   set Upload=new AnUpLoad
组件版的创建方法为   set Upload=Server.createobject("Anasp.Upload")

还有一点就是遍历文件的时候:
无组件版获取所有文件的方法是Upload.files(-1)  传递一个参数-1
组件版的获取方式为 Upload.files  不传递任何参数

其他的完全相同。
=======================================

更新完这个进度条后本上传类不打算继续更新！

PS：
类本身带有限制上传大小以及文件类型的属性
在组件上传的压缩包里有一个pdf的开发文档，里面详细介绍了本类的属性和方法，请参考一下！为了演示方便我就把所有的限制取消了！
http://dev.mo.cn/source_143.html
这个包里的所有示例都有限制！

鼠标拖动层(可任意绑定DIV标签)（二）

2009-1-28 14:32:52

实现鼠标拖动层的另一种方法
调用方法
Endrag.bind('MoveDiv').bind('Div1').offSet({x:0,y:0});
通过多次调用bind方法可以绑定任意多个Div标签;
offSet设置偏移，默认x偏移和y偏移都为0,供调整使用
本方法不能通过子元素绑定操作父元素

 
 
 
 鼠标拖动层(可任意绑定DIV标签)（二）  

/*
鼠标拖动层(可任意绑定DIV标签)（二）
作者:Anlige
联系方式:1034555083/zhanghuiguoanlige@126.com

调用方法:Endrag.bind('MoveDiv').bind('Div1').offSet({x:0,y:0});
参数说明:bind的参数为Div标签的ID属性或者Div对象本身；offSet的参数为偏移量，默认(不调用本方法)x,y偏移都为0
说明:通过多次调用bind方法绑定多个对象的拖动
*/ 
  Endrag={
    x0:0,y0:0,x1:0,y1:0,moveable:false,index:100,NS:(navigator.appName=='Netscape'),offSets:{x:0,y:0},
    //开始拖动;  
    startDrag:function (e){
        e = e ? e : (window.event ? window.event : null);
        Endrag.getFocus(this); 
        if(e.button==(Endrag.NS)?0 :1)  { 
            if(!Endrag.NS){this.setCapture()}
            Endrag.x0 = e.clientX ;  
            Endrag.y0 = e.clientY ;  
            Endrag.x1 = parseInt(Endrag.abs(this).x);  
            Endrag.y1 = parseInt(Endrag.abs(this).y);    
            Endrag.moveable = true;  
        }  
    },  
    //拖动;  
    drag:function (e){
        e = e ? e : (window.event ? window.event : null);  
        if(Endrag.moveable){  
            this.style.left = (Endrag.x1 + e.clientX - Endrag.x0 - Endrag.offSets.x) + "px";  
            this.style.top  = (Endrag.y1 + e.clientY - Endrag.y0 - Endrag.offSets.y) + "px";  
        }  
    },  
    //停止拖动;  
    stopDrag:function (e){  
        if(Endrag.moveable)  {    
            if(!Endrag.NS){this.releaseCapture();}
            Endrag.moveable = false;  
        }  
    },
    //获得焦点;  
    getFocus:function (obj){  
        if(obj.style.zIndex!=this.index){  
            this.index += 2;  
            var idx = this.index;  
            obj.style.zIndex=idx;  
        }  
    },
    abs:function (element) {
        var result = { x: element.offsetLeft, y: element.offsetTop};
        element = element.offsetParent;
        while (element) {
            result.x += element.offsetLeft;
            result.y += element.offsetTop;
            element = element.offsetParent;
        }
        return result;
    }, 
    offSet:function(setting){
        this.offSets=setting;
    },
    bind:function(obj){
        obj=typeof(obj)=="object" ? obj:document.getElementById(obj);
        obj.onmousedown=Endrag.startDrag;
        obj.onmouseup=Endrag.stopDrag;
        obj.onmousemove=Endrag.drag;
        return this;
    }
};
 
 
 
 
 
拖动层

调用方法
Endrag.bind('MoveDiv').bind('Div1').offSet({x:0,y:0});
可以绑定任意多个Div标签;offSet设置偏移，默认x偏移和y偏移都为0,供调整使用
本方法不能通过子元素绑定操作父元素

拖动层

鼠标拖动层(可任意绑定DIV标签)（一）

2009-1-28 14:23:26

可实现Div层的任意拖动的第一种方法，调用方便

 
 
 
 鼠标拖动层(可任意绑定DIV标签)（一）  
 
/*
鼠标拖动层(可任意绑定DIV标签)（一）
作者:Anlige
联系方式:1034555083/zhanghuiguoanlige@126.com

调用方法:var myDrag=new Endrag(source,target,offSetX, offSetY);
参数说明:source--鼠标动作绑定对象;target--操作目标对象(要移动的对象);offSetX--横坐标偏移;offSetY--纵坐标偏移
说明:通过多次调用本方法绑定多个对象的拖动
*/
 funs={
    index:100,  
    getFocus:function (target){  
        if(target.style.zIndex!=this.index){  
            this.index += 2;  
            var idx = this.index;  
            target.style.zIndex=idx;  
        }  
    },
    abs:function (element) {
        var result = { x: element.offsetLeft, y: element.offsetTop};
        element = element.offsetParent;
        while (element) {
            result.x += element.offsetLeft;
            result.y += element.offsetTop;
            element = element.offsetParent;
        }
        return result;
    }
 };
 
 function Endrag(source,target,offSetX, offSetY){
    source=typeof(source)=="object" ? source:document.getElementById(source);
    target=typeof(target)=="object" ? target:document.getElementById(target);
    var x0=0,y0=0,x1=0,y1=0,moveable=false,index=100,NS=(navigator.appName=='Netscape');
    offSetX=typeof offSetX== "undefined" ? 0:offSetX;
    offSetY=typeof offSetY== "undefined" ? 0:offSetY;
    source.onmousedown=function(e){
        e = e ? e : (window.event ? window.event : null);
        funs.getFocus(target); 
        if(e.button==(NS)?0 :1)  { 
            if(!NS){this.setCapture()}
            x0 = e.clientX ;  
            y0 = e.clientY ;  
            x1 = parseInt(funs.abs(target).x);  
            y1 = parseInt(funs.abs(target).y);    
            moveable = true;  
        }  
    };  
    //拖动;  
    source.onmousemove=function(e){
        e = e ? e : (window.event ? window.event : null);  
        if(moveable){  
            target.style.left = (x1 + e.clientX - x0 - offSetX) + "px";  
            target.style.top  = (y1 + e.clientY - y0 - offSetY) + "px";  
        }  
    }; 
    //停止拖动;  
    source.onmouseup=function (e){ 
        if(moveable)  {   
            if(!NS){this.releaseCapture();}
            moveable = false;  
        }  
    };
}
 
 
 
 
 
这个用子标签操作父标签 

调用方法var i=new Endrag('hand','MoveDiv',0,0);
第一个参数为源标签对象或对象id属性；第二个参数为要移动的目标对象或对象id属性；第3、4个参数为偏移值，供最后调整用;
鼠标指针在红色区域才有效

这个用自标签操作自己

调用方法var j=new Endrag('Div1','Div1',0,0);
第一个参数为源标签对象或对象id属性；第二个参数为要移动的目标对象或对象id属性；第3、4个参数为偏移值，供最后调整用；
鼠标指针在Div1标签内就有效

祝福我的朋友们

2009-1-22 17:54:25

快过年啦，又要长大一岁了。。。
想想小时候调皮的自己，时间可过的真快，转眼就长大了
昨天看见和我一样大的一个朋友结婚了---如果我们也不上学，估计我们也要有家庭了
有一种责任感吧；

现在感觉自己很是不争气，不是不努力，自己也有耐心也有恒心及毅力，但总是不尽人意，甚至有点负罪感。。。
不管怎么样，长大了，早该对自己负责了，该怎样做自己心里也该很清楚了
加油，努力，为自己为父母争口气，不要让人瞧不起；

祝愿所有我认识很认识我的朋友在新的一年里万事如意，事事顺心。。。
在这"经济危机"爆发的时代能找一份好工作，过幸福的生活；

我爱你们，我的朋友们！！！新春快乐！！！

560)this.width=560" />

回家了...

2009-1-19 15:46:50

    16号回家了，回家发现个很严重的问题---不能上网！！！
   找网通，人家说---必须包年/870元，郁闷闪人
   去移动，营业员"通知"---也包年，我郁闷！！！！！
   人家主动提供一种业务，GPRS上网卡包月40元/1G流量，听起来不错，并且人家还打"一折"，就花40块钱买了张卡，回家发现---上网速度慢的要死，又回到了"原始时代"---上个qq一分钟掉好几次线，webqq刚登上人家提示与服务器断开连接，校内通、msn、飞信统统掉线。。。。。
   天哪！！！40天的寒假咋过啊。。。

   如果谁有急事请打0539-288-6529联系我吧~或者在晚上8点后给我发短信13963961834(在家长途+漫游)

正式支持大文件上传--艾恩asp文件上传组件

2009-1-16 16:05:31

*********************************
本组件完美支持大文件上传,本地测试上传150M用时35秒,CPU保持在5%-10%左右;
如果需要更低的CPU使用率(当然上传速度会降低),请联系作者订做;
*********************************

组件下载地址:http://dev.mo.cn/source_167.html

上传过程CPU情况(高峰为最后保存文件的CPU使用)
560)this.width=560" />

效果
560)this.width=560" />

完整功能:
1.自由限制上传文件类型
2.自由设置上传大小限制(单文件大小和总上传大小可自由修改限制)
3.支持两种文件名方式保存---原文件名保存和新文件名(根据时间随机生成)保存
4.提供多种文件保存方式--save.asthis类型、saveAs类型以及经典保存类型
5.自由设置字符编码格式--charset属性
6.强大的容错处理, 提供完整的中文错误提示(需手动显示错误提示)
7.自由提取表单数据
8.随时获取文件的二进制数据(方便用户保存二进制数据到数据库)
。。。。其他的功能就是自由运用本类了。。。。绝对能达到意想不到的效果~

更新日期:2008-12-20

假设类实例名为UpLoad

1.类名由UpLoad修改为AnUpLoad,创建类的方法为：set UpLoad =new AnUpLoad

2.增加Charset属性,可以指定文本的编码格式,默认为GB2312。设置方法为：UpLoad.Charset="GB2312"

3.增加表单和文件类遍历方法,使用方法:
(1)调用UpLoad.Forms(-1),返回一个表单集合,可以用foreach来遍历所有元素,具体查看示例"表单遍历"
(2)调用UpLoad.Files(-1),返回一个文件类集合,可以用foreach来遍历所有元素,具体查看示例"多文件文件上传"
检索具体表单或文件的方法不变,为Upload.Forms(表单名)和Upload.Files(表单名)

4.优化了文件后缀判断程序,代码更合理

5.增加了客户提交表单类型的判断,未设置上传表单enctype属性为multipart/form-data,则提示上传无效!

6.重新制作了上传示例程序

更新日期:2008-12-29
1.增加URL上传功能

更新日期:2009-1-9
1.去除URL上传功能
2.增加两个简便上传函数,真正六行代码实现无组件上传

更新日期:2009-1-16
1.组件完美支持大文件上传

使用Ajax进行用户名有效性验证

2009-1-15 10:27:32

用户名有效性验证，是会员注册必须的步骤，下面一步步介绍如何使用Ajax进行有效性验证

一、用户请求页
新建一个页面reg.html,如下代码

Ajax范例---用户名有效性验证

输入用户名:

二、Javascript发送请求代码
新建文件custom.js(Javascript代码) 代码如下

/*
Ajax范例
By Anlige
zhanghuiguoanlige@126.com
*/
//自定义函数,获取标签对象
    function $(id){
        return document.getElementById(id);
    }
//创建组件
    function createObject(){
        var Request=null;
        if (window.ActiveXObject) {
            Request= new ActiveXObject("Microsoft.XMLHTTP");
        }else if (window.XMLHttpRequest) {
            Request= new XMLHttpRequest();
            if (Request.overrideMimeType) {//设置MiME 类别
                Request.overrideMimeType("text/xml");
            }
        }
        return Request;
    }

    function test(){
        var username=$("username").value; //获取表单值
        if(username==""){alert("请输入用户名");return false};
        $("result").innerText="验证中...";

        //创建一个组件
        var myRequest=createObject();

  //直接附加到url后面的数据总是以get方式提交,地址里面的rnd参数仅仅是为了防止缓存(有人习惯用日期来防止缓存)
        var url="test.asp?rnd=" + Math.random();


        //要post方式提交的数据,作为send方法的参数
        var data="username=" + username;

        //调用open方法: 使用POST方式提交;  提交到url;  true代表启用异步.
        myRequest.open("Post",url,true);

        //Post方式提交必须加这句,并且要在调用post方法后才能加,否则会提示"未知错误"
        myRequest.setRequestHeader("Content-Type", "application/x-www-form-urlencoded");

        //设置响应函数
        myRequest.onreadystatechange =function(){
            if(myRequest.readyState==4){   //如果为说明数据发送成功,并返回
                if(myRequest.status==200){  //如果为,说明正常状态;404为未找到页面;500为服务器错误
                    var msg=myRequest.responseText;
                    if(msg=="no"){
                        $("result").innerText="本用户名未被使用,您可以注册！";
                    }else{
                        $("result").innerText="本用户名已被占用,请选择其他用户名！";
                    }
                }
            }
        };

        //调用send方法发送数据
        myRequest.send(data);
    }

三、后台验证代码
新建文件test.asp(后台验证代码),本文件编码为utf-8(用记事本打开--另存为utf-8格式--覆盖原文件即可)

<%@ LANGUAGE="VBScript"%>
<%
response.charset="utf-8"   '字符编码为utf-8
dim names,username,isHas
names="admin|anlige|admin888"   '模拟一个数据库
names=split(names,"|")
username=request.form("username")  '因为Ajax是post的数据，这里用form集合
isHas="no"
for i=0 to ubound(names)
    if names(i)=username then
        isHas="yes"
        exit for
    end if
next
response.write isHas  '输出验证结果
%>

这样，模拟用户注册过程中的"用户名有效性验证"就完成了；
测试方法:浏览器中打开reg.html,输入一个用户名进行验证,如果输入 admin,anlige,admin888三个中的任何一个都会提示已经被注册。改实例修改test.asp后完全可以移植到原用户验证系统

利用ASP下载远程文件到服务器

2009-1-14 9:51:30

这几个函数本来是封装在我自己的组件里了，正好有人需要，就单独提取出来了，调用download方法就可以下载文件了，程序会自动获取文件名，如果获取失败会以dat后缀保存文件;适合小文件的下载

<% 

'函数名:WritFile
'作用:把指定二进制数据写入文件
'参数:byt--二进制数据,file--要写入的文件名
public Function WritFile(ByVal byt, ByVal fileName)   '写入文件函数
on error resume next
  Dim objAso:set objAso=server.createobject("adodb.Stream")
     objAso.Type = 1
     objAso.Mode = 3
     objAso.Open
     objAso.Position = 0
     objAso.Write byt
     objAso.SaveToFile fileName, 2
     objAso.Close
     Set objAso = Nothing
     WritFile = True
End Function

'函数名:Download
'作用:下载文件
'参数:URL-要获取的URL，savePath为文件保存地址
Public Function Download(ByVal URL, ByVal savePath)
On Error Resume Next
Dim ResBody, sStr, vPath, fileName, vErr
vErr = True
vPath = Replace(savePath, "/", "\")
If Right(vPath, 1) <> "\" Then vPath = vPath & "\"
sPos = InStrRev(URL, "/") + 1
sStr = Mid(URL, sPos)
Set Http = Server.CreateObject("MICROSOFT.XMLHTTP")
Http.Open "GET", URL, False
Http.Send
If Http.Readystate = 4 Then
  If Http.Status = 200 Then
     ResBody = Http.responseBody
        head = Http.getResponseHeader("content-disposition")
        If head <> "" Then
           startpos = InStr(head, "=") + 1
           fileName = Mid(head, startpos)
        ElseIf InStr(sStr, ".") > 0 And InStr(sStr, "?") <= 0 Then
           fileName = sStr
        Else
           fileName = Getname() & ".dat"
        End If
        If WritFile(ResBody, vPath & fileName) Then vErr = False
  End If
End If
Download = Not vErr
End Function

'函数名:getname
'作用:按日期获取随机数字
public Function Getname()
on error resume next
    Dim y,m,d,h,mm,S, r
    Randomize
    y = Year(Now)
    m = Month(Now): If m < 10 Then m = "0" & m
    d = Day(Now): If d < 10 Then d = "0" & d
    h = Hour(Now): If h < 10 Then h = "0" & h
    mm = Minute(Now): If mm < 10 Then mm = "0" & mm
    S = Second(Now): If S < 10 Then S = "0" & S
    r = 0
    r = CInt(Rnd() * 1000)
    If r < 10 Then r = "00" & r
    If r < 100 And r >= 10 Then r = "0" & r
    Getname = y & m & d & h & mm & S & r
End Function

call download("http://chat.ii-home.cn/down/objupload.rar",server.mappath("."))
%>

天哪~服务器终于好了

2009-1-13 0:34:36

哭死~网站服务器终于好了！
买这空间真有点后悔，时不时就出毛病。。。
70的iis连接竟然只给我开了30，前几天才给我调到70.。。
服务器除了被黑就是被黑。。。经常打不开
明年准备换服务器了，不知道用哪个好呢！
再说吧,马上放假了！

真正的'6行代码实现无组件上传',你信吗?

2009-1-10 11:31:17

以前见过所谓的六行代码实现无组件上传,那六行代码的功能是:用户提交路径到服务器,服务器读取路径所在的文件,然后"另存"到服务器,大家也许都意识到其中的错误--只能运行在本地服务器!
下面通过我的无组件上传类,真正实现"六"行代码的无组件上传,看下面的代码...

<%
 Dim Upload,filename  '第1行
 set Upload=new AnUpLoad   '第2行
 Upload.GetData()     '第3行
 filename=Upload.save("file1").AsThis(server.mappath("."),0)  '第4行
 'filename=Upload.saveAs("file1",server.mappath("."),0)
 response.write filename    '第5行
 set Upload=nothing     '第6行
%>

确实是六行哦...哈哈~现在介绍下这六行的作用

第1行: 没的说,定义变量;

第2行: 要用到上传类,创建类实例

第3行: 调用类方法GetData,来处理用户上传的文件

第4行: 保存文件方法Upload.Save("file1").AsThis(server.mappath("."),0),可以这样理解:保存(save)表单file1的文件到服务器,按照(AsThis)这样的方法(路径为当前文件夹,文件命名方式为0)
下面还有一行注释掉的代码,和本行代码功能完全一样,Upload.saveAs("file1",server.mappath("."),0),和上面理解一样,不过更容易理解和使用

第5行: 输出函数返回的文件名

第6行: 注销类实例

其实仔细看看,真正实现功能的代码仅仅三行(2,3,4),其他几行都是辅助作用的！

声明下,本代码是以我的最新上传类为基础的,您可以到这里http://dev.mo.cn/detial.asp?id=143来下载最新的类(v9.1.09),本文章的实例包含在压缩包内(sixline)~

非常感谢您使用本类,本类完全免费使用,本人保留本类的所有权和版权!

同时本类无组件版也同步更新,可以到这里http://dev.mo.cn/detial.asp?id=167下载

考试了...晕头转向的

2009-1-6 9:21:38

   可恶的考试，天天考，考的晕头转向。。。。
   哪有敲代码舒服。。。
   微生物、有机化学、海洋生物学、生物化学。。。
   天哪！！简直是遭罪啊！！
   当初咋就选这专业呢？？到现在还纳闷是不是自己选的。。。O(∩_∩)O哈哈~
    下午考有机，继续看了，累死了。。。
   偶总属于考前突击者

   感觉自己有点颓废。。。

jQuery入门指南

2009-1-4 9:34:36

这个指南是一个对jQuery库的说明，要求读者了解DOM的一些常识。它包括了一个简单的Hello World的例子，选择器和事件基础，AJAX、FX的用法，以及如何制作jQuery的插件。

这个指南包括了很多代码，你可以copy它们，并试着修改它们，看看产生的效果。

一.安装
一开始,我们需求一个jQuery的库,最新的下载可以到这里找到。
这个指南提供一个基本包含实例的包供下载.

下载: jquery-starterkit

(译者Keel注:一定要下载这个包，光看文章不实践肯定是不行的。)

下载后解压缩，然后用你最喜欢的文本编辑器打开starterkit.html和custom.js这两个文件。
(译者Keel注:这两个就是例子文件,所有的例子都用这两个例子作出,custom.js写jQuery代码,starterkit.html观察效果.建议用editPlus打开)

现在,我们就已经做好了一切准备来进行这个著名的"Hello world"例子.

二.Hello jQuery在做所有事情之前,我们要让jQuery读取和处理文档的DOM,必须尽可能快地在DOM载入后开始执行事件,所以,我们用一个ready事件作为处理HTML文档的开始.看看我们打开的custom.js这个文件,里面已经准备好了:

$(document).ready(function() {
// do stuff when DOM is ready//当文档载入后从此处开始执行代码
});

下面我们放一个简单的alert事件在一个function中,因为这个alert不需求等DOM完成载入,所以我们把任务稍稍变复杂一点:在点击任何一个链接时显示一个alert.

$(document).ready(function() {
$("a").click(function() {
alert("Hello world!");
});
});

这样在你点击页面的一个链接时都会触发这个"Hello world"的提示。
(译者Keel注:请照此代码修改custom.js并保存,然后用浏览器打开starterkit.html观察效果。)

让我们看一下这些修改是什么含义。$("a") 是一个jQuery选择器(selector),在这里，它选择所有的a标签（译者Keel注：即），$号是 jQuery “类”(jQuery "class")的一个别称，因此$()构造了一个新的jQuery 对象(jQuery object)。函数 click() 是这个jQuery对象的一个方法，它绑定了一个单击事件到所有选中的标签(这里是所有的a标签),并在事件触发时执行了它所提供的alert方法.
这里有一个拟行相似功能的代码:

Link

不同之处很明显,用jQuery不需要在每个a标签上写onclick事件,所以我们拥有了一个整洁的结构文档(HTML)和一个行为文档(JS),达到了将结构与行为分开的目的,就像我们使用CSS追求的一样.

下面我们会更多地了解到选择器与事件.

三.Find me:使用选择器和事件
jQuery提供两种方式来选择html的elements，第一种是用CSS和Xpath选择器联合起来形成一个字符串来传送到jQuery的构造器（如：$("div > ul a")）；第二种是用jQuery对象的几个methods(方法)。这两种方式还可以联合起来混合使用。

为了测试一下这些选择器，我们来试着在我们starterkit.html中选择并修改第一个ordered list.

一开始，我们需要选择这个list本身，这个list有一个ID叫“orderedlist”，通常的javascript写法是document.getElementById("orderedlist").在jQuery中，我们这样做：

$(document).ready(function() {
$("#orderedlist").addClass("red");
});

这里将starterkit中的一个CSS样式red附加到了orderedlist上(译者Keel注：参考测试包中的css目录下的core.css，其中定义了red样式)。因此，在你刷新了starterkit.html后，你将会看到第一个有序列表(ordered list )背景色变成了红色，而第二个有序列表没有变化.

现在，让我们添加一些新的样式到list的子节点.

$(document).ready(function() {
$("#orderedlist >
li").addClass("blue");
});

这样，所有orderedlist中的li都附加了样式blue。

现在我们再做个复杂一点的，当把鼠标放在li对象上面和移开时进行样式切换，但只在list的最后一个element上生效。

$(document).ready(function() {
$("#orderedlist
li:last").hover(function() {
$(this).addClass("green");
}, function() {
$(this).removeClass("green");
});
});

还有大量的类似的CSS和XPath例子，更多的例子和列表可以在这里找到。
（译者Keel注：入门看此文，修行在个人，要想在入门之后懂更多，所以这段话的几个链接迟早是要必看的！不会又要翻译吧...^_^!）

每一个onXXX事件都有效，如onclick,onchange,onsubmit等，都有jQuery等价表示方法（译者Keel注：jQuery不喜欢onXXX，所以都改成了XXX，去掉了on）。其他的一些事件，如ready和hover,也提供了相应的方法。

你可以在Visual jQuery找到全部的事件列表，在Events栏目下。

用这些选择器和事件你已经可以做很多的事情了，但这里有一个更强的好东东！

$(document).ready(function() {
$("#orderedlist").find("li").each(function(i) {
$(this).html(
$(this).html() + " BAM! " + i );
});
});

find() 让你在已经选择的element中作条件查找,因此 $("#orderedlist).find("li") 就像 $("#orderedlist li"). each()一样迭代了所有的li，并可以在此基础上作更多的处理。大部分的方法,如addClass(), 都可以用它们自己的 each() 。在这个例子中, html()用来获取每个li的html文本, 追加一些文字，并将之设置为li的html文本。（译者Keel注：从这个例子可以看到.html()方法是获取对象的html代码，而.html('xxx')是设置'xxx'为对象的html代码）

另一个经常碰到的任务是在没有被jQuery覆盖的DOM元素上call一些方法，想像一个在你用AJAX方式成功提交后的reset：

$(document).ready(function() {
// use this to reset a
single form
$("#reset").click(function() {
$("#form")[0].reset();
});
});

（译者Keel注：这里作者将form的id也写成了form，源文件有，这是非常不好的写法，你可以将这个ID改成form1或者testForm，然后用$("#form1")或者$("#testForm")来表示它，再进行测试。）

这个代码选择了所有ID为"form"的元素，并在其第一个上call了一个reset()。如果你有一个以上的form，你可以这样做：

$(document).ready(function() {
// use this to reset
several forms at once
$("#reset").click(function() {
$("form").each(function() {
this.reset();
});
});
});

（译者Keel注：请注意一定要亲自将这些代码写在custom.js中并在starterkit.html上测试效果才能有所体会！必要时要观察starterkit.html的html代码）

这样你在点击Reset链接后，就选择了文档中所有的form元素，并对它们都执行了一次reset()。

还有一个你可能要面对的问题是不希望某些特定的元素被选择。jQuery 提供了filter() 和not() 方法来解决这个问题。 filter()以过滤表达式来减少不符合的被选择项, not()则用来取消所有符合过滤表达式的被选择项. 考虑一个无序的list，你想要选择所有的没有ul子元素的li元素。

$(document).ready(function() {
$("li").not("[ul]").css("border", "1px solid black");
});

这个代码选择了所有的li元素，然后去除了没有ul子元素的li元素。刷新浏览器后，所有的li元素都有了一个边框，只有ul子元素的那个li元素例外。

（译者Keel注：请注意体会方便之极的css()方法，并再次提醒请务必实际测试观察效果，比方说换个CSS样式呢？再加一个CSS样式呢？像这样：$("li").not("[ul]").css("border", "1px solid black").css("color","red");）

上面代码中的[expression] 语法是从XPath而来，可以在子元素和属性(elements and attributes)上用作过滤器，比如你可能想选择所有的带有name属性的链接：
$(document).ready(function() {
$("a[@name]").background("#eee");
});

这个代码给所有带有name属性的链接加了一个背景色。（译者Keel注：这个颜色太不明显了，建议写成$("a[@name]").background("red");）

更常见的情况是以name来选择链接，你可能需要选择一个有特点href属性的链接，这在不同的浏览器下对href的理解可能会不一致，所以我们的部分匹配("*=")的方式来代替完全匹配("=")：

$(document).ready(function() {
$("a[@href*=/content/gallery]").click(function() {
// do something with
all links that point somewhere to /content/gallery
});
});

到现在为止，选择器都用来选择子元素或者是过滤元素。另外还有一种情况是选择上一个或者下一个元素，比如一个FAQ的页面，答案首先会隐藏，当问题点击时，答案显示出来，jQuery代码如下：

$(document).ready(function() {
$('#faq').find('dd').hide().end().find('dt').click(function() {
var
answer = $(this).next();
if (answer.is(':visible')) {
answer.slideUp();
} else {
answer.slideDown();
}
});
});

这里我们用了一些链式表达法来减少代码量，而且看上去更直观更容易理解。像'#faq' 只选择了一次，利用end()方法，第一次find()方法会结束(undone)，所以我们可以接着在后面继续find('dt')，而不需要再写$('#faq').find('dt')。

在点击事件中的，我们用 $(this).next() 来找到dt下面紧接的一个dd元素，这让我们可以快速地选择在被点击问题下面的答案。
（译者Keel注：这个例子真是太酷了，FAQ中的答案可以收缩！从利用next()的思路到实现这些效果都有很多地方需要我们消化，注意 if (answer.is(':visible'))用法，注意answer.slideUp();不懂的地方赶紧查我在最开始提到的两个必看API文档）

除了选择同级别的元素外，你也可以选择父级的元素。可能你想在用户鼠标移到文章某段的某个链接时，它的父级元素--也就是文章的这一段突出显示，试试这个：

$(document).ready(function() {
$("a").hover(function() {
$(this).parents("p").addClass("highlight");
}, function() {
$(this).parents("p").removeClass("highlight");
});
});

测试效果可以看到，移到文章某段的链接时，它所在的段全用上highlight样式，移走之后又恢复原样。
（译者Keel注：highlight是core.css中定义的样式，你也可以改变它，注意这里有第二个function()这是hover方法的特点，请在API文档中查阅hover，上面也有例子说明）

在我们继续之前我们先来看看这一步： jQuery会让代码变得更短从而更容易理解和维护，下面是$(document).ready(callback)的缩写法：

$(function() {
// code to execute when the DOM is ready
});

应用到我们的Hello world例子中，可以这样：

$(function() {
$("a").click(function() {
alert("Hello world!");
});
});

现在，我们手上有了这些基础的知识，我们可以更进一步的探索其它方面的东西，就从AJAX开始！
四.Rate me:使用AJAX
在这一部分我们写了一个小小的AJAX应用，它能够rate一些东西（译者Keel注：就是对某些东西投票），就像在youtube.com上面看到的一样。
首先我们需要一些服务器端代码，这个例子中用到了一个PHP文件，读取rating参数然后返回rating总数和平均数。看一下rate.php代码。

虽然这些例子也可以不使用AJAX来实现，但显然我们不会那么做，我们用jQuery生成一个DIV容器，ID是"rating"。

$(document).ready(function() {
// generate markup
var ratingMarkup = ["Please rate: "];
for(var i=1; i <= 5; i++) { ratingMarkup[ratingMarkup.length] = "" +
i + " ";
}
// add markup to container and
applier click handlers to anchors
$("#rating").append( ratingMarkup.join('')
).find("a").click(function(e) {
e.preventDefault();
// send requests
$.post("rate.php", {rating: $(this).html()}, function(xml) {
// format
result
var result = [
"Thanks for rating, current average: ",
$("average", xml).text(),
", number of votes: ",
$("count",
xml).text()
];
// output result
$("#rating").html(result.join(''));
} );
});
});

这段代码生成了5个链接，并将它们追加到id为"rating"容器中，当其中一个链接被点击时，该链接标明的分数就会以rating参数形式发送到rate.php，然后，结果将以XML形式会从服务器端传回来，添加到容器中，替代这些链接。
如果你没有一个安装过PHP的webserver，你可以看看这个在线的例子。
这是一个比较粗糙的例子，更完美的例子可以访问 softonic.de 点击 "Kurz bewerten!"。
更多的AJAX方法可以从这里找到，或者看看API文档下面的AJAX。

（译者Keel注：这个在线实例从国内访问还是比较慢的，点击后要等一会儿才能看到结果，可以考虑对它进行修改，比如加上loading，投票后加上再投票的返回链接等。此外，这个例子中还是有很多需要进一步消化的地方，看不懂的地方请参考API文档。）

一个在载入AJAX时经常发生的问题是：当载入一个事件句柄到一个需要载入内容的HTML文档时，你只能在内容载入后再加载这些句柄，为了防止代码重复执行，你可能用到如下一个function:

// lets use the shortcut
$(function() {
var
addClickHandlers = function() {
$("a.clickMeToLoadContent").click(function()
{
$("#target").load(this.href, addClickHandlers);
});
};
addClickHandlers();
});

现在，addClickHandlers只在DOM载入完成后执行一次，并且是在用户点击具有clickMeToLoadContent 这个样式的链接后。

请注意addClickHandlers函数是作为一个本地变量定义的，而不是全局变量(如：function addClickHandlers() {...})，这样做是为了防止与其他的全局变量或者函数相冲突。

另一个常见的问题是关于回传(callback)的参数。你可以通过一个额外的参数指定回叫的方法，简单的办法是将这个回叫方法包含在一个其它的function中：

// get some data
var foobar = ...;
// specify
handler, it needs data as a paramter
var handler = function(data) {
...
};
// add click handler and pass foobar!
$('a').click(
function(event) { handler(foobar); } );

// if you need the context of
the original handler, use apply:
$('a').click( function(event) {
handler.apply(this, [foobar]); } );

用到简单的AJAX后，我们可以认为已经非常之“web2.0”了，但是到现在为止，我们还缺少一些酷炫的效果。下一节将如谈到这些效果。

五：Animate me(让我生动起来):使用FX
一些生动的效果可以使用 show() 和 hide()来表现:

$(document).ready(function() { $("a").toggle(function() { $(".stuff").hide('slow'); }, function() { $(".stuff").show('fast'); });});你可以与 animate()联合起来创建一些效果,如一个带渐显的滑动效果:

$(document).ready(function() { $("a").toggle(function() { $(".stuff").animate({ height: 'hide', opacity: 'hide' }, 'slow'); }, function() { $(".stuff").animate({ height: 'show', opacity: 'show' }, 'slow'); });});很多不错的效果可以访问interface plugin collection. 这个站点提供了很多demos和文档

这些效果插件是位于jQuery插件列表的前面的，当然也有很多其他的插件，比如我们下一章讲到的表格排序插件。

六、Sort me(将我有序化):使用tablesorter插件(表格排序)
这个表格排序插件能让我们在客户端按某一列进行排序，引入jQuery和这个插件的js文件，然后告诉插件你想要哪个表格拥有排序功能。

要测试这个例子，先在starterkit.html中加上像下面这一行的代码：

然后可以这样调用不着:

$(document).ready(function() { $("#large").tableSorter();});

现在点击表格的第一行head区域，你可以看到排序的效果，再次点击会按倒过来的顺序进行排列。

这个表格还可以加一些突出显示的效果，我们可以做这样一个隔行背景色效果:

$(document).ready(function() { $("#large").tableSorter({// Class names for striping supplyed as a array. stripingRowClass: ['odd','even'], stripRowsOnStartUp: true // Strip rows on tableSorter init. });});

关于这个插件的更多例子和文档可以在 tablesorter首页找到.

几乎所有的特件都是这样用的:先include插件的js文件,然后在某些元素上使用插件定义的方法,当然也有一些参数选项是可以配置的

经常更新的插件列表可以从jQuery官方站 on the jQuery site找到.

当你更经常地使用jQury时,你会发现将你自己的代码打包成插件是很有用处的,它能方便地让你的公司或者其他人进行重用.下一章我们将谈到如何构建一个自己的插件.

七、Plug me:制作自己的插件
写一个自己的jQuery插件是非常容易的,如果你按照下面的原则来做,可以让其他人也容易地结合使用你的插件.

为你的插件取一个名字,在这个例子里面我们叫它"foobar".
创建一个像这样的文件:jquery.[yourpluginname].js,比如我们创建一个jquery.foobar.js
创建一个或更多的插件方法,使用继承jQuery对象的方式,如:
jQuery.fn.foobar = function() { // do something};可选的:创建一个用于帮助说明的函数,如:
jQuery.fooBar = { height: 5, calculateBar = function() { ... }, checkDependencies = function() { ... }};你现在可以在你的插件中使用这些帮助函数了:

jQuery.fn.foobar = function() { // do something jQuery.foobar.checkDependencies(value); // do something else};可选的l:创建一个默认的初始参数配置,这些配置也可以由用户自行设定,如:
jQuery.fn.foobar = function(options) { var settings = { value: 5, name: "pete", bar: 655 }; if(options) { jQuery.extend(settings, options); }};现在可以无需做任何配置地使用插件了,默认的参数在此时生效:

$("...").foobar();Or with some options:

$("...").foobar({ value: 123, bar: 9});如果你release你的插件, 你还应该提供一些例子和文档,大部分的插件都具备这些良好的参考文档.

现在你应该有了写一个插件的基础,让我们试着用这些知识写一个自己的插件.

很多人试着控制所有的radio或者checkbox是否被选中,比如:

$("input[@type='checkbox']").each(function() { this.checked = true; // or, to uncheck this.checked = false; // or, to toggle this.checked = !this.checked;});你可能想要把这个重写为一个插件,很直接地:

$.fn.check = function() { return this.each(function() { this.checked = true; });};这个插件现在可以这样用:

$("input[@type='checkbox']").check();现在你应该还可以写出uncheck()和toggleCheck()了.但是先停一下,让我们的插件接收一些参数.

$.fn.check = function(mode) {
    var mode = mode || 'on'; // if mode is undefined, use 'on' as default return
    this.each(function() {
    switch(mode) {
       case 'on':   this.checked = true;   break;
       case 'off':   this.checked = false;   break;
       case 'toggle':   this.checked = !this.checked;   break;
    }
    });
};

这里我们设置了默认的参数,所以将"on"参数省略也是可以的,当然也可以加上"on","off", 或 "toggle",如:

$("input[@type='checkbox']").check();
$("input[@type='checkbox']").check('on');
$("input[@type='checkbox']").check('off');
$("input[@type='checkbox']").check('toggle');

如果有多于一个的参数设置会稍稍有点复杂,在使用时如果只想设置第二个参数,则要在第一个参数位置写入null.

从上一章的tablesorter插件用法我们可以看到,既可以省略所有参数来使用或者通过一个 key/value 对来重新设置每个参数.

作为一个练习,你可以试着将第四部分的功能重写为一个插件.这个插件的骨架应该是像这样的:

$.fn.rateMe = function(options) {
// instead of selecting a static container with $("#rating"),  //we now use the jQuery context
var container = this;
var settings = {  url: "rate.php"  // put more defaults here  // remember to put a comma (",") after each pair,   // but not after the last one!
};
if(options) {  // check if options are present before extending the settings
$.extend(settings, options);
}
// ... // rest of the code // ...
return this; // if possible, return "this" to not break the chain
});

如果你想做更好的javascript开发,建议你使用一个叫 FireBug的firefox插件. 它提供了断点调试(比alert强多了)、观察DOM变化等很多漂亮的功能

如果你还有未解决的问题，或者新的想法与建议，你可以使用jQuery的邮件列表 jQuery mailing list.

关于这个指南的任何事情，你可以写mail给作者或者发表评论在他的日志：blog.

escape、encodeURI和encodeURIComponent的区别

2009-1-3 9:35:00

escape(), encodeURI()和encodeURIComponent()是在Javascript中用于编码字符串的三个常用的方法，而他们之间的异同却困扰了很多的Javascript初学者，今天我就在这里对这三个方法详细地分析与比较一下。

escape() 方法

MSDN JScript Reference中如是说：

The escape method returns a string value (in Unicode format) that contains the contents of [the argument]. All spaces, punctuation, accented characters, and any other non-ASCII characters are replaced with %xx encoding, where xx is equivalent to the hexadecimal number representing the character. For example, a space is returned as "%20."

鄙人译：escape方法以Unicode格式返回一个包含传入参数内容的string类型的值。 Escape方法会将传入参数中所有的空格、标点符号、重音字符以及其它任何非ASCII字符替换为%xx的编码形式，其中xx与其所表示的字符的16进制数表示形式相同。如空格字符的16进制表示形式为0x20，则此时xx应为20，即escape(‘ ’) 返回“%20”。

Mozilla Developer Core Javascript Guide中如是说：

The escape and unescape functions let you encode and decode strings. The escape function returns the hexadecimal encoding of an argument in the ISO Latin character set. The unescape function returns the ASCII string for the specified hexadecimal encoding value.

鄙人译：escape和unescape方法能够帮助你编码和解码字符串。escape方法对于ISO Latin字符集中的字符组成的参数，返回其16进制编码。相对应的，unescape方法则能将16进制编码形式的参数转化成为其ASCII码形式。

encodeURI()方法

MSDN JScript Reference中如是说：

The encodeURI method returns an encoded URI. If you pass the result to decodeURI, the original string is returned. The encodeURI method does not encode the following characters: ":", "/", ";", and "?". Use encodeURIComponent to encode these characters.

鄙人译：encodeURI方法返回一个经过编码的URI。如果将encodeURI方法的编码结果传递给decodeURI方法作参数，则能得到原始的未编码的字符串。需要注意到是encodeURI方法不编码如下字符":", "/", ";", and "?"。如果想要编码这些字符，请使用encodeURIComponent方法。

Mozilla Developer Core Javascript Guide中如是说：

Encodes a Uniform Resource Identifier (URI) by replacing each instance of certain characters by one, two, or three escape sequences representing the UTF-8 encoding of the character.

鄙人译：通过将每个属于特定的字符集合的字符替换为一个、两个或者三个（为什么是“一个、两个或者三个”本人也没有搞懂，望高人赐教）使用UTF-8编码来表示这个字符的escape序列来编码一个URI。如 ~!@#$%^&*(){}[]=:/,;?+\'"\\ 将被替换为 ~!@#$%25%5E&*()%7B%7D%5B%5D=:/,;?+'%22%5C

encodeURIComponent()方法

MSDN JScript Reference中如是说：

The encodeURIComponent method returns an encoded URI. If you pass the result to decodeURIComponent, the original string is returned. Because the encodeURIComponent method encodes all characters, be careful if the string represents a path such as /folder1/folder2/default.html. The slash characters will be encoded and will not be valid if sent as a request to a web server. Use the encodeURI method if the string contains more than a single URI component.

鄙人译：encodeURIComponent方法返回一个编码过的URI。如果将encodeURIComponent方法的编码结果传递给encodeURIComponent方法作参数，则能得到原始的未编码的字符串。因为encodeURIComponent方法会编码所有的字符，所以如果待编码的字符串是用来表示一个路径（如/dir1/dir2/index.htm）时，就一定要小心使用了。‘/’符号会被其编码之后，将不再是一个有效的路径标识符，所以不能被web服务器正确地识别。当字符串包含一个单独的URI component(指?后面的请求参数)的时候，请使用此方法。

Mozilla Developer Core Javascript Guide中如是说：

Encodes a Uniform Resource Identifier (URI) component by replacing each instance of certain characters by one, two, or three escape sequences representing the UTF-8 encoding of the character.

鄙人译：通过将每个属于特定的字符集合的字符替换为一个、两个或者三个（为什么是“一个、两个或者三个”本人也没有搞懂，望高人赐教）使用UTF-8编码来表示这个字符的escape序列来编码一个URIComponent。

有什么区别？何时使用？

通过上面的介绍可以看出，MS的文档明显要比Mozilla详细、易懂一些，但是它们表达的都是一个意思。但是escape(), encodeURI()和 encodeURIComponent()有什么异同，它们分别适用于那种特定的情况呢？

escape方法并不编码字符+。而我们知道，在用户提交的表单字段中，如果有空格，则会被转化为+字符，而服务器解析的时候则会认为+号代表空格。由于这个缺陷，escape方法并不能正确地处理所有的非ASCII字符，你应当尽量避免使用escape方法，取而代之，你最好选择encodeURIComponent()方法。

escape()不编码的字符：@*/+

相对于使用escape方法，使用encodeURI方法会显得更专业一些。当你需要编码一整个URI的时候，你可以使用此方法，因为URI中的合法字符都不会被编码转换。需要注意到是字符’也是URI中的合法字符，所以也不会被编码转换。

encodeURI() 不编码的字符： ~!@#@{content}*()=:/,;?+'

encodeURIComponent方法在编码单个URIComponent（指请求参数）应当是最常用的。需要注意到是字符’也是URI中的合法字符，所以也不会被编码转换。

encodeURIComponent()不编码的字符： ~!*()'

AJAX开发简略

2009-1-2 18:54:40

    在使用浏览器浏览网页的时候，当页面刷新很慢的时候，你的浏览器在干什么？你的屏幕内容是什么？是的，你的浏览器在
等待刷新，而你的屏幕内容是一片空白，而你在屏幕前苦苦的等待浏览器的响应。开发人员为了克服这种尴尬的局面，不得不
在每一个可能需要长时间等待响应的页面上增加一个 DIV，告诉用户“系统正在处理您的请求，请稍候……”。

   现在，有一种越来越流行越热的“老”技术，可以彻底改变这种窘迫的局面。那就是AJAX。如今，随着 Gmail、Google-maps的应用和各种浏览器的支持，AJAX正逐渐吸引全世界的眼球。

一、AJAX定义

   AJAX（Asynchronous JavaScript and XML）其实是多种技术的综合，包括 Javascript、XHTML和 CSS、DOM、XML 和
XSTL、XMLHttpRequest。
   其中：使用 XHTML和 CSS标准化呈现，使用 DOM 实现动态显示和交互，使用 XML 和 XSTL进行数据交换与处理，使
用 XMLHttpRequest 对象进行异步数据读取，使用 Javascript 绑定和处理所有数据。在 AJAX 提出之前，业界对于上述技术都只是单独的使用，没有综合使用，也是由于之前的技术需求所决定的。随着应用的广泛，AJAX 也成为香饽饽了。

二、现状与需要解决的问题

  传统的 Web 应用采用同步交互过程，这种情况下，用户首先向 HTTP 服务器触发一个行为或请求的呼求。反过来，服务器执行某些任务，再向发出请求的用户返回一个 HTML页面。这是一种不连贯的用户体验，服务器在处理请求的时候，用户多数
时间处于等待的状态，屏幕内容也是一片空白。自从采用超文本作为 Web 传输和呈现之后，我们都是采用这么一套传输方式。当负载比较小的时候，这并不会体现出有什么不妥。可是当负载比较大，响应时间要很长，1 分钟、2 分钟……数分钟的
时候，这种等待就不可忍受了。严重的，超过响应时间，服务器干脆告诉你页面不可用。另外，某些时候，我只是想改变页面
一小部分的数据，那为什么我必须重新加载整个页面呢？！当软件设计越来越讲究人性化的时候，这么糟糕的用户体验简直与
这种原则背道而驰。为什么老是要让用户等待服务器取数据呢？至少，我们应该减少用户等待的时间。现在，除了程序设计、
编码优化和服务器调优之外，还可以采用 AJAX。

三、为什么使用 AJAX

   与传统的 Web 应用不同，AJAX 采用异步交互过程。AJAX 在用户与服务器之间引入一个中间媒介，从而消除了网络交互过程中的处理—等待—处理—等待缺点。用户的浏览器在执行任务时即装载了 AJAX 引擎。AJAX 引擎用 JavaScript 语言编写，
通常藏在一个隐藏的框架中。它负责编译用户界面及与服务器之间的交互。AJAX 引擎允许用户与应用软件之间的交互过程异步
进行，独立于用户与网络服务器间的交流。现在，可以用Javascript调用AJAX引擎来代替产生一个 HTTP的用户动作，内存中的数据编辑、页面导航、数据校验这些不需要重新载入整个页面的需求可以交给 AJAX 来执行。

使用 AJAX，可以为 ISP、开发人员、终端用户带来可见的便捷：
  1.减轻服务器的负担。AJAX 的原则是“按需取数据” ，可以最大程度的减少冗余请求，和响应对服务器造成的负担。
  2.无刷新更新页面，减少用户心理和实际的等待时间。特别的，当要读取大量的数据的时候，不用像 Reload 那样出现白屏
的情况，AJAX 使用 XMLHTTP 对象发送请求并得到服务器响应，在不重新载入整个页面的情况下用 Javascript 操作 DOM 最终更新页面。所以在读取数据的过程中，用户所面对的不是白屏，是原来的页面内容（也可以加一个Loading 的提示框让用户
知道处于读取数据过程），只有当数据接收完毕之后才更新相应部分的内容。这种更新是瞬间的，用户几乎感觉不到。
  3.带来更好的用户体验。
  4.可以把以前一些服务器负担的工作转嫁到客户端，利用客户端闲置的能力来处理，减轻服务器和带宽的负担，节约空间和宽带租用成本。
  5.可以调用外部数据。
  6.基于标准化的并被广泛支持的技术，不需要下载插件或者小程序。
  7.进一步促进页面呈现和数据的分离。

四、谁在使用 AJAX

   在应用 AJAX 开发上面， Google 当仁不让是表率。 Orkut、 Gmail、 Google Groups、 Google Maps、Google Suggest
都应用了这项技术。Amazon 的 A9.com 搜索引擎也采用了类似的技术。

  微软也在积极开发更为完善的AJAX应用：它即将推出代号为Atlas的AJAX工具。 Atlas的功能超越了 AJAX 本身，包括整合 Visual Studio 的调试功能。另外，新的 ASP.NET 控件将使客户端控件与服务器端代码的捆绑更为简便。Atlas 客户脚本框架（Atlas Clent Script Framework）也使与网页及相关项目的交互更为便利。但 Visual Studio 2005 中并不包含此项功能。

微软最近宣布 Atlas 客户脚本框架将包含如下内容（详细资料请访问 Atlas 计划网站）：
*  一个可扩展的核心框架，它添加了 JavaScript功能：如生命同时期管理、继承管理、多点传送处理器和界面管理。
*  一个常见功能的基本类库，有丰富的字符串处理、计时器和运行任务。
*  为 HTML附加动态行为的用户界面框架。
*  一组用来简化服务器连通和网络访问的网络堆栈。
*  一组丰富的用户界面开发控件，如：自动完成的文本框、动画和拖放。
*  处理浏览器脚本行为差异的浏览器兼容层面。
典型的，微软将 AJAX 技术应用在 MSN Space 上面。很多人一直都对 MS Space 服务感到很奇怪，当提交回复评论以后，浏览器会暂时停顿一下，然后在无刷新的情况下把我提交的评论显示出来。这个就是应用了 AJAX 的效果。试想，如果添加一个评论就要重新刷新整个页面，那可真费事。
目前， AJAX 应用最普遍的领域是 GIS-Map 方面。 GIS的区域搜索强调快速响应， AJAX的特点正好符合这种需求。

五、用 AJAX 改进你的设计

AJAX 虽然可以实现无刷新更新页面内容，但是也不是什么地方都可以用，主要应用在交互较多、频繁读数据、数据分类良好
的 Web 应用中。现在，让我们举两个例子，看看如何用 AJAX 改进你的设计。

例子1：数据校验

  在输入 form 表单内容的时候，我们通常需要确保数据的唯一性。因此，常常在页面上提供“唯一性校验”按钮，让用户点
击，打开一个校验小窗口；或者等 form 提交到服务器端，由服务器判断后在返回相应的校验信息。前者，window.open 操作本来就是比较耗费资源的，通常由 window. showModalDialog 代替，即使这样也要弹出一个对话框；后者，需要把整个页面
提交到服务器并由服务器判断校验，这个过程不仅时间长而且加重了服务器负担。而使用 AJAX，这个校验请求可以由
XMLHttpRequest 对象发出，整个过程不需要弹出新窗口，也不需要将整个页面提交到服务器，快速又不加重服务器负担。

例子2：按需取数据—级联菜单

  以前，为了避免每次对菜单的操作引起的重载页面，不采用每次调用后台的方式，而是一次性将级联菜单的所有数据全部读
取出来并写入数组，然后根据用户的操作用 JavaScript来控制它的子集项目的呈现，这样虽然解决了操作响应速度、不重载页
面以及避免向服务器频繁发送请求的问题，但是如果用户不对菜单进行操作或只对菜单中的一部分进行操作的话，那读取的数
据中的一部分就会成为冗余数据而浪费用户的资源，特别是在菜单结构复杂、数据量大的情况下（比如菜单有很多级、每一级
菜又有上百个项目），这种弊端就更为突出。
  现在应用 AJAX，在初始化页面时我们只读出它的第一级的所有数据并显示，在用户操作一级菜单其中一项时，会通过 Ajax
向后台请求当前一级项目所属的二级子菜单的所有数据，如果再继续请求已经呈现的二级菜单中的一项时，再向后面请求所操作二级菜单项对应的所有三级菜单的所有数据，以此类推……这样，用什么就取什么、用多少就取多少，就不会有数据的冗余
和浪费，减少了数据下载总量，而且更新页面时不用重载全部内容，只更新需要更新的那部分即可，相对于后台处理并重载的方式缩短了用户等待时间，也把对资源的浪费降到最低。

例子3：读取外部数据

   AJAX 可以调用外部数据，因此，可以对一些开发的数据比如 XML 文档、RSS 文档进行二次加工，实现数据整合或者开发
应用程序。

六、AJAX的缺陷

AJAX 不是完美的技术。使用 AJAX，它的一些缺陷不得不权衡一下：

  1.AJAX 大量使用了 Javascript 和 AJAX 引擎，而这个取决于浏览器的支持。 IE5.0 及以上、Mozilla1.0、NetScape7 及以
上版本才支持，Mozilla 虽然也支持 AJAX，但是提供XMLHttpRequest 的方式不一样。所以，使用 AJAX 的程序必须测试针对各个浏览器的兼容性。
  2.AJAX 更新页面内容的时候并没有刷新整个页面，因此，网页的后退功能是失效的；有的用户还经常搞不清楚现在的数据是旧的还是已经更新过的。这个就需要在明显位置提醒用户“数据已更新”。
  3.对流媒体的支持没有 FLASH、Java Applet 好。
  4.一些手持设备（如手机、PDA等）现在还不能很好的支持 Ajax。

  本文非发表人原创,原作者信息如下
作者  网名  联络
柯自聪  eamoi   educhina  eamoi@163.com（技术） zcke0728@hotmail.com（版权）

如何上传一个文件到Access数据库

2009-1-2 8:32:26

     文件上传是一个站点不可或缺的功能，为了方便自己的站点上传文件就自己开发了个无组件上传了，功能还不错--支持单文件、多文件、文件表单混合上传，有兴趣的可以到这里下载看看！
   不多啰嗦了,直奔主体吧。本例子是以我最新发布的上传类为基础的，版本为v8.12.20。
   首先新建一个access数据库bytes.mdb，添加一个表img，再给表添加3个字段--ID(自动编号)、Title(文本)、Image(OLE 对象)，括号内为数据类型
   一、上传界面

    
An-Upload无组件上传类示例

请选择一个图象文件:
文本 :  
文件 :

注意:Form的method属性必须是post，并且必须设置enctype="multipart/form-data"属性(普通提交是没有这个属性的)！！
这里我们提交到AddToDB.asp,文本域和文件域的名字分别是input1和file1，保存这些代码到upload.asp文件！

二、下面就是AddToDB.asp文件了，代码如下

 



An-Upload无组件上传类


<%
 Dim Upload,successful

 set Upload=new AnUpload
     '创建类实例
 Upload.SingleSize=200*1024
     '设置单个文件最大上传限制,按字节计；默认为不限制
 Upload.MaxSize=200*1024
     '设置最大上传限制,按字节计；默认为不限制
 Upload.Exe="jpg|bmp|gif"
     '设置合法扩展名,以|分割,忽略大小写
 Upload.GetData()
     '获取并保存数据,必须调用本方法

 if Upload.Err>0 then     '判断错误号,如果myupload.Err<=0表示正常
     response.write Upload.Description    '如果出现错误,获取错误描述
     response.end
 else
       input1=Upload.Forms("input1")              '获取表单input1的值
       if Upload.forms("file1")<>"" then         '这里判断你file1是否选择了文件
         set tempCls=Upload.files("file1")       '获取保存文件信息的类
             Tempbytes=tempCls.getbytes() '保存二进制数据到变量(调用getbytes方法)
         set tempCls=nothing
       end if
 end if
 set Upload=nothing    '销毁类实例

 set rs=server.createobject("adodb.recordset")  '创建一个数据集对象
 rs.open "select * from [img]",conn,1,3             '打开数据表,注意后面的参数1,3
 rs.addnew()                                                  '添加一个新行(数据集游标会自动移动到本行)
 rs("title")=input1                               '添加数据input1到字段title
 rs("image").AppendChunk Tempbytes   '添加二进制数据到数据库的Image字段
 rs.update              '更新数据集到数据库
 rs.close                 '关闭数据集
 set rs=nothing       '销毁
 conn.close             '关闭数据库连接
 set conn=nothing  '销毁
 response.write "上传到数据库成功"
%>

这样上传程序就写好了,注意添加到数据库的时候要用AppendChunk方法;开头不要忘了把上传类和数据库连接文件包含进来
   在浏览器访问upload.asp页面,添加文本、选择一个图片(小于200KB,因为我们在上面作了上传限制)，开始上传！
   到这里，如果顺利的话，文件已经成功保存到数据库了！

三、保存到数据库后怎么读出来呢？

    再看下面这段代码(保存到ReadFromDB.asp)

<%
id=request.querystring("id")
sql="select * from img where [id]=" & id '通过ID来获取文件数据
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
response.contenttype="image/jpeg"     '设置页面响应类型
response.clear
response.binarywrite rs("image")
response.flush
response.end
rs.close
set rs=nothing
conn.close
set conn=nothing
%>

先别着急运行这段代码,继续看下面的代码(index.asp)

An-Upload无组件上传类


<%
sql="select * from img order by [id] desc"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
if rs.eof and rs.bof then
        response.write "没有任何数据!现在上传"
else
        i=0
        response.write "上传的图片列表 现在上传"
        do while not rs.eof
                i=i+1
                response.write i & "." & rs("Title") & "" & vbcrlf
                response.write "300){this.width=300;}"" "
                response.write "onclick=""window.open('ReadFromDB.asp?id="&rs("id")&"');"" "
                response.write "src=""ReadFromDB.asp?id="&rs("id")&""" alt="""&rs("title")&""" />" & vbcrlf
                response.write ""&vbcrlf
                  rs.movenext
        loop
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
%>

四、好了到此为止你文件夹里应该有以下文件了
bytes.mdb     数据库
upload.asp   上传界面
AddToDB.asp   添加文件到数据库的程序
ReadFromDB.asp  从数据库读取文件的程序
index.asp   显示数据库记录的程序

忘了,还有数据库连接文件conn.asp

<%
dim conn,connstr,sql,rs
Connstr="provider=microsoft.jet.oledb.4.0;data source=" & server.mappath("bytes.mdb")
Set Conn=Server.CreateObject("ADODB.Connection") 
conn.Open connstr
If Err Then
err.Clear
Set Conn = Nothing
Response.Write "服务器出现问题，如有任何问题请联系管理员。"
Response.End
End If
%>

还有关键的文件上传类---Upload_class.asp,可以在我的站点上下载到http://dev.mo.cn/mycodes.asp

   到这里，一个简单的保存文件到数据库并显示的程序就写完了；
  在浏览器运行下index.asp,是不是看到在第二步上传的图片了，如果没有的话请仔细查看前面的步骤来修改代码！

   总体来说,这个上传类还是相对比较完美的,操作比较灵活,在提取form表单的时候支持相同name属性的表单名(数据以,分割),保存服务器可以随意选择保存方式--既可以以原名保存，也可以用程序自动生成的文件名保存(默认);同时，准确判断后缀，增强了上传的安全性。属性设置也比较灵活

   好了,就写这些了，凌晨2点该休息了！有任何问题可以联系我QQ4-1-7-8-3-3-2-7-2

一个简单的JavaScript对象编程示例

2008-12-30 21:15:56

    一个简单的JavaScript对象编程示例




function pig(Speed){           
        this.runSpeed=Speed;        
        this.Run=function(runTime){  
            return  runTime * this.runSpeed;
        };
}

var aPig=new pig("10");
document.write("我是一头小猪,我的速度是" + aPig.runSpeed + "公里/小时;我要开始跑步了....");
var runOver=aPig.Run(5);
document.write("跑了5小时,终于跑完了;我跑了" + runOver  + "公里!");

var student={
    name:"anlige",
    course:{
        count:2,
        list:{
            english:80,
            chinese:90
        }
    },
    grade:function(){
        alert(student.course.list.english + student.course.list.chinese);
    }
};
student.grade();

小夫妻的入冬交谈

2008-12-30 19:59:39

老公昨天回家,传达了可靠的小道消息，卖命多年的公司，将面临比例不小的裁员。想起最近一段每当朋友向我们诉苦，将被或正被裁员时，我们总是温和相劝，人道鼓励。而今，寒流也袭击了我们小家。
入夜，为老公斟满一杯热水，递到跟前，坐到老公腿上，听他长叹一声：年关不好过啊，撅着屁股干活的IT民工今年都不好过了。
一场省钱计划在交谈中蔓延开来---

老公:         (抬头一看)这光一个房间吊灯，就得用9个灯泡?!
格格:         拧8个剩一个!

老公:        让保姆最近肉少买，菜多买
格格:         直接开了，我来做，你不嫌弃的话
老公怜惜的看看我，还是老公做吧！
"好"我立刻答应

老公:         你不是爱吃沙拉吗，年底前玩命吃吧！
格格:         以后呢?
老公:        明年就戒了吧！

老公:         饮用水是不是快没了？咱还叫么?
格格:        喝自来水吧！
老公:         电视空调DVD机顶盒平时不用，插头全拔了吧！

格格:         老公，你怕挤公交吗?
老公:        不怕！
格格:         把车卖了吧！

格格:         老公，你讨厌吃泡面吗?
老公:        讨厌！
格格:         重新喜欢上吧！

格格:         还好没买雪地靴，明天把去年的靴子翻出来刷一刷凑合穿！
老公:         (心疼地)这小可怜儿哦，好!

格格:        老公，你嫌弃我变老长皱纹么?
老公:         你不老，没有皱纹!
格格:         要是有，你嫌弃么?
老公:        当然不会！
格格:         恩，眼霜就再不买了！

老公:        宝贝儿还想减肥么?
格格:         想呢！
老公:         好，以后菜里油会很少！

格格:        老公，你还在乎精神食粮么?
老公:         不在乎了！
格格:         把你的书都卖了吧，包括童年漫画收藏册！
老公:        当废纸么?
格格:         放淘宝!傻子!

老公:         以后手纸不再用三层加厚带弹性的了
格格:         还用什么手纸！我让我姐把学生一年内写的检讨书打包寄过来！

老公:         明儿我上街寻摸寻摸大前门多少钱一条
格格:         我晚上帮你卷烟丝攒烟头吧！

老公:        咱家狗狗长得还行，要不卖了吧？
格格:         卖不了多少钱的，实在撑不下去的时候，能管一周的伙食！

老公:         冰箱卖了吧，东西放阳台！
格格:         灰尘大，吃病了还得花药钱！

老公:        咱有钱的亲戚还剩多少?
格格:         没几个了，怎?
老公:         电话都整理下，保不齐得挨家借去！

格格:         老公，老公，你喜欢当摇滚歌星么?
老公:        咋?
格格:         头发就别再剃了！

老公懊恼的拍了拍腿:         靠，经济危机之前我应该再买个新的刮胡刀！
格格:         那样就可以再撑个5、6年了....

格格:         老公，人是不是一个肾就够用了?
老公:        恩，够用了！
格格:         另一个就卖了吧！

格格:         老公，老公，你在乎我的贞洁么?
老公:        当然在乎啊!!!!
格格:         哦，那算了...

不用额外组件的ASP在线打包程序

2008-12-25 10:46:02

   现在一般的在线打包都需要winrar程序的支持,下面介绍一种不用winrar支持的在线打包程序,源代码好像是个老外写的，有个缺陷就是打包的时候如果文件名是中文，就会出现乱码,庆幸的是文件的内容不会产生乱码,并且可以用winrar解压.
  下面是具体的程序,也可以到这里来下载:http://dev.mo.cn/upfiles/zip.rar

  index.asp文件

  <% Option Explicit %>

<%
Response.charset="gb2312"
Response.Buffer = True
Response.Clear
Dim Co,Temp,T,x,i,fsoBrowse,theFolder,TheSubFolders,FilePath,s,PH,objTar
Co=0
PH="../zip" '文件路径 '压缩父目录下zip目录的所有文件
   Set objTar = New Tarball
   objTar.TarFilename="打包.rar"  '打包的名称
   objTar.Path=PH
   set fsoBrowse=CreateObject("Scripting.FileSystemObject")
   Set theFolder=fsoBrowse.GetFolder(Server.Mappath(PH))
   Set theSubFolders=theFolder.SubFolders
   GetFileList theFolder,""
  
   If Co<1 Then
      Response.Write "暂时没有可更新的文件下载"
   'objTar.AddMemoryFile "Sorry.txt","Not File!"
   Else
      Temp=Left(Temp,Len(Temp)-1)
      FilePath=Split(Temp,"|")
      For s=0 To Ubound(FilePath)
        objTar.AddFile Server.Mappath(PH & "/" & FilePath(s))
      Next
   If Response.IsClientConnected Then
        objTar.WriteTar
        Response.Flush
   End If
   End If
   Set ObjTar = Nothing
   Set fsoBrowse= Nothing
   Set theFolder = Nothing
   Set theSubFolders = Nothing
Sub GetFileList(Folderobject,path)
Dim y,m
For Each y in Folderobject.Files
If Path <>"" Then
Temp= Temp &  path & y.Name&"|"
Else
Temp= Temp & y.Name&"|"
End If
    Co=Co+1
Next
Dim NewPath
For Each m In Folderobject.SubFolders
If path="" Then
NewPath=M.name &"/"
Else
NewPath=path & M.name &"/"
End If
GetFileList m,NewPath
Next
End Sub
%>

asptar.asp文件

<%

Class Tarball
Public TarFilename   ' Resultant tarball filename

Public UserID    ' UNIX user ID
Public UserName    ' UNIX user name
Public GroupID    ' UNIX group ID
Public GroupName   ' UNIX group name

Public Permissions   ' UNIX permissions

Public BlockSize   ' Block byte size for the tarball (default=512)

Public IgnorePaths   ' Ignore any supplied paths for the tarball output
Public BasePath    ' Insert a base path with each file
Public Path

' Storage for file information
Private objFiles,TmpFileName
Private objMemoryFiles

' File list management subs, very basic stuff
Public Sub AddFile(sFilename)
  objFiles.Add sFilename,sFilename
End Sub

Public Sub RemoveFile(sFilename)
  objFiles.Remove sFilename
End Sub

Public Sub AddMemoryFile(sFilename,sContents)
  objMemoryFiles.Add sFilename,sContents
End Sub

Public Sub RemoveMemoryFile(sFilename)
  objMemoryFiles.Remove sFilename
End Sub

Public Sub WriteTar()
  Dim objStream, objInStream, lTemp, aFiles
  Set objStream = Server.CreateObject("ADODB.Stream") ' The main stream
  Set objInStream = Server.CreateObject("ADODB.Stream") ' The input stream for data
  objStream.Type = 2
  objStream.Charset = "x-ansi" ' Good old extended ASCII
  objStream.Open

  objInStream.Type = 2
  objInStream.Charset = "x-ansi"

  aFiles = objFiles.Items
  For lTemp = 0 to UBound(aFiles)
    objInStream.Open
    objInStream.LoadFromFile aFiles(lTemp)
    objInStream.Position = 0
    TmpFileName =replace(aFiles(lTemp),Server.Mappath(Path)&"\","")
    ExportFile TmpFileName,objStream,objInStream
    objInStream.Close
  Next
  aFiles = objMemoryFiles.Keys
  For lTemp = 0 to UBound(aFiles)
    objInStream.Open
    objInStream.WriteText objMemoryFiles.Item(aFiles(lTemp))
    objInStream.Position = 0
    ExportFile aFiles(lTemp),objStream,objInStream
    objInStream.Close
  Next

  objStream.WriteText String(BlockSize,Chr(0))
  objStream.Position = 0
  objStream.Type = 1
  objStream.savetofile Server.Mappath(Path) & "\" & TarFilename,2
  objStream.Close
  Set objStream = Nothing
  Set objInStream = Nothing
End Sub

' Build a header for each file and send the file contents
Private Sub ExportFile(sFilename,objOutStream,objInStream)
  Dim lStart, lSum, lTemp
  lStart = objOutStream.Position ' Record where we are up to
  If IgnorePaths Then
   ' We ignore any paths prefixed to our filenames
   lTemp = InStrRev(sFilename,"\")
   if lTemp <> 0 then
    sFilename = Right(sFilename,Len(sFilename) - lTemp)
   end if
   sFilename = BasePath & sFilename
  End If
  
  ' Build the header, everything is ASCII in octal except for the data
  'objOutStream.charset="gb2312"
  objOutStream.WriteText Left(sFilename & String(100,Chr(0)),100)
  'objOutStream.charset="x-ansi"
  objOutStream.WriteText "100" & Right("000" & Oct(Permissions),3) & " " & Chr(0) 'File mode
  objOutStream.WriteText Right(String(6," ") & CStr(UserID),6) & " " & Chr(0) 'uid
  objOutStream.WriteText Right(String(6," ") & CStr(GroupID),6) & " " & Chr(0) 'gid
  objOutStream.WriteText Right(String(11,"0") & Oct(objInStream.Size),11) & Chr(0) 'size
  objOutStream.WriteText Right(String(11,"0") & Oct(dateDiff("s","1/1/1970 10:00",now())),11) & Chr(0) 'mtime (Number of seconds since 10am on the 1st January 1970 (10am correct?)
  objOutStream.WriteText "        0" & String(100,Chr(0)) 'chksum, type flag and link name, write out all blanks so that the actual checksum will get calculated correctly
  objOutStream.WriteText "ustar  "  & Chr(0) 'magic and version
  objOutStream.WriteText Left(UserName & String(32,Chr(0)),32) 'uname
  objOutStream.WriteText Left(GroupName & String(32,Chr(0)),32) 'gname
  objOutStream.WriteText "         40 " & String(4,Chr(0)) 'devmajor, devminor
  objOutStream.WriteText String(167,Chr(0)) 'prefix and leader
  objInStream.CopyTo objOutStream ' Send the data to the stream
  
  if (objInStream.Size Mod BlockSize) > 0 then
   objOutStream.WriteText String(BlockSize - (objInStream.Size Mod BlockSize),Chr(0)) 'Padding to the nearest block byte boundary
  end if
  
  ' Calculate the checksum for the header
  lSum = 0  
  objOutStream.Position = lStart
  
  For lTemp = 1 To BlockSize
   lSum = lSum + (Asc(objOutStream.ReadText(1)) And &HFF&)
  Next
  
  ' Insert it
  objOutStream.Position = lStart + 148
  objOutStream.WriteText Right(String(7,"0") & Oct(lSum),7) & Chr(0)
  
  ' Move to the end of the stream
  objOutStream.Position = objOutStream.Size
End Sub

' Start everything off
Private Sub Class_Initialize()
  Set objFiles = Server.CreateObject("Scripting.Dictionary")
  Set objMemoryFiles = Server.CreateObject("Scripting.Dictionary")
  
  BlockSize = 512
  Permissions = 438 ' UNIX 666
  UserID = 0
  UserName = "root"
  GroupID = 0
  GroupName = "root"
  IgnorePaths = False
  BasePath = ""
  TarFilename = "new.tar"
End Sub

Private Sub Class_Terminate()
  Set objMemoryFiles = Nothing
  Set objFiles = Nothing
End Sub
End Class
%>

艾恩ASP无组件上传类最新更新！！！！！

2008-12-20 2:02:04

   自从发布到现在,本类受到了良好的反映,现再次进行更新优化,免费发布给广大网友使用!!!!

   下载地址:http://dev.mo.cn/detial.asp?id=143

  更新日期:2008-12-20

假设类实例名为UpLoad

1.类名由UpLoad修改为AnUpLoad,创建类的方法为：set UpLoad =new AnUpLoad

2.增加Charset属性,可以指定文本的编码格式,默认为GB2312。设置方法为：UpLoad.Charset="GB2312"

3.增加表单和文件类遍历方法,使用方法:
   (1)调用UpLoad.Forms(-1),返回一个表单集合,可以用foreach来遍历所有元素,具体查看示例"表单遍历"
   (2)调用UpLoad.Files(-1),返回一个文件类集合,可以用foreach来遍历所有元素,具体查看示例"多文件文件上传"
  检索具体表单或文件的方法不变,为Upload.Forms(表单名)和Upload.Files(表单名)

4.优化了文件后缀判断程序,代码更合理

5.增加了客户提交表单类型的判断,未设置上传表单enctype属性为multipart/form-data,则提示上传无效!

6.重新制作了上传示例程序

声明:
1.本组件已经推出组件版(http://dev.mo.cn/detial.asp?id=166),组件版跟无组件版使用有区别,请查看具体示例或开发文档
2.使用时请保留作者注释信息;如要修改代码,请注明改自"艾恩ASP无组件上传类"!谢谢!

艾恩ASP组件(常用类集)正式测试开始！！！

2008-12-18 11:47:00

   组件下载地址:http://dev.mo.cn/detial.asp?id=166

   开门见山,介绍下这个组件的作用。

   使用这个组件有点省懒法的的嫌疑，这个组件把常用的几个Asp对象重新封装了一下，例如 Request.serverVariables,Request.From等，
同时封装了几个常用的自定义函数,例如HTML函数(获取指定网页的HTML代码),Download函数(下载网络上的文件,适合小文件)，SafeCode函数(生成数字验证码)等。
提供两个非常重要的类File类(执行各种文件操作)和UpLoad类(客户端文件上传类)。

   本组件最值得推荐的类就是Upload文件上传类,以前本人发过无组件版本的类集,收到了很好的效果,现在推出本类的组件版本,功能更强大,操作更灵活.

   非常欢迎和感谢您能够测试本组件的性能,本组件下载地址为http://dev.mo.cn/detial.asp?id=166，内含完整的开发文档,
详细介绍了本组件的使用方法信,同时提供本组件所有功能的测试代码,以方便本组件的使用和测试.

   非常感谢您的测试，每个项目测试成功后请在后面的复选框打钩；测试完毕后，如果您能够给我提交测试报告,本人将不胜感激!

   本程序不会收集任何有关您隐私的信息,请放心测试和使用!

------------------说明----------------------------

1.本组件提供3个类以供用户使用,这三个类分别是ASP、File、UpLoad，
  用户可以通过server.createobject("AnAsp.类名")的方法创建对象并使用本类
  例如, server.CreateObject("AnAsp.ASP"),创建成功后就可以是使用本类提供的所有方法了

2.文档中说明为“类公有方法”的函数,用户可以任意调用；
  说明为“类私有方法”的函数,用户无权调用，由程序内部自动调用。

------------------配置Anasp组件--------------------

1.注册Anasp.dll
首先，复制Anasp.dll文件到系统Windows目录下；
然后点电脑左下角的“开始”---“运行”，输入Regsvr32 Anasp.dll,点确定！
如果要解除注册,请输入Regsvr32 /u Anasp.dll,点确定!

2.在Asp程序中调用
新建一个ASP文件test.asp,输入如下代码
<%
Dim MyAsp
Set MyAsp =server.createobject("Anasp.Asp")
Response.write MyAsp.Version
Set MyAsp=nothing
%>
运行后如果出现本类集的版本信息,说明调用成功

3.到这里,基本的配置就完成了,您可以尽情享受本组件给您带来的方便了!!!

组件下载地址:http://dev.mo.cn/detial.asp?id=166

智力题--享受头脑风暴

2008-12-16 12:46:18

老师从1~50之间（大于1小于50）选了两个自然数，将两数之积告诉同学P

（Product），两数之和告诉同学S（Sum），问两位同学能否推出这两个自然数？

S说：我知道你不知道这两个数，但我也不知道。

P说：我还是不知道。

S说：我知道这两个数啦！

P说：我也知道啦！

其他同学：我们也知道啦！

……

问：老师选出的两个自然数是什么？

分析

说话依次编号为S1，P1，S2，P2。

设这两个数为x，y，和为s，积为p。

1）根据S1：“S说：我知道你不知道这两个数，但我也不知道。”

结论：已知和s，绝对无法根据积p推出x，y

推论1：

s必为奇数。因为如果s为偶数，必能分解为两个质数的和（歌德巴赫猜想）。而两个质数相乘，则可以通过乘积立刻推出两个数的值。

s <= 29。因为29是1-50之间所有自然数的最小不可能质因子。因为如果s>29，假设s为31，则x，y可能为{2，29}，而根据乘积P=2*29可以立即推出，也就与结论矛盾了。

s不能为任意两个质数之和。排除5（2+3），7（2+5），9（2+7），13（2+11），15（2+13），19（2+17），21（2+19），25（2+23）

根据以上推论，可能的和s只能在集合I={11，17，23，27，29}之中。

推论2：

因为s为奇数，则{x，y}为一奇数一偶数，所以必含有因子2。

2）根据P1，S2，P2。

结论：乘积p除了因子2以外，还至少含有两个质因子，而且最大的质因子不可能大于7。

解释：

如果除了因子2，只含有一个质因子A，则立即能推出{x，y}={2，A}，与P1矛盾。

最大质子不可能大于7。假如含有因子11，就会有p至少是11*2*3，拆成11*6或者22*3不满足条件，假如含有因子13，就会有p至少是13*2*3，拆成13*6或者26*3也不满足条件。

质因子在{2，3，5，7}的范围内

3）在集合I={11，17，23，27，29}的范围内，质因子A，B在{2，3，5，7}的范围内

列举满足所有推论的可能组成{x，y}组合。标记方法{x，y}(和，积）

和s = 11

{2，9}(11，18），{3，8}(11，24），{4，7}(11，28），{5，6}(11，30）

和s = 17

{2，15}(17，30），{3，14}(17，42），{4，13}(17，52），{5，12}(17，60）

{6，11}(17，66），{7，10}(17，70），{8，9}(17，72）

和s = 23

{2，21}(23，42），{3，20}(23，60），{4，19}(23，76），{5，18}(23，90）

{6，17}(23，102），{7，16}(23，112），{8，15}(23，120），{9，14}(23，126）

{10，13}(23，130），{11，12}(23，132）

和s = 27

{2，25}(27，50），{3，24}(27，72），{4，23}(27，104），{5，22}(27，110）

{6，21}(27，126），{7，20}(27，140），{8，19}(27，152），{9，18}(27，162）

{10，17}(27，170），{11，16}(27，176），{12，15}(27，180），{13，14}(27，182）

和s = 29

{2，27}(29，54），{3，26}(29，78），{4，25}(29，100），{5，24}(29，120）

{6，23}(29，138），{7，22}(29，154），{8，21}(29，168），{9，20}(29，180）

{10，19}(29，190）之后的已经不可能了

从以上排列组合，可以得出「和s不同，积p相同」的共有七组，设为集合Wi

W1 = { {5，6}(11，30），     {2，15}(17，30）}

W2 = { {3，14}(17，42），   {2，21}(23，42）}

W3 = { {5，12}(17，60），   {3，20}(23，60）}

W4 = { {8，9}(17，72），     {3，24}(27，72）}

W5 = { {8，15}(23，120）， {5，24}(29，120）}

W6 = { {9，14}(23，126）， {6，21}(27，126）}

W7 = { {12，15}(27，180），{9，20}(29，180）}

其他的积唯一的排列组合，都和P1矛盾（「P说：我还是不知道。」）。因为积唯一的情况下，同学P可以由积p立即推出{x，y}，所以排除。

4）通过整理集合W，现在对应每一个s，积p相同的组合个数如下所示：

s = 11，有1组，W1

s = 17，有4组，W1，W2，W3，W4

s = 23，有4组，W2，W3，W5，W6

s = 27，有3组，W4，W6，W7

s = 29，有2组，W5，W7

根据S2，也就是「S说：我知道这两个数啦！」，可以推出，只有s为11（组合个数唯一）的情况下，S才能说出这句话。这就是说{x，y}的正确答案是{5，6}(11，30)

汉字转声母

2008-12-9 14:51:20

汉字转声母,好像不完整,没找到完整的~

<%

function getpychar(char)

tmp=65536+asc(char)

if(tmp>=45217 and tmp<=45252) then

getpychar= "A"

elseif(tmp>=45253 and tmp<=45760) then

getpychar= "B"

elseif(tmp>=45761 and tmp<=46317) then

getpychar= "C"

elseif(tmp>=46318 and tmp<=46825) then

getpychar= "D"

elseif(tmp>=46826 and tmp<=47009) then 

getpychar= "E"

elseif(tmp>=47010 and tmp<=47296) then 

getpychar= "F"

elseif(tmp>=47297 and tmp<=47613) then 

getpychar= "G"

elseif(tmp>=47614 and tmp<=48118) then

getpychar= "H"

elseif(tmp>=48119 and tmp<=49061) then

getpychar= "J"

elseif(tmp>=49062 and tmp<=49323) then 

getpychar= "K"

elseif(tmp>=49324 and tmp<=49895) then 

getpychar= "L"

elseif(tmp>=49896 and tmp<=50370) then 

getpychar= "M"

elseif(tmp>=50371 and tmp<=50613) then 

getpychar= "N"

elseif(tmp>=50614 and tmp<=50621) then 

getpychar= "O"

elseif(tmp>=50622 and tmp<=50905) then

getpychar= "P"

elseif(tmp>=50906 and tmp<=51386) then 

getpychar= "Q"

elseif(tmp>=51387 and tmp<=51445) then 

getpychar= "R"

elseif(tmp>=51446 and tmp<=52217) then 

getpychar= "S"

elseif(tmp>=52218 and tmp<=52697) then 

getpychar= "T"

elseif(tmp>=52698 and tmp<=52979) then 

getpychar= "W"

elseif(tmp>=52980 and tmp<=53688) then 

getpychar= "X"

elseif(tmp>=53689 and tmp<=54480) then 

getpychar= "Y"

elseif(tmp>=54481 and tmp<=62289) then

getpychar= "Z"

else '如果不是中文，则不处理

getpychar=char

end if

end function

function getpy(str)

for i=1 to len(str)

getpy=getpy & getpychar(mid(str,i,1))

next

end function

response.write getpy("维尔康复日期万恶哦请我呢人气哦颇为而当年去玩儿")

%>

多条件查询代码(同时生成分页转向url)

2008-12-8 14:00:16

    程序编写过程中经常用到多条件查询,如果条件很多,处理起来是不是会很麻烦?
    查询完后要分页,点"下一页"后查询参数没了?
    不知道前人是怎么解决的,下面是自己摸索出来的一种方法,使用起来比较方便；
   保存下面的代码到example.asp,然后运行example.asp文件,就会看到效果
   程序会自动保存提交的查询参数,即使翻页也不会丢失！

<%

keyword                =trim(request.querystring("keyword"))

YY_Type                =trim(request.querystring("YY_Type"))

YY_IS_Check        =trim(request.querystring("YY_Is_Check"))

YY_Is_Start        =trim(request.querystring("YY_Is_Start"))

YY_Is_End        =trim(request.querystring("YY_Is_End"))

%>

多条件查询示例

请输入关键字进行搜索 : 

                " />

                        >不限

                        >仪器预约

                        >实验室预约

                        >不限

                        >未审核

                        >已经审核

                        >不限

                        >未开约

                        >已经开约

                        >不限

                        >未销约

                        >已经销约

<%

page=cint(request.querystring("page"))                         '获取页面传递过来的分页参数

if page="" or page<1 then page=1                           '处理传递过来的分页参数

dim keyword,YY_Type,YY_Is_Check,YY_Is_Start,YY_Is_End        '定义变量

dim vs(5)                                                '定义数组,本数组用来存储url参数

vs(0)="":vs(1)="":vs(2)="":vs(3)="":vs(4)=""                '初始化

'根据条件开始给数组元素赋值,以确定查询参数

if keyword<>"" then         vs(0)="keyword=" & keyword

if YY_Type<>"" then         vs(1)="YY_Type=" & YY_Type

if YY_IS_Check<>"" then vs(2)="YY_IS_Check=" & YY_IS_Check

if YY_Is_Start<>"" then vs(3)="YY_Is_Start=" & YY_Is_Start

if YY_Is_End<>"" then         vs(4)="YY_Is_End=" & YY_Is_End

'赋值结束

dim conStr(5)                                                '定义数组,本数组存储SQL查询条件

conStr(0)="":conStr(1)="":conStr(2)="":conStr(3)="":conStr(4)=""        '初始化

'根据条件开始给数组元素赋值,以确定查询条件

if keyword<>"" then                                  conStr(0)="[YY_User]='" & keyword & "'"

if YY_Type<>"0" and YY_Type<>"" then                 conStr(1)="[YY_Type]=" & YY_Type

if YY_Is_Check<>"all" and YY_Is_Check<>"" then         conStr(2)="[YY_Is_Check]=" & YY_Is_Check   '这里排除all值,是all的话就没必要加查询条件了;下同

if YY_Is_Start<>"all" and YY_Is_Start<>"" then         conStr(3)="[YY_Is_Start]=" & YY_Is_Start

if YY_Is_End<>"all" and YY_Is_End<>"" then         conStr(4)="[YY_Is_End]=" & YY_Is_End

'赋值结束

dim SQLSTR:SQLSTR=""                                        '定义变量,存储组合后的SQL查询条件

dim sendSTR:sendSTR=""                                        '定义变量,存储组合后的url参数

'循环赋值

for i=0 to 4

        if conStr(i)<>"" then

                if SQLSTR="" then                        

                        SQLSTR=" where " & conStr(i)        '使用此条件来添加where关键字

                else

                        SQLSTR=SQLSTR & " and " & conStr(i)        '关键字and来连接查询条件

                end if

        end if

        if vs(i)<>"" then

                sendSTR=sendStr & vs(i) & "&"                        '直接用&来链接各url参数

        end if

next

SQL="Select * from [YYStatus]" & SQLSTR & " Order By [ID] DESC"                '生成查询SQl

s_url="example.asp?" & sendStr                                                '生成分页转向url,注意example.asp后面的?,一定不要漏了

response.write "生成的SQL查询语句:" & SQL

response.write "生成的分页转向url:" & s_url

response.write "当前在第" & page & "页!"

response.write "上一页 下一页"

%>

图片滚动代码（非Marquee）

2008-12-2 21:28:07

关于包含文件---服务器端包含

2008-11-28 10:04:35

“服务器端包含”指令提供了一种方式，可在 Web 服务器处理文件之前，在此文件中插入其他文件的内容。ASP 只实现此机制的 #include。可使用下列语法将文件插入 .asp 文件：

关键字 virtual 和 file 表示包含文件的路径类型，filename 表示想要包含文件的路径和文件名。

被包含的文件并不要求具有特定的文件扩展名；但是，赋予被包含文件 .inc 扩展名是一个良好的编程习惯，这样有助于将它们与其他类型的文件区分开来。

使用 Virtual 关键字
可以使用关键字 virtual 表示以虚拟目录开始的路径。例如，如果文件 Footer.inc 驻留在虚拟目录 /Myapp 中，则下列命令将 Footer.inc 的内容插入到包含此行的文件中：

使用 File 关键字
可以使用关键字 file 表示相对路径。相对路径以包含文件所在的路径开始。例如，如果文件 Header1.inc 在 Myapp\Headers 中，并且 Myapp 中有一个文件，则下列命令将 Header1.inc 插入到此文件中：

注意，被包含文件 Headers\header1.inc 的路径是相对于包含文件的；如果包含此 #include 语句的脚本不位于目录 /Myapp 中，语句将不起作用。

也可以使用关键字 file 和语法 (..\) 来包含父目录或更高层目录中的文件，但必须选中 Internet 信息服务管理单元中的“启用父路径”选项。有关说明，请参阅配置 ASP 应用程序。

被包含文件的位置
ASP 检测被包含文件的变化（不考虑位置），并当浏览器下一次请求包含此文件的 .asp 文件时插入此文件内容。不过，通常而言，如果包含文件驻留在同一应用程序或网站内部，则很容易维护这些文件的安全性。若需要更高安全性，最好将包含文件放到应用程序内的单独目录中（如 \Includes），并且只应用适当的“执行”（Web 服务器）权限。详细信息，请参阅设置 Web 服务器权限。

要点   默认情况下，对所有文件应用 Web 服务器“读取”权限。不过，要防止用户查看包含文件的内容，可以禁用 Include 目录的“读取”权限。

包含文件：提示和警告
被包含的文件也可以包含其他文件。只要 #include 命令不导致循环，.asp 文件也可以多次包含同一文件。例如，如果文件 First.asp 包含文件 Second.inc，则 Second.inc 不能反过来包含 First.asp。文件也不能包含其自身。ASP 检测这种循环或嵌套错误，生成错误消息，并停止处理请求的 .asp 文件。

ASP 在执行脚本命令之前包含文件。因此，不能使用脚本命令建立被包含的文件名。举例来说，因为 ASP 试图在将文件名指派给变量 name 之前执行 #include 命令，所以下列脚本无法打开文件 Header1.inc。

<% name=(header1 & ".inc") %>

脚本命令和过程必须完全包含在脚本分隔符 <% 和 %>、HTML 标签、或 HTML 标签  和  之内。也就是说，不能在一个包含 .asp 文件中打开脚本分隔符，并在被包含的文件中关闭分隔符；脚本或脚本命令必须是一个完整的单元。例如，下列脚本将不起作用：

<%
  For i = 1 To n
    主文件中的语句

  Next
%>
但下列脚本可以正常工作：

<%
  For i = 1 to n
    主文件中的语句
%>

<% Next %>
注意   如果 ASP 脚本包含的文件中存在包含脚本不需要的大量函数和变量，则这些无用的结构反而会影响性能，并最终降低 Web 应用程序的可扩展性。因此，通常将包含文件分成多个小文件，并且只包含那些服务器端脚本必需的文件，而不是包含那些带有冗余信息的一个或多个大型包含文件。

有时，可能需要使用 HTML  标签来包含服务器端文件。例如，下列脚本包含一个服务器可以执行的文件（使用相对路径）：

利用ASP显示Excel电子表格

2008-11-22 8:54:41

本课程要求在系统中已安装了 Microsoft Excel，且示例不支持在 64 位平台上运行，除非 Excel 是为 64 位平台开发的版本。

本课程演示如何在网页中显示一个 Microsoft Excel 电子表格。如同在以前课程中那样，将使用 ADO。然而，在本课程中，您将连接到 Excel 电子表格，而不是 Access 数据库。

准备将在 Active Server Page 中显示的 Excel 电子表格
使用 Excel 98 或 Excel 2000，创建一个电子表格，并将其保存在 x:\Inetpub\Wwwroot\Tutorial 中，文件名为 ASPTOC.xls。创建电子表格时不要包括任何特殊的格式或列标签。
用随机数据填充一些字段。将单元格的第一行作为列名称。
选中要在网页中显示的电子表格的行和列（在某一单元格中单击，然后沿对角线拖动鼠标选中一组单元格）。
在“插入”菜单上，选择“名称”，然后单击“定义”。所有工作簿的名称和单元格区域都在此对话框中定义。
确保选中的单元格区域正确显示在底部。为您的工作簿键入名称“MYBOOK”，然后选择“添加”。无论何时改变 MYBOOK 时，请确保在“定义名称”窗口底部的“引用位置”文本框中显示了正确的单元格区域。仅仅在新选中一组单元格后选择 MYBOOK，不会更新单元格区域。
在名称显示在工作簿列表后，单击“确定”按钮。保存电子表格。
关闭 Excel，去除对文件的锁定，以便 ASP 网页可以对其进行访问。
在第 3 课的示例中，将在连接字符串中指定提供程序的名称，以映射到特定的 ADO DLL。在本示例中，将使用一个驱动程序名称，使 ASP 使用此驱动程序的默认提供程序。

将下列代码复制并粘贴到文本编辑器中，将文件保存在 x:\Inetpub\Wwwroot\Tutorial 目录中，文件名为“ViewExcel.asp”。在浏览器地址栏中键入 http://localhost/Tutorial/ViewExcel.asp 查看此示例。

  <%@ Language=VBScript %>



  在网页中显示 Excel 电子表格

在网页中显示 Excel 电子表格

  <%
   '创建连接字符串，创建一个 Connection 对象示例，
   '然后连接到数据库。
   strDriver = "Driver={Microsoft Excel Driver (*.xls)};DBQ=C:\Inetpub\Wwwroot\Tutorial\MyExcel.xls;"
   Set objConn = Server.CreateObject("ADODB.Connection")
   objConn.Open strDriver

   '使用已保存的工作簿名称从 Excel 电子表格中选择记录。
   strSELECT = "SELECT * from `MYBOOK`"

   '创建一个 ADO Recordset 对象示例，并将其连接到 objConn。
   Set objRS = Server.CreateObject("ADODB.Recordset")
   objRS.Open strSELECT, objConn

   '使用 GetString 方法打印表中的单元格和行。
   Response.Write "

使用 GetString 方法将 Excel 数据取入一个字符串

"
   Response.Write ""
   Response.Write objRS.GetString (, , "", "", NBSPACE)
   Response.Write ""

   '移动到第一条记录。
   objRS.MoveFirst

   '使用 ViewGB.asp 方法打印表中的单元格和行。
   Response.Write "

使用 MoveNext 方法获取 Excel 数据

"

   '使用相应方法和属性打印输出 Recordset 对象的
   '字段名称和属性
   Response.Write ""

   '对于当前行中的每一列...
   For i = 0 to (objRS.Fields.Count - 1)
     ' 输出字段名称。
     Response.Write "" & objRS(i).Name & ""
   Next

   '如果还没有到达记录集的尾部...
   While Not objRS.EOF

     Response.Write ""

     '对于当前行中的每一列...
     For i = 0 to (objRS.Fields.Count - 1)
       ' 输出字段中的数据。
       %><%=objRS(i)%><%
     Next

     '移动到下一行。
     objRS.MoveNext

   Wend

   Response.Write ""

   '关闭连接。
   objConn.Close
  %>





在浏览器中，您应看到下列结果：

在网页中显示 Excel 电子表格
使用 GetString 方法将 Excel 数据取入一个字符串
A2 B2 C2
A3 B3 C3

使用 MoveNext 方法获取 Excel 数据
A1 B1 C1
A2 B2 C2
A3 B3 C3

在ASP网页中使用COM组件-创建VisualBasicCOM对象

2008-11-22 8:45:52

在本课中，您将使用 Visual Basic 创建简单的 COM 对象，此对象可以从 ASP 网页中进行调用。本示例需要 Visual Basic 带有 ActiveX 向导，64 位的平台不支持本示例，除非此 Visual Basic Runtime 是为 64 位平台开发的。您可以创建运行在 64 位平台上的 32 位 COM 对象，但必须从 32 位应用程序调用这个 32 位 COM 对象。因为 IIS 是 64 位平台上的 64 位应用程序，它无法调用 32 位对象。

假定您需要创建一个 Web 应用程序，而此应用程序需要的功能 VBScript 却不具备。此时，必须创建一个自定义过程，并且需要时能从应用程序中的任何 ASP 网页进行调用。

通常，这种解决方案对于封装自定义功能是足够的。然而，您可能要创建一个为数千用户提供服务的 Web 应用程序，而您的过程封装了不希望其他人看到的私有函数。此时，将功能封装为 COM 组件的形式应当是首选方案。组件提供的安全性和性能比脚本更高，因为它们是已编译的代码。组件还允许您使用由 Visual Basic、C++、Java 或其他兼容 COM 的语言提供的功能。

创建 ActiveX COM 对象
Visual Basic 的 ActiveX DLL 向导是创建 COM 组件最简便的方法。您也可以使用 Microsoft Visual C++ 创建 COM 组件，方法是通过 Active Template Library (ATL) 或自己编写全部代码，本示例使用 Visual Basic。

在本课程中，您将学习如何创建一个 Visual Basic 函数，并将其封装为组件。Visual Basic 包含许多不能用于 VBScript 的财务函数。本示例根据固定的利率以及定期、固定的付款来计算一笔投资的未来价值。

打开 Visual Basic。如果未出现标题为“新建工程”的窗口，请选择“文件”，然后单击“新建工程”。
选择“ActiveX DLL”，单击“确定”。
将打开一个名为“工程1 - Class1 (Code)”的窗口。可以在此处输入代码。
在“工程”菜单中，单击“工程1 属性”。在“通用”属性页的“工程名称”框中，键入 ASPTut。您的 DLL 称为 ASPTut.dll。选中“执行无用户界面”复选框，这样工程就可以在没有用户交互的情况下运行，并且不出现用户界面元素。请确认“线程模型”为“单元线程”，这样，多个用户就可以同时访问 DLL。单击“确定”。
在 Visual Basic 中，定义一个类，将方法和属性组合在一起。在“工程 - ASPTut”窗口之下，单击“Class1 (Class1)”节点，列出类的属性。在“属性 - Class1”之下，在“（名称）”旁边的文本字段中单击，并将类名称更改为 Finance。当您在 ASP 网页或其他脚本中调用此 COM 组件时，需要使用 ASPTut.Finance 对其进行引用。单击“Instancing”旁边的下拉菜单，并选择“5 - MultiUse”。
了解一下将要使用的 Visual Basic 函数。可在 MSDN 上的 Visual Basic 库中找到有关 FV 函数的信息。
刚才标题为“工程1 - Class1 (Code)”的窗口的标题现在更改为 ASPTut - Finance (Code)。将下列文本复制并粘贴到此窗口中：

Option Explicit

'声明将由 Property 函数设置的全局变量。
Dim gAnnualIntRate As Double
Dim gNumPayPeriods As Integer
Dim gPayment As Double
Dim gPresentSavings As Variant '可选
Dim gWhenDue As Variant '可选

Public Function CalcFutureValue() As Double

  '用户在 ASP 网页中设置属性时，
  '也就设置了要传递给 FV 函数的全局变量。
  '如果想避免使用属性，
  '可以将变量传递给 CalcFutureValue() 函数。
  'CalcFutureValue 将成为组件中的一种方法。

  Dim IntRatePerPeriod As Double
  Dim FullFutureValue As Double

  If (gAnnualIntRate = Null) Or (gNumPayPeriods = Null) Or (gPayment = Null) Then
    CalcFutureValue = 0
  Else
    IntRatePerPeriod = gAnnualIntRate / 100 / 12
    FullFutureValue = FV(IntRatePerPeriod, gNumPayPeriods, gPayment, gPresentSavings, gWhenDue)
    CalcFutureValue = Round(FullFutureValue, 2)
  End If

End Function

Public Property Get AnnualIntRate() As Double
  'Get 函数以类似属性的形式
  '返回全局变量的值。
  '在 ASP 网页中，可以表述为 x = oASPTut.Rate。
  AnnualIntRate = gAnnualIntRate
End Property

Public Property Let AnnualIntRate(ByVal vAnnualIntRate As Double)
  'Let 函数在 ASP 网页进行调用（例如 oASPTut.Rate = 5）时
  '设置全局变量
  gAnnualIntRate = vAnnualIntRate
End Property

Public Property Get NumPayPeriods() As Integer
  NumPayPeriods = gNumPayPeriods
End Property

Public Property Let NumPayPeriods(ByVal vNumPayPeriods As Integer)
  gNumPayPeriods = vNumPayPeriods
End Property

Public Property Get Payment() As Double
  Payment = gPayment
End Property

Public Property Let Payment(ByVal vPayment As Double)
  gPayment = -(vPayment)
End Property

Public Property Get PresentSavings() As Variant
  PresentSavings = gPresentSavings
End Property

Public Property Let PresentSavings(ByVal vPresentSavings As Variant)
  gPresentSavings = -(vPresentSavings)
End Property

Public Property Get WhenDue() As Variant
  WhenDue = gWhenDue
End Property

Public Property Let WhenDue(ByVal vWhenDue As Variant)
  gWhenDue = vWhenDue
End Property

所有服务器组件都需要一个入口（起始）点。所谓入口点就是使用 Server.CreateObject 初次设置对象实例时要调用的代码。首次调用 ASPTut 组件时，无需进行任何特殊操作。因此，您可以提供一个空的 Sub Main 过程。在“工程”菜单中选择“添加模块”。在“添加模块”窗口中的“新建”选项卡之下，选择“模块”图标并单击“打开”。在“Module 1”代码窗口中，键入 Sub Main 并按 Enter 键。这样即创建了一个空的子过程。
将 Sub Main 模块保存为 Main.bas。将类文件保存为 Finance.cls。将工程保存为 ASPTut.vbp。
单击“文件”，再单击“生成 ASPTut.dll”。这将编译并注册 ASPTut.dll。从 ASP 网页调用 ASPTut.dll 之后，除非卸载运行 ASP 文件的应用程序，否则将不能再在 Visual Basic 中生成 DLL。卸载方法之一是使用 Internet 信息服务管理单元打开默认网站的属性，再单击“卸载”按钮。如果需要在另一个 Web 服务器上注册此 DLL，请将 ASPTut.dll 复制到此服务器，再单击“开始”，单击“运行”，然后在“打开”文本框中键入 cmd。在 ASPTut.dll 所在的目录中，键入 regsvr32 ASPTut.dll。
退出 Visual Basic。
创建一个使用 Visual Basic COM 对象的 ASP 网页
本示例中的 ASP 网页使用表单读取用户数据，创建一个对象实例，并计算储蓄计划的未来价值。

将下列代码复制并粘贴到文本编辑器中，然后将此文件保存在 x:\Inetpub\Wwwroot\Tutorial 目录中，文件名为 CalculateFutureValue.asp。通过在浏览器的地址栏中键入 http://localhost/Tutorial/CalculateFutureValue.asp，可以在浏览器中查看此示例的效果。

  <%@ Language=VBScript %>

  <%
  Response.Expires = 0
  Payment = Request.Form("Payment")
  AnnualIntRate = Request.Form("AnnualIntRate")
  NumPayPeriods = Request.Form("NumPayPeriods")
  WhenDue = Request.Form("WhenDue")
  PresentSavings = Request.Form("PresentSavings")
  %>


  计算未来价值



  计算储蓄计划的未来价值




  每月计划存入多少钱？
  > （必填）

  请输入年利率。
  > （必填）

  您要存几个月？
  > （必填）

  您将在每月的何时付款？
  >月初
  >月末

  此储蓄帐号里现在有多少钱？
  >





  <%
  If ("" = Payment) Or ("" = AnnualIntRate) Or ("" = NumPayPeriods) Then

    Response.Write "尚未输入有效值。"

  ElseIf (IsNumeric(Payment)) And (IsNumeric(AnnualIntRate)) And (IsNumeric(NumPayPeriods)) Then

    Dim FutureValue
    Set oASPTut = Server.CreateObject("ASPTut.Finance")
    oASPTut.AnnualIntRate = CDbl(AnnualIntRate)
    oASPTut.NumPayPeriods = CInt(NumPayPeriods)
    oASPTut.Payment = CDbl(Payment)
    If Not "" = PresentSavings Then oASPTut.PresentSavings = CDbl(PresentSavings)
    oASPTut.WhenDue = WhenDue
    FutureValue = oASPTut.CalcFutureValue
    Response.Write "未来价值 = $" & FutureValue & ""

  Else

    Response.Write "某些值不是数字。"

  End If

  %>





在浏览器中，您应看到下列结果：

在ASP网页中使用COM组件-统计网页的点击数

2008-11-22 8:44:03

了解人们请求（或点击）网页的次数可能会对您很有帮助。高流量的站点可以为您带来更多的广告收入。一些网站使用此数据按单次点击向广告用户收取统一的费用。流量信息也可说明用户在站点中浏览导航的方式，告诉您应当将广告置于何处。至于那些几乎从不被人点击的网页，说明需要对其设计进行修改。

PageCounter 组件使用一个内部对象在服务器上记录网页的点击数。PageCounter 定期将所有信息保存在一个文本文件中，这样就不会因断电或系统故障而丢失任何统计数据。PageCounter 组件使用如下三种方法：

Hits   此方法显示网页的点击次数。默认值为调用网页。
PageHit   此方法增加当前网页的点击次数。如果需要记录 ASP 网页的点击次数，必须在此网页内部调用这个方法。
Reset   此方法将网页的点击次数设置为零。默认值为调用网页。
将下列代码复制并粘贴到文本编辑器中，然后将此文件保存在 x:\Inetpub\Wwwroot\Tutorial 目录中，文件名为 PageCounter.asp。通过在浏览器的地址栏中键入 http://localhost/Tutorial/PageCounter.asp，可以在浏览器中查看此示例的效果。

  <%@ Language=VBScript %>



  网页计数器示例

网页计数器示例

  是否要重新设置此网页的计数器？

  <%
   '设置 PageCounter 对象的实例。
   Set MyPageCounter = Server.CreateObject("MSWC.PageCounter")

   '增加此网页的计数器值。
   MyPageCounter.PageHit

   If Request.QueryString("reset") = "True" Then
     '重新设置此网页的计数器。
     MyPageCounter.Reset("/Tutorial/PageCounter.asp")
   End If
  %>

  此网页的点击数为 <%=MyPageCounter.Hits %>





在浏览器中，您应该看到下列结果：

  网页计数器示例
  是否要重新设置此网页的计数器？


  此网页的点击数为 1

单击浏览器中的“刷新”按钮或网页上的“提交”按钮，观察点击计数器值的增加过程。如果需要重新设置计数器，请选中以上复选框。

在ASP网页中使用COM组件-轮换广告

2008-11-22 8:42:52

广告是网站的重要业务。本教程说明了如何使用与 IIS 一起安装的 Ad Rotator 组件在网页上轮换广告。Ad Rotator 组件在每次用户加载或刷新网页时为网页选择一个广告。另外，如果您需要更改广告，则只需要在重定向和轮换计划文件中更改此广告即可，而不必修改包含此广告的所有 ASP 文件。如果此广告出现在网站中的许多网页上，这样就可以节省开发时间。

建立 Ad Rotator 组件需要两个文件：重定向文件（包含指向广告的 URL 链接）以及轮换计划文件（包含显示数据）。通过建立这两个文件，网站上的任何 ASP 网页都可调用 Ad Rotator 组件。

在本教程中，您将执行下列任务：

示例 1   创建一个 Ad Rotator 轮换计划文件，此文件在调用它的任何网页上创建一个广告图像链接。
示例 2   创建一个 Ad Rotator 重定向文件，此文件指定公共的广告显示数据以及每个广告的特定信息。
示例 3   创建一个包含文件以保存 Ad Rotator 调用代码。
示例 4   创建一个调用 Ad Rotator 组件的 ASP 网页来显示和轮换广告，从而测试 Ad Rotator。本示例要求首先完成示例 1、2、3。

示例 1：创建一个 Ad Rotator 轮换计划文件
轮换计划文件用于为要显示的广告编录信息，这些信息包括单击广告后的重定向信息、要显示的广告的大小、要显示的图象、广告的注释，以及表明特定广告被选中的频率的数字。在 ASP 网页中调用 Ad Rotator 组件的方法时，组件会使用此文件来选择要显示的广告。

轮换计划文件用星号 (*) 分成两节。第一节提供了所有广告的公共信息，第二节则列出了每个广告的特定数据。若要测试轮换计划文件，您可以使用 Microsoft.com 上的一些图像作为广告图像。下列列表概述了轮换计划文件的结构：

第 1 节
Redirection   URL 形式的、可在显示广告前执行的 ASP 文件的路径和名称。此文件可用于记录单击广告的用户的有关信息。您可以记录客户端 IP 地址、客户端看到的广告所在的网页、广告点击的频率等信息。如果没有任何 URL 与第 2 节中的广告相关联，ASP 文件也可以处理这种情况。在按广告点击次数向广告客户收费时，最好能够向客户证明这些点击不是同一位用户反复点击“刷新”的结果。
Width   每个广告图像的宽度，以像素为单位。默认值为 440。
Height   每个广告图像的高度，以像素为单位。默认值为 60。
Border   环绕在每个广告图像周围的边框宽度。默认值为 1。
星号 (*)   将第 1 节与第 2 节分开。此字符必须独立成行。
第 2 节
您需要为每个广告提供下列信息：

图像 URL   广告的图像文件的虚拟路径和文件名。
广告客户主页的 URL   选择此链接时跳转到的 URL。如果没有链接，请使用连字符 (-)。
文本   浏览器不支持图片时显示的文字。
印记   一个整数，表示 Ad Rotator 组件选择广告时选中此广告的相对几率。例如，如果列出两个广告，印记值为 3 的广告被选中的几率为 30%，而印记值为 7 的广告被选中的几率为 70%。在本示例中，Ad Rotator 组件选中 Microsoft Windows® 广告的几率为 2/5，而选中 Microsoft Office 广告的几率为 3/5。
将下列代码复制并粘贴到文本编辑器中，然后将此文件保存在 x:\Inetpub\Wwwroot\Tutorial 目录中，文件名为 MyAdRot.txt。

  REDIRECT AdRotRedirect.asp
  WIDTH 250
  HEIGHT 60
  BORDER 0
  *
  http://www.microsoft.com/windows/images/bnrWinfam.gif
  http://www.microsoft.com/windows
  Microsoft Windows
  2
  http://www.microsoft.com/office/images/office_logo.gif
  http://www.microsoft.com/office
  Office 2000
  3



示例 2：创建一个 Ad Rotator 重定向文件
用户单击广告时，用 ASP 编写的 Ad Rotator 重定向文件可以在显示广告之前，捕获某些信息，并将这些信息写入一个文件。

要使其生效，x:\InetPub\Wwwroot\Tutorial 文件夹必须为 IUSR_ComputerName 和 IWAM_ComputerName 帐号授予读/写的访问权限。您也可以使用本教程单元 1 第 3 课中的代码将此信息写入一个 Microsoft Access 数据库。

将下列代码复制并粘贴到文本编辑器中，然后将此文件保存在 x:\Inetpub\Wwwroot\Tutorial 目录中，文件名为 AdRotRedirect.asp。

  <%@ Language=VBScript %>



  AdRotRedirect file



  <%
   '创建一些变量。
   dim strLogFile

   '获取 Web 目录的物理路径，这样我们就可以知道此路径确实存在。
   'ASP Server 对象有许多有用的方法。
   strLogFile = Server.MapPath(".")& "\AdRotLog.txt"

   '设置一些用于处理文件的常量。
   Const cForAppending = 8
   Const cTristateUseDefault = -2

   '创建一个 FileSystemObject 对象，
   '此对象使您能够对系统中的文件和文件夹进行访问。
   Set fsoObject = Server.CreateObject("Scripting.FileSystemObject")

   '打开指向此文件的句柄。
   'True 表示如果此文件不存在，则创建此文件。
   Set tsObject = fsoObject.OpenTextFile(strLogFile, cForAppending, True)

   '记录刚刚单击广告的用户的数据。
   '我们已经使用过 ASP Request 对象的 Write 方法。
   'ASP Request 对象的 ServerVariables 集合可以保存
   '向 Web 服务器发出的每个请求的大量有关数据。
   tsObject.WriteLine "--------------------"
   tsObject.WriteLine Date & ", " & Time
   tsObject.WriteLine Request.ServerVariables("LOGON_USER")
   tsObject.WriteLine Request.ServerVariables("REMOTE_ADDR")
   tsObject.WriteLine Request.QueryString("url")
   tsObject.WriteLine Request.ServerVariables("HTTP_REFERER")
   tsObject.WriteLine Request.ServerVariables("HTTP_USER_AGENT")
   tsObject.Close

   '使用 ASP Response 对象的 Redirect 方法
   '重定向到广告客户的网站。
   'AdRotator 组件调用 AdRotRedirect.asp 时，
   '会自动将广告客户的 URL 传入到 QueryString 中。
   Response.Redirect Request.QueryString("url")
  %>






示例 3：创建一个 Ad Rotator 包含文件
包含文件可以存储那些要用于多个 ASP 或 HTML 文件的代码。将 Ad Rotator 代码放入包含文件中的一个简单函数将非常有用。利用 Ad Rotator 包含文件，您在希望显示一个广告时，只需要从任何 ASP 或 HTML 文件进行一次函数调用即可。您也可以将包含文件中的代码放入每一个要显示广告的 ASP 文件中。但是，这种情况下，如果需要修改此代码，就必须修改每一个 ASP 文件，而不是仅仅在一个包含文件中进行修改。

在本示例中，您将创建一个 Ad Rotator 包含文件，其中包含一个函数，名为 GetAd。此函数随机选择将显示在 ASP 网页上的广告。

将下列代码复制并粘贴到文本编辑器中，然后将此文件保存在 x:\Inetpub\Wwwroot\Tutorial 目录中，文件名为 AdRotatorLogic.inc。

  <%
   Function GetAd()

     dim objLoad

     '创建一个 AdRotator 组件的实例。
     Set objLoad = Server.CreateObject("MSWC.AdRotator")

     '设置 TargetFrame 属性（如果有）。如果网页使用框架，
     '将在这个框架中打开此 URL。
     '如果 HTML 网页没有找到这个 TARGET 名称，
     '则将在新窗口中打开此 URL。
     objLoad.TargetFrame = "TARGET=new"

     '设置一个其他的 AdRotator 属性。
     objLoad.Border = 1

     '从文本文件获取随机广告。
     GetAd = objLoad.GetAdvertisement("MyAdRot.txt")

   End Function
  %>



示例 4：测试 Ad Rotator
若要测试建立在 Ad Rotator 组件基础之上的应用程序，您需要一个 ASP 网页用来调用所创建的 Ad Rotator 包含文件中的函数。

将下列代码复制并粘贴到文本编辑器中，然后将此文件保存在 x:\Inetpub\Wwwroot\Tutorial 目录中，文件名为 DisplayAds.asp。通过在浏览器地址栏中键入 http://localhost/Tutorial/DisplayAds.asp，可以在浏览器中查看此示例的效果。

  <%@ Language=VBScript %>



  显示一个广告

显示一个广告

  包括您创建的文件以获取广告。


  调用包含文件中的函数。
  <%=GetAd()%>





在浏览器中单击“刷新”按钮大约 20 次，观察广告的变化。单击此广告，看看 AdRotRedirect.asp 如何将您重定向到广告用户的网站。打开 AdRotLog.txt 查看单击广告时记录的信息。

利用JQuery实现简单AJAX

2008-10-29 17:00:46

简单的ajax示例,其中jquery-1.2.6.pack.js包可以到这里来下载
jquery-1.2.6.pack.js
解压后,里面的jquery1.26.rar就有本文件，是压缩版

下面是具体代码

example.html文件内容

实例

msg

code.js的内容

$(document).ready(function(){

        $("#msg").css({

                             "width":"800px",

                        "border":"1px #dddddd solid"

                             });

        $("#msg").ajaxStart(function(){$(this).html("请求中...")});

        $("#msg").hide().fadeIn("slow");

        $.ajax({

         type: "get",

         url: "http://dev.mo.cn",

         data:   "name=John&location=Boston",

         success: function(msg){$("#msg").html(msg).hide().fadeIn("slow");} 

                }); 

});

任意拖动层(DIV)JS代码

2008-10-17 18:39:07

任意拖动层(DIV)的代码,调用方法有点复杂！

层拖动代码

简单的服务器组件支持情况查询

2008-10-17 14:11:28

组件支持情况

<%

Dim theInstalledObjects(16)

theInstalledObjects(0) = "MSWC.AdRotator"

theInstalledObjects(1) = "MSWC.BrowserType"

theInstalledObjects(2) = "MSWC.NextLink"

theInstalledObjects(3) = "MSWC.Tools"

theInstalledObjects(4) = "MSWC.Status"

theInstalledObjects(5) = "MSWC.Counters"

theInstalledObjects(6) = "MSWC.PermissionChecker"

theInstalledObjects(7) = "Scripting.FileSystemObject"

theInstalledObjects(8) = "adodb.connection"

theInstalledObjects(9) = "SoftArtisans.FileUp"

theInstalledObjects(10) = "SoftArtisans.FileManager"

theInstalledObjects(11) = "JMail.Message"

theInstalledObjects(12) = "CDONTS.NewMail"

theInstalledObjects(13) = "Persits.MailSender"

theInstalledObjects(14) = "LyfUpload.UploadFile"

theInstalledObjects(15) = "Persits.Upload.1"

theInstalledObjects(16) = "w3.upload"

For i=0 to 16

Response.Write " " & theInstalledObjects(i) & " "

select case i

case 7

Response.Write "(FSO 文本文件读写)"

case 8

Response.Write "(ACCESS 数据库)"

case 9

Response.Write "(SA-FileUp 文件上传)"

case 10

Response.Write "(SA-FM 文件管理)"

case 11

Response.Write "(JMail 邮件发送)"

case 12

Response.Write "(WIN虚拟SMTP 发信)"

case 13

Response.Write "(ASPEmail 邮件发送)"

case 14

Response.Write "(LyfUpload 文件上传)"

case 15

Response.Write "(ASPUpload 文件上传)"

case 16

Response.Write "(w3 upload 文件上传)"

end select

Response.Write ""

If Not IsObjInstalled(theInstalledObjects(i)) Then

Response.Write "×"

Else

Response.Write "√ " & getver(theInstalledObjects(i)) & ""

End If

Response.Write "" & vbCrLf

Next

%>

<%

Function IsObjInstalled(strClassString)

On Error Resume Next

IsObjInstalled = False

Err = 0

Dim xTestObj

Set xTestObj = Server.CreateObject(strClassString)

If 0 = Err Then IsObjInstalled = True

Set xTestObj = Nothing

Err = 0

End Function

''''''''''''''''''''''''''''''

Function getver(Classstr)

On Error Resume Next

getver=""

Err = 0

Dim xTestObj

Set xTestObj = Server.CreateObject(Classstr)

If 0 = Err Then getver=xtestobj.version

Set xTestObj = Nothing

Err = 0

End Function

%>

滑动门效果(利用Table边框)

2008-10-15 17:12:17

下午帮人做了个滑动门,有点复杂~仅仅作为参考吧

滑动门效果(利用Table边框)

.eTable {font-size:12px;color:#222222;width:300px;border:1px solid #333333;border-collapse: collapse;margin-bottom:5px;}

TD {padding:3px;border:1px #333333 solid;}

.eHead {font-weight:bold;}

.eCount {width:100px;}

.hiddenw {display:none;}

function change(x,tid){

var obj;

var tTd;

        var i=0;

        for(i=1+(x-1)*3;i<=x*3;i++){

                obj=document.getElementById("div"+i);

                tTd=document.getElementById("t"+i);

                if(parseInt(tid)+(x-1)*3==i){

                        tTd.style.border="0";

                        obj.style.display="block";

                }else{        

                        tTd.style.border="1px #333333 solid";

                        obj.style.display="none";                

                }

        }

}

                        1

                        2

                        3

                        项目一

项目二

项目三



1
2
3

项目4
项目5
项目6

类似MSN提示的页面效果

2008-10-14 20:37:57

类似MSN提示的页面效果

看到右下角的提示了吗？如果没有看到，刷新一下

window.onload = getMsg;

window.onresize = resizeDiv;

window.onerror = function(){}

//短信提示使用(asilas添加)

var divTop,divLeft,divWidth,divHeight,docHeight,docWidth,objTimer,i = 0;

function getMsg()

{

  try{

  divTop = parseInt(document.getElementById("eMeng").style.top,10)

  divLeft = parseInt(document.getElementById("eMeng").style.left,10)

  divHeight = parseInt(document.getElementById("eMeng").offsetHeight,10)

  divWidth = parseInt(document.getElementById("eMeng").offsetWidth,10)

  docWidth = document.body.clientWidth;

  docHeight = document.body.clientHeight;

  document.getElementById("eMeng").style.top = parseInt(document.body.scrollTop,10) + docHeight + 10;// divHeight

  document.getElementById("eMeng").style.left = parseInt(document.body.scrollLeft,10) + docWidth - divWidth

  document.getElementById("eMeng").style.visibility="visible"

  objTimer = window.setInterval("moveDiv()",10)

  }

  catch(e){}

}

function resizeDiv()

{

  i+=1

  if(i>500) closeDiv()

  try{

  divHeight = parseInt(document.getElementById("eMeng").offsetHeight,10)

  divWidth = parseInt(document.getElementById("eMeng").offsetWidth,10)

  docWidth = document.body.clientWidth;

  docHeight = document.body.clientHeight;

  document.getElementById("eMeng").style.top = docHeight - divHeight + parseInt(document.body.scrollTop,10)

  document.getElementById("eMeng").style.left = docWidth - divWidth + parseInt(document.body.scrollLeft,10)

  }

  catch(e){}

}

function moveDiv()

{

  try

  {

  if(parseInt(document.getElementById("eMeng").style.top,10) <= (docHeight - divHeight + parseInt(document.body.scrollTop,10)))

  {

  window.clearInterval(objTimer)

  objTimer = window.setInterval("resizeDiv()",1)

  }

  divTop = parseInt(document.getElementById("eMeng").style.top,10)

  document.getElementById("eMeng").style.top = divTop - 1

  }

  catch(e){}

}

function closeDiv()

{

  document.getElementById('eMeng').style.visibility='hidden';

  if(objTimer) window.clearInterval(objTimer)

}

       短消息提示：

      ×

        您有1封新短消息

        点击查看短信

ASP利用纯真数据库查询IP地理位置

2008-10-13 14:11:49

把前人的方法总结了一下,具体实例请到这里来下载

http://download.csdn.net/source/685822

首先,是前人写的ASP查询纯真IP的类，请保存为cz.asp

<%

Class TQQWry

        Dim Country,LocalStr,Buf,OffSet

        Private StartIP,EndIP,CountryFlag

        Public FirstStartIP,LastStartIP,RecordCount,QQWryFile

        Private Stream,EndIPOff

        Private Sub Class_Initialize

                Country=""

                LocalStr=""

                StartIP=0

                EndIP=0

                CountryFlag=0 

                FirstStartIP=0 

                LastStartIP=0 

                EndIPOff=0 

                QQWryFile=Server.MapPath("cz.dat")

        End Sub

    Public Sub SetPath(p)

        QQWryFile = Server.MapPath(p)

    End Sub

        Function IP2Int(IP)

                Dim IPArray,i

                IPArray=Split(IP,".",-1)

                FOr i=0 to 3

                        If Not IsNumeric(IPArray(i)) Then IPArray(i)=0

                        If CInt(IPArray(i))<0 Then IPArray(i)=Abs(CInt(IPArray(i)))

                        If CInt(IPArray(i))>255 Then IPArray(i)=255

                Next

                IP2Int=(CInt(IPArray(0))*256*256*256)+(CInt(IPArray(1))*256*256)+(CInt(IPArray(2))*256)+CInt(IPArray(3))'-1

        End Function

        Function Int2IP(IntValue)

                p4=IntValue-Fix(IntValue/256)*256

                IntValue=(IntValue-p4)/256

                p3=IntValue-Fix(IntValue/256)*256

                IntValue=(IntValue-p3)/256

                p2=IntValue-Fix(IntValue/256)*256

                IntValue=(IntValue-p2)/256

                p1=IntValue

                Int2IP=Cstr(p1)&"."&Cstr(p2)&"."&Cstr(p3)&"."&Cstr(p4)

        End Function

        Private Function GetStartIP(RecNo)

                OffSet=FirstStartIP+RecNo * 7

                Stream.Position=OffSet

                Buf=Stream.Read(7)

                EndIPOff=AscB(MidB(Buf,5,1))+(AscB(MidB(Buf,6,1))*256)+(AscB(MidB(Buf,7,1))*256*256) 

                StartIP=AscB(MidB(Buf,1,1))+(AscB(MidB(Buf,2,1))*256)+(AscB(MidB(Buf,3,1))*256*256)+(AscB(MidB(Buf,4,1))*256*256*256)

                GetStartIP=StartIP

        End Function

        Private Function GetEndIP()

                Stream.Position=EndIPOff

                Buf=Stream.Read(5)

                EndIP=AscB(MidB(Buf,1,1))+(AscB(MidB(Buf,2,1))*256)+(AscB(MidB(Buf,3,1))*256*256)+(AscB(MidB(Buf,4,1))*256*256*256) 

                CountryFlag=AscB(MidB(Buf,5,1))

                GetEndIP=EndIP

        End Function

        Private Sub GetCountry(IP)

                If (CountryFlag=1 Or CountryFlag=2) Then

                        Country=GetFlagStr(EndIPOff+4)

                        If CountryFlag=1 Then

                                LocalStr=GetFlagStr(Stream.Position)

                                If IP>= IP2Int("255.255.255.0") And IP<=IP2Int("255.255.255.255") Then

                                        LocalStr=GetFlagStr(EndIPOff+21)

                                        Country=GetFlagStr(EndIPOff+12)

                                End If

                        Else

                                LocalStr=GetFlagStr(EndIPOff+8)

                        End If

                Else

                        Country=GetFlagStr(EndIPOff+4)

                        LocalStr=GetFlagStr(Stream.Position)

                End If

                Country=Trim(Country)

                LocalStr=Trim(LocalStr)

                If InStr(Country,"CZ88.NET") Then Country = "IALVIN.CN"

                If InStr(LocalStr,"CZ88.NET") Then LocalStr = "IALVIN.CN"

        End Sub

        Private Function GetFlagStr(OffSet)

                Dim Flag

                Flag=0

                Do While (True)

                        Stream.Position=OffSet

                        Flag=AscB(Stream.Read(1))

                        If(Flag=1 Or Flag=2 ) Then

                                Buf=Stream.Read(3) 

                                If (Flag=2 ) Then

                                        CountryFlag=2

                                        EndIPOff=OffSet-4

                                End If

                                OffSet=AscB(MidB(Buf,1,1))+(AscB(MidB(Buf,2,1))*256)+(AscB(MidB(Buf,3,1))*256*256)

                        Else

                                Exit Do

                        End If

                Loop

                If (OffSet<12 ) Then

                        GetFlagStr=""

                Else

                        Stream.Position=OffSet

                        GetFlagStr=GetStr() 

                End If

        End Function

        Private Function GetStr() 

                Dim c

                GetStr=""

                Do While (True)

                        c=AscB(Stream.Read(1))

                        If (c=0) Then Exit Do 

                        If c>127 Then

                                If Stream.EOS Then Exit Do

                                GetStr=GetStr&Chr(AscW(ChrB(AscB(Stream.Read(1)))&ChrB(C)))

                        Else

                                GetStr=GetStr&Chr(c)

                        End If

                Loop 

        End Function

        Public Function QQWry(DotIP)

                Dim IP,nRet

                Dim RangB,RangE,RecNo                

                IP=IP2Int(DotIP)                

                Set Stream=CreateObject("ADodb.Stream")

                Stream.Mode=3

                Stream.Type=1

                Stream.Open

                Stream.LoadFromFile QQWryFile

                Stream.Position=0

                Buf=Stream.Read(8)                

                FirstStartIP=AscB(MidB(Buf,1,1))+(AscB(MidB(Buf,2,1))*256)+(AscB(MidB(Buf,3,1))*256*256)+(AscB(MidB(Buf,4,1))*256*256*256)

                LastStartIP=AscB(MidB(Buf,5,1))+(AscB(MidB(Buf,6,1))*256)+(AscB(MidB(Buf,7,1))*256*256)+(AscB(MidB(Buf,8,1))*256*256*256)

                RecordCount=Int((LastStartIP-FirstStartIP)/7)

                If (RecordCount<=1) Then

                        Country="Unknow"

                        QQWry=2

                        Exit Function

                End If                

                RangB=0

                RangE=RecordCount                

                Do While (RangB<(RangE-1)) 

                        RecNo=Int((RangB+RangE)/2) 

                        Call GetStartIP (RecNo)

                        If (IP=StartIP) Then

                                RangB=RecNo

                                Exit Do

                        End If

                        If (IP>StartIP) Then

                                RangB=RecNo

                        Else 

                                RangE=RecNo

                        End If

                Loop                

                Call GetStartIP(RangB)

                Call GetEndIP()

                If (StartIP<=IP) And ( EndIP>=IP) Then

                        nRet=0

                Else

                        nRet=3

                End If

                Call GetCountry(IP)

                QQWry=nRet

        End Function

        Private Sub Class_Terminate()

                On ErrOr Resume Next

                Stream.Close

                If Err Then Err.Clear

                Set Stream=Nothing

        End Sub  

End Class

Function Look_Ip(path,IP)

    Dim Wry, IPType, QQWryVersion, IpCounter

    Set Wry = New TQQWry

    Wry.SetPath path

    On Error Resume Next

    IPType = Wry.QQWry(IP)

    Look_Ip = Wry.Country & " - " & Wry.LocalStr

    If Err Then

        Err.Clear

        Look_Ip = "查询出错"

    End If

End Function

%>

下面是查询代码,请保存为search.asp

<%

Dim IP

ip=request.querystring("ip")

if trim(ip)="" then

   IP=Request.ServerVariables("REMOTE_ADDR")

elseif ubound(split(trim(ip),"."))<>3 then

   IP=Request.ServerVariables("REMOTE_ADDR") 'ip地址

end if

IPAdd=Look_Ip("cz.dat",IP)  '这里注意,数据库文件名是cz.dat

response.write IPAdd

%>

如何利用ASP把图片上传到数据库

2008-10-2 10:38:30

演示:http://dev.mo.cn/an%2Dupload/demo/bytes%5Fupload/
下载:http://dev.mo.cn/an-upload/demo/bytes_upload/bytes_upload.rar

ASP（Active Server Pages）是Microsoft很早就推出的一种WEB应用程序解决方案，也是绝大多数从事网站开发人员很熟悉的一个比较简单的编程环境。通过ASP我们可以创建功能强大的动态的WEB应用程序。ASP虽然功能很强大，但有些功能用纯ASP代码完成不了，为了能保证开发出功能更加强大的WEB应用程序，我们可以借助调用COM组件。

　　在日常工作中，例如开发一个“商品网上销售系统”吧，为了使顾客对商品的外观有所了解，也就是顾客在看商品的文字介绍的同时在文字的旁边有该商品的图片加以说明，这样顾客就可以对该商品有个系统的了解，对推销商品有很大的帮助。所以我们在开发系统时当然就要加入图片处理模块，即如何把图片上传到服务器（图片可以放在WEB服务器上某一个文件夹里也可以放在SQL Server服务器里）和如何让上传的图片在浏览器端显示出来，这都是开发人员要考虑到的问题。

　　上传图片到服务器有多种方法，可以使用文件上传组件也可以使用纯ASP代码来实现。在CSDN的WEB版ASP上经常有网友问这样的问题“如何利用ASP把图片上传到数据库里”，为了方便CSDN需要了解这方面的知识，这篇文章将详细讲解使用ASP上传图片的做法并给出代码，以飨读者。

　　首先了解一下在程序中用到的各种对象及其语法：

　　1） Request.BinaryRead()方法

　　● 使用Request.BinaryRead()方法可以获取提交的文件数据

　　● 语法

　　VarReValue= Request.BinaryRead(number)

　　变量VarReValue返回值保存从客户端读取到的二进制数据；

　　参数number指明要从客户端读取的二进制数据量的大小。

　　2） Response.BinaryWrite()方法

　　● 使用Response.BinaryWrite()方法可以从数据库中获取图片数据并显示到客户端的浏览器中。

　　● 语法

　　Response.BinaryWrite data

　　参数data是要写进客户端浏览器中的二进制数据包。

　　3） AppendChunk方法

　　● AppendChunk方法的作用是将二进制数据追加到Field或Parameter对象。

　　● 语法

　　object.AppendChunk data

　　参数data为要追加到Field或Parameter对象中的数据包。

　　4） GetChunk方法

　　● GetChunk方法返回二进制数据的内容。

　　● 语法

　　object. GetChunk(size)

　　参数size指明要返回二进制数据的长度，可以是长整型表达式。

　　5） Request.TotalBytes方法

　　● Request.TotalBytes方法返回从客户端读取到的数据的字节数，这个值跟上面所提到的number相对应，可以大于或等于number值。

　　● 语法

　　number= Request.TotalBytes

　　大体了解了一些方法及其使用方法后，接下来我们就开始设计数据库和相关编写代码了。

　　第一步：数据库的设计（以Ms SQL Server7为例）：

　　Create table img --创建用来存储图片的表，命名为img

　　(

　　id int identity(1,1) not null,

　　img image

　　)
第二步：程序编写，其中省略了用户输入界面，这里只给出很重要的两个文件即图片上传处理(processimg.asp)和显示图片(ShowImg.asp)文件。

　　1） processimg.asp文件代码：

　　〈%

　　Response.Buffer=True

　　ImageSize=Request.TotalBytes ‘获取提交数据量的总字节数

　　ImageData=Request.BinaryRead(ImageSize) ‘保存从客户端读取到的数据

　　‘优化读取到的二进制数据

　　BnCrLf=chrB(13)&chr(10)

　　Divider=LeftB(ImageData,Clng(InstrB(ImageData, BnCrLf))-1)

　　Dstart=InstrB(ImageData, BnCrLf& BnCrLf)+4

　　Dend=InstrB(Dstart+1, ImageData, Divider)- Dstart

　　MyData=MidB(ImageData, Dstart, Dend)

　　‘创建对象实例

　　Set imgConn=Server.CreateObject(“ADODB.Connection”)

　　StrConn=”Driver={SQL Server};Server=ServerName;”& _

“Uid=xxxx;Pwd=xxxx;DataBase=DataBaseName”

　　imgConn.open strConn

　　Set Rs= Server.CreateObject(“ADODB.RecordSet”)

　　Sql=”Select * From img Where id is null”

　　Rs.open sql,imgConn,1,3

　　‘追加数据到数据库

　　Rs.AddNew

　　Rs(“img”).AppendChunk myData

　　Rs.Update

　　‘关闭和释放对象

　　Rs.close

　　ImgConn.close

　　Set Rs=Nothing

　　Set ImgConn=Nothing

　　%〉

　　2) ShowImg.asp文件代码：

　　

〈%

　　Response.Expires = 0

　　Response.buffer=True

　　Response.clear

　　‘创建对象实例

　　Set imgConn=Server.CreateObject(“ADODB.Connection”)

　　StrConn=”Driver={SQL Server};Server=ServerName;”& _

“Uid=xxxx;Pwd=xxxx;DataBase=DataBaseName”

　　imgConn.open strConn

　　Set Rs= Server.CreateObject(“ADODB.RecordSet”)

　　Sql=”Select img From img Where id=1” 这里的id可以使用Request(“id”)获得

　　Rs.open sql,imgConn,1,1

　　Response.ContentType=”image/*”

　　Response.BinaryWrite Rs.(“img”).GetChunk(7500000)

　　‘关闭和释放对象

　　Rs.close

　　ImgConn.close

　　Set Rs=Nothing

　　Set ImgConn=Nothing

　　%〉

　　至此，本文对如何使用ASP上传图片的原理和示例都讲完了，有什么不妥的地方请各位指正，谢谢！同时希望本文能够确实能为需要这方面帮助的网友提供实质性的帮助。（csdn）

某变态公司的面试IQ题,做得出来算你牛!

2008-10-2 10:34:14

爱因斯坦在20世纪初出的这个谜语。他说世界上有98％的人答不出来。某家公司在面试应聘者时借用了爱因斯坦的这个IQ题，考查应聘者的IQ，现在我们暂且不去讨论这个公司用这样的题目来考查应聘者的IQ有多“变态”，如果是你，拿到了这样的笔试题目，你能做得出来吗？

　　1、在一条街上，有5座房子，喷了5种颜色。

　　2、每个房里住着不同国籍的人

　　3、每个人喝不同的饮料，抽不同品牌的香烟，养不同的宠物

　　问题是：谁养鱼？

　　提示：

　　1、英国人住红色房子

　　2、瑞典人养狗

　　3、丹麦人喝茶

　　4、绿色房子在白色房子左面

　　5、绿色房子主人喝咖啡

　　6、抽Pall Mall 香烟的人养鸟

　　7、黄色房子主人抽Dunhill 香烟

　　8、住在中间房子的人喝牛奶

　　9、挪威人住第一间房

　　10、抽Blends香烟的人住在养猫的人隔壁

　　11、养马的人住抽Dunhill 香烟的人隔壁

　　12、抽Blue Master的人喝啤酒

　　13、德国人抽Prince香烟

　　14、挪威人住蓝色房子隔壁

　　15、抽Blends香烟的人有一个喝水的邻居

　　以上是爱因斯坦在20世纪初出的这个谜语。他说世界上有98％的人答不出来。

　　你能做出来吗？

ASP如何获取真实IP地址

2008-10-2 10:28:27

大家都知道，在ASP中可以使用Request.ServerVariables("REMOTE_ADDR")来取得客户端的IP地址，但如果客户端是使用代理服务器来访问，那取到的就是代理服务器的IP地址，而不是真正的客户端IP地址。要想透过代理服务器取得客户端的真实IP地址，就要使用Request.ServerVariables("HTTP_X_FORWARDED_FOR")来读取。

　　不过要注意的是，并不是每个代理服务器都能用Request.ServerVariables("HTTP_X_FORWARDED_FOR")来读取客户端的真实 IP，有些用此方法读取到的仍然是代理服务器的 IP。

　　还有一点需要注意的是：如果客户端没有通过代理服务器来访问，那么用Request.ServerVariables ("HTTP_X_FORWARDED_FOR")取到的值将是空的。因此，如果要在程序中使用此方法，可以这样处理:

　　userip = Request.ServerVariables("HTTP_X_FORWARDED_FOR") 

　　If userip = "" Then userip = Request.ServerVariables("REMOTE_ADDR") 

　

　　即：如果客户端通过代理服务器，则取HTTP_X_FORWARDED_FOR的值，如果没通过代理服务器，就取 REMOTE_ADDR的值。

ASP＋Access的安全隐患及对策

2008-10-2 10:24:56

随着Internet的发展，Web技术日新月异。继通用网关接口（CGI）之后，“ASP”(Active Server Pages)作为一种典型的服务器端网页设计技术，被广泛地应用在网上银行、电子商务、搜索引擎等各种互联网应用中。同时Access数据库作为微软推出的以标准JET为引擎的桌面型数据库系统，由于具有操作简单、界面友好等特点，具有较大的用户群体。因此ASP＋Access成为许多中小型网上应用系统的首选方案。但ASP＋Access解决方案在为我们带来便捷的同时，也带来了不容忽视的安全问题。

　　ASP＋Access的安全隐患ASP＋Access解决方案的主要安全隐患来自Access数据库的安全性，其次在于ASP网页设计过程中的安全漏洞。

　　1.Access数据库的存储隐患

　　在ASP＋Access应用系统中，如果获得或者猜到Access数据库的存储路径和数据库名，则该数据库就可以被下载到本地。例如：对于网上书店的Access数据库，人们一般命名为book.mdb、store.mdb等，而存储的路径一般为“URL/database”或干脆放在根目录（“URL/”）下。这样，只要在浏览器地址栏中敲入地址：“URL/database/store.mdb”，就可以轻易地把store.mdb下载到本地的机器中。

　　2.Access数据库的解密隐患

　　由于Access数据库的加密机制非常简单，所以即使数据库设置了密码，解密也很容易。该数据库系统通过将用户输入的密码与某一固定密钥进行异或来形成一个加密串，并将其存储在＊.mdb文件中从地址“＆H42”开始的区域内。由于异或操作的特点是“经过两次异或就恢复原值”，因此，用这一密钥与＊.mdb文件中的加密串进行第二次异或操作，就可以轻松地得到Access数据库的密码。基于这种原理，可以很容易地编制出解密程序。

　　由此可见，无论是否设置了数据库密码，只要数据库被下载，其信息就没有任何安全性可言了。

　　3.源代码的安全隐患

　　由于ASP程序采用的是非编译性语言，这大大降低了程序源代码的安全性。任何人只要进入站点，就可以获得源代码，从而造成ASP应用程序源代码的泄露。

　　4.程序设计中的安全隐患　　

　　ASP代码利用表单（form）实现与用户交互的功能，而相应的内容会反映在浏览器的地址栏中，如果不采用适当的安全措施，只要记下这些内容，就可以绕过验证直接进入某一页面。例如在浏览器中敲入“……page.asp?x=1”，即可不经过表单页面直接进入满足“x=1”条件的页面。因此，在设计验证或注册页面时，必须采取特殊措施来避免此类问题的发生。

　　提高数据库的安全性由于Access数据库加密机制过于简单，因此，如何有效地防止Access数据库被下载,就成了提高ASP＋Access解决方案安全性的重中之重。

　　1.非常规命名法

　　防止数据库被找到的简便方法是为Access数据库文件起一个复杂的非常规名字，并把它存放在多层目录下。例如，对于网上书店的数据库文件，不要简单地命名为“book.mdb”或“store.mdb”，而是要起个非常规的名字，例如：

　　faq19jhsvzbal.mdb，再把它放在如./akkjj16t/kjhgb661/acd/avccx55 之类的深层目录下。这样，对于一些通过猜的方式得到Access数据库文件名的非法访问方法起到了有效的阻止作用。

　　2.使用ODBC数据源

　　在ASP程序设计中，应尽量使用ODBC数据源，不要把数据库名直接写在程序中，否则，数据库名将随ASP源代码的失密而一同失密。例如：

　　DBPath = Server.MapPath(“./akkjj16t/ 

　　kjhgb661/acd/avccx55/faq19jhsvzbal.mdb ”) 

　　conn.Open “driver={Microsoft Access Driver (＊.mdb)};dbq=” ＆ DBPath

　　可见，即使数据库名字起得再怪异，隐藏的目录再深，ASP源代码失密后，数据库也很容易被下载下来。如果使用ODBC数据源，就不会存在这样的问题了：

　　

conn.open “ODBC－DSN名”

　　对ASP页面进行加密为有效地防止ASP源代码泄露，可以对ASP页面进行加密。一般有两种方法对ASP页面进行加密。一种是使用组件技术将编程逻辑封装入DLL之中；另一种是使用微软的Script Encoder对ASP页面进行加密。笔者认为，使用组件技术存在的主要问题是每段代码均需组件化，操作比较烦琐，工作量较大；而使用Script Encoder对ASP页面进行加密，操作简单、收效良好。
Script Encoder方法具有许多优点：

　　1.HTML仍具有很好的可编辑性。Script Encoder只加密在HTML页面中嵌入的ASP代码，其他部分仍保持不变，这就使得我们仍然可以使用FrontPage或Dreamweaver等常用网页编辑工具对HTML部分进行修改、完善，只是不能对ASP加密部分进行修改，否则将导致文件失效。

　　2.操作简单。只要掌握几个命令行参数即可。Script Encoder的运行程序是screnc.exe，其使用方法如下：

　　screnc [/s] [/f] [/xl] [/l defLanguage ] [/e defExtension] inputfile outputfile

　　其中的参数含义如下：

　　s：屏蔽屏幕输出；

　　f：指定输出文件是否覆盖同名输入文件；

　　xl：是否在.asp文件的顶部添加@Language指令；

　　l：defLanguag指定缺省的脚本语言；

　　e：defExtension 指定待加密文件的扩展名。

　　3.可以批量加密文件。使用Script Encoder可以对当前目录中的所有的ASP 文件进行加密，并把加密后的文件统一输出到相应的目录中。例如：

　　screnc ＊.asp c:\temp

　　4. Script Encoder是免费软件。该加密软件可以从微软网站下载：

　　http://msdn.microsoft.com/scripting/vbscript/download/x86/sce10en.exe。下载后，运行安装即可。

　　利用Session对象进行注册验证

　　为防止未经注册的用户绕过注册界面直接进入应用系统，可以采用Session对象进行注册验证。Session对象最大的优点是可以把某用户的信息保留下来，让后续的网页读取。例如，要设计如图1所示的注册页面。

　　设计要求用户注册成功后系统启动hrmis.asp?page=1页面。如果不采用Session对象进行注册验证，则用户在浏览器中敲入“URL/hrmis.asp?page=1”即可绕过注册界面，直接进入系统。利用Session对象可以有效阻止这一情况的发生。相关的程序代码如下：

　　

<％ 

　　' 读取用户输入的账号和密码 

　　UserID = Request(“UserID”) 

　　Password = Request(“Password”) 

　　' 检查UserID 及Password 是否正确（实际程序可能会比较复杂） 

　　If UserID <>“hrmis” Or Password <> 

　　“password” Then 

　　Response.Write “账号错误！” 

　　Response.End 

　　End If 

　　'将Session 对象设置为通过验证状态 

　　Session(“Passed”) = True 

　　％>

　　进入应用程序后，首先进行验证：

　　

<％ 

　　'如果未通过验证，返回Login状态 

　　If Not Session(“Passed”) Then 

　　Response.Redirect “login.htm” 

　　End If 

　　％>

ASP五大高效提速技巧

2008-10-2 10:22:06

技巧之一：提高使用Request集合的效率

　　访问一个ASP集合来提取一个值是费时的、占用计算资源的过程。因为这个操作包含了一系列对相关集合的搜索，这比访问一个局部变量要慢得多。因此，如果打算在页面中多次使用Request集合中的一个值，应该考虑将其存贮为一个局部变量。

　　例如将代码写成下面的形式以加快脚本引擎处理速度：

　　strTitle=Request.Form("Title") 

　　strFirstName=Request.Form("FirstName") 

　　strLastName=Request.Form("LastName") 

　　If Len(strTitle) Then strTitle=strTitle & " " 

　　If strFirstName="" Then strFullName=strTitle & " " & strLastName 

　　Elseif Len(strFirstName)=1 Then 

　　strFullName=strTitle & strFirstName & ". " & strLastName 

　　Else 

　　strFullName=strTitle & strFirstName & " " & strLastName 

　　End If

技巧之二：直接访问适当的集合

　　如果不是别无选择，否则不要使用strPage=Request("page")的这样的形式来获取参数，因为这将按顺序搜索全部的集合—QueryString、Form、Cookies、ClientCertificate、ServerVarible直到发现第一个匹配值的名称。这样做比直接访问适当的集合效率低，并且是不安全的，除非能绝对保证这个值不会出现在另外一个集合中。

　　例如，可能希望搜索满足客户请求的WEB服务器名称，这通过出现在每个查询中的Request.ServerVarables集合中寻找“SERVER_NAME”来实现。然而，假如其他的集合也包含名为“SERVER_NAME”的值（键名不区分大小写），当使用Request("server_Name")时，就会得到错误的结果。总而言之，应尽可能直接访问适当的集合。

技巧之三：在费时操作前使用Response.IsClientConnected属性

　　使用Response.IsClientConnected是观察用户是否仍连到服务器并正在载入ASP创建的网页的有用方式。如果用户断开连接或停止下载，我们就不用再浪费服务器的资源创建网页，因为缓冲区内容将被IIS丢弃。所以，对那些需要大量时间计算或资源使用较多的网页来说，值得在每一阶段都检查游览者是否已离线：

　　　If Response.IsClientConnected Then 

　　Response.Flush 

　　Else 

　　Response.End 

　　End If

技巧之四：优化ASP中的ADO操作

　　通常面言，数据构成了WEB站点的实际内容。所以，优化ADO操作以加速ASP代码执行，十分有用：

　　a. 仅选择所需的列：当打开ADO记录集时，除非需要获得所有的列，否则不应自动地使用表名（即SELECT *）。使用单独的列意味着将减少发送到服务器或从服务器取出的数据量。即使需要使用全部列，单独地命名每个列也会获得最佳的性能，因为服务器不必再解释这些列的名字。

　　b. 尽可能的使用存储过程。存储过程是预先编译的程序，含有一个已经准备好的执行计划，所以比SQL语句执行更快。

　　c. 使用适当的光标和锁定模式。如果所做的全部工作只是从记录集中读取数据，并将其显示在屏幕上，那么就使用缺省的只能前移、只读的记录集。ADO用来维护记录和锁定的细节的工作越少，执行的性能就越高。

　　d. 使用对象变量。当遍历记录集时一个肯定能提高性能的方法是使用对象变量指向集合中的成员。例如：

　　While Not RsGc.EOF 

　　Response.Write "工程名称：" & RsGc("GcMC") & "(工程代码：" & RsGc("GcCode") 

　　& ") 

　　" 

　　RsGc.MoveNext 

　　Wend

　　可以用改写为下面的代码以加快执行：

　　set GcMc=RsGc("GcMc") 

　　set GcCode=RsGc("GcCode") 

　　While Not rsGc.EOF Response.Write "工程名称：" & GcMc & "(工程代码：" & GcCode & ") 

　　" RsGc.MoveNext 

　　Wend

　　新的代码建立了对象变量的引用，所以可以使用对象变量而不是实际的变量，这意味着脚本引擎的工作减少了，因为在集合中进行索引的次数变少了。

技巧五：不要混用脚本引擎

　　我们知道，ASP页面中既可以使用VBScript，也可以使用JScript。但是在同一个页面上同时使用JScript和VBScript则是不可取的。因为服务器必须实例化并尝试缓存两个（而不是一个）脚本引擎，这在一定程度上增加了系统负担。因此，从性能上考虑，不应在同一页面中混用多种脚本引擎。

ASP判断文件地址是否有效

2008-10-2 10:17:08

原理xmlhttp组件

<%

Response.Write("")

On Error Resume Next

Dim thisurl,thistext

thisurl=Request("thisurl") '定义文件地址(非Html格式文档)!

if thisurl="" then

Response.Write("请先输入文件地址!")

Response.End

End if

Function objxmlhttp(xmlurl)

On Error Resume Next

Set objxml = CreateObject("Microsoft.XMLHTTP")

objxml.Open "get",xmlurl,false

objxml.setrequestheader "content-type","application/x-www-form-urlencoded"

objxml.send

objxmlhttp = objxml.responsebody

if Err then

Err.Clear

Response.Write("建立连接失败,文件不存在或网络有问题!;错误原因:"&Err.Description&"！")

Response.End

End if

End Function

Function bytes2BSTR(vIn)

strReturn = ""

For i = 1 To LenB(vIn)

ThisCharCode = AscB(MidB(vIn,i,1))

If ThisCharCode < &H80 Then

strReturn = strReturn & Chr(ThisCharCode)

Else

NextCharCode = AscB(MidB(vIn,i+1,1))

strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode))

i = i + 1

End If

Next

bytes2BSTR = strReturn

End Function

thisurl2=Split(thisurl,",")

For Each ii In thisurl2

thistext=bytes2BSTR(objxmlhttp(ii))

if InStr(thistext,"")<>0 then

Response.Write(""& ii &" ×
")

Else

Response.Write(""& ii &" √
")

End if

Next

if Err then

Err.Clear

Response.Write("碰到意外!;错误原因:"&Err.Description&"！")

Response.End

End if

%>

ASP:Cookie使用指南

2008-10-2 10:14:25

实际上，在web开发中，cookie仅仅是一个文本文件，当用户访问站点时，它就被存储在用户使用的计算机上，其中，保存了一些信息，当用户日后再次访问这个站点时，web可以将这些信息提取出来。

　　尽管现在听起来cookie没有什么激动人心的，但实际上利用它，你能实现许多有意义的功能！比如说：你可以在站点上放置
一个调查问答表，询问访问者最喜欢的颜色和字体，然后根据这些定制用户的web界面。并且，你还可以保存访问者的登录密码，这
样，当访问者再次访问这个站点时，不用再输入密码进行登录。

　　当然，cookie也有一些不足。首先，由于利用cookie的功能可以编程实现一些不良企图，所以大多数的浏览器中都有安全设定，其中可以设置是否允许或者接受cookie，因此这就不能保证随时能使用cookie。再者，访问者可能有意或者无意地删除cookie。当访问者的机器遇到“蓝屏”死机时，或者重新格式化硬盘、安装系统后，原来保存的cookie将全部丢失。最后一点，有一些最初始的浏览器并不能支持cookie。

　　利用cooklie能做什么？

　　有2种使用cookie的基本方式：
　　1、将cookie写入访问者的计算机（使用 RESPONSE 命令）
　　2、从访问者的计算机中取回cookie（使用 REQUEST 命令）

　　创建cookie的基本语法
　　

Response.Cookies("CookieName")=value

　　执行下面的代码将会在访问者的计算机中创建一个cookie，名字＝VisitorName，值＝Ken

Response.Cookies("VisitorName")="Ken"

　　执行下面的代码将会在访问者的计算机中创建一个cookie，名字＝VisitorName，值＝表单中UserName的值

Response.Cookies("VisitorName")=Request.Form("UserName")

　　读取cookie的基本语法
　　

Request.Cookies("CookieName")

　　可以将Request值当作一个变量看待，执行下面的代码，将取回名字为KensCookie的cookie值，并存入变量MyVar：

MyVar=Request.Cookies("KensCookie")

　　执行下面的代码，将判断名字为KensCookie的cookie值是否为“Yes”：
If Request.Cookies("KensCookie")="Yes" then...

　　功能丰富的cookie

　　你可以扩展上面的代码成为Cookie子关键值（CookieSubName），代码如下：

Response.Cookies("VisitorName")("FirstName")="Ken" 

Response.Cookies("VisitorName")("LastName")="Baumbach"

　　讲解例子前，最后讨论2个概念：命令约定和使用到期时间。
命名约定

　　同其他变量的命名一样，合适地、独特地命名cookie，有利于在程序中前后连贯地使用它。你可以使用下面的1个或者2个
cookie属性进行cookie变量的命名：

　　域属性（Domain）：域属性表明cookie由哪个网站产生或者读取，默认情况下，cookie的域属性设置为产生它的网站，但你
也可以根据需要改变它。相关代码如下：Response.Cookies("CookieName").Domain = "www.mydomain.com"

　　路径属性（Path）：路径属性可以实现更多的安全要求，通过设置网站上精确的路径，就能限制cookie的使用范围。例如：

Response.Cookies("CookieName").Path = "/maindir/subdir/path"

　　使用到期时间

　　通常情况下，当浏览器关闭时，一个cookie就不存在了。但是在许多时候，比如下面将要讨论的web站点例子，我们希望能更长时间地在访问者的计算机上保存cookie。很幸运，有这样的实现方法。下面的代码，就可以设置cookie的使用到期时间为2010年1月1日：

Response.Cookies("CookieName").Expires=#January 01, 2010#

　　执行下面的代码，将设定cookie的过期时间为“cookie的创建时间＋365日”：

Response.Cookies("CookieName")=Date+365

　　使用cookie的实际例子

　　现在开始讨论实际的例子。假设：你想做一个调查，每个人初次访问时需要填写好信息，但是当日后再访问时，就不需要再那么做。利用cookie，就可以非常圆满地解决这个问题，而大可不必用到数据库。

< %@ LANGUAGE="VBSCRIPT" % > 

< % 

Survey=Request.Cookies("KensSurvey") 

If Survey ="" then 

Response.Cookies("KensSurvey")="x" 

Response.Cookies("KensSurvey").Expires=#January 01, 2010# 

Response.Redirect "survey.asp" 

Else 

'rest of the page 

End if 

% >

　　好，下面开始从头讨论上面的代码。

　　首先，初始设置页面，并读取名字为KensSurvey的cookie值：

< %@ LANGUAGE="VBSCRIPT" % > 

< % 

Survey=Request.Cookies("KensSurvey")

　　 '然后，判断是否已经存在cookie值： 

If Survey ="" then

　　 '如果不存在， 就创建并设置cookie，并转到页面survey.asp。 当下一次访问时，因为存在cookie值，就不会再转到survey.asp 页面。 

Response.Cookies("KensSurvey")="x" 

Response.Cookies("KensSurvey").Expires=#January 01, 2010# 

Response.Redirect "survey.asp" 

　　 '如果cookie已经存在，那么访问者将执行页面中剩余的代码： 

'rest of the page 

End if 

%>

　　例子2
这里有另外一个简单的例子：当访问者第１次浏览某个站点时，向他们显示欢迎信息。代码如下：

< %@ LANGUAGE="VBSCRIPT" % > 

< % 

RequestName = Request.Form("Name") 

RequestLeaveMeAlone = Request.Form("LeaveMeAlone") 

If　 RequestName < >"" or RequestLeaveMeAlone < >"" 　then 

Response.Cookies("MySiteVisitorName") = RequestName 

Response.Cookies("MySiteVisitorName").Expires = #January 01, 2010# 

Response.Cookies("MySiteLeaveMeAlone") = RequestLeaveMeAlone 

Response.Cookies("MySiteLeaveMeAlone").Expires = #January 01, 2010# 

End if 

VisitorName = request.cookies("MySiteVisitorName") 

LeaveMeAlone = request.cookies("MySiteLeaveMeAlone") 

If VisitorName ="" and LeaveMeAlone ="" then 

% > 

< HTML > < HEAD > < /HEAD > 

< body bgcolor="#ccffff" text="black" link="navy" vlink="purple" > 

< DIV ALIGN="CENTER" > 

< form action="index.asp" method="POST" > 

< H2 >Let's be friends< /H2 > 

What's your name (leave blank and hit the Submit button if you don't want us to know)? 

< input type="text" name="name" >< BR >< BR > 

< input type="hidden" name="LeaveMeAlone" value="x" > 

< input type="submit" value="Submit" > 

< /FORM > 

< /DIV > 

< /BODY > 

< % 

End if 

If VisitorName < > "" then 

Response.write "Hi, " & VisitorName & "! I hope you are having a great day!" 

End if 

'rest of the page 

% >

　　好，现在来看看上面的代码实现执行了什么。首先，设置页面。然后，检查表单变量（在同一个页面中）。如果表单变量存在，就创建cookie，并设置到期时间。

< %@ LANGUAGE="VBSCRIPT" % > 

< % 

RequestName = Request.Form("Name") 

RequestLeaveMeAlone = Request.Form("LeaveMeAlone") 

If 　RequestName < >"" or RequestLeaveMeAlone < >"" 　then 

Response.Cookies("MySiteVisitorName") = RequestName 

Response.Cookies("MySiteVisitorName").Expires = #January 01, 2010# 

Response.Cookies("MySiteLeaveMeAlone") = RequestLeaveMeAlone 

Response.Cookies("MySiteLeaveMeAlone").Expires = #January 01, 2010# 

End if

　　接着，读取cookie：

VisitorName = request.cookies("MySiteVisitorName") 

LeaveMeAlone = request.cookies("MySiteLeaveMeAlone")

　　如果cookie在访问者的计算机上不存在，就创建一个表单，询问相关信息：

If VisitorName ="" and LeaveMeAlone ="" then 

% > 

< HTML > 

< HEAD > 

< /HEAD > 

< body bgcolor="#ccffff" text="black" link="navy" vlink="purple" > 

< DIV ALIGN="CENTER" > 

< form action="index.asp" method="POST" > 

< H2 >Let's be friends< /H2 > 

What's your name (leave blank and hit the Submit button if you don't want us to know)? 

< input type="text" name="name" >< br >< br > 

< input type="hidden" name="LeaveMeAlone" value="x" > 

< input type="submit" value="Submit" > 

< /FORM > 

< /DIV > 

< /BODY > 

< % 

End if

　　如果cookie已经存在，并且用户名字存在，就显示给访问者一个欢迎界面，然后执行其余的代码。

If VisitorName < > "" then 

Response.write "Hi, " & VisitorName & "! I hope you are 

having a great day!" 

End if 

'rest of the page 

% >

　　尽管上面的这个例子很简单，但可以从中扩展许多富有创造力的应用。你可以在表单中加入许多功能，以便定制化web站点。
你还可以让访问者定制网站的色彩、字体，以至于其他web元素。有可能的话，你可以询问访问者的生日，当访问者在那一天来访
时，你就可以显示“生日快乐”的信息给他。

　　如你所见，cookie的扩展性是无穷的，这篇文章仅仅是抛砖引玉。

ASP连接11种数据库语法总结

2008-10-2 10:07:33

经常使用到有关数据库的操作。包括连接代码、SQL命令等等，又不曾刻意去记忆它们（我本人是不愿意去记这东东），所以常常在用到的时候又去查书本，翻来翻去。一些比较少用的数据库还不一定能顺利找到，所以现在把它们全归纳到这里，提供大家参考。

<一>数据库的连接方法：

　　1.Access数据库的DSN-less连接方法:

set adocon=Server.Createobject("adodb.connection")
adoconn.Open"Driver={Microsoft Access Driver(*.mdb)};DBQ="& _
Server.MapPath("数据库所在路径")

　　2.Access OLE DB连接方法：
set adocon=Server.Createobject("adodb.connection")
adocon.open"Provider=Microsoft.Jet.OLEDB.4.0;"& _
"Data Source=" & Server.MapPath("数据库所在路径")

　　3.SQL server连接方法：
set adocon=server.createobject("adodb.recordset")
adocon.Open"Driver={SQL Server};Server=(Local);UID=***;PWD=***;"& _
"database=数据库名;"

　　4.SQL server OLE DB连接方法:
set adocon=Server.Createobject("adodb.connection")
adocon.open"provider=SQLOLEDB.1;Data Source=RITANT4;"& _
"user ID=***;Password=***;"& _
"inital Catalog=数据库名"

　5.Oracle 连接方法:
set adocon=Server.Createobject("adodb.connection")
adocon.open"Driver={microsoft odbc for oracle};server=oraclesever.world;uid=admin;pwd=pass;"

　　6.Oracle OLE DB 连接方法:
set adocon=Server.Createobject("adodb.connection")
adocon.open"Provider=OraOLEDB.Oracle;data source=dbname;user id=admin;password=pass;"

　　7.dBase 连接方法:
set adocon=Server.Createobject("adodb.connection")
adocon.open"Driver={microsoft dbase driver(*.dbf)};driverid=277;dbq=------------;"

　　8.mySQL 连接方法:
set adocon=Server.Createobject("adodb.connection")
adocon.open"Driver={mysql};database=yourdatabase;
uid=username;pwd=yourpassword;option=16386;"

　　9.Visual Foxpro 连接方法:
set adocon=Server.Createobject("adodb.connection")
adocon.open"Driver={microsoft Visual Foxpro driver};sourcetype=DBC;sourceDB=*.dbc;Exclusive=No;"

　　10.MS text 连接方法:
set adocon=Server.Createobject("adodb.connection")
adocon.open"Driver={microsoft text driver(*.txt; *.csv)};dbq=-----;"&_
"extensions=asc,csv,tab,txt;Persist SecurityInfo=false;"

　　11.MS text OLE DB 连接方法:
set adocon=Server.Createobject("adodb.connection")
adocon.open"Provider=microsoft.jet.oledb.4.0;data source=your_path;"&_
"Extended Properties'text;FMT=Delimited'"

<二>常用的四种SQL命令：

　　1.查询数据记录(Select)
　　语法：Select 字段串行 From table Where 字段=内容
　　例子：想从book表中找出作者为"cancer"的所有记录，SQL语句便如下：
select * from book where author=’cancer’

　　"*"是取出book表所有的字段，如查询的字段值为数字，则其后的"内容"便无须加上单引号，如是日期，则在Access中用(#)包括，而在SQL server中则用(’)包括，
如:
select * from book where id=1
select * from book where pub_date=#2002-1-7# (Access)
select * from book where pub_date=’2002-1-7’ (SQL Server)

　　提示：
　　日期函数to_date不是标准sql文，不是所有的数据库适用，所以大家在使用的时候要参考数据库具体语法

　　另外如果是查询传入的变量，则如下：
strau=request.form("author")
strsql="select * from book where author=’"&strau&"’"

　　如果查询的是数字，则：
intID=request.form("id")
strsql="select * from book where id="&intID

　　在很多数据库中，如：oracle，上面的语句是可以写成：
strsql="select * from book where id='"&intID&"'"

　　但是字符型一定不能按照数字格式写，需要注意。
2.添加记录(Insert)
　　语法：
Insert into table(field1,field2,....) Values (value1,value2,....)

　　例子：添加一作者是"cancer"的记录入book表:
insert into book (bookno,author,bookname) values (’CF001’,’cancer’,’Cancer无组件上传程序’)

　　同样，如果用到变量就如下：
strno=request.form("bookno")
strau=request.form("author")
strname=request.form("bookname")
strsql="insert into book (bookno,author,bookname) values (’"&strno&"’,’"&strau&"’,’"&strname&"’)"

　　3.用Recordset对象的Addnew插入数据的方法:
　　语法：
rs.addnew
rs("field1").value=value1
rs("field2").value=value2
...
rs.update

　　4.修改数据记录(Update)
　　语法：
update table set field1=value1,field2=value2,...where fieldx=valuex

　　例子：
update book set author=’babycrazy’ where bookno=’CF001’

　　如果用到变量就如下：
strno=request.form("bookno")
strau=request.form("author")
strsql="update book set author=’"&strau&"’ where bookno=’"&strno"’"
5.Recordset对象的Update方法:
　　语法：
rs("field1").value=value1
rs("field2").value=value2
...
rs.update

　　注意：使用语法3和语法5的时候，一定要注意字段的类型（尤其是日期型）一致，否则出错的几率非常的高。

　　例子：
strno=request.form("bookno")
strau=request.form("author")
set adocon=server.createobject("adodb.connection")
adocon.open "Driver={Microsoft Access Driver(*.mdb)};DBQ=" & _
Server.Mappath=("/cancer/cancer.mdb")
strsql="select * from book where bookno=’"&strno&"’"
set rs=server.createobject("adodb.recordset")
rs.open strsql,adconn,1,3
if not rs.eof then ’如果有此记录的话
rs("author").value=strau
rs.update
end if
rs.close
set rs=nothing
adocon.close
set adocon=nothing

　　6.删除一条记录(Delete)
　　语法：
Delete table where field=value

　　例子：删除book表中作者是cancer的记录
delete book where author=’cancer’

　　(注意：如果book表中author字段的值为cancer的记录有多条，将会删除所有author为cancer的记录)

　　好了，学会了用这些操作，大家在用asp操作数据库的时候，该是没有什么问题了。

用ASP实现在线压缩与解压缩

2008-10-2 9:56:05

一、问题的提出

　　随着互连网的发展，网站的数量以惊人的数字增加。网站的作用除了给广大网友们提供信息资讯服务外，还应该成为网友们上传与下载文件的场所。在上传与下载文件的过程中，传输时间是关键，这就要求有较快的传输速度。在传输速度固定不变或是上下变动不大的情况下，尽量减小传输文件的体积，是一个可行的办法：上传文件的时候，先将要上传的文件用WINRAR压缩，上传成功后在网站内通过程序实现解压缩；下载文件的时候，先将要下载的文件在网站内通过程序实现压缩然后再下载。本文就针对该问题的解决进行探讨。

二、方法与说明

　　首先要上传一个WINRAR的解压程序，就是WINRAR自己的解压程序，只需要它的核心程序RAR.EXE这个文件就可以了，在WINRAR的安装目录里可以找到。然后要上传一个执行RAR.EXE的程序 CMD.EXE 这个是WINDOWS操作系统里的程序，在系统盘WINNT/SYSTEM32文件夹中可以找到。上传完这两个文件后，就需要编写一些程序代码来实现压缩与解压缩。

　　不妨将实现压缩功能的文件取名为ZIP.ASP，实现解压缩功能的文件取名为UNZIP.ASP。

　　程序代码中包含了WINRAR这个应用程序的命令行语法，下面简单介绍一下：

　　WinRAR <命令> -<开关1> -<开关N> <压缩文件> <文件...> <@列表文件...> <解压路径\>

　　命令要 WinRAR 运行的字符组合代表功能。

　　开关切换操作指定类型，压缩强度，压缩文件类型，等等的定义。

　　压缩文件要处理的压缩文件名。

　　文件要处理的文件名。

　　列表文件列表文件是包含要处理文件名称的纯文本。文件名应该在第一卷启动。可以在列表文件中使用//字符后添加注释。例如，你可以包含两列字符串创建 backup.lst:c:\work\doc\*.txt //备份文本文档 c:\work\image\*.bmp //备份图片c:\work\misc并接着运行: winrar a backup @backup.lst你可以在命令行中同时指定普通的文件名和列表文件名。

　　解压路径只与命令 e 和 x ，搭配使用。指出解压文件添加的位置。如果文件夹不存在时，会自动创建。

　　字母命令列表：

　　a 添加文件到压缩文件 c 添加压缩文件注释
　　d 从压缩文件删除文件 e 从压缩文件解压压缩，忽略路径
　　f 刷新压缩文件中的文件 i 在压缩文件中查找字符串
　　k 锁定压缩文件 m 移动文件和文件夹到压缩文件
　　r 修复受损的压缩文件 rc 重建丢失的卷
　　rn 重命名压缩文件 rr[N] 添加数据恢复记录
　　rv[N] 创建恢复卷 s[name] 转换压缩文件成为自解压文件类型
　　s- 删除自解压模块 t 测试压缩文件
　　u 从压缩文件中更新文件 x 以完整路径名称从压缩文件解压压缩

　　其实程序代码中的关键之处就是用Server.CreateObject("Wscript.Shell")来执行CMD.EXE，CMD.EXE运行RAR.EXE通过WINRAR的命令来执行解压缩文件与压缩文件的。

三、程序清单

ZIP.ASP程序清单：

<%
'main文件夹中包含cmd.exe rar.exe 例如：要压缩的文件（*.mdb)
'压缩后的存放目录为main\data.rar
on error resume next
unzip_path=Server.mappath("main")&"\"
Set WshShell = server.CreateObject("Wscript.Shell")
IsSuccess = WshShell.Run ("winrar a "&unzip_path&"data
"&unzip_path&"*.mdb",1, False)
'WinRAR <命令> -<开关1> -<开关N> <压缩文件> <文件...> <@列表文件...>
<解压路径\>
'命令: A - 添加到压缩文件中
if IsSuccess = 0 Then
Response.write " 命令成功执行！"
else
Response.write " 命令执行失败！权限不够或者该程序无法运行"
end if
if err.number <> 0 then
Response.Write "

错误号码：" & Err.number
Response.Write "

原因：" & Err.description
Response.Write "

错误来源：" & Err.Source
Response.Write
end if
%>

UNZIP.ASP程序清单：
<%
'main文件夹中包含cmd.exe rar.exe 要解压缩的文件（*.rar)
'解压缩后的存放目录为main
on error resume next
unzip_path=Server.mappath("main")&"\"
Set WshShell = server.CreateObject("Wscript.Shell")
IsSuccess = WshShell.Run ("winrar x -r -o+ "&unzip_path&"*.rar
"&unzip_path&"",1, False)
'WinRAR <命令> -<开关1> -<开关N> <压缩文件> <文件...> <@列表文件...>
<解压路径\>
'命令: X - 从压缩文件中全路径解压文件
'开关: -R - 连同子文件夹
'开关: -O+ - 覆盖已经存在的文件
'开关: -O- - 不覆盖已经存在的文件
if IsSuccess = 0 Then
Response.write " 命令成功执行！"
else
Response.write " 命令执行失败！权限不够或者该程序无法运行"
end if
if err.number <> 0 then
Response.Write "

错误号码：" & Err.number
Response.Write "

原因：" & Err.description
Response.Write "

错误来源：" & Err.Source
Response.Write
end if
%>

四、结论

　　本文通过使用RAR.EXE和 CMD.EXE这两个文件，在ASP编程中实现在线压缩与解压缩网站中的文件的功能。实现方法简单，程序代码少，可供实用编程时借鉴使用。尤其是在拥有自己的服务器的情况下极其实用和方便。以上程序在Windows2000Sever及IIS5.0下运行通过。

Asp图片验证码

2008-10-2 1:55:24

保存下面代码到code.asp,在需要显示验证码的地方使用
来显示,使用session("GetCode")
来提取验证码

<%

Option Explicit

Response.buffer=true

Call Com_CreatValidCode("GetCode")

Sub Com_CreatValidCode(pSN)

Response.Expires = -1

Response.AddHeader "Pragma","no-cache"

Response.AddHeader "cache-ctrol","no-cache"

Response.ContentType = "Image/bmp"

Randomize

Dim i, ii, iii

Const cOdds = 6 ' 杂点出现的机率

Const cAmount = 10 ' 文字数量

Const cCode = "0123456789abcd"

' 颜色的数据(字符，背景)

Dim vColorData(1)

vColorData(0) = ChrB(0) & ChrB(0) & ChrB(255) ' 蓝0，绿0，红0（黑色）

vColorData(1) = ChrB(255) & ChrB(255) & ChrB(255) ' 蓝250，绿236，红211（浅蓝色）

' 随机产生字符

Dim vCode(4), vCodes

For i = 0 To 3

vCode(i) = Int(Rnd * cAmount)

vCodes = vCodes & Mid(cCode, vCode(i) + 1, 1)

Next

Session(pSN) = vCodes '记录入Session

' 字符的数据

Dim vNumberData(9)

vNumberData(0) = "1110000111110111101111011110111101001011110100101111010010111101001011110111101111011110111110000111"

vNumberData(1) = "1111011111110001111111110111111111011111111101111111110111111111011111111101111111110111111100000111"

vNumberData(2) = "1110000111110111101111011110111111111011111111011111111011111111011111111011111111011110111100000011"

vNumberData(3) = "1110000111110111101111011110111111110111111100111111111101111111111011110111101111011110111110000111"

vNumberData(4) = "1111101111111110111111110011111110101111110110111111011011111100000011111110111111111011111111000011"

vNumberData(5) = "1100000011110111111111011111111101000111110011101111111110111111111011110111101111011110111110000111"

vNumberData(6) = "1111000111111011101111011111111101111111110100011111001110111101111011110111101111011110111110000111"

vNumberData(7) = "1100000011110111011111011101111111101111111110111111110111111111011111111101111111110111111111011111"

vNumberData(8) = "1110000111110111101111011110111101111011111000011111101101111101111011110111101111011110111110000111"

vNumberData(9) = "1110001111110111011111011110111101111011110111001111100010111111111011111111101111011101111110001111"

' 输出图像文件头

Response.BinaryWrite ChrB(66) & ChrB(77) & ChrB(230) & ChrB(4) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) &_

ChrB(0) & ChrB(0) & ChrB(54) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(40) & ChrB(0) &_

ChrB(0) & ChrB(0) & ChrB(40) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(10) & ChrB(0) &_

ChrB(0) & ChrB(0) & ChrB(1) & ChrB(0)

' 输出图像信息头

Response.BinaryWrite ChrB(24) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(176) & ChrB(4) &_

ChrB(0) & ChrB(0) & ChrB(18) & ChrB(11) & ChrB(0) & ChrB(0) & ChrB(18) & ChrB(11) &_

ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) &_

ChrB(0) & ChrB(0)

For i = 9 To 0 Step -1 ' 历经所有行

For ii = 0 To 3 ' 历经所有字

For iii = 1 To 10 ' 历经所有像素

' 逐行、逐字、逐像素地输出图像数据

If Rnd * 99 + 1 < cOdds Then ' 随机生成杂点

Response.BinaryWrite vColorData(0)

Else

Response.BinaryWrite vColorData(Mid(vNumberData(vCode(ii)), i * 10 + iii, 1))

End If

Next

Next

Next

End Sub

%>

sql查询语句总结

2008-10-2 1:51:04

数据查询
查询查询格式：
SELECT */列名,.../表达式
from 表名/视图
where 条件
order by 列名1 asc,列名2 desc
group by 列名1，列名2 HAVING 过滤条件
查询指定列
SELECT Sno,Sname FROM Student
查询全部列
SELECT * FROM Student
更改查询结果中的列标题
old_name as new_name 或 new_name= old_name
查询学生表中的姓名和出生年份,并将系别小写显示
SELECT Sname,’Year of Birth:’,2004-Sage, LOWER(Sdept) FROM Student
消除取值重复的行
SELECT DISTINCT Sno FROM SC
限制结果集中返回的行数
select top 5 * from xs
select top 10 percent from xs
查询满足条件的元组
常用的查询条件

SELECT Sname FROM Student WHERE Sdept=‘CS’
SELECT Sname,Sage FROM Student WHERE Sage<20
SELECT Sname,Sage FROM Student WHERE NOT Sage>=20
SELECT DISTINCT Sno FROM SC WHERE Grade<60
SELECT Sname,Sdept,Sage FROM Student WHERE Sage BETWEEN 20 AND 23
SELECT Sname,Sdept,Sage FROM Student WHERE Sage NOT BETWEEN 20 AND 23
判断表达式的值是否在子查询的结果中 :IN ,NOT IN
SELECT Sname,sgender FROM Student WHERE Sdept IN (‘IS’,’MA’,’CS’)
SELECT Sname,sgender FROM Student WHERE Sdept NOT IN (‘IS’,’MA’,’CS’)
谓词LIKE的一般语法格式为
[NOT] LIKE ‘<匹配串>’ [‘ESCAPE’ <换码字符>]
查找姓刘的学生的姓名,年龄,性别
SELECT Sname,Sno,sgender FROM Student WHERE Sname LIKE ‘刘%’
匹配规则
“%”  匹配零个或多个字符
“_”   匹配任意单个字符
Escape 定义转义字符，以去掉特殊字符的特定含义，使其被作为普通字符看待
如escape “\”，定义 \ 作为转义字符，则可用\%去匹配%，用\＿去匹配＿
查询课程名称以”db_”开头的所有课程情况
Select * from course where cname like ‘db\_%’ escape ‘\’
查询课程名称以”db_”开头，且倒数第3 个字符为I的课程和详细情况
Select * From course Where cname like ‘db\_%I__’escape ‘\’
查询学号是98001的学生信息(注意：这里的学号是字符型)
SELECT * FROM Student WHERE Sno LIKE ‘98001’
SELECT * FROM Student WHERE Sno=‘98001’
查询“欧阳”姓的学生信息
SELECT Sname FROM Student WHERE Sname like ‘欧阳__’
查缺少成绩的学生的学号和相应的课程号
SELECT Sno,Cno FROM SC WHERE Grade IS NULL
查所有有成绩的记录的学生学号和课程号
SELECT Sno,Cno FROM SC WHERE Grade IS NOT NULL
查CS系年龄在20岁以下的学生姓名
SELECT Sname FROM Student WHERE Sdept=‘CS’ AND Sage<20
注意运算符优先级
SELECT sname, sage, sdept FROM student WHERE sage=18 OR sage=19 AND sdept=‘cs’
排序，分组，多表查询，嵌套查询，集合查询
对查询结果排序
查询学生的学号和成绩，并按成绩的降序排列
SELECT Sno,Grade FROM SC WHERE Cno=‘3’ ORDER BY Grade DESC
查询全体学生情况，查询结果按所在系升序排列，对同一系中的学生按年龄降序排列
SELECT * FROM Student ORDER BY Sdept,Sage DESC
使用集函数
主要集函数
COUNT （[DISTINCT|ALL] *）统计元组个数
COUNT （[DISTINCT|ALL] <列名>）统计一列中值的个数
SUM （[DISTINCT|ALL] <列名>）计算一列值的总和
AVG（[DISTINCT|ALL] <列名>）计算一列值的平均值
MAX（[DISTINCT|ALL] <列名>）求一列值中的最大值
MIN（[DISTINCT|ALL] <列名>）求一列值中的最小值
例1：查询学生总人数  SELECT COUNT(*)  FROM  Student;
例2：查询选修了课程的学生人数  SELECT COUNT(DISTINCT Sno) FROM SC;
例3：计算1号课程的学生平均成绩  SELECT AVG(Grade) FROM SC WHERE Cno=‘1’;
例4：查询学习1号课程的学生最高分数 SELECT MAX(Grade) FROM SC WHERE Cno=‘1’;
对查询结果分组
group by   列名  [having   条件表达式]
group by将表中的元组按指定列上值相等的原则分组，然后在每一分组上使用聚集函数，得到单一值
having则对分组进行选择，只将聚集函数作用到满足条件的分组上

例：查询各个课程号与相应的选课人数
SELECT Cno,COUNT(Sno) FROM SC GROUP BY Cno;
查询选修了3门以上课程的学生的学号
SELECT Sno FROM SC GROUP BY Sno HAVING COUNT(*) >3
比较连接查询
连接查询中用来连接两个表的条件称为连接条件或连接谓词，其一般格式为：
[<表名1>.] <列名1>  <比较运算符> [<表名2>.] <列名2>
其中比较运算符主要有：=、>、< 、 >= 、 <= 、 !=。
当连接运算为 = 时，称为等值连接。使用其他运算符称为非等值连接。
连接谓词中的列名称为连接字段。连接条件中的各连接字段类型必须是可比的，但不必是相同的。
将Student与SC中同一学生的元组连接起来
SELECT Student.*,Sc.* FROM Student,SC WHERE Student.Sno=SC.Sno
复合条件连接
SELECT Student.Sno,Sname FROM Student, SC WHERE Student.Sno=SC.Sno AND SC.Cno=‘2’ AND SC.Grade>90
SELECT Student.Sno, Sname, Cname, Grade FROM Student, SC, Course WHERE Student.Sno=SC.Sno AND SC.Cno=Course.Cno
嵌套查询
在SQL语言中，一个SELECT-FROM-WHERE语句称为一个查询块。
将一个查询块嵌套在另一个查询块的WHERE子句或HAVING短语的条件中的查询称为嵌套查询。
SELECT Sname FROM Student WHERE Sno IN(SELECT Sno FROM SC WHERE Cno=‘2’);

带有比较运算符的子查询
SELECT Sno, Sname, Sdept FROM Student WHERE Sdept = (SELECT Sdept FROM Student WHERE Sname=‘刘晨’)
into 子句
可将查询出的数据村入另一个表中
举例：
由学生表创建“计算机系学生”表，包含学号和姓名列
select 学号，姓名into 计算机学生from xs where 专业名＝‘计算机’
集合查询
并操作UNION的使用
SELECT * FROM Student WHERE Sdept=‘CS’ UNION SELECT * FROM Student WHERE Sage<=19
查询既选修了课程1又选修了课程2的学生
SELECT Sno FROM SC WHERE Sno IN (SELECT Sno FROM SC WHERE Cno=‘1’) AND Sno IN (SELECT Sno FROM SC WHERE Cno=‘2’);

asp版图形验证码，可自定义点阵信息，支持字符扭曲、倾斜、倾斜

2008-9-30 11:49:48

代码并非完全原创，

主要代码是另一位不知名的朋友写的，来源早已记不清楚了。

我加了一个 ChangeShape 和 Fill 函数，

ChangeShape 用于使字符扭曲、倾斜（左右随机），

需要的朋友拿去试试，个人觉得效果还可以，

当然，我数学白痴，呵呵，不懂得变通，死脑筋，大家不要见笑。

反正眼下也没有asp版图形验证码支持扭曲，如果真需要就拿我这个顶一下吧。

<%

Class CAMXAM_COM_RndCodeBmp

Private TextDataLib,TextData,BmpData,BmpHead,BmpWidth,BmpHeight,BmpSize,TextDataLength,SessionString

Public SessionName,TextLength,BackColor,TextColor,YawpColor,YawpCount

Private Sub Class_Initialize()

End Sub

Private Sub Class_Terminate()

End Sub

Public Function SetTextInfo(TextString)

    ReDim TextDataLib(0)

    TextDataLib(0) = TextString

End Function

Public Function AddTextData(TextDataString)

    TextDataLength = UBound(TextDataLib) + 1

    ReDim Preserve TextDataLib(TextDataLength)

    TextDataLib(TextDataLength) = TextDataString

End Function

Private Function Getbinary(IntNumber)

    Dim IntBin0,IntBin1,IntBin2,IntBin0_,IntBin1_,IntBin2_

    IntBin0 = Int(IntNumber / 16777216)

    IntBin0_= IntNumber Mod 16777216

    IntBin1 = Int(IntBin0_ / 65536)

    IntBin1_= IntBin0_ Mod 65536

    IntBin2 = Int(IntBin1_ / 256)

    IntBin2_= IntBin1_ Mod 256

    Getbinary = ChrB(IntBin2_) & ChrB(IntBin2) & ChrB(IntBin1) & ChrB(IntBin0)

End Function

Private Function GetColadRstring(ColadRstring)

    Dim ColorArray,CALength

    ColorArray = Split(ColadRstring,",")

    CALength = UBound(ColorArray)

    GetColadRstring = ColorArray(GetRnd(0,CALength))

End Function

Private Function GetRnd(LowNumber,UpNumber)

    Randomize Timer

    GetRnd = Int((UpNumber - LowNumber + 1) * Rnd + LowNumber)

End Function

Private Function FileHeader()

    Response.Expires = -1

    Response.AddHeader "Pragma","no-cache"

    Response.AddHeader "cache-ctrol","no-cache"

    Response.ContentType = "Image/BMP"

End Function

Private Function SetBmpHead(BmpSize,Width,Height)

    BmpHead = ChrB(66) & ChrB(77)

    BmpHead = BmpHead & Getbinary(BmpSize+54)

    BmpHead = BmpHead & Getbinary(0)

    BmpHead = BmpHead & Getbinary(54)

    BmpHead = BmpHead & Getbinary(40)

    BmpHead = BmpHead & Getbinary(Width)

    BmpHead = BmpHead & Getbinary(Height)

    BmpHead = BmpHead & ChrB(1) & ChrB(0)

    BmpHead = BmpHead & ChrB(24) & ChrB(0)

    BmpHead = BmpHead & Getbinary(0)

    BmpHead = BmpHead & Getbinary(BmpSize)

    BmpHead = BmpHead & Getbinary(65536)

    BmpHead = BmpHead & Getbinary(65536)

    BmpHead = BmpHead & Getbinary(16777216)

    BmpHead = BmpHead & Getbinary(16777216)

End Function

Private Function GetRndTextData()

    ReDim TextData(TextLength-1)

    Dim IText

    For IText = 0 To TextLength-1 Step +1

        TextData(IText) = GetColadRstring(BackColor) & " " & GetColadRstring(TextColor) & " " & ChangeShape(TextDataLib(GetRnd(1,TextDataLength)))

        SessionString = SessionString & GetTextData(IText)(4)

    Next

End Function

Private Function GetTextData(IText)

    Dim TextArray,ArrayLength,ITextData

    TextArray = Split(TextData(IText)," ")

    ArrayLength = UBound(TextArray)

    Dim TextDataArray(5)

    TextDataArray(0) = TextArray(0)

    TextDataArray(1) = TextArray(1)

    TextDataArray(2) = Len(TextArray(3))

    TextDataArray(3) = ArrayLength - 2

    TextDataArray(4) = TextArray(2)

    For ITextData = 3 To ArrayLength Step +1

        TextDataArray(5) = TextDataArray(5) & " " & TextArray(ITextData)

    Next

    GetTextData = TextDataArray

End Function

Private Function GetColor(ColadRstring)

    GetColor = ChrB("&H" & Mid(ColadRstring,6,2)) & ChrB("&H" & Mid(ColadRstring,4,2)) & ChrB("&H" & Mid(ColadRstring,2,2))

End Function

Private Function BmpColor(ColorA,ColorB)

    Dim BmpColor_(1)

    BmpColor_(0) = GetColor(ColorA)

    BmpColor_(1) = GetColor(ColorB)

    BmpColor = BmpColor_

End Function

Private Function SetBmpData()

    Dim TextInfo,FontData,I,J,K

    GetRndTextData()

    TextInfo = GetTextData(0)

    BmpHeight = TextInfo(3)

    BmpWidth = TextInfo(2) * TextLength

    BmpSize = BmpHeight * BmpWidth * 3

    For I = BmpHeight To 1 Step -1

        For J = 0 To TextLength -1 Step +1

            TextInfo = GetTextData(J)

            FontData = Split(TextInfo(5)," ")(I)

            For K = 1 To TextInfo(2) Step +1

                If GetRnd(1,99) < YawpCount Then

                    BmpData = BmpData & GetColor(GetColadRstring(YawpColor))

                Else

                    BmpData = BmpData & BmpColor(TextInfo(0),TextInfo(1))(Mid(FontData,K,1))

                End If

            Next

        Next

    Next

End Function

Public Function Write()

    FileHeader()

    SetBmpData()

    SetBmpHead BmpSize,BmpWidth,BmpHeight

    Response.BinaryWrite BmpHead

    Response.BinaryWrite BmpData

    Session(SessionName) = SessionString

End Function

Public Function ChangeShape(psString)

    Randomize Timer

    sTemp =Split(psString, " ")

    Dim nMaxWidth, nMaxHeight : nMaxWidth =16 : nMaxHeight =20

    Dim nWidth, nHeight : nWidth =Len(sTemp(1)) : nHeight =ubound(sTemp)

    Dim nTemp, nTemp1, sTemp, sReturn, nTopStart, nCurLeft, nAspect

    nTopStart =Int((nHeight - 1 + 1) * Rnd + 1)

    nAspect =Int((2 - 1 + 1) * Rnd + 1)

    nCurLeft =1

    Dim sFilter

    sFilter ="aJLkKfFbdDhTBpP6eQ7"

    If Instr(sFilter, sTemp(0)) =0 Then

        For nTemp =nTopStart To ubound(sTemp)

            If nCurLeft >7 Then

                nCurLeft =5

                For nTemp1 =nTemp to ubound(sTemp)

                    If nCurLeft <1 Then Exit For

                    sTemp(nTemp1) =Fill("0", int(nCurLeft /2) ) & sTemp(nTemp1)

                    nCurLeft =nCurLeft -1

                Next

                Exit For

            End If

            sTemp(nTemp) =Fill("0", int(nCurLeft /2) ) & sTemp(nTemp)

            nCurLeft =nCurLeft +1

        Next

    Else

        For nTemp =1 to ubound(sTemp)

            If nAspect =1 Then

                sTemp(nTemp) =Fill("0", int(nCurLeft /2) ) & sTemp(nTemp)

            Else

                sTemp(nTemp) =sTemp(nTemp) & Fill("0", int(nCurLeft /2) )

                If Len(sTemp(nTemp))             End If

            nCurLeft =nCurLeft +1

        Next

    End If

    For nTemp =1 to ubound(sTemp)

        If Len(sTemp(nTemp))         If sReturn <>"" Then sReturn =sReturn &" "

        sReturn =sReturn & sTemp(nTemp)

    Next

    nTopStart =Int(((nMaxHeight -nHeight) - 1 + 1) * Rnd + 1)

    For nTemp =1 to nTopStart

        sReturn =Fill("0", nMaxWidth) &" "& sReturn

    Next

    For nTemp =0 to (nMaxHeight -nHeight -nTopStart) -1

        sReturn =sReturn &" "& Fill("0", nMaxWidth)

    Next

    ChangeShape =sTemp(0) &" "& sReturn

End Function

Public Function Fill(psChar, pnWidth)

    Dim nTemp, sTemp

    For nTemp =1 To pnWidth

        sTemp =sTemp & psChar

    Next

    Fill =sTemp

End Function

End Class

Dim Bmp

Set Bmp = New CAMXAM_COM_RndCodeBmp

Bmp.SetTextInfo "点阵来源黑睿工作室"

Bmp.AddTextData "2 00111100 01111110 11100111 11000011 00000011 00000011 00000110 00001100 00011000 00110000 01100000 11111111 11111111"

Bmp.AddTextData "3 00111000 01111110 11000110 00000110 00000110 00011100 00011110 00000011 00000011 11000011 11000011 01111110 00111100"

Bmp.AddTextData "4 000001100 000011100 000011100 000111100 001101100 001101100 011001100 110001100 111111111 111111111 000001100 000001100 000001100"

Bmp.AddTextData "5 01111110 01111110 01100000 11000000 11011100 11111110 11000011 00000011 00000011 11000011 11000011 01111110 00111100"

Bmp.AddTextData "6 00111100 01111110 01100011 11000000 11000000 11011100 11111110 11100011 11000011 11000011 01100011 01111110 00111100"

Bmp.AddTextData "7 11111111 11111111 00000010 00000110 00001100 00001100 00011000 00011000 00011000 00011000 00110000 00110000 00110000"

Bmp.AddTextData "8 00111100 01111110 11000011 11000011 11000011 01111110 01111110 11000011 11000011 11000011 11000011 01111110 00111100"

Bmp.AddTextData "A 0011110000 0000110000 0001111000 0001111000 0011001100 0011001100 0011111100 0110000110 0110000110 1111001111"

Bmp.AddTextData "b 11000000 11000000 11000000 11011100 11111110 11100111 11000011 11000011 11000011 11000011 11100111 11111110 11011100"

Bmp.AddTextData "B 11111110 01100011 01100011 01100011 01111110 01100011 01100011 01100011 01100011 11111110"

Bmp.AddTextData "c 0011110 0111111 1110011 1100000 1100000 1100000 1100000 1110011 0111111 0011110"

Bmp.AddTextData "C 00111111 01100111 11000011 11000011 11000000 11000000 11000000 11000000 01100011 00111110"

Bmp.AddTextData "d 00000011 00000011 00000011 00111011 01111111 11100111 11000011 11000011 11000011 11000011 11100111 01111111 00111011"

Bmp.AddTextData "e 00111100 01111110 11100110 11000011 11111111 11111111 11000000 11100011 01111110 00111100"

Bmp.AddTextData "E 11111111 01100011 01100000 01101100 01111100 01101100 01100000 01100000 01100011 11111111"

Bmp.AddTextData "f 0001111 0011111 0011000 0011000 0011000 1111110 1111110 0011000 0011000 0011000 0011000 0011000 0011000 0011000 0111000"

Bmp.AddTextData "F 11111111 01100011 01100000 01101100 01111100 01101100 01100000 01100000 01100000 01100000"

Bmp.AddTextData "G 001111110 011001110 110000110 110000110 110000000 110011111 110000110 110000110 011000110 001111100"

Bmp.AddTextData "h 11000000 11000000 11000000 11011110 11111111 11100011 11000011 11000011 11000011 11000011 11000011 11000011 11000011"

Bmp.AddTextData "H 1111001111 0110000110 0110000110 0110000110 0111111110 0110000110 0110000110 0110000110 0110000110 1111001111"

Bmp.AddTextData "J 000111111 000001100 000001100 000001100 000001100 000001100 000001100 110001100 110001100 011111000"

Bmp.AddTextData "k 11000000 11000000 11000000 11000111 11001110 11011100 11110000 11111000 11011000 11001100 11001100 11000110 11000111"

Bmp.AddTextData "K 111111110 011001100 011011000 011011000 011110000 011110000 011011000 011001100 011000110 111100111"

Bmp.AddTextData "L 11111000 01100000 01100000 01100000 01100000 01100000 01100000 01100000 01100011 11111111"

Bmp.AddTextData "m 110111001110 111111011111 111001110011 110001100011 110001100011 110001100011 110001100011 110001100011 110001100011 110001100011"

Bmp.AddTextData "M 1110000111 0110000110 0111001110 0111001110 0111111110 0111111110 0110110110 0110110110 0110000110 1111001111"

Bmp.AddTextData "n 11011110 11111111 11100011 11000011 11000011 11000011 11000011 11000011 11000011 11000011"

Bmp.AddTextData "N 1110011111 0110000110 0111000110 0111100110 0111100110 0110110110 0110011110 0110011110 0110001110 1111100110"

Bmp.AddTextData "p 11011100 11111110 11100111 11000011 11000011 11000011 11000011 11100111 11111110 11011100 11000000 11000000 11000000 11000000"

Bmp.AddTextData "P 11111110 01100011 01100011 01100011 01100011 01111110 01100000 01100000 01100000 01100000"

Bmp.AddTextData "R 111111100 011000110 011000110 011000110 011000110 011111100 011011000 011001100 011000110 111100111"

Bmp.AddTextData "s 01111110 11111110 11000000 11100000 01111100 00011110 00000011 10000011 11111111 01111100"

Bmp.AddTextData "S 01111111 11000111 11000011 11000000 01111000 00001110 00000011 11000011 11100011 11111110"

Bmp.AddTextData "t 00110000 00110000 11111111 11111111 00110000 00110000 00110000 00110000 00110000 00110000 00111111 00011111"

Bmp.AddTextData "T 11111111 10011001 00011000 00011000 00011000 00011000 00011000 00011000 00011000 00011000"

Bmp.AddTextData "u 11000011 11000011 11000011 11000011 11000011 11000011 11000011 11000111 11111111 01111011"

Bmp.AddTextData "U 1111001111 0110000110 0110000110 0110000110 0110000110 0110000110 0110000110 0110000110 0111001110 0001111000"

Bmp.AddTextData "v 110000011 011000011 011000110 011000110 001100110 001100100 000110100 000111100 000111000 000011000"

Bmp.AddTextData "V 1111001111 0110000110 0110000110 0011001100 0011001100 0011001100 0001111000 0001111000 0000110000 0000110000"

Bmp.AddTextData "w 11000000001 11000110011 11001110011 01001010010 01001010010 01101011010 01110011110 01110001110 00110001100 00110001100"

Bmp.AddTextData "W 1110000111 1100000011 1100110011 1100110011 0111111110 0111111110 0111111110 0011001100 0011001100 0011001100"

Bmp.AddTextData "x 111000011 011000110 001101100 001111100 000111000 000111000 001111100 001001100 011000110 110000111"

Bmp.AddTextData "X 1111001111 0110000110 0011001100 0001111000 0000110000 0000110000 0001111000 0011001100 0110000110 1111001111"

Bmp.AddTextData "y 1100000011 0110000010 0110000110 0011000100 0011001100 0001101000 0001111000 0001111000 0000110000 0000110000 0001100000 0111100000 0111000000"

Bmp.AddTextData "Y 1111001111 0110000110 0011001100 0011001100 0001111000 0000110000 0000110000 0000110000 0000110000 0000110000"

Bmp.AddTextData "z 11111111 11111111 00000011 00000110 00001100 00011000 00110000 01100000 11111111 11111111"

Bmp.AddTextData "Z 11111111 11000011 00000110 00001100 00011000 00011000 00110000 01100000 11000011 11111111"

Bmp.SessionName = "verifycode" '验证码用Session名称

Bmp.TextLength = 4'验证码长度

Bmp.BackColor = "#FFFFFF"'背景颜色,多个颜色用"," 分隔

Bmp.TextColor = "#FF0000,#FF9900,#33CCFF,#99CC00,#FF99FF,#9933FF,#0099FF" '文字颜色,多个颜色用"," 分

Bmp.YawpColor = Bmp.TextColor '噪波点颜色,多个颜色使用"," 分隔

Bmp.YawpCount = 2    '噪波点比例 0-100

Bmp.Write()

%>

XHTMLCSS常见问题和解决方案

2008-9-28 12:04:37

1、如何定义高度很小的容器？

在IE6下无法定义小高度的容器，是因为有一个默认的行高。
列举2种解决方案：overflow:hidden | line-height:0

2、图片下方出现几像素的空白间隙？

这个也有多种解决方案，如将img定义为display:block,或定义父容器为font-size:0，个人更推荐使用vertical-align的方式，它的值可以是text-top | text-bottom | middle等

3、IE6双倍margin的BUG?

display:inline

4、文本垂直方向对齐文本输入框？

设置input为vertical-align:middle，textarea也是如此

5、为什么在web标准下ie无法设置滚动条的颜色？

将设置滚动条颜色的样式定义到html标签选择符上即可

6、如何让层在falsh上显示？

不可以，除了少数几个级别很高的家伙除外。
但可以将flash设置为透明，这时层就会透过falsh显示，近似于覆盖在flash之上了，如：

7、如何使得文字不换行？

定义包含文字的容器为：width:xxx;white-space:nowrap;

8、ie中如何让超出宽度的文字显示为省略号？

定义容器为：overflow:hidden;width:xxx;white-space:nowrap;text-overflow:ellipsis;

9、如何在点文字时也选中checkbox?

测试

10、一个div为margin-bottom:10px，一个div为margin-top:5px，为什么2个div之间的间距是10px而不是15px?

这种情况浏览器会自动进行margin重叠，只显示较大的margin值
解决方案：只设置其中一个div的margin为15px

11、如何解决ie下当li中出现2个或以上的浮动时，li之间产生的空白间隙？

设置li的vertical-align，值可以为top | text-top | middle | bottom | text-bottom

12、如何使得英文单词不发生词内断行？

word-wrap:break-word;

13、为什么被访问过的链接颜色没有变化？

定义链接的样式时，需要按照:link,:visited,:hover,:active这样的顺序，可以使用LoVe HAte（喜欢讨厌）来记忆

14、单行文本如何垂直居中？

height:xxx;line-height:xxx; 高和行高相同即可

15、已知高度的容器如何在页面中水平垂直居中？

参阅：http://blog.doyoe.com/article.asp?id=74

16、未知尺寸的图片图如何水平垂直居中？

参阅：http://blog.doyoe.com/article.asp?id=159

17、标准模式和怪异模式下的盒模型区别？

标准模式下：实际宽度 = width + padding + border
怪异模式下：实际宽度 = width - padding - border

18、如何解决IE下的3像素BUG?

参阅：http://blog.doyoe.com/article.asp?id=68

19、如何做1像素细边框的table?

方法1：设置table的border-collapse:collapse;

table{border-collapse:collapse;border-color:#000;}
td{border-color:#000;}

测试
测试

方法2：关键在于设置cellspacine="1"，用间隙来作为边框

table{background:#000;}
tr{background:#fff;}

测试
测试

20、以图换字的几种方法及优劣分析

以图换字，其实是为了保证页面的可读性，这样既有利于搜索引擎，又有利于结构查看。由于这种方式被大多数人所认同，所以方法也越来越多：

方法1：使用text-indent的负值，将内容移出容器；
方法2：使用display:none，将内容隐藏；
方法3：使用padding将文字挤出容器之外，并将超出的部分hidden;
方法4：使用font设置超小字体，达到隐藏内容的目的。

方法1（非常不推荐）看起来蛮简单，但其实有几个不理想的地方，1是比较吃资源；2是在ie5下面会出现滞后背景无法显示；3是内容为超链接时，长长的黑色虚框，让你抓狂。
方法2（不推荐）其实倒也不复杂，只是需要多添加一个标签，比较浪费；且display:none出现的几率太多，对seo也是会有些许影响的。
方法3（推荐）Standard Model下要2层标签才能搞定，不过相对方法1和2还是有优势的，推荐一下。
方法4（强烈推荐）只需要将字体设置为0，然后overflow:hidden;如font:0/0 arial;overflow:hidden;就同样可以达到隐藏内容的目的，暂时还没发现有什么副作用，强烈推荐。

21、如何容器透明，内容不透明？

假设在标准模式下有如下结构：

  我不要透明

IE only的方法：在父容器outer被设置为透明后，只需要将子容器inner设置为position:relative; 如果需要兼容其它浏览器，则以上的方法不适用，且结构也需改为：


我不要透明

然后使用position + z-index搞定位置

22、如何去掉链接的虚线框？

IE下：
FF下:a{outline:none;}

23、如何使得页面字体行距始终保持n倍字体大小为基调？

在body内设置line-height:n即可，注，不可以为它加上单位
原因可参阅：http://blog.doyoe.com/article.asp?id=195

24、如何使用标准的方法插入flash?

25、Standard Model如何让容器可以height:100%？

设置html,body{height:100%;margin:0;}

26、如何使得表格的宽度固定?

设置table为table-layout:fixed;这时表格将使用固定布局算法，多出的内容将不影响表格的宽度

27、如何让min-height兼容ie6?

.min-height{min-height:100px;_height:100px;}

我是兼容的min-height

28、如何让鼠标变成手型且兼容所有现代浏览器？

cursor:pointer

29、如何实现ie6下的position:fixed?

参阅：http://blog.doyoe.com/article.asp?id=188

30、IE下如何对Standard Mode与Quirks Mode进行切换？

IE6以下的浏览器不用触发，直接以Quirks Mode呈现页面。

IE6和IE7都可以触发的（在XHTML 的DTD申明前加上HTML注释）：

      "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">

IE6的触发（在XHTML 的DTD申明前加上XML申明）：

      "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">

当没有使用DTD声明或者使用HTML4以下（不包括HTML4）的DTD声明时，基本所有的浏览器都是使用Quirks Mode呈现。

31、如何给一个元素定义多个不同的css规则？

.a{color:#f00;}
.b{background:#eee;}

测试

如上例，该元素同时拥有a和b定义的样式规则。
多个规则之间使用空格分开，并且只有class能同时使用多个规则，id不可以

32、如何区别display:none与visibility:hidden?

相同的是display:none与visibility:hidden都可以用来隐藏某个元素；
不同的是display:none在隐藏元素的时候，将其占位空间也去掉；而visibility:hidden只是隐藏了内容而已，其占位空间仍然保留。

随机访问数据库中某个表的一条记录

2008-9-11 1:10:23

一般一个表都有一个唯一的标识，这里假设这个标识字段为ID
分四步:
1、取得该表记录总数n。
2、把所有的ID号存储到一个数组中IDs()
3、产生一个不大于n的随机数m
4、从数组中取出第m个ID号，查询数据表，取得记录数据。
下面是代码(不包括数据库连接)：

<%

dim stips()

co=0

set rs=server.createobject("adodb.recordset")

sql="select [id] from stips"

rs.open sql,conn,1,1

if rs.eof and rs.bof then 

 response.write "还没有任何小知识哦!"

else

 do while not rs.eof  '循环保存id到数组

    redim preserve stips(co)

    stips(co)=rs("id")

    co=co+1

    rs.movenext

 loop

 rs.close

 set rs=nothing

 Randomize()

 id=stips(int(rnd()*co)) '生成随机数,并查询数组内随机数对应的ID

 set rs=server.createobject("adodb.recordset")  

 sql="select * from stips where id="&id  '查询数据库

 rs.open sql,conn,1,1

 response.write rs("content")   '这里假设数据库有一个content字段

 rs.close 

 set rs=nothing

end if

conn.close

set conn=nothing

%>

在ASP中限制同一表单被多次提交

2008-9-11 1:00:24

本文介绍在ASP应用中防止用户在当前会话期间多次提交同一表单的一个简单方法。它主要由四个子程序组成，在较为简单的应用场合，你只要将这些代码放在包含文件中直接引用即可；对于那些较为复杂的环境，我们在文章的最后给出一些改进建议。

　　一、基本工作过程

　　下面我们依次讨论这四个子程序。

　　（一）初始化

　　这里我们要在Session对象中保存两个变量，其中：

　　 ⑴ 每一个表单对应一个称为FID的唯一标识，为使该值唯一要用到一个计数器。

　　 ⑵ 每当一个表单成功提交，必须在一个Dictionary对象中存储它的FID。

　　我们用一个专用的过程来初始化上述数据。虽然以后各个子程序都要调用它，但实际上每一个会话期间它只执行一次：

Sub InitializeFID()
If Not IsObject(Session("FIDList")) Then
Set Session("FIDList")=Server.CreateObject("Scripting.Dictionary")
Session("FID")=0
End If
End Sub

　　（二）生成表单的唯一标识符

　　下面这个函数GenerateFID()用于生成表单的唯一标志。该函数首先将FID值加1，然后返回它：

Function GenerateFID()
InitializeFID
Session("FID") = Session("FID") + 1
GenerateFID = Session("FID")
End Function

　　（三）登记已提交表单

　　当表单成功地提交时，在Dictionary对象中登记它的唯一标识：

Sub RegisterFID()
Dim strFID
InitializeFID
strFID = Request("FID")
Session("FIDlist").Add strFID, now()
End Sub

　　（四）检查表单是否重复提交

　　在正式处理用户提交的表单之前，应该在Dictionary对象中检查它的FID是否已经登记。下面的CheckFID()函数用来完成这个工作，如已经登记，它返回FALSE，否则返回TRUE:

Function CheckFID()
Dim strFID
InitializeFID
strFID = Request("FID")
CheckFID = not Session("FIDlist").Exists(strFID)
End Function

　　二、如何使用

　　有两个地方要用到上述函数，即表单生成时与结果处理时。假设上述四个子程序已经放入包含文件Forms.inc中，下面的代码根据FID值来决定生成表单还是处理表单结果，它所描述的处理过程适合于大多数ASP应用：

＜ %Option Explicit%＞
＜ !--#include file="forms.inc"--＞
＜ HTML＞
＜ HEAD＞
＜ TITLE＞表单提交测试＜ /TITLE＞
＜ /HEAD
＜ BODY＞
＜ %
If Request("FID") = "" Then
GenerateForm
Else
ProcessForm
End If
%＞
＜ /BODY＞
＜ /HTML＞

　　 GenerateForm负责生成表单，表单中应该含有一个隐藏的FID，如：

＜ %
Sub GenerateForm()
%＞
＜ form action="＜ %=Request.ServerVariables("PATH_INFO")%＞" method=GET＞
＜ input type=hidden name=FID value="＜ %=GenerateFID()%＞"＞
＜ input type=text name="param1" value=""＞
＜ input type=submit value="OK"＞
＜ /form＞
＜ %
End Sub
%＞

　　 ProcessForm负责处理通过表单提交的内容，但在处理之前应该先调用CheckFID()检查当前表单是否已经提交，代码类如：

＜ %
Sub ProcessForm()
If CheckFID() Then
Response.Write "你输入的内容是" & Request.QueryString("param1")
RegisterFID
Else
Response.Write "此表单只能提交一次!"
End If
End Sub
%＞

　　三、限制与改进措施

　　上面我们介绍了在当前会话期间限制同一表单被多次提交的一种方法。在实际应用中可能需要从多方面加以改进，例如：

　　 ⑴ 在登记表单ID之前检查用户输入数据的合法性，使得数据不合法时用户可以按“后退”按钮返回，在修正后再次提交同一表单。

　　 ⑵ 这种对表单提交的限制最多只能在当前会话期间有效。如果要求这种限制能够跨越多个会话，那么就要用到Cookeis或数据库来保存相关数据了。

　　 ⑶ 这种方法是不安全的。它仅用于防范误操作，不能防止熟练用户有意地多次提交同一表单。

浅析ASP内置组件

2008-9-11 0:56:03

本文的内容是使用ASP的ActiveX Server Components（组件）。

　　一、 Browser Capabilities Component（浏览器能力组件）：

　　我们知道，不同的浏览器也许支持不同的功能，如有些浏览器支持框架，有些不支持。利用这个组件，可以检查浏览器的能力，使你的网页争对不同的浏览器显示不同的页面（如对不支持Frame的浏览器显示不含Frame的网页）。该组件的使用很简单，需注意的是，要正确使用该组件，必须保证Browscap.ini文件是最新的（其实每一个浏览器及其特性都列在这个文件中，自己打开看看就明白了）,否则结果可能相去甚远，如Win98第二版所带的IE5.0，在下例中显示为Netscape。这个文件一般位于Web服务器的“\Winnt\System32\InetSrv”下，最新的版本可去http://www.asptracker.com/或http://www.cyscape.com/browscap下载。

　　例：wuf22.asp

‘注意：组件的使用与对象类似，但是组件在使用前必须先创建，而使用内置对象前不必创建。
<%Set BrowsCap=Server.CreateObject("MSWC.BrowserType")%>
请稍候......

浏览器类型<%=BrowsCap.Browser%>
浏览器版本<%=BrowsCap.version%>
是否支持表格<%=BrowsCap.tables%>
是否支持ActiveX控件<%=BrowsCap.activexcontrols%>
是否支持JavaApplets<%=BrowsCap.javaapplets%>
是否支持JavaScript<%=BrowsCap.javascript%>
是否支持Cookies<%=BrowsCap.Cookies%>
是否支持Frames<%=BrowsCap.Frames%>
操作系统<%=BrowsCap.Platform%>
是否支持VBScript<%=BrowsCap.vbscript%>

<%Set BrowsCap = Nothing%>

　　注意：在本例中我们也接触了Server对象的CreateObject方法，Server.CreateObject用于创建已经注册到服务器上的ActiveX组件（说明：还有其他方法可以创建组件）。不过别忘了用“Set 对象 = Nothing”来及时释放资源，这应该成为一个习惯。

　　二、File Access组件

　　File Access组件由FileSystemObject对象和TextStream对象组成，使用FileSystemObject对象，可以建立、检索、删除目录及文件，而TextStream对象则提供读写文件的功能。

　　实例wuf23.asp。强调：只有通过实践才能加深理解，实践和比较程序运行结果是快速掌握编程技巧的最好方法。

<%@ Language=VBScript %>
<% Option Explicit
' 注意绝对路径: C:\Inetpub\home\asp\wuf23.asp 主页路径: C:\Inetpub\home
Dim Path, File, FSO, CTF, Str, StrHTML, StrNoHTML

'使用 CreateObject 方法创建 FileSystemObject 对象 FSO
Set FSO = Server.CreateObject("Scripting.FileSystemObject")

Path = Server.MapPath("test") '返回test的物理目录(绝对路径)
'就本例而言, 下面这句与上面这句返回的Path完全一样
'Path = Server.MapPath("\asp\test\")
Response.Write Path & "
"

If FSO.FolderExists(Path) = false then '判断该文件夹是否存在
FSO.CreateFolder(Path) '新建文件夹
End If

File = Path & "\asptest.txt"
' 写文件操作
If FSO.FileExists(File) = True Then '判断该文件是否存在
'建立 TextStream 对象 CTF
Set CTF = FSO.OpenTextFile(File, 8, False, 0) '打开文件, 详见说明
Else
Set CTF = FSO.CreateTextFile(File,False, False) '新建文件
End If
CTF.Write "

第一个字符串; " '写字符串
CTF.WriteLine "第二个字符串; " '写字符串, 并加上一个换行符
CTF.Write "第三个字符串; "
CTF.Close '注意要关闭文件

' 读文件操作
Set CTF = FSO.OpenTextFile(File, 1,,0)
Do While CTF.AtEndOfStream <> True '判别是否文件结尾（循环语句）
Str = CTF.ReadLine '（每次）读取一行
StrNoHTML = StrNoHTML & Str & "
" & VbCrLf
StrHTML = StrHTML & Server.HTMLEncode(Str) & "
" & VbCrLf
Loop
Response.Write StrNoHTML
Response.Write StrHTML

CTF.Close
Set CTF = Nothing '释放对象
Set FSO = Nothing
%>

　　CTF = FSO.OpenTextFile(File, 8, False, 0)，括号内第一个参数为文件名；第二个参数为8，表示在原文件后追加内容，若为1表示只读，为2则会重写原文件；第三个参数false表示，若指定文件不存在，也不新建文件，若为True，表示指定文件不存在，则新建该文件；第四个参数0表示以ASCII文件格式打开，若为-2，则表示以原来的格式打开。

　　CTF = FSO.CreateTextFile(File,False, False)，第二个参数false表示不覆盖已有文件，若为True，则表示覆盖（OverWrite）已有文件；第三个参数为False表示文件格式为ASCII，为True表示文件格式为Unicode。

　　Server对象的MapPath方法将指定的虚拟路径转换为真实的文件路径。MapPath将“/”和“\”字符视为相同。

　　Server对象的HTMLEncode方法允许你对特定的字符串进行HTML编码，或者说使浏览器中可以正确显示特定的字符。上例中，若未编码，则“

”显示不出来，而是被浏览器作为HTML标记，你可以对比一下运行结果。

　　实际上，File Access组件对文件、文件夹和驱动器的操作还是比较强大的，也提供了较多的方法，如果需要用到这方面的知识，别忘了使用它。

　　另外，到现在为止，写一个网页计数器已经是小菜一碟了吧，难怪那么多的网页提供免费计数器。怎么样？自己写一个图形计数器试试看，想怎么作弊就怎么作弊，完全自己说了算，爽呆！（小秘密：我的主页上有实例wuf24.asp）

　　三、 AD Rotator（广告翻转组件）

　　现在上网，恐怕最讨厌的是别人主页上的广告条，最喜欢的是自己主页上的广告条，广告条如同垃圾邮件一样，比比皆是，防不胜防。你也可以自己动手制造这样的垃圾，ASP的AD Rotator组件就可使每次打开或者重新加载网页时，随机的显示广告。这个例子包括三部分：

　　例程wuf25.asp

<%@ Language=VBScript %>

<% Option Explicit

Dim adr

'创建 AD Rotator 对象

Set adr = Server.CreateObject("MSWC.AdRotator")

adr.Border = 2 '指定图形文件的边框大小

adr.Clickable = True '指示显示的图片是否是一个超链接

adr.TargetFrame = "_blank" '设置超链接是否要指定Frame名称,如: _TOP _NEW _PARENT

'获取将要显示的图片及超链接设置 - 在文件 AdrSet.txt 中设置

Response.Write adr.GetAdvertisement("AdrSet.txt")

%>

AdrSet.txt内容（后面为注释，不是这个文件的内容）：

REDIRECT wuf26.asp 点击广告后，转由wuf26.asp来处理

WIDTH 468 广告图片宽度

HEIGHT 60 广告图片高度

* 分隔符

http://www.soyou.com/prog/ad/468x60_1.gif 广告图片所在位置，也可为本地图形文件

http://www.163.com/ 指向链接，若没有超链接，写入一个“-”

网易 文字说明

20 显示该广告的相对权重，即显示频率

http://fp.cache.imgis.com/images/Ad173962St1Sz1Sq1Id2.gif

http://www.sina.com.cn/

新浪网

30

http://61.139.77.73/images/canon.gif 也可以使用本地图片，如../images/flag.gif

http://www.canon.com.cn/

佳能

50

　　本例中一共有三个图片（图片大小468X60）及链接，每个链接的描述占四行，实际使用时，你可如法炮制，增加更多的图片。

<% ‘wuf26.asp

URL = Request.QueryString("url")

Response.Redirect(URL) 

%>

　　wuf26.asp是一个最简单的处理程序，你可根据实际需要在这里加入更多的代码。
运行一下，原来这个组件的使用也很简单，你要做的就是得到自己的AdrSet.txt文件。利用这个组件，你甚至可以设计一个现在已非常时髦的广告交换主页。

　　四、 Content Linking组件

　　显然这个组件与链接有关系，如果想马上知道这个组件的具体用途，恐怕还操之过急，不妨先引用一个经典的例子：假设在网上阅读一本书，你对以下这些链接一定不会陌生：第1章、第2章、…、上一章、下一章（或前一页、后一页）等等。我们现在要做的就是如何在这些链接之间方便快速地设置跳转。

　　首先建一个链接列表文本文件，如urllist.txt

wuf23.asp ：文件操作（File Access组件）
wuf28.asp ：Content Linking组件使用示例
wuf22.asp ：浏览器能力组件

　　链接url地址和描述之间用 Tab 键分隔。下面wuf27.asp用来列出urllist.txt中的所有链接。

<% @LANGUAGE = VBScript %>

<% Option Explicit %>

Content Linking组件使用

目录列表: 注意核心链接是第2章, 你一定要点击它

<%

Dim NextLink, Count

'建立 Content Linking 组件

Set NextLink = Server.CreateObject("MSWC.NextLink") 

'获取文件 urllist.txt 中链接数目

Count = NextLink.GetListCount("urllist.txt")

Dim url, Dscr, I

For I = 1 To Count

url = NextLink.GetNthURL ("urllist.txt", I) '取得超链接

Dscr = NextLink.GetNthDescription ("urllist.txt", I) '取得文字描述

Response.Write "" & Dscr & "" & vbcrlf

Next

%>

　　然后，以wuf28.asp为例说明如何自动实现上一章和下一章跳转。

<% @LANGUAGE = VBScript %>
<% Option Explicit %>
这个链接要注意

这里是第 2 章的正文............

<% '每个文件都包含下面这句, 就实现了自动链接%>

　　这里最后一句加上去就可以实现自动跳转，核心在wuf29.asp中。

<%
Dim NextLink, rank
Set NextLink = Server.CreateObject ("MSWC.NextLink")
'当前的链接在 urllist.txt 中位于第几个
rank = NextLink.GetListIndex ("urllist.txt")
Response.Write "

"

If (rank > 1) Then 'rank = 1 不存在前一页
Response.Write "|上一章|"
End If

If (rank < NextLink.GetListCount("urllist.txt")) Then 'rank在最后, 则没有下一页
Response.Write "|下一章|"
End If
%>

　　运行这个例子后，你马上能真正理解这个组件的作用，简而言之，就是不需要在每页都写一个“上一章”、“下一章”，完全通过wuf29.asp一下搞定，是不是很方便？！不然你要是手工修改链接的话，不是太麻烦了几点吗？

　　现在你应该明白了，网上大量的免费计数器、免费留言板、免费聊天室、广告交换网等等……，其原理都不过如此，大可不必崇拜

ASP六大对象介绍

2008-9-11 0:51:09

Application对象
　　Application对象是个应用程序级的对象，用来在所有用户间共享信息，并可以在Web应用程序运行期间持久地保持数据。
Application的属性：
　　方法如下：
　　Application对象没有内置的属性，但是我们可以自行创建其属性。
　　<% Application("属性名")=值 %>
　　其实大部分Application变量都　存放在Contents集合中，当你创建一个新的Application变量时，其实就是在Contents集合中添加了一项。下面两个脚本是等效的：
　　<% Application("greeting")="hello!" %> 或 <% Application.contents("greeting")="hello!"由于Application变量存在集合里，所以如果想要全部显示，其方法我们已经多次使用，例如For Each循环。　　
<%
For Each item IN Application.Contents
  Response.write("
"&item&Application.Contents(item))
next
%>
Application的方法：
　　Application的方法只有两个方法：一个是Lock，另一个是Unlock。其中Lock方法用于保证同一时刻只能一个用户对Application操作。Unlock则用于取消Lock方法的限制。如：
<%
Application.Lock
Application("visitor_num")=Application("visitor_num")+1
Application.Unlock
%>
Application的事件：
1、Application_OnStart()
　　当事件应用程序启动时触发。
2、Application_OnEnd()
　　此事件应用程序结束时触发。
　　这两个事件过程都是必须定义在Global.asp文件中，一般把连接数据的函数定义在这两个事件，然后放在Global.asp中。例如：
Sub Application_OnStart
    Application("tt18_ConnectionString") = "driver={SQL
                    Server};server=jeff;uid=sa;pwd=;database=test"
End Sub
　　一个数组能够被定义成Application对象，不过这个数组只能作为一个对象保存，而不能用Application(0)取出其值。可以定义一个临时数组实现这种功能。如：
<%
dim Array()
Array=Application("array")
for i = 0 to ubound(array)
  Response.write Array(i)
next i
%>
　　同样要修改这个Application对象也可以定义一个临时数组，把Application对象赋给数组，然后修改这个数组的元素，最后把数组赋回Application对象。如：
<%
dim Array()
Array=Application("array")
Array(0)="jeff"
Array(1)="zhu"
Application.lock
Application("array")=Array
Application.unlock
%>
ObjectContext对象

该对象用于控制Active Server Pages的事务处理。事务处理由Microsoft Transaction Server (MTS)管理。

事件

ObjectContext.OnTransactionAbort

由放弃的事务处理事件激发，在脚本完成处理后发生。

ObjectContext.OnTransactionCommit

由成功的事务处理事件激发，在脚本完成处理后发生。

方法

ObjectContext.SetAbort

显式的放弃一次事务处理。

ObjectContext.SetComplete

覆盖前面任何调用ObjectContext.SetAbort方法的调用。
Request对象

Request对象用于接受所有从浏览器发往你的服务器的请求内的所有信息。

集合

Request.ClientCertificate(key[SubField])

所有客户证书的信息的集合。对于Key，该集合具有如下的关键字：

Subject
证书的主题。包含所有关于证书收据的信息。能和所有的子域后缀一起使用。

Issuer
证书的发行人。包含所有关于证书验证的信息。除了CN外，能和所有的子域后缀一起使用。

VadidFrom
证书发行的日期。使用VBScript格式。

ValidUntil
该证书不在有效的时间。

SerialNumber
包含该证书的序列号。

Certificate
包含整个证书内容的二进制流，使用ASN.1格式。

对于SubField，Subject和Issuer关键字可以具有如下的子域后缀：（比如：SubjectOU或IssuerL）

C
起源国家。

O
公司或组织名称。

OU
组织单元。

CN
用户的常规名称。

L
局部。

S
州（或省）。

T
个人或公司的标题。

GN
给定名称。

I
初始。

当文件cervbs.inc(VBScript使用)或cerjavas.inc(Jscript使用)通过使用#INCLUDE导向包含在你的Active Server Page里时，下面两个标志可以使用：

ceCertPresent
指明客户证书是否存在，其值为TRUE或FALSE。

ceUnrecongnizedIssure
指明在该链表中的最后的证书的发行者是否未知，其值为TRUE或FALSE。

Request.Cookies(Cookie[(key).Attribute])

Cookie的集合。允许获得浏览器的Cookie。Cookie指明返回那一个Cookie。Key用于从Cookie字典中返回具有某一关键字的Cookie值。对于Attribute，你能使用属性HasKeys来确定某一Cookie是否具有子关键字。HasKeys的值为TRUE或FALSE。

Request.Form(Parameter)[(Index).Count]

填写在HTML的表单中所有的数据的集合。Parameter是在HTML表单中某一元素的名称。当某一参数具有不止一个值（比如，当在

　　以上是提交的表单，下面是处理表单的文件formjump.asp：
<%response.buff=true%>

Redirect示例

<%
thisurl="http://www.tinyu.com/";
where=Request.form("wheretogo")
Select Case where
  case "fun"
    response.redirect thisurl & "/fun/default.asp"
  case "news"
    response.redirect thisurl & "/news/default.asp"
  case "sample"
    response.redirect thisurl & "/sample/default.asp"
End Select
%>

　　这个例子当用户选择了以后，按"Jump"按钮提交表单，服务器接到申请后调用formjump.asp判断后定位到相应的URL。不过这里有一点要注意，HTTP标题已经写入到客户浏览器，任何HTTP标题的修改必须在写入页内容之前，遇到这种问题时，可以如下做：
在文件的开始<@ Language=..>后写：
  Response.Buffer=True
在结尾定：
  Response.Flush
　　这里Flush是Response的一个方法，它必须是Buffer属性设置为True时才能使用，否则会产生一个运行模式错误。另外一个Clear方法也是用于清除被缓存的页面，同样要Buffer属性设置为True时才能使用。

5、End方法
　　该方法用于告知Active Server当遇到该方法时停止处理ASP文件。如果Response对象的Buffer属性设置为True，这时End方法即把缓存中的内容发送到客户并清除冲区。所以要取消所有向客户的输出民，可以先清除缓冲区，然后利用End方法。如：
<%
Response.buffer=true
On error resume next
Err.clear
if Err.number<>0 then
  Response.Clear
  Response.End
end if
%>
Server 对象:

Server 对象提供对服务器上的方法和属性的访问。其中大多数方法和属性是作为实用程序的功能服务的。

语法

Server.property|method

属性

ScriptTimeout:
ScriptTimeout 属性指定脚本在结束前最大可运行多长时间。当处理服务器组件时，超时限制将不再生效。

语法  Server.ScriptTimeout = NumSeconds

参数  NumSeconds
指定脚本在被服务器结束前最大可运行的秒数。默认值为 90 秒。

注释
通过使用元数据库中的AspScriptTimeout属性可以为 Web 服务或 Web 服务器设置缺省的ScriptTimeout值。ScriptTimeout属性不能设置为小于在元数据库中指定的值。例如，如果NumSeconds设置为10，而元数据库设置包含了默认值90秒，则脚本在90秒后超时。但如果NumSeconds设置为100，则脚本在100秒后超时。

关于使用元数据库的详细信息，参阅关于元数据库。

示例    以下示例中，如果服务器处理脚本超过 100 秒，将使之超时。
<% Server.ScriptTimeout = 100 %>
以下示例获取 ScriptTimeout 属性当前值，并将其存储在变量 TimeOut 中。
<% TimeOut = Server.ScriptTimeout %>

方法

CreateObject
CreateObject 方法创建服务器组件的实例。如果该组件执行了 OnStartPage 和 OnEndPage 方法，则此时就会调用 OnStartPage 方法。有关服务器组件的详细信息，请参阅可安装的 ASP 组件。

语法  Server.CreateObject( progID )

参数 progID 指定要创建的对象的类型。progID 的格式为 [Vendor.] component[.Version]。

注释默认情况下，由 Server.CreateObject 方法创建的对象具有页作用域。这就是说，再当前 ASP 页处理完成之后，服务器将自动破坏这些对象。要创建有会话或应用程序作用域的对象，可以使用  标记并设置 SESSION 或 APPLICATION 的 SCOPE 属性，也可以在对话及应用程序变量中存储该对象。
例如，在如下所示的脚本中，当 Session 对象被破坏，即当对话超时时或 Abandon 方法被调用时，存储在会话变量中的对象也将被破坏。
<% Set Session("ad") = Server.CreateObject("MSWC.AdRotator")%>
可以通过将变量设置为 Nothing 或新的值来破坏对象，如下所示。第一个例子释放 ad 对象，第二个例子用字串代替 ad 。
<% Session ("ad") = Nothing %>
<% Session ("ad") = " Other Valum " %>
不能创建与内建对象同名的对象实例。例如，下列脚本将返回错误。
<% Set Response = Server.CreateObject("Response") %>

示例  <% Set MyAd = Server.CreateObject("MSWC.AdRotator") %>
上面的例子创建一个名为 MyAd 的 MSWC.AdRotator 服务器组件，MSWC.AdRotator 组件可用于在 Web 页上的自动轮换广告。
关于服务器组件的详细信息, 请参阅 Creating Components for ASP.

HTMLEncode  HTMLEncode方法对指定的字符串应用 HTML 编码。

语法    Server.HTMLEncode( string )

参数    string 指定要编码的字符串。

示例脚本    <%= Server.HTMLEncode("The paragraph tag:

") %>

输出 The paragraph tag:

注意以上输出将被 Web 浏览器显示为The paragraph tag:

如果查看一下源文件或以文本方式打开一个 Web 页，您就可以看到已编码的 HTML。

MapPath
MapPath 方法将指定的相对或虚拟路径映射到服务器上相应的物理目录上。

语法
Server.MapPath( Path )

参数
Path
指定要映射物理目录的相对或虚拟路径。若 Path 以一个正斜杠 (/) 或反斜杠 (\) 开始，则 MapPath 方法返回路径时将 Path 视为完整的虚拟路径。若 Path 不是以斜杠开始，则 MapPath 方法返回同 .asp 文件中已有的路径相对的路径。
注释
MapPath 方法不支持相对路径语法 (.) 或 (..)。例如，下列相对路径 ../MyDir/MyFile.txt 返回一个错误。

MapPath 方法不检查返回的路径是否正确或在服务器上是否存在。

因为 MapPath 方法只映射路径而不管指定的目录是否存在，所以，您可以先用 MapPath 方法映射物理目录结构的路径，然后将其传递给在服务器上创建指定目录或文件的组件。

示例
对于下列示例，文件data.txt和包含下列脚本的test.asp文件都位于目录C:\Inetpub\Wwwroot\Script下。C:\Inetpub\Wwwroot目录被设置为服务器的宿主目录。

下列示例使用服务器变量 PATH_INFO 映射当前文件的物理路径。脚本
<%= server.mappath(Request.ServerVariables("PATH_INFO"))%>

输出
c:\inetpub\wwwroot\script\test.asp

由于下列示例中的路径参数不是以斜杠字符开始的，所以它们被相对映射到当前目录，此处是 C:\Inetpub\Wwwroot\Script。脚本
<%= server.mappath("data.txt")%>

<%= server.mappath("script/data.txt")%>

输出
c:\inetpub\wwwroot\script\data.txt

c:\inetpub\wwwroot\script\script\data.txt

接下来的两个示例使用斜杠字符指定返回的路径应被视为在服务器的完整虚拟路径。脚本
<%= server.mappath("/script/data.txt")%>

<%= server.mappath("\script")%>

输出
c:\inetpub\script\data.txt

c:\inetpub\script

下列示例演示如何使用正斜杠 (/) 或反斜杠 (\) 返回宿主目录的物理路径。脚本
<%= server.mappath("/")%>

<%= server.mappath("\")%>

输出
c:\inetpub\wwwroot

c:\inetpub\wwwroot

　

URLEncode
URLEncode 方法将 URL 编码规则，包括转义字符，应用到指定的字符串。

语法
Server.URLEncode( string )
参数
String 指定要编码的字符串。
示例
脚本 <%Response.Write(Server.URLEncode("http://www.tinyu.com";)) %>

输出 http%3A%2F%2Fwww%2Etinyu%2Ecom
Session对象

　　Session其实指的就是访问者从到达某个特定主页到离开为止的那段时间。每一访问者都会单独获得一个Session。在Web应用程序中，当一个用户访问该应用时，Session类型的变量可以供这个用户在该Web应用的所有页面中共享数据；如果另一个用户也同时访问该Web应用，他也拥有自己的Session变量，但两个用户之间无法通过Session变量共享信息，而Application类型的变更则可以实现站点多个用户之间在所有页面中共享信息。

1、SessionID属性
　　该属性返回当前会话的唯一标志，为每一个Session分配不同的编号。
　　我曾在开发过程中就遇到对用户的控制问题。它要实现的功能就是，针对某个网站的一个模块，当一个会员登录后正在看此模块时，另一个人用同样的会员名登录，就不能浏览这个模块。也就是说一个会员名同时只能一个人浏览此模块。我通过用会员名（假设为UserID，唯一）和SessionID来实现了控制。当会员登录时，给这个会员一个Session记录登录状态如：Session("Status")="Logged"，同时把这个会员的Session.SessionID写入数据库。当他要浏览此模块时，先判断其是否登录，若已经登录再判断它的SessionID是否与数据库记录的相同，如果不同则不能访问。这样，当另一个用户用相同的会员名登录时，那么数据库中记录的就是新的SessionID，前者访问此模块时就不能通过检查。这就实现了一个会员名同时只能一个人浏览某个模块。这个功能在一些收费网站有很有特别作用，它防止了一个会员名给多个人浏览的问题，为公司保障了利益。

2、TimeOut属性
　　该属性用来定义用户Session对象的时限。如果用户在规定的时间内没有刷新网页，则Session对象就会终止。一般默认为20分钟。　　

3、Abandon方法
　　该方法是Session对象的唯一方法，可以清除Session对象，用来消除用户的Session对象并释放其所占的资源。如： <% Session.Abandon %>
4、Session_OnStart和Session_OnEnd事件
　　和Application一样，当对象的例程每一次启动时触发Session_OnStart事件，然后运行Session_Onstart事件的处理过程。也就是说，当服务器接收到应用程序中的URL的HTTP请求时，触发此事件，并建立一个Session对象。同理，这个事件也必须定在Global.asa文件中。
　　当调用Session.Abandon方法时或者在TimeOut的时间内没有刷新，这会触发Session_OnEnd事件，然后执行里面的脚本。Session变量与特定的用户相联系，针对某一个用户赋值的Session变量是和其他用户的Session变量完全独立的，不会存在相互影响。
Session应用一列：
　　与Application一样，一个被定义为Session类型的数组只能将整个数组作为一个对象，用户不能直接改变Session数组中某个元素的值。为了创建一个Session数组，需先定义一个普通的数组，并对它的每一个元素赋初值，最后把它定义为一个Session数组。如：
<%
dim array()
array=array("李","明","男")
Session("info")=array
Response.write Session("info")(0) &"-"
Response.write Session("info")(1) &"-"
Response.write Session("info")(2) &"
"
%>

<%
array(0)="天"
array(1)="宇"
array(2)="男"
Session("info")=array
Response.write Session("info")(0) & "-"
Response.write Session("info")(1) & "-"
Response.write Session("info")(2) & "
"
%>

Javascript拖动层

2008-9-10 9:13:45

 
窗口1  

窗口2  

窗口3

CSS设计网页时的一些常用规范

2008-9-8 23:58:59

CSS命名规范
一．文件命名规范

　　全局样式：global.css；
　　框架布局：layout.css；
　　字体样式：font.css；
　　链接样式：link.css；
　　打印样式：print.css；

二．常用类/ID命名规范

　　页　眉：header
　　内　容：content
　　容　器：container
　　页　脚：footer
　　版　权：copyright　
　　导　航：menu
　　主导航：mainMenu
　　子导航：subMenu
　　标　志：logo
　　标　语：banner
　　标　题：title
　　侧边栏：sidebar
　　图　标：Icon
　　注　释：note
　　搜　索：search
　　按　钮：btn
　　登　录：login
　　链　接：link
　　信息框：manage
　　……

　　常用类的命名应尽量以常见英文单词为准，做到通俗易懂，并在适当的地方加以注释。对于二级类/ID

命名，则采用组合书写的模式，后一个单词的首字母应大写：诸如“搜索框”则应命名为“searchInput”

、“搜索图标”命名这“searchIcon”、“搜索按钮”命名为“searchBtn”……
　　CSS书写规范及方法

一. 常规书写规范及方法

　　1. 选择DOCTYPE：

　　XHTML 1.0 提供了三种DTD声明可供选择：

　　过渡的(Transitional):要求非常宽松的DTD，它允许你继续使用HTML4.01的标识(但是要符合xhtml的

写法)。完整代码如下：

　　
“http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd“>

　　严格的(Strict):要求严格的DTD，你不能使用任何表现层的标识和属性，例如
。完整代码如下：

　　
“http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd“>

　　框架的(Frameset):专门针对框架页面设计使用的DTD，如果你的页面中包含有框架，需要采用这种DTD

。完整代码如下：

　　
“http://www.w3.org/TR/xhtml1/DTD/xhtml1-frameset.dtd“>

　　理想情况当然是严格的DTD，但对于我们大多数刚接触web标准的设计师来说，过渡的DTD(XHTML 1.0

Transitional)是目前理想选择(包括本站，使用的也是过渡型DTD)。因为这种DTD还允许我们使用表现层的

标识、元素和属性，也比较容易通过W3C的代码校验。

　　2. 指定语言及字符集：

　　为文档指定语言：

　　

　　为了被浏览器正确解释和通过W3C代码校验，所有的XHTML文档都必须声明它们所使用的编码语言；如

：
　　常用的语言定义：

　　

标准的XML文档语言定义：

针对老版本的浏览器的语言定义：

为提高字符集，建议采用“utf-8”。

　　标准的XML文档语言定义：
　　
　　针对老版本的浏览器的语言定义：
　　
　　为提高字符集，建议采用“utf-8”。

　　3. 调用样式表：

　　外部样式表调用：

　　页面内嵌法：就是将样式表直接写在页面代码的head区。如：

外部调用法：将样式表写在一个独立的.css文件中，然后在页面head区用类似以下代码调用。

all” />
　　
　　外部调用法：将样式表写在一个独立的.css文件中，然后在页面head区用类似以下代码调用。

　　
media=”all” />

　　在符合web标准的设计中，推荐使用外部调用法，可以不修改页面只修改.css文件而改变页面的样式。

如果所有页面都调用同一个样式表文件，那么改一个样式表文件，可以改变所有文件的样式。

　　4、选用恰当的元素：

　　根据文档的结构来选择HTML元素，而不是根据HTML元素的样式来选择。例如，使用P元素来包含文字段

落，而不是为了换行。如果在创建文档时找不到适当的元素，则可以考虑使用通用的div 或者是span；

　　避免过渡使用div和span。少量、适当的使用div和span元素可以使文档的结构更加清晰合理并且易于

使用样式；

　　尽可能少地使用标签和结构嵌套，这样不但可以使文档结构清晰，同时也可以保持文件的小巧，在提

高用户下载速度的同时，也易于浏览器对文档的解释及呈视；

　　5、派生选择器：

　　可以使用派生选择器给一个元素里的子元素定义样式，在简化命名的同时也使结构更加的清晰化，如

：

　　.mainMenu ul li {background:url(images/bg.gif;)}

　　6、辅助图片用背影图处理：

　　这里的”辅助图片”是指那些不是作为页面要表达的内容的一部分，而仅仅用于修饰、间隔、提醒的

图片。将其做背影图处理，可以在不改动页面的情况下通过CSS样式来进行改动，如：

　　#logo {background:url(images/logo.jpg) #FEFEFE no-repeat right bottom;}

　　7、结构与样式分离：

　　在页面里只写入文档的结构，而将样式写于css文件中，通过外部调用CSS样式表来实现结构与样式的

分离。

8、文档的结构化书写：

　　页面CSS文档都应采用结构化的书写方式，逻辑清晰易于阅读。如：

＜div id=”mainMenu”>

首页

介绍

服务

　　

　　/*=====主导航=====*/
　　#mainMenu {
　　width:100%;
　　height:30px;
　　background:url(images/mainMenu_bg.jpg) repeat-x;
　　}
　　#mainMenu ul li {
　　float:left;
　　line-height:30px;
　　margin-right:1px;
　　cursor:pointer;
　　}
　　/*=====主导航结束=====*/

　　9、鼠标手势：

　　在XHTML标准中，hand只被IE识别，当需要将鼠标手势转换为“手形”时，则将“hand”换为

“pointer”，即“cursor:pointer;”

二．注释书写规范

　　1、行间注释：

　　直接写于属性值后面，如：

　　.search{
　　border:1px solid #fff;/*定义搜索输入框边框*/
　　background:url(../images/icon.gif) no-report #333;/*定义搜索框的背景*/
　　}

　　2、整段注释：

　　分别在开始及结束地方加入注释，如：

　　/*=====搜索条=====*/
　　.search {
　　border:1px solid #fff;
　　background:url(../images/icon.gif) no-repeat #333;
　　}
　　/*=====搜索条结束=====*/

三．样式属性代码缩写

　　1、不同类有相同属性及属性值的缩写：

　　对于两个不同的类，但是其中有部分相同甚至是全部相同的属性及属性值时，应对其加以合并缩写，

特别是当有多个不同的类而有相同的属性及属性值时，合并缩写可以减少代码量并易于控制。如：

　　#mainMenu {
　　background:url(../images/bg.gif);
　　border:1px solid #333;
　　width:100%;
　　height:30px;
　　overflow:hidden;
　　}
　　#subMenu {
　　background:url(../images/bg.gif);
　　border:1px solid #333;
　　width:100%;
　　height:20px;
　　overflow:hidden;
　　}

　　两个不同类的属性值有重复之处，刚可以缩写为：

　　#mainMenu,#subMenu {
　　background:url(../images/bg.gif);
　　border:1px solid #333;
　　width:100%;
　　overflow:hidden;
　　}
　　#mainMenu {height:30px;}
　　#subMenu {height:20px;}

　　2、同一属性的缩写：

　　同一属性根据它的属性值也可以进行简写，如：

　　.search {
　　background-color:#333;
　　background-image:url(../images/icon.gif);
　　background-repeat: no-repeat;
　　background-position:50% 50%;
　　}
　　.search {
　　background:#333 url(../images/icon.gif) no-repeat 50% 50%;
　　}

　　3、内外侧边框的缩写：

　　在CSS中关于内外侧边框的距离是按照上、右、下、左的顺序来排列的，当这四个属性值不同时也可直

接缩写，如：

　　.btn {
　　margin-top:10px;
　　margin-right:8px;
　　margin-bottom:12px;
　　margin-left:5px;
　　padding-top:10px;
　　padding-right:8px;
　　padding-bottom:12px;
　　padding-left:8px;
　　}

　　则可缩写为：

　　.btn {
　　Margin:10px 8px 12px 5px;
　　Padding:10px 8px 12px 5px;
　　}

　　而如果当上边与下边、左边与右边的边框属性值相同时，则属性值可以直接缩写为两个，如：

　　.btn {
　　margin-top:10px;
　　margin-right:5px;
　　margin-bottom:10px;
　　margin-left:5px;
　　}

　　缩写为：

　　.btn {margin:10px 5px;}

　　而当上下左右四个边框的属性值都相同时，则可以直接缩写成一个，如：

　　.btn {
　　margin-top:10px;
　　margin-right:10px;
　　margin-bottom:10px;
　　margin-left:10px;
　　}

　　缩写为：

　　.btn{margin:10px;}

　　4、颜色值的缩写：

　　当RGB三个颜色值数值相同时，可缩写颜色值代码。如：

　　.menu { color:#ff3333;}

　　可缩写为:

　　.menu {color:#f33;}

四．hack书写规范

　　因为不同浏览器对W3C标准的支持不一样，各个浏览器对于页面的解释呈视也不尽相同，比如IE在很多

情况下就与FF存在3px的差距，对于这些差异性，就需要利用css 的hack来进行调整，当然在没有必要的情

况下，最好不要写hack来进行调整，避免因为hack而导致页面出现问题。

　　1、 IE6、IE7、Firefox之间的兼容写法：

　　写法一：

　　IE都能识别*;标准浏览器(如FF)不能识别*；
　　IE6能识别*，但不能识别 !important,
　　IE7能识别*，也能识别!important;
　　FF不能识别*，但能识别!important;
　　根据上述表达，同一类/ID下的CSS 　hack可写为：
　　.searchInput {
　　background-color:#333;/*三者皆可*/
　　*background-color:#666　!important; /*仅IE7*/
　　*background-color:#999; /*仅IE6及IE6以下*/
　　}
　　一般三者的书写顺序为：FF、IE7、IE6.

　　写法二：

　　IE6可识别“_”，而IE7及FF皆不能识别，所以当只针对IE6与IE7及FF之间的区别时，可这样书写：
　　.searchInput {
　　background-color:#333;/*通用*/
　　_background-color:#666;/*仅IE6可识别*/
　　}

　　写法三：

　　*+html 与 *html 是IE特有的标签, Firefox 暂不支持。
　　.searchInput {background-color:#333;}
　　*html .searchInput {background-color:#666;}/*仅IE6*/
　　*+html .searchInput {background-color:#555;}/*仅IE7*/

　　屏蔽IE浏览器：

　　select是选择符，根据情况更换。第二句是MAC上safari浏览器独有的。

　　*:lang(zh) select {font:12px !important;} /*FF的专用*/
　　select:empty {font:12px !important;} /*safari可见*/

　　IE6可识别：

　　这里主要是通过CSS注释分开一个属性与值，注释在冒号前。

　　select { display /*IE6不识别*/:none;}

　　IE的if条件hack写法：

　　所有的IE可识别：

　　 Only IE
　　只有IE5.0可以识别:
　　 Only IE 5.0
　　IE5.0包换IE5.5都可以识别:
　　 Only IE 5.0+
　　仅IE6可识别:
　　 Only IE 6-
　　IE6以及IE6以下的IE5.x都可识别:
　　 Only IE 6/+
　　仅IE7可识别:
　　 Only IE 7/-

　　2、清除浮动：

　　在Firefox中，当子级都为浮动时，那么父级的高度就无法完全的包住整个子级，那么这时用这个清除

浮动的HACK来对父级做一次定义，那么就可以解决这个问题。

　　select:after {
　　content:”.”;
　　display:block;
　　height:0;
　　clear:both;
　　visibility:hidden;
　　}

中国数据8003(4181628)小徐为您整理;

java初学者到精通需要掌握的知识

2008-9-7 23:20:43

一、学习DreamWaveMX中文版的网页设计技术。

HTML网页设计，这是最基本的。学习XML的一些基本知识。初步掌握一些JSCRIPT的应用。

二、学习JAVA语言。

学习Java语言的第一步是安装好JDK，JDK的环境变量的配置，至于如何配置JDK的环境变量，网上关于这样的文章很多，你可以搜索一下，这里就不多说。配置好环境变量以后，写一个Hello World的小程序测试一下JDK是否已安装成功。

环境变量配置成功以后就可以着手学习Java的语法了，先找一本系统的java程序设计的书，开始最好不要用eclipse等之类的高度集成的IDE环境，用文本编辑器配合JDK就行了，这样助你理解下列几个基础概念：path，class_path，package ,并熟悉基本命令：

JDK的最重要命令行工具：

java：启动JVM执行class

javac： Java编译器

jar： Java打包工具

javadoc： Java文档生成器

这些命令行必须要非常熟悉。对于这些命令的学习，JDK Documentation上有详细的文档。下载和你的JDK版本一致的API帮助。

三、是学习Java的面向对象的编程语言的特性的地方，比如继承，构造器，抽象类，接口，方法的多态，重载，覆盖，Java的异常处理机制。可以参照《Thinking in java》这本书，对面向对象的讲解很透彻。

四、就是开始熟悉Java的类库，Java的基础类库非常多，但是真正对于我们来说最核心的只有4个，分别是

java.lang.*;

java.io.*;

java.util.*;

java.sql.*;

要知道包有哪些方面的类构成的，这些类的用途是什么，最核心的几个类分别是完成什么功能的。

五、JDK Documentation。通过上面的学习，如果学的比较扎实的话，就打好了Java的基础了，接着要学习Documentation里面除了上面4个包之外的其他一些比较有用处的类。相信进展到这一步，Java的自学能力已经被培养出来了，可以到了直接学习Documentation的水平了。除了要做GUI编程之外，JDK里面其他会有用处的包是这些：

java.text.*;

java.net.*;

javax.naming.*;

这些包里面真正用的比较多的类其实很少，只有几个，所以不需要花很多时间。

六、Java Web 编程

学习java web 编程之前要先下载安装应用服务器(App Server)，比较常用的应用服务器(App Server)有Tomcat 、BEA Weblogic、IBM Webshpere、Jboss 。

以Tomcat为例，下载安装Tomcat以后设置两个环境变量：

JAVA_HOME=C:\j2sdk1.4.2

CATALINA_HOME=D:\tomcat4 (你的Tomcat安装目录)

Java的Web应用至少需要安装JDK和一个web容器（例如Tomcat），以及一个多用户数据库，Web应用至少分为三层：

Browser层：浏览器显示用户页面

Web层：运行Servlet/JSP

DB层：后端数据库，向Java程序提供数据访问服务

七、学习J2EE的基本程序设计。

（1）首先学习JSP动态网页设计。掌握JSP、JAVABEANS、JDBC、JSTL等技术，最好以TOMCAT作为实验环境。因为它影响力大，虽然性能不怎么的，很多JSP技术讨论都是以它为背景。

（2）学习EJB的程序设计思想。在学习EJB之前要学习对象序列化和RMI，RMI是EJB的基础。接着学习JMS和EJB，对于EJB来说，最关键是要理解EJB是如何通过RMI来实现对远端对象的调用的，以及在什么情况下要用到EJB。

八、学习“设计模式”。

可以参照《java设计模式》，这本书学习。

九、学习一些经典框架的应用：

（1）struts1.1、webwork2

（2）Hibernate

（3）Ibatis/DAO框架

（4）Spring

十、分析一些经典的应用系统：

Jive、XPetstore、JPetstore等。

另外在java私塾的网站上有一套图书进销存项目的视频包括源码，从思路上引导学生如何去做项目，供各位自学的同学参考！大家可以到java私塾的网站上免费下载：www.javass.com

CSS常用技巧十则

2008-9-7 23:16:38

1. Block和inline元素对比

所有的HTML元素都属于block和inline之一。
block元素的特点是：
总是在新行上开始；
高度，行高以及顶和底边距都可控制；
宽度缺省是它的容器的100%，除非设定一个宽度

,
,
和
是块元素的例子。

相反地，inline元素的特点是：
和其他元素都在一行上；
高，行高及顶和底边距不可改变；
宽度就是它的文字或图片的宽度，不可改变。
, , , , , 和是inline元素的例子。

用display: inline 或display: block命令就可以改变一个元素的这一特性。什么时候需要改变这一属性

呢？
让一个inline元素从新行开始；
让块元素和其他元素保持在一行上；
控制inline元素的宽度（对导航条特别有用）；
控制inline元素的高度；
无须设定宽度即可为一个块元素设定与文字同宽的背景色。

2. 再来一个box黑客方法

之所以有这么多box黑客方法，是因为IE在6之前对box的理解跟别人都不一样，它的宽度要包含边线宽和空

白。要想让IE5等同其他浏览器保持一致，可以用CSS的方法：

padding: 2em;
border: 1em solid green;
width: 20em;
width//:// 14em;

第一个宽度所有浏览器都认得，但IE5.x不认得第2行的宽度设置，只因为那一行上有空白的注释符号（多

么蠢的语法分析！），所以IE5.x就用20减掉一些空白，而其他浏览器会用14这个宽度，因为它是第2行，

会覆盖掉第1行。

3. 页面的最小宽度

min-width是个非常方便的CSS命令，它可以指定元素最小也不能小于某个宽度，这样就能保证排版一直正

确。但IE不认得这个，而它实际上把width当做最小宽度来使。为了让这一命令在IE上也能用，可以把一个

放到标签下，然后为div指定一个类：

然后CSS这样设计：

#container
{
min-width: 600px;
width:expression(document.body.clientWidth < 600? "600px": "auto" );
}

第一个min-width是正常的；但第2行的width使用了Javascript，这只有IE才认得，这也会让你的HTML文档

不太正规。它实际上通过Javascript的判断来实现最小宽度。

同样的办法也可以为IE实现最大宽度：

#container
{
min-width: 600px;
max-width: 1200px;
width:expression(document.body.clientWidth < 600? "600px" : document.body.clientWidth > 1200?

”1200px“ : ”auto";
}

4. IE与宽度和高度的问题

IE不认得min-这个定义，但实际上它把正常的width和height当作有min的情况来使。这样问题就大了，如

果只用宽度和高度，正常的浏览器里这两个值就不会变，如果只用min-width和min-height的话，IE下面根

本等于没有设置宽度和高度。

比如要设置背景图片，这个宽度是比较重要的。要解决这个问题，可以这样：

.box
{
width: 80px;
height: 35px;
}

html>body .box
{
width: auto;
height: auto;
min-width: 80px;
min-height: 35px;
}

所有的浏览器都可以使用第一个box设置，但IE不认得第2段设置，因为其中用到了子选择器命令。第2个设

置更特殊些，所以它会覆盖掉第1个设置。

5. 字体变形命令

text-transform 命令很有用，它有3个值：text-transform: uppercase, text-transform: lowercase 和

text-transform: capitalize。第1个会把文字变成全大写，第2个变成全小写，第3个变成首字母大写。这

对拼音文字非常有用，即使输入时有大小写错误，在网页上也看不到。

6. IE中图片文字消失的问题

有时会遇到文字或背景图突然消失的问题，刷新一下又出现了，这在靠近漂浮元素时更容易发生（注：没

见过）。此时，可以为消失的元素设定： position: relative ，如果不行，再考虑为这些元素指定一个

宽度试试。

7. 不可见文字

不论因为何种原因希望某些网页文字不在浏览器中显示，比如为了打印或为了小屏幕而让某些文字不显示

，都可以用 display: none 。这非常简单，但有时对某些人这有点没用，他们能去掉这个控制，这时就要

用到： position: absolute; left: -9000px 。

这实际上是把文字指定在页面以外显示。

8. 为手持设备设计专门的CSS

也就是手机／PDA等小屏幕用户，可以专门设计一个CSS来让网页显示更舒服些。为此，可以把浏览器窗口

调整到150点宽来看效果。指定专门的手持设备的CSS的语法是：

也可以阅读专门的手持设备可用性。

9. 3D效果的按钮

以前要想制作带有3D效果，并且点击下去还会变化的按钮，就得用图片替换的方法，现在CSS就可以了：

a
{
display: block;
border: 1px solid;
border-color: #aaa #000 #000 #aaa;
width: 8em;
background: #fc0;
}

a:hover
{
position: relative;
top: 1px;
left: 1px;
border-color: #000 #aaa #aaa #000;
}

至于效果，还可以自己调整了。

10. 在不同页面上使用同样的导航代码

许多网页上都有导航菜单，当进入某页时，菜单上相应这一项就应该变灰，而其他页亮起来。一般要实现

这个效果，需要写程序或专门为每一页做设计，现在靠CSS就可以实现这个效果。

首先，在导航代码中使用CSS类：

Home

About us

Contact us

然后分别为每一页的Body指定一个id，和上面类同名。如。

然后设计CSS如下：

#home .home, #about .about, #about .about
{
commands for highlighted navigation go here
}

这里，当id设为home时，.home就会起作用，也就是class设为home的那一行导航条就会显示出特殊效果来

。其他页也是如此。

中国数据8003(4181628)小徐为您整理;

Asp利用xmlhttp组件抓取页面

2008-9-5 19:11:59
简单的Asp抓取页面代码，取页面编码的正则可能写的不太好，呵呵~
和大家分享了~~
    ȫ

<%
on error resume next
time1=timer
dim reg,vUrl,VBody,temp1,temp2,code,time1,time2,title
vUrl=trim(request.form("url"))
reg="\|\/]*).+\/{0,1}\>"
if vUrl<>"" then
  VBody=GetResStr(trim(request.form("url")))
  temp1=VBody:temp2=VBody
  code=GetCode(temp1,reg)
  title=GetCode(temp2,"\(.*)\<\/title\>")
else
  vUrl="http://"
end if
time2=timer
%>

抓取页面
<%if err.number<>0 then%>
alert('发生错误!\n您输入的URL为\"<%=vUrl%>\"\n请检查您输入的URL是否合法!');
<%end if%>

请输入合法URL(必须以http://开头):"/>

所用时间:<%=formatnumber((time2-time1)*1000,2)%>MS
页面标题:<%=title%> 页面编码:<%=code%>
<%=VBody%>

<%
function GetResStr(URL)
dim ResBody,ResStr,PageCode
Set Http=server.createobject("msxml2.serverxmlhttp.3.0")
Http.setTimeouts 10000, 10000, 10000, 10000
Http.open "GET",URL,False
Http.Send()
If Http.Readystate =4 Then
  If Http.status=200 Then
    ResStr=http.responseText
    ResBody=http.responseBody
    PageCode=GetCode(ResStr,reg)
    GetResStr=BytesToBstr(http.responseBody,PageCode)
  End If
End If
End Function

'函数名:BytesToBstr
'作用:转换二进制数据为字符
'参数:Body-二进制数据,Cset-文本编码方式
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
  BytesToBstr = objstream.ReadText
  objstream.Close
  set objstream = nothing
End Function

'函数名:GetCode
'作用:转换二进制为字符
'参数:str-待查询字符串,regstr-正则表达式
Function GetCode(str,regstr)
Dim Reg
set Reg= new RegExp
Reg.IgnoreCase = True
Reg.MultiLine = True
Reg.Pattern =regstr
Set Cols = Reg.Execute(str)
str=Cols(0).SubMatches(0)
GetCode=str
end function
%>

艾恩ASP无组件上传类8.9.5简单示例

2008-9-5 13:28:04
保存下面代码到index.asp文件，在同一目录下建立files文件夹一保存上传的文件；
下载上传类upload_class.asp，也保存到同一目录(类下载地址：http://dev.mo.cn/detial.asp?id=143)；
运行index.asp.
    ȫ

艾恩ASP无组件上传类8.9.5 示例(最简单的文件上传)

本示例演示简单的上传一个文件
请填写表单并选择一个文件:
文本:
文件:

<%
if request.querystring("act")="upload" then
Dim myupload
'==================================================================================
set myupload=new UpLoad                 '创建类实例                              |
myupload.SingleSize=500*1024          '设置单文件最大上传限制为500KB,按字节计；默认为不限制
myupload.MaxSize=1*1024*1024       '设置最大上传限制为1M,按字节计；默认为不限制 |
myupload.Exe="rar|jpg|gif|bmp"          '设置合法扩展名,以|分割,忽略大小写       |
myupload.GetData()                      '获取并保存数据                               |
'==================================================================================

if myupload.Err>0 then           '出现错误如果myupload.Err<=0表示正常
    response.write myupload.Description '错误描述
else
    response.write "input1的值:"&myupload.forms("input1")&""
    if myupload.files.exists("file1") then '这里判断你file1是否选择了文件
     path=server.mappath("files")
     set tempCls=myupload.files("file1")
     tempCls.SaveToFile path,0 '以时间+随机数字为文件名保存
     response.write tempCls.FileName&"上传完毕"
     response.write "大小为:"&myupload.getsize(tempCls.Size)&""
     response.write "本地路径:"&myupload.forms("file1")&"!
     response.write "服务器绝对路径:"&path&"\"&tempCls.FileName&"!
     response.write "服务器相对路径:"&"files/"&tempCls.FileName&"!
     set tempCls=nothing
    end if
end if
set myupload=nothing                   '销毁类实例
end if
%>

ACCESS转SQl时注意的几个事项

2008-9-4 14:09:07
1.ACCESS的数据库中的自动编号类型在转化时，sql server并没有将它设为自动编号型，我们需在SQL创建语句中加上identity，表示自动编号！
2.转化时，跟日期有关的字段，SQL SERVER默认为smalldatetime型，我们最好将它变为datetime型，因为datetime型的范围比smalldatetime型大。我遇见这种情况，用smalldatetime型时，转化失败，而用datetime型时，转化成功。
3.对此两种数据库进行操作的sql语句不全相同，例如：在对ACCESS数据库进行删除纪录时用："delete * from user where id=10",而对SQL SERVER数据库进行删除是用："delete user where id=10".
4.日期函数不相同，在对ACCESS数据库处理中，可用date()、time()等函数，但对 SQL SERVER数据库处理中，只能用datediff,dateadd等函数，而不能用date()、time()等函数。
5.在对ACCESS数据库处理中,sql语句中直接可以用一些VB的函数，像cstr()函数，而对SQL SERVER数据库处理中，却不能用。

ASP简单日历程序

2008-9-4 13:57:24

<%
y=request.querystring("y")
m=request.querystring("m")
d=request.querystring("d")

if y="" then
    y=year(date)
    m=month(date)
    d=day(date)
end if

call blogdate(y,m,d)

'=====================以年月日为参数的显示==============================================
sub blogdate(y,m,d)   '
str1="   当前的日期是"&y&"年"&m&"月"&d&"日   "   '得到当前日期的年月日
nowdate=y&"-"&m&"-"&d
lastdate=dateadd("m",-1,nowdate)
lasty=year(lastdate)
lastm=month(lastdate)
nextdate=dateadd("m",1,nowdate)
nexty=year(nextdate)
nextm=month(nextdate)
str1=str1&"上一月 "
str1=str1&"下一月 "
str1=str1&"返回今日"
response.write str1
thismonth=y&"-"&m&"-1"    '当前月的第一天
nextmonth=dateadd("m",1,thismonth)  '下个月的第一天
num=datediff("d",thismonth,nextmonth)  '当前月的天数
firstday=weekday(thismonth)-1   '得到当前月第一天的星期
'call displaydate(firstday,num)
Response.Write "" & vbCrlf
Response.Write "" & vbCrlf
Response.Write "星期日" & vbCrlf
Response.Write "星期一" & vbCrlf
Response.Write "星期二" & vbCrlf
Response.Write "星期三" & vbCrlf
Response.Write "星期四" & vbCrlf
Response.Write "星期五" & vbCrlf
Response.Write "星期六" & vbCrlf
Response.Write "" & vbCrlf
'需要参数：当前月第一天的星期firstday，当前月的天数num
for n=1 to 6
response.write ""
    for i=1 to 7
    thisday=0
    if i>firstday then thisday=i-firstday
    if n>1 then thisday=7*(n-1)+i-firstday
    if thisday>num then thisday=0
      if thisday=0 then
      display=" "
      else
      display=""&thisday&""
      end if
    response.write ""&display&""
    next
    if n=5 and (thisday=num or thisday=0)  then n=n+1
response.write ""
next
Response.Write "" & vbCrlf
end sub
'===================================================================
%>

关于ASP中脚本执行顺序的最最最健全的讲解

2008-9-1 20:55:13
　　如果机房马上要关门了，或者你急着要和MM约会，请直接跳到第四个自然段。

　　以下叙述的脚本包括服务器端脚本和客户端的脚本，服务器端脚本指在服务器上运行的那部分脚本，比如常见的Response.Write显然是在服务器上运行的，服务器端脚本可以使用VBScript和JScript语言书写，在本文中全部使用VBScript，Jscript一个道理。
　　客户端脚本也可以认为包括VBScript和JavaScript两种语言，是在客户端浏览器上运行的脚本语言。比如我们访问一个网页，弹出一个消息框，这个就是用客户端脚本做的(alert, msgbox, etc)，而且显然不是服务器端脚本能做到的。客户端脚本与服务器端脚本还有一个很大的区别(在IE、Firefox等浏览器中)，就是客户端的脚本可以访问文档对象模型(DOM)，可以操作页面中的对象(比如修改页面标题、修改一个div的innerHTML属性之类)。

首先我们先来了解一下ASP页面执行的流程
1.IIS找到ASP文件，提交给ASP引擎(一般是ASP.DLL)处理。
2.引擎打开这个ASP文件，找出<%和%>之间的内容，当然还有和对应的之间的内容，这些内容称为脚本块。只有脚本块里的内容被引擎解析，其他内容不管，作为没有意义的字符插在脚本块之间。有必要说明一下的是，其实被解析的内容还不止这些，类的服务器端包含文件也是由引擎包含进来并加以处理的。如果你读的程序比较多，你还会知道有的runAt属性标注为"Server"的对象也是会被处理的，这里不做深入讨论。
3.引擎执行脚本块中的脚本，这些服务器端的脚本是作为一个整体被执行的，也就是说，可以写出如下的代码：
<%
Dim i
For i=1 to 5
%> Hello World!
<% Next %>
　　引擎并不会将这些脚本块分开解析，而使两个脚本块都发生语法错误。所以我们得到如下结论：并非所有非服务器脚本的代码都会被发送到客户端，有可能这段非服务器脚本的代码被脚本块限制了。服务器是一定不会操心客户端脚本的执行问题的，但是可以通过服务器端的脚本输出不同的客户端脚本。
4.最终引擎产生了一个文本流，或者说是脚本的执行结果，可以认为这是一个字符串，就是发送到客户端浏览器的网页的代码。客户端浏览器将页面显示出来，此时页面的源代码（源文件）是不包含服务器端的脚本的，但包含了服务器端脚本的执行结果（这是显然的）。

<% … %> 与 …
　　它们都是服务器端的脚本，同时被处理执行。他们执行时是作为一个整体的。

<% … %> 与 …
　　前者是服务器端脚本，后者是客户端脚本。前者先执行，后者后执行。
　　其实也不尽然，二者的脚本是有可能在同时被执行的，但空间不同，仍然是：前者在服务器上执行，后者在客户端浏览器里执行。前者在逻辑上一定提前于后者执行。同时我们也得到结论：在同一个页面的执行中，客户端脚本无论如何不能反馈给服务器端脚本，也就是说，客户端浏览你的留言本并且提交新留言或者是任何客户端脚本获取的值都不可能在同一次服务器响应中被处理。

关于组件的调用
　　注意服务器端脚本和客户端脚本都是脚本，自然都可以创建xmlhttp组件、ADODB.Connection组件等，但是并不是放在哪里都可以的。
　　xmlhttp如果用于服务器的抓取网页（比如采集）就要在服务器脚本里创建了，而如果是用于客户端的ajax无刷新而后台访问服务器端的页面，那么就是运行于客户端的了，自然在客户端创建。
　　ADODB.Connection组件用于访问数据库，一般来说在服务器端创建，毕竟是服务器端的asp程序在跑数据库的数据，但如果你的数据库真的是在客户端连接的(比如这个http://bbs.bccn.net/thread-224966-1-2.html)，那么就毫无疑问在客户端脚本里创建了。
　　总之，矛盾着的事物及其每一个侧面各有其特点。不同事物有不同的矛盾；同一事物在发展的不同过程和不同阶段上有不同的矛盾；同一事物中的不同矛盾、同一矛盾的两个不同方面各有其特殊性（看不懂的可以略去不看……）。这一原理要求我们坚持具体问题具体分析原则，在矛盾普遍性原理的指导下，具体分析矛盾的特殊性，并找出解决矛盾的正确方法。反对千篇一律地采用一种方法解决不同事物的矛盾。“一把钥匙开一把锁，到什么山唱什么歌”讲的就是这个道理。
　　服务器端VBScript脚本创建对象使用Server.CreateObject(className)方法，客户端VBScript脚本创建对象使用CreateObject(className)方法。

典型错误
<%
Function TSize(b)
'这是我自定义的函数
TSize="中国"
end function
%>
" >点这里要使用我定义的函数
(http://bbs.bccn.net/thread-225244-1-1.html)
　　错误分析：
　　混淆了服务器端脚本和客户端脚本的区别。实际执行时我们会发现，客户端根本没有收到什么TSize之类的代码，因为TSize是服务器端的程序，被引擎处理之后（注意引擎对于函数的处理，纯粹是给服务器端脚本调用的，不会发回到客户端）就消失了，不可能在客户端起作用。这就是说，客户端脚本无法直接调用服务器端脚本的函数。
　　事实上，这个程序是有语法错误的，引擎处理这段内容的时候先找到了<%和%>之间的内容，也就是<%TSize('变量')%>，显然这段内容不符合VBScript的语法规则。嗯，改成<%=TSize("变量")%>在服务器端脚本就没有语法错误了，这时TSize函数可以正常返回值"中国"，于是客户端收到的href属性是这样写的："javascript:中国"，是无法执行的。

服务器端脚本对客户端脚本的影响
　　前面已经说过了，服务器端脚本在逻辑上是提前于客户端脚本的执行的，因此这样的代码是可行的：
<%
Dim i
For i=1 to 5
Response.Write "" _
& "alert('Hello World!" & i & "')"
Next
%>

关于Response.Redirect与javascript的执行问题
　　注意以下代码的写法是错误的：
<%
Response.Redirect "index.asp"
Response.Write "" _
& "alert('密码错误!')"
%>
　　这是一种常见的错误，编写者常常以为，这样写代码可以使客户端先弹出“密码错误”的提示然后转向到index.asp，事实上这不可能发生，即使将两行代码顺序交换，也不可能达到这种效果。
　　究其原因，和服务器对于两行代码的处理方式有关。这两行代码不可能同时起作用。
　　Response.Write是向客户端发送一段文本，这段文本的内容可以是一段脚本，那么客户端浏览器收到后可以执行这段脚本，注意，要收到之后才能执行。
　　而Response.Redirect是向客户端发送了一个HTTP头信息(什么是HTTP头信息？这么说吧，比如对客户端Cookies的写入是HTTP头信息，HTTP头信息在HTTP的主体之前发回客户端浏览器，这就是为什么有时我们把服务器的缓冲关闭之后修改Cookies会出错的原因，因为主体已经开始传送，不允许发送HTTP头信息了。)，信息的内容告诉客户端浏览器应该跳转页面浏览，注意，这个Redirect信息是立刻起作用的，也就是说这个Redirect信息具有排他性，在缓冲打开的情况下，无论已经使用Response.Write向缓冲里写入了多少内容，一旦调用Response.Redirect，将会清空缓冲，并且向客户端浏览器发送这个头指令。如果动态跟踪一下程序的执行，我们还会发现，在调用了Response.Redirect之后，程序停止执行了，所以注意服务器端程序在调用Response.Redirect之前要做好数据连接的关闭等操作。
　　那么上面的例子应该怎样修改呢？如果你不愿意修改那个index.asp以加入脚本提示的话，那么只能将转向指令放到客户端脚本中执行，就像这样：
<%
Response.Write "" _
& "alert('!');location.href='index.asp'"
%>

联系方式
如果有任何意见和建议，特别是文章的错误和不足，或者希望为文章添加新的材料，可以通过编程论坛联系我。当然也可以在本帖后面跟帖提问。

值得说明的是，如果有算法和数据结构方面的问题，例如不明白自己的程序为什么错了或者索要某种算法的源代码，使用这个联系方式可能得不到及时解答。请在编程论坛发问。

--------------------------------------------------------------------------------

版权
Copyright (c) 2008 multiple1902
Permission is granted to copy, distribute and/or modify this document under the terms of the GNU Free Documentation License, Version 1.2 or any later version published by the Free Software Foundation.

ASP操作Excel技术总结

2008-9-1 20:30:42
目录
一、　　环境配置
二、　　ASP对Excel的基本操作
三、　　ASP操作Excel生成数据表
四、　　ASP操作Excel生成Chart图
五、　　服务器端Excel文件浏览、下载、删除方案
六、　　附录

正文
一、　　环境配置
服务器端的环境配置从参考资料上看，微软系列的配置应该都行，即：
1．Win9x+PWS+Office
2．Win2000 Professional+PWS+Office
3．Win2000 Server+IIS+Office
目前笔者测试成功的环境是后二者。Office的版本没有特殊要求，考虑到客户机配置的不确定性和下兼容特性，建议服务器端Office版本不要太高，以防止客户机下载后无法正确显示。
服务器端环境配置还有两个偶然的发现是：
1．　　笔者开发机器上原来装有金山的WPS2002，结果Excel对象创建始终出现问题，卸载WPS2002后，错误消失。
2．　　笔者开发ASP代码喜欢用FrontPage，结果发现如果FrontPage打开（服务器端），对象创建出现不稳定现象，时而成功时而不成功。扩展考察后发现，Office系列的软件如果在服务器端运行，则Excel对象的创建很难成功。
服务器端还必须要设置的一点是COM组件的操作权限。在命令行键入“DCOMCNFG”，则进入COM组件配置界面，选择Microsoft Excel后点击属性按钮，将三个单选项一律选择自定义，编辑中将Everyone加入所有权限。保存完毕后重新启动服务器。
客户端的环境配置没发现什么特别讲究的地方，只要装有Office和IE即可，版本通用的好象都可以。

二、　　ASP对Excel的基本操作
1、　　建立Excel对象
set objExcelApp = CreateObject("Excel.Application")
objExcelApp.DisplayAlerts = false　　　　不显示警告
objExcelApp.Application.Visible = false　　　　不显示界面
2、　　新建Excel文件
objExcelApp.WorkBooks.add
set objExcelBook = objExcelApp.ActiveWorkBook
set objExcelSheets = objExcelBook.Worksheets
set objExcelSheet = objExcelBook.Sheets(1)
3、　　读取已有Excel文件
strAddr = Server.MapPath(".")
objExcelApp.WorkBooks.Open(strAddr & "\Templet\Table.xls")
set objExcelBook = objExcelApp.ActiveWorkBook
set objExcelSheets = objExcelBook.Worksheets
set objExcelSheet = objExcelBook.Sheets(1)
4、　　另存Excel文件
objExcelBook.SaveAs strAddr & "\Temp\Table.xls"
5、　　保存Excel文件
objExcelBook.Save　　　　（笔者测试时保存成功，页面报错。）
6、　　退出Excel操作
objExcelApp.Quit　　一定要退出
set objExcelApp = Nothing

三、　　ASP操作Excel生成数据表
1、　　在一个范围内插入数据
objExcelSheet.Range("B3:k3").Value = Array("67", "87", "5", "9", "7", "45", "45", "54", "54", "10")
2、　　在一个单元格内插入数据
objExcelSheet.Cells(3,1).Value="Internet Explorer"
3、　　选中一个范围
4、　　单元格左边画粗线条
5、　　单元格右边画粗线条
6、　　单元格上边画粗线条
7、　　单元格下边画粗线条
8、　　单元格设定背景色
9、　　合并单元格
10、　　插入行
11、　　插入列

四、　　ASP操作Excel生成Chart图
1、　　创建Chart图
objExcelApp.Charts.Add
2、　　设定Chart图种类
objExcelApp.ActiveChart.ChartType = 97
注：二维折线图，4；二维饼图，5；二维柱形图，51
3、　　设定Chart图标题
objExcelApp.ActiveChart.HasTitle = True
objExcelApp.ActiveChart.ChartTitle.Text = "A test Chart"
4、　　通过表格数据设定图形
objExcelApp.ActiveChart.SetSourceData objExcelSheet.Range("A1:k5"),1
5、　　直接设定图形数据（推荐）
objExcelApp.ActiveChart.SeriesCollection.NewSeries
objExcelApp.ActiveChart.SeriesCollection(1).Name = "=""333"""
objExcelApp.ActiveChart.SeriesCollection(1).Values = "={1,4,5,6,2}"
6、　　绑定Chart图
objExcelApp.ActiveChart.Location 1
7、　　显示数据表
objExcelApp.ActiveChart.HasDataTable = True
8、　　显示图例
objExcelApp.ActiveChart.DataTable.ShowLegendKey = True

五、　　服务器端Excel文件浏览、下载、删除方案
浏览的解决方法很多，“Location.href=”，“Navigate”，“Response.Redirect”都可以实现，建议用客户端的方法，原因是给服务器更多的时间生成Excel文件。
下载的实现要麻烦一些。用网上现成的服务器端下载组件或自己定制开发一个组件是比较好的方案。另外一种方法是在客户端操作Excel组件，由客户端操作服务器端Excel文件另存至客户端。这种方法要求客户端开放不安全ActiveX控件的操作权限，考虑到通知每个客户将服务器设置为可信站点的麻烦程度建议还是用第一个方法比较省事。
删除方案由三部分组成：
A：　　同一用户生成的Excel文件用同一个文件名，文件名可用用户ID号或SessionID号等可确信不重复字符串组成。这样新文件生成时自动覆盖上一文件。
B：　　在Global.asa文件中设置Session_onEnd事件激发时，删除这个用户的Excel暂存文件。
C：　　在Global.asa文件中设置Application_onStart事件激发时，删除暂存目录下的所有文件。
注：建议目录结构 \Src 代码目录 \Templet 模板目录 \Temp 暂存目录

六、　　附录
出错时Excel出现的死进程出现是一件很头疼的事情。在每个文件前加上“On Error Resume Next”将有助于改善这种情况，因为它会不管文件是否产生错误都坚持执行到“Application.Quit”，保证每次程序执行完不留下死进程。

强烈反驳'6行代码实现无组件上传'

2008-8-23 19:45:59
下面这段代码就是网络上流传的"6行代码实现无组件上传".
    ȫ

  strFileName = Request.QueryString("file1")
  Set objStream = Server.CreateObject("ADODB.Stream")
  objStream.Type = 1 ' adTypeBinary
  objStream.Open
  objStream.LoadFromFile strFileName
  objStream.SaveToFile Server.mappath("123_onweb.gif"),2

确实,你在本地测试的时候,一切正常，没什么错误！但当你把这段代码上传到服务器后就会出错了---服务器上根本没有那个 strFileName 指定的文件,stream去哪里load这个文件！！！

他犯的一个严重错误就是:服务器端和客户端都还分不清楚~~
希望大家能认识到这个问题，不要被误导了~

PS:
简单的完整的把一个文件上传到服务器可以用这段代码~
http://dev.mo.cn/show.asp?id=63
更复杂的上传可以使用自己写的这个类
http://dev.mo.cn/detial.asp?id=143

Asp利用Stream下载文件

2008-8-23 18:26:00

    ȫ
<%
Dim Stream
Dim FileName
Dim FileExt
Const adTypeBinary = 1
FileName="你的文件路径"
FileName=replace(FileName,"\","/")
name=mid(FileName,instrrev(FileName,"/")) '文件名
Response.Clear
Response.ContentType = "application/octet-stream"
Response.AddHeader "content-disposition", "attachment; filename="&name
Set Stream = server.CreateObject("ADODB.Stream")
Stream.Type = adTypeBinary
Stream.Open
Stream.LoadFromFile Server.MapPath(FileName)
While Not Stream.EOS
Response.BinaryWrite Stream.Read(1024 * 64)
Wend
Stream.Close
Set Stream = Nothing
Response.Flush
Response.End
%>

简单的数字转换大写（货币）

2008-8-23 18:21:06
例如，把932.2转换为"玖佰叁拾贰圆贰角零分"
    ȫ
<%
dim m
m=25698932.2
response.write cstr(m)&"
"
response.write m2h(m)

Function m2h(money)
dim str,lstr,rstr,dwstr,dxstr,astr,i,n
dim dw_l,dw_r,dx_a,dw,dx,l_len,r_len
dw_l=split("圆|拾|佰|仟|万|拾万|佰万|仟万|亿|拾亿|佰亿|仟亿|万亿","|")
dw_r=split("角|分","|")
dx_a=split("零|壹|贰|叁|肆|伍|陆|柒|捌|玖","|")
str=cstr(money)
if instr(str,".")>0 then
   lstr=split(str,".")(0)
   rstr=split(str,".")(1)
    if len(rstr)=1 then rstr=rstr&"0"
else
   lstr=str
   rstr="00"
end if
l_len=len(lstr)
r_len=len(rstr)
for i=0 to l_len-1
  n=cint(mid(lstr,i+1,1))
  dx=dx_a(n)
  dxstr=dxstr&dx&" "
  dw=dw_l(l_len-i-1)
  dwstr=dwstr&dw&" "
  astr=astr&dx&dw
next

for i=0 to r_len-1
  n=cint(mid(rstr,i+1,1))
  dx=dx_a(n)
  dxstr=dxstr&dx&" "
  dw=dw_r(i)
  dwstr=dwstr&dw&" "
  astr=astr&dx&dw
next

m2h=dwstr&"
"&dxstr&"
"&astr
end function
%>

Dictionary对象介绍

2008-8-23 18:16:17
　　Dictionary对象是很像一个数组，但是它比数组更为灵活和实用。与数组不同，Dictionary对象是动态的，不必声明包含元素的数量。向Dictionary对象里添加一个元素后，Dictionary对象就会自动增长以保存这个元素；删除一个元素时，Dictionary对象也会自动缩小。如果使用动态数组，虽然也可以完成同样的工作，但是必须要Redim Preserve命令来扩展或缩小数组。

　　Dictionary对象可以在任何一个位置上删除元素。例如，Dictionary对象可以删除第一个元素，并把它的空间释放掉。此时原来处在第二位置上的元素变为第一个元素，依次类推。

　　在使用Dictionary对象时，不必用数字来查询元素，可以用关键字进行查询，就像查字典一样。在向Dictionary对象里添加元素时，不仅添加了真实的值，也添加了一个用于查找数值的字符串。

创建Dictionary对象的语法如下：
<%
Dim objDictioary '定义变量
Set objDictionary=Sever.Create("Scripting.Dictionary")
%>

1. Dictionary对象提供如下的属性。

表8-1 Dictionary对象常见属性

对象　　　　说明
CompareMode 　设置或者返回字符串比较模式
Count 　　　　返回Dictionary中的字/项组合的数量（只读）
Item(key) 　　设置或者返回特定key的对应项值
Key(key)　　　设置或者返回key的值

其中CompareMode 语法如下：
　　objDictionary.CompareMode[=Compare]
参数objDictionary表示Dictionary对象名称；Compare表示比较模式。当Compare为vbBianryCompare时执行二进制比较；为vbTextCompare时执行文本比较。

2. Dictionary对象提供如下的方法

（1）Add(key,item) 在Dictionary中添加“关键字/项”组合，语法如下：
ObjDictionary.Add key,item
参数key与参数item是关联的。
下面的程序创建一个Dictionary对象实例，并插入数据。
<%
Dim objDictionary '定义变量
Set objDictionary=Sever.Createobject("Scripting.Dictionary")
objDictionary.Add"a","步骤1"
objDictionary.Add"b","步骤2"
objDictionary.Add"c","步骤3"
%>
（2）Exists(key) 判断指定的key是否存在，如果存在则返回True,否则返回False.
（3）Item() 返回一个数组，它包含了Dictionary对象中的所有项。
（4）keys() 返回一个数字，它包含了Dictionary对象中的所有关键字。
（5）Remove(key) 删除指定key 的一个关键字/项组合。
（6）RemoveAll() 删除Dictionary对象中所有的关键字/项组合。

下面的操作将会导致出现错误：
1)在已经存在某关键字的情况下加入同一“关键字/项”组合。
2)删除不存在的关键字/项的组合。
3)修改已经包含数据的Dictionary对象的CompareMode属性。

Stream对象详解

2008-8-23 18:15:04
Adodb.Stream是ADO的Stream对象,提供存取二进制数据或者文本流,从而实现对流的读、写和管理等操作
有下列方法：
Cancel 方法
　使用方法如下
　 Object.Cancel
　说明：取消执行挂起的异步 Execute 或 Open 方法的调用。

Close 方法
　使用方法如下
　 Object.Close
　说明：关闭对像

CopyTo 方法
　使用方法如下
　 Object.CopyTo(destStream,[CharNumber])
　说明：将对像的数据复制，destStream指向要复制的对像，CharNumber为可选参数，指要复制的字节数，不选为全部复制。

Flush 方法
　使用方法如下
　 Object.Flush
　说明：

LoadFromFile 方法
　使用方法如下
　 Object.LoadFromFile(FileName)
　说明:将FileName指定的文件装入对像中,参数FileName为指定的用户名。

Open 方法
　使用方法如下
　 Object.Open(Source,[Mode],[Options],[UserName],[Password])
　说明：打开对像，
　参数说明：
   Sourece 对像源，可不指定

   Mode 指定打开模式，可不指定，可选参数如下：
　    adModeRead =1
　    adModeReadWrite =3
　    adModeRecursive =4194304
　    adModeShareDenyNone =16
　    adModeShareDenyRead =4
　    adModeShareDenyWrite =8
　    adModeShareExclusive =12
　    adModeUnknown =0
　    adModeWrite =2
   Options 指定打开的选项，可不指定，可选参数如下：
　    adOpenStreamAsync =1
　    adOpenStreamFromRecord =4
　    adOpenStreamUnspecified=-1

   UserName 指定用户名，可不指定。
   Password 指定用户名的密码

Read 方法
　使用方法如下：
　 Object.Read(Numbytes)
　说明：读取指定长度的二进制内容。
　参数说明：Numbytes指定的要读取的找度，不指定则读取全部。

ReadText 方法
　使用方法如下：
　 Object.ReadText(NumChars)
　说明：读取指定长度的文本
　参数说明：NumChars指定的要读取的找度，不指定则读取全部。

SaveToFile 方法
　使用方法如下：
　 Object.SaveToFile(FileName,[Options])
　说明：将对像的内容写到FileName指定的文件中
　参数说明：FileName指定的文件
　 Options 存取的选项，可不指定，可选参数如下：
　　 adSaveCreateNotExist =1
　　 adSaveCreateOverWrite =2

SetEOS 方法
　使用方法如下：
　 Object.setEOS()
　说明：

SkipLine 方法
　使用方法如下：
　 Object.SkipLine()
　说明：

Write 方法
　使用方法如下：
　 Object.Write(Buffer)
　说明：将指定的数据装入对像中。
　参数说明：Buffer 为指定的要写入的内容。

WriteText 方法
　使用方法如下：
　 Object.Write(Data,[Options])
　说明：将指定的文本数据装入对像中。
　参数说明：
　 Data 为指定的要写入的内容。
　 Options 写入的选项，可不指定，可选参数如下：
　　  adWriteChar =0
　　  adWriteLine =1
____________________________________________________________________
有下列属性：
Charset
EOS 返回对像内数据是否为空。

LineSeparator 指定换行格式，可选参数有
　 adCR　=13
　 adCRLF　=-1
　 adLF　=10

Mode 指定或返加模式。

Position 指定或返加对像内数据的当前指针。

Size 返回对像内数据的大小。

State 返加对像状态是否打开。

Type 指定或返回的数据类型，可选参数为：
　 adTypeBinary =1
　 adTypeText =2

艾恩(An-Upload)ASP无组件上传类开发文档

2008-8-19 6:34:33
艾恩ASP无组件上传(An-upload) 说明文档(下载地址:http://dev.mo.cn/detial.asp?id=143)

本类简介:
  1.尽量追求简洁，减少赘余代码
  2.全面保存客户提交的信息(普通表单,文件域值,相同表单值)
  3.准确获取上传中的错误信息
  4.可选择文件保存方式(以原文件名保存和以新文件名保存,新文件名为时间+随机数字组成)
  5.文件保存函数简洁,调用方便,并且比较灵活(保存路径和保存方式可随时改变)
  6.同时可以获取文件的二进制形式,从而可以实现将二进制数据保存到数据库
  7.灵活运用本类,可以实现表单数据和文件同时编辑(这是一般类无法达到的)
  8.更多的用途靠大家来发现了.....
  9.examples里面有两个很简单的例子,能掌握这两个例子就可以灵活使用本类

为使网友更方便地使用该类(UpLoad)，现写出本类(UpLoad)的开发文档.
详细说明如下('后面为注释文字):

第一部分上传表单
  1.特别注意Form一定要加上enctype="multipart/form-data"属性,否则上传会出错
  2.多文件上传的时候建议固定上传文件数量,如果不固定的话按我的表单设计就好，注意最后3个按钮的位置
  3.可以存在相同name属性的表单,但文件域除外(不能存在两个相同name属性的文件域)

第二部分

demo---示例文件夹
   bytes_upload  ---   演示获取上传文件的二进制形式
   db_upload     ---   一个复杂的文件上传+表单数据保存示例
   multi_upload  ---   演示批量文件上传
   single_upload ---   演示单个文件上传+文本表单

关键程序代码(与single_upload基本对应):
'==================================================================================
Dim myupload                      '定义变量
set myupload=new UpLoad           '创建类实例
myupload.MaxSize=500*1024         '设置单个文件最大上传限制为500KB,按字节计；默认(可以不设置)为不限制单文件大小
myupload.MaxSize=1*1024*1024      '设置最大上传限制为1MB,按字节计；默认(可以不设置)为不限制
myupload.Exe="rar|jpg|gif|bmp"    '设置合法扩展名,以|分割,忽略大小写
myupload.GetData()                '获取并保存数据
'==================================================================================
上面这段代码运行完毕后
   用errNum=myupload.err来获取错误信息,errNum<=0代表数据处理成功
     errNum>0 代表出错，可用myupload.Description来获取错误描述

程序生成两个集合(dictionary对象):myupload.forms---表单数据集合;myupload.files---文件类集合
如果没有错误可以开始保存数据：

假设有个表单的名字为input1
   你可以使用myupload.forms("input1")来获取表单的值
      注意：myupload.forms("input1")的参数input1区分大小写的
            myupload.forms(文件域名)可以获取文件的本地路径(一般没用)

假设你上传的文件域名字为file1
   你可以用set file=myupload.files("file1")来获取保存文件的类
   然后可以调用file.SaveToFile(path,savetype)来保存文件
               path为保存文件的目录
               savetype为保存方式:0为新文件名(时间+随机数字)保存;1为原文件名保存
   可以使用file.FileName获得保存到服务器的文件的名字
           file.size获取文件的大小,字节为单位
           file.GetBytes获取文件的二进制形式(方便一些程序员，可以把数据保存到数据库)
   保存完文件后使用set file=nothing来释放资源

本类使用方法就是这样的，很简单，灵活性比较大！

第三部分说明

  类名: UpLoad(艾恩无组件上传类)
  作者: Anlige
  版本: An-Upload无组件上传类8.8.19
  开发日期: 2008-4-12
  修改日期: 2008-9-5
  作者主页: http://dev.mo.cn
  Email: zhanghuiguoanlige@126.com
  下载地址:http://dev.mo.cn/detial.asp?id=143
  QQ: 417833272
  备注:
       请不要尝试修改Upload_class.asp文件，此为关键无组件上传类；
       您可以修改部分代码，请保留Upload_class.asp文件中的版本，作者联系方式等注释！谢谢使用！

HTML中meta标签用法详解

2008-8-19 3:57:28
meta是html语言head区的一个辅助性标签。几乎所有的网页里，我们可以看到类似下面这段的html代码：
＜head＞
＜meta http-equiv="content-Type" content="text/html; charset=gb2312"＞
＜/head＞
也许你认为这些代码可有可无。其实如果你能够用好meta标签，会给你带来意想不到的效果，例如加入关键字会自动被大型搜索网站自动搜集；可以设定页面格式及刷新等等。
一、meta标签的组成
meta标签共有两个属性，它们分别是http-equiv属性和name属性，不同的属性又有不同的参数值，这些不同的参数值就实现了不同的网页功能。
1、name属性
name属性主要用于描述网页，与之对应的属性值为content，content中的内容主要是便于搜索引擎机器人查找信息和分类信息用的。
meat标签的name属性语法格式是：＜meta name="参数" content="具体的参数值"＞。
其中name属性主要有以下几种参数：
A、Keywords(关键字)
说明：keywords用来告诉搜索引擎你网页的关键字是什么。
举例：＜meta name ="keywords" content="science, education,culture,politics,ecnomics，relationships, entertaiment, human"＞
B、description(网站内容描述)
说明：description用来告诉搜索引擎你的网站主要内容。
举例：＜meta name="description" content="This page is about the meaning of science, education,culture."＞
C、robots(机器人向导)
说明：robots用来告诉搜索机器人哪些页面需要索引，哪些页面不需要索引。
content的参数有all,none,index,noindex,follow,nofollow。默认是all。
举例：＜meta name="robots" content="none"＞
D、author(作者)
说明：标注网页的作者
举例：＜meta name="author" content="闪电儿,web@webjx.com"＞
2、http-equiv属性
http-equiv顾名思义，相当于http的文件头作用，它可以向浏览器传回一些有用的信息，以帮助正确和精确地显示网页内容，与之对应的属性值为content，content中的内容其实就是各个参数的变量值。
meta标签的http-equiv属性语法格式是：＜meta http-equiv="参数" content="参数变量值"＞；其中http-equiv属性主要有以下几种参数：
A、Expires(期限)
说明：可以用于设定网页的到期时间。一旦网页过期，必须到服务器上重新传输。
用法：＜meta http-equiv="expires" content="Fri, 12 Jan 2001 18:18:18 GMT"＞
注意：必须使用GMT的时间格式。
B、Pragma(cache模式)
说明：禁止浏览器从本地计算机的缓存中访问页面内容。
用法：＜meta http-equiv="Pragma" content="no-cache"＞
注意：这样设定，访问者将无法脱机浏览。
C、Refresh(刷新)
说明：自动刷新并指向新页面。
用法：＜meta http-equiv="Refresh" content="2；URL=http://www.webjx.com"＞
注意：其中的2是指停留2秒钟后自动刷新到URL网址。
D、Set-Cookie(cookie设定)
说明：如果网页过期，那么存盘的cookie将被删除。
用法：＜meta http-equiv="Set-Cookie" content="cookievalue=xxx; expires=Friday, 12-Jan-2001 18:18:18 GMT； path=/"＞
注意：必须使用GMT的时间格式。
E、Window-target(显示窗口的设定)
说明：强制页面在当前窗口以独立页面显示。
用法：＜meta http-equiv="Window-target" content="_top"＞
注意：用来防止别人在框架里调用自己的页面。
F、content-Type(显示字符集的设定)
说明：设定页面使用的字符集。
用法：＜meta http-equiv="content-Type" content="text/html; charset=gb2312"＞
二、meta标签的功能
上面我们介绍了meta标签的一些基本组成，接着我们再来一起看看meta标签的常见功能：
１、帮助主页被各大搜索引擎登录
meta标签的一个很重要的功能就是设置关键字，来帮助你的主页被各大搜索引擎登录，提高网站的访问量。在这个功能中，最重要的就是对Keywords和description的设置。因为按照搜索引擎的工作原理,搜索引擎首先派出机器人自动检索页面中的keywords和decription，并将其加入到自己的数据库，然后再根据关键词的密度将网站排序。因此，我们必须设置好关键字，来提高页面的搜索点击率。下面我们来举一个例子供大家参考：
＜meta name="keywords" content="网页,网页制作, 网页特效,建站指南, 教程下载, 动画制作，网页教学，网页素材，视频教程，技术论坛，免费空间，免费域名"＞
＜meta name="description" content="网页教学网　专业的网页教学网站"＞
设置好这些关键字后，搜索引擎将会自动把这些关键字添加到数据库中，并根据这些关键字的密度来进行合适的排序。
　　２、定义页面的使用语言
　　这是meta标签最常见的功能,在制作网页时,我们在纯HTML代码下都会看到它,它起的作用是定义你网页的语言,当浏览者访问你的网页时,浏览器会自动识别并设置网页中的语言,如果你网页设置的是GB码,而浏览者没有安装GB码,这时网页只会呈现浏览者所设置的浏览器默认语言。同样的,如果该网页是英语,那么charset=en。下面就是一个具有代表性的例子：
　　＜meta http-equiv=″content－Type″ content=″text/html; charset=gb2312″〉
该代码就表示将网页的语言设置成国标码。
　　３、自动刷新并指向新的页面
　　如果你想使您的网页在无人控制的情况下，能自动在指定的时间内去访问指定的网页，就可以使用meta标签的自动刷新网页的功能。下面我们来看一段代码：
　　〈meta http-equiv=″refresh″ content=″２; URL=http://www.webjx.com″〉
　　这段代码可以使当前某一个网页在２秒后自动转到http://www.webjx.com页面中去,这就是meta的刷新作用,在content中,２代表设置的时间（单位为秒）,而URL就是在指定的时间后自动连接的网页地址。
　　４、实现网页转换时的动画效果
　　使用meta标签，我们还可以在进入网页或者离开网页的一刹那实现动画效果，我们只要在页面的html代码中的＜head＞＜/head＞标签之间添加如下代码就可以了：
＜meta http-equiv="Page-Enter" content="revealTrans(duration=５.０, transition=２０)"＞
＜meta http-equiv="Page-Exit" content="revealTrans(duration=５.０, transition=２０)"＞
一旦上述代码被加到一个网页中后，我们再进出页面时就会看到一些特殊效果，这个功能其实与FrontPage2000中的Format/Page Transition一样，但我们要注意的是所加网页不能是一个Frame页;
　　５、网页定级评价
　　IE4.0以上版本的浏览器可以防止浏览一些受限制的网站,而之所以浏览器会自动识别某些网站是否受限制,就是因为在网站meta标签中已经设置好了该网站的级别,而该级别的评定是由美国RSAC,即娱乐委员会的评级机构评定的,如果你需要评价自己的网站,可以连接到网站http://www.rsac.org/,按要求提交表格,那么RSAC会提供一段meta代码给你,复制到自己网页里就可以了。下面就是一段代码的样例：
〈meta http-equiv=″PICS－Label″
content=′(PICS－1.1 ″http://www.rsac.org/ratingsv01.html″
l gen true comment ″RSACi North America Server″
for ″http://www.rsac.org″
on ″2001.08.16T08:15－0500″
r (n 0 s 0 v 0 l 0))′〉
　　６、控制页面缓冲
　　meta标签可以设置网页到期的时间,也就是说,当你在Internet Explorer 浏览器中设置浏览网页时首先查看本地缓冲里的页面,那么当浏览某一网页,而本地缓冲又有时,那么浏览器会自动浏览缓冲区里的页面,直到meta中设置的时间到期,这时候,浏览器才会去取得新页面。例如下面这段代码就表示网页的到期时间是2001年1月12日18时18分18秒。
　　〈meta http-equiv=″expires″ content=″Friday, 12-Jan-2001 18:18:18 GMT″〉
　　７、控制网页显示的窗口
　　我们还可以使用meta标签来控制网页显示的窗口，只要在网页中加入下面的代码就可以了：＜metahttp-equiv="window-target" content="_top"＞，这段代码可以防止网页被别人作为一个Frame调用。

如何解决AJAX中跨域访问出现'没有权限'的错误

2008-8-16 11:07:25
  很多人在使用AJAX调用别人站点内容的时候,JS会提示"没有权限"错误，这是XMLHTTP组件的限制-安全起见
禁止访问非同域的网站,下面一个例子来访问http://www.google.cn,
    ȫ

function createobj() {
if (window.ActiveXObject) {
         return new ActiveXObject("Microsoft.XMLHTTP");
     }
     else if (window.XMLHttpRequest) {
         return new XMLHttpRequest();
     }
}

function getWebPage(url) {
  var oBao=createobj();
  var my_url=url
  oBao.open('get',my_url,false);
  oBao.onreadystatechange=function(){
       if(oBao.readyState==4){
            if(oBao.status==200){
              var returnStr=oBao.responseText;
              document.write(returnStr);
            }else{
              document.write("未找到您输入的地址或服务器505错误!");
            }
       }
  }
  oBao.send(null);
}
getWebPage('http://www.google.cn');

  保存这段代码到test.html,在本地直接用IE打开没问题,但将该段代码上传到服务器后，问题出现了--JS提示"没有权限"错误!!!这该如何解决呢？
  下面思考一下：既然不能访问非同域的，只能访问同域的地址了，同域的动态文件怎么获取非同域网页内容呢？我们还是想到的AJAX，只不过这个AJAX是在服务器端执行.
   大体思路是这样的:首先将URL用AJAX提交给自己站内的文件，例如getPage.asp---在getPage.asp再次通过服务器XMLHTTP来访问提交来的URL---将获取的内容返回给提交URL的页----显示内容
  下面开始组织代码,首先是test.html文件

    ȫ

function createobj() {
if (window.ActiveXObject) {
         return new ActiveXObject("Microsoft.XMLHTTP");
     }
     else if (window.XMLHttpRequest) {
         return new XMLHttpRequest();
     }
}

function getWebPage(url) {
  var oBao=createobj();
  var my_url="getpage.asp?url="+escape(url);
  oBao.open('get',my_url,false);
  oBao.onreadystatechange=function(){
       if(oBao.readyState==4){
            if(oBao.status==200){
              var returnStr=oBao.responseText;
              document.write(returnStr);
            }else{
              document.write("未找到您输入的地址或服务器505错误!");
            }
       }
  }
  oBao.send(null);
}
getWebPage('http://www.google.cn');

再就是getpage.asp文件(注意:要以UTF-8格式保存本文件,防止乱码),如下:
    ȫ

<%
response.charset="UTF-8"
reg="\\/]*).+\/{0,1}\>"
'函数名:GetResStr
'作用:获取指定URL的HTML代码
'参数:URL-要获取的URL
function GetResStr(URL)
err.clear
dim ResBody,ResStr,PageCode,ReturnStr
Set Http=createobject("MiCROSOFT.XMLHTTP")
Http.open "GET",URL,False
Http.Send()
If Http.Readystate =4 Then
  If Http.status=200 Then
    ResStr=http.responseText
    ResBody=http.responseBody
    PageCode=GetCode(ResStr,reg)
    ReturnStr=BytesToBstr(http.responseBody,PageCode)
    GetResStr=ReturnStr
  End If
End If
End Function

'函数名:BytesToBstr
'作用:转换二进制数据为字符
'参数:Body-二进制数据,Cset-文本编码方式
Function BytesToBstr(Body,Cset)
  Dim Objstream
  Set Objstream = CreateObject("adodb.stream")
  objstream.Type = 1
  objstream.Mode =3
  objstream.Open
  objstream.Write body
  objstream.Position = 0
  objstream.Type = 2
  objstream.Charset =Cset
  BytesToBstr = objstream.ReadText
  objstream.Close
  set objstream = nothing
End Function

'函数名:GetCode
'作用:提取网页编码
'参数:str-待查询字符串,regstr-正则表达式
Function GetCode(str,regstr)
Dim Reg,serStr
set Reg= new RegExp
Reg.IgnoreCase = True
Reg.MultiLine = True
Reg.Pattern =regstr
if Reg.test(str) then '若查询到匹配项
   Set Cols = Reg.Execute(str)
   serStr=Cols(0).SubMatches(0) '使用匹配到的第一个匹配项
else '否则给个默认值gb2312,有点省懒法，如果页面没给出编码格式，想知道确实有点麻烦
   serStr="gb2312"
end if
GetCode=serStr
end function

dim url:url=request.querystring("url")
response.write GetResStr(URL)
%>

  代码组织完毕,实验下,成功提取http://www.google.cn的内容!!!!!这样就可以解决"没有权限"的问题了。
  其实,单纯一个getpage.asp一样能获取，不过不能像js那样动态的处理DOM。
  还有一个问题,如果你用第一种方法访问http://www.baidu.com会出现乱码,因为baidu编码为GB2312,
而XMLHTTP返回的是UTF-8编码格式。用第二种方法就不会出现这样的问题了,只要定义了编码格式的站点就能正常返回信息(这里不能包括一些使用特别编码的站点)。

ASP在线获取ACCESS数据库表名及结构

2008-8-11 21:15:24
此方法可获得ACCESS数据的表名及其结构，数据类型等...
程序过滤了几个ACCESS数据库的几个隐藏表(可能是导致ACCESS数据库删除数据还会变大的原因)
    ȫ

获取ACCESS数据库表名

数据库路径:

<%
if request.form("ari")="1" and request.form("path")<>"" then
dim conn,connstr,i,sql,rs
on error resume next
Connstr="DRIVER=Microsoft Access Driver (*.mdb);DBQ="+server.mappath(request.form("path"))
Set Conn=Server.CreateObject("ADODB.Connection")
conn.Open connstr
If Err Then
err.Clear
Set Conn = Nothing
Response.Write "数据库连接出错，请检查连接字串。"
Response.End
End If
%>
<%=conn.connectionstring%>

<%
j=0
dim tablecount
tablecount=0
Set shm = conn.OpenSchema(20)
shm.MoveFirst
Do While Not shm.EOF
  If shm("TABLE_TYPE") = "TABLE" Then
        If Left(shm("table_name"), 1) <> "~" Then '这里过滤掉隐藏表
           j=j+1
           call GetFileds(shm("table_name"))
        End If
  End If
  shm.MoveNext
Loop
response.write "共有 "&j&" 个数据表!"
else
response.write "
请输入数据库相对路径查看具体内容!
"
end if
%>

<%
Function GetFileds(TableName)
Set rs = server.createobject("adodb.recordset")
Dim SQL
SQL = "select * from " & TableName
rs.Open SQL, conn, 1, 1
Dim Cont
Cont = rs.Fields.Count
response.write ""&vbcrlf
response.write "表 "&TableName&" 中含有"&Cont&"个字段,具体如下:
"&vbcrlf
For i = 0 To Cont - 1
  dim filtype
  select case rs.fields(i).type
   case 3
    filtype="自动编号(数字)"
   case 202
    filtype="字符"
   case 203
    filtype="备注"
   case 125
    filtype="日期"
   case 11
    filtype="真/假(是/否)"
  end select
  response.write "  "&i&"--"&rs.fields(i).name&"--"&filtype&";"&vbcrlf
Next
response.write "
"&vbcrlf
rs.Close
set rs=nothing
End Function
%>

ASP在线压缩ACCESS数据库

2008-8-11 21:06:59
  使用ACCESS作数据库的站长会发现，随着时间的增长你的数据库会越来越大，甚至你删除数据数据库不会变小还会变大，其实在access数据库里还有好几个隐藏表！有次一个人让我给他看看网站，网站占用空间500多M,他压缩后发给我后是50M，但当我给压缩数据库后发现，他的网站总占用空间不到10M...几十倍的差距。用下面的代码可以实现对access数据库的压缩，不会损伤数据库的任何数据，可安全使用
    ȫ

<%
path=server.mappath("mydb.mdb")
is97=true '这个参数决定调用方法的参数不同,若是97数据库请设为true，否则为false
Response.Write PA_CompactDB(request.querystring("path"), is97)

Function PA_CompactDB(m_strDBFile, m_bIsAccess97)
    Dim objFSO, ofileb,ofilea,objEngine, strDBFileB,JET_3X,sizestring
    Dim bHasError
    On Error Resume Next
    bHasError = False
    strDBFileA = Server.MapPath(m_strDBFile)
    strDBFileB = left(strDBFileA,InStrRev(strDBFileA,"\"))
    Set objFSO = CreateObject("Scripting.FileSystemObject")

    If objFSO.FileExists(strDBFileA) Then
        Set objEngine = CreateObject("JRO.JetEngine")

        If Err.Number<>0 Then
            PA_CompactDB = "Error:" & Err.Description
            Err.Clear
        Else
            set ofileb=objFSO.getfile(strDBFileA)
            sizestring="Before Compacted,Filesize is "&(ofileb.size/1024)&"KB;
"
            If m_bIsAccess97 = True Then
                objEngine.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBFileA, _
                "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBFileB & "_temp.mdb;" _
                & "Jet OLEDB:objEngine Type=" & JET_3X
            Else
                objEngine.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBFileA, _
                "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBFileB & "_temp.mdb"
            End If

            objFSO.CopyFile strDBFileB & "_temp.mdb",strDBFileA
            objFSO.DeleteFile(strDBFileB & "_temp.mdb")
            Set objEngine = nothing
            set ofilea=objFSO.getfile(strDBFileA)
            sizestring=sizestring&"After Compacted,Filesize is "&(ofilea.size/1024)&"KB!
"
            PA_CompactDB ="Your Database(" & strDBFileA & ") has benn compacted successfully!
"&sizestring
        End If
    Else
        PA_CompactDB = "Your database path is wrong!"
    End If
    Set objFSO = nothing
    Set ofileb = nothing
    Set ofilea = nothing
    on Error Goto 0
End Function
%>

XMLDOM对象方法详解

2008-8-11 4:59:32
abort 方法
作   用
  abort 方法取消一个进行中的异步下载
基本语法
  xmlDocument.abort();

说   明
  如果这个方法在异步下载时被呼叫，所有的解析动作会停止，而且在内存中的文件会被释放。

范   例
xmlDocument
-------------------------------------------------------------------------------------
AppendChild 方法
作   用
  加上一个节点当作指定节点最后的子节点。
基本语法
  xmlDocumentNode.appendChild(newChild);

说   明
  newChild 是附加子节点的地址。

范   例
docObj ＝ xmlDoc.documentElement;
alert(docObj.xml);
objNewNode ＝ docObj.appendChild(xmlDoc.documentElement. firstChild);
alert(docObj.xml);
  -------------------------------------------------------------------------------------
cloneNode 方法
作   用

基本语法
  xmlDocumentNode.cloneNode(deep);

说   明
  deep 是一个布尔值。如果为true，此节点会复制以指定节点发展出去的所有节点。如果是false，只有指定的节点和它的属性被复制。

范   例
currNode ＝ xmlDoc.documentElement.childNodes.item(1);
objClonedNode ＝ currNode.cloneNode(1);
alert(objClonedNode.xml);
  -------------------------------------------------------------------------------------
createAttribute 方法
作   用
  建立一个指定名称的属性。
基本语法
  xmlDocument.createAttribute(name);

说   明
  name 是被建立属性的名称。

范   例
objNewAtt ＝ xmlDoc.createAttribute("encryption");
alert(objNewAtt.xml);
  -------------------------------------------------------------------------------------
createCDATASection 方法
作   用

基本语法
  xmlDocument.createCDATASection(data);

说   明
  date 是一个字符串，且包含了被置放在CDATA 的资料。

范   例
objNewCDATA ＝ xmlDoc.createCDATASection("This is a CDATA Section");
alert(objNewCDATA.xml);
  -------------------------------------------------------------------------------------
createComment 方法
作   用

基本语法
  xmlDocument.createComment(data);

说   明
  data 是一个字符串，且包含了被置放在批注的资料。

范   例
objNewComment ＝ xmlDoc.createComment("This is a comment");
alert(objNewComment.xml);
  -------------------------------------------------------------------------------------
createDocumentFragment 方法
作   用
  建立一个空的文件片断对象。
基本语法
  xmlDocument.createDocumentFragment();

说   明
  一个新的文件片断被建立，但没有加到文件树中。要加入片断到文件树中，必须使用插入方法，例如insertBefore、replaceChild 或appendChild。

范   例
objNewFragment ＝ xmlDoc.createDocumentFragment();
alert(objNewFragment.xml);
  -------------------------------------------------------------------------------------
createElement 方法
作   用
  建立一个指定名称的元素。
基本语法
  xmlDocument.createElement(tagName);

说   明
  tagName 是一个区分大小写的字符串来指定新元素名称。

范   例
objNewElement ＝ xmlDoc.createElement("TO");
alert(objNewElement.xml);
  -------------------------------------------------------------------------------------
createEntityReference 方法
作   用
  建立一个参照到指定名称的实体。
基本语法
  xmlDocument.createEntityReference(name);

说   明
  name 是一个区分大小写的字符串，来指定新实体参照的名称。一个新的实体参照被建立，但是并没有被加到文件树中。若要将实体参照加到文件树中，必须使用一种插入方法，例如：insertBefore，replaceChild，或appendChild。
范   例
objNewER ＝ xmlDoc.createEntityReference("eRef");
alert(objNewER.xml);
  -------------------------------------------------------------------------------------

load 方法
作   用
  表示从指定位置加载的文件。
基本语法
  boolValue ＝ xmlDocument.load(url);

说   明
  url 包含要被加载档案的URL 的字符串。假如文件加载成功，传回值即为true。若加载失败，传回值为false。

范   例
boolValue ＝ xmlDoc.load("LstA_1.xml");
alert(boolValue);
  -------------------------------------------------------------------------------------
loadXML 方法
作   用
  加载一个XML 文件或字符串的片断。
基本语法
  boolValue ＝ xmlDocument.loadXML(xmlString);

说   明
  xmlString 是包含XML 文字码的字符串。

范   例
xmlString ＝ "Hello!";
boolValue ＝ xmlDoc.loadXML(xmlString);
alert(boolValue);
  -------------------------------------------------------------------------------------
nodeFromID 方法
作   用
  传回节点ID 符合指定值的节点。
基本语法
  xmlDocumentNode ＝ xmlDocument.nodeFromID(idString);

说   明
  idString 是一个包含ID 值的字符串。符合的节点必定是ID 型态。若符合，将传回一个对象；若操作失败，则传回null。

范   例
objDocumentNode ＝ xmlDoc.nodeFromID("TO");
alert(objDocumentNode);
  -------------------------------------------------------------------------------------
parsed 方法
作   用
  会验证该指定的节点(node)及其衍生的子节点(descendants)是否已被解析过。
基本语法
  boolValue ＝ xmlDocumentNode.parsed()；

说   明
  如果全部的节点都已经被解析过了，则传回值为ture；如果有任何一个节点尚未被解析，传回值则为false。

范   例
currNode ＝ xmlDoc.documentElement.childNodes.item(0)；
boolValue ＝ currNode.parsed()；
alert(boolValue)；
  -------------------------------------------------------------------------------------
removeChild 方法
作   用
  会将指定的节点从节点清单中移除。
基本语法
  objDocumentNode ＝ xmlDocumentNode.removeChild(oldChild);

说   明
  oldChild 为一个包含要被移除的节点对象。

范   例
objRemoveNode ＝ xmlDoc.documentElement.childNodes.item(3)；
alert(xmlDoc.xml);
xmlDoc.documentElement.removeChild(objRemoveNode)；
alert(xmlDoc.xml)；
  -------------------------------------------------------------------------------------
replaceChild 方法
作   用
  置换指定的旧子节点为提供的新子节点。
基本语法
  objDocumentNode ＝ xmlDocumentNode.replaceChild(newChild,oldChild)；

说   明
  newChild 为包含新子节点的对象。如果此参数为null，则此旧子节点会被移除而不会被取代。oldChild 为包含旧子节点的对象。

范   例
objOldNode ＝ xmlDoc.documentElement.childNodes.item(3)；
objNewNode ＝ xmlDoc.createComment("I've replaced the BCC element.")；
alert(xmlDoc.xml)；
xmlDoc.documentElement.replaceChild(objNewNode,objOldNode)；
alert(xmlDoc.xml)；
  -------------------------------------------------------------------------------------
selectNodes 方法
作   用
  传回所有符合提供样式(pattern)的节点。
基本语法
  objDocumentNodeList ＝ xmlDocumentNode.selectNodes(patternString)；

说   明
  patternString 为一包含XSL 样式的字符串。此方法会传回节点清单对象，包含符合样式的节点。如果没有符合的节点，则传回空的清单列表。

范   例
objNodeList＝xmlDoc.selectNodes（"/"）；
alert（objNodeList.item(0).xml）；
  -------------------------------------------------------------------------------------
createNode 方法
作   用
  建立一个指定型态、名称，及命名空间的新节点。
基本语法
  xmlDocument.createNode(type, name, nameSpaceURI);

说   明
  type 用来确认要被建立的节点型态，name 是一个字符串来确认新节点的名称，命名空间的前缀则是选择性的。nameSpaceURI 是一个定义命名空间URI 的字符串。如果前缀被包含在名称参数中，此节点会在nameSpaceURI 的内文中以指定的前缀建立。如果不包含前缀，指定的命名空间会被视为预设的命名空间。

范   例
objNewNode ＝ xmlDoc.createNode(1, "TO", "");
alert(objNewNode.xml);
  -------------------------------------------------------------------------------------
createProcessingInstruction 方法
作   用
  建立一个新的处理指令，包含了指定的目标和数据。
基本语法
  xmlDocument.createProcessingInstruction(target, data);

说   明
  target 是表示目标、名称或处理指令的字符串。Data 是表示处理指令的值。一个新的处理指令被建立，但是并没有加到文件树中。要把处理指令加到文件树中，必须使用插入方法，例如：insertBefore、replaceChild，或是appendChild。

范   例
objNewPI ＝xmlDoc.createProcessingInstruction(‘XML’, ‘version＝"1.0"’);
alert(objNewPI.xml);
  -------------------------------------------------------------------------------------
createTextNode 方法
作   用
  建立一个新的text 节点，并包含指定的数据。
基本语法
  xmlDocument.createTextNode(data);

说   明
  data 是一个代表新text 节点的字符串。一个新的text 节点被建立，但是没有加到文件树中。若要将节点加到文件树中，必须使用插入方法，例如：insertBefore，replaceChild或appendChild。

范   例
objNewTextNode ＝ xmlDoc.createTextNode("This is a text node.");
alert(objNewTextNode.xml);
  -------------------------------------------------------------------------------------

getElementsByTagName 方法
作   用
  传回指定名称的元素集合。
基本语法
  objNodeList ＝ xmlDocument.getElementsByTagName(tagname);

说   明
  tagname 是一个字符串，代表找到的元素卷标名称。使用tagname "*"传回文件中所有找到的元素。

范   例
objNodeList ＝ xmlDoc.getElementsByTagName("*");
alert(objNodeList.item(1).xml);
  -------------------------------------------------------------------------------------
haschildnodes 方法
作   用
  如果指定的节点有一个或更多子节点，传回值为true。
基本语法
  boolValue ＝ xmlDocumentNode.hasChildNodes() ;

说   明
  如果此节点有子节点传回值为true，否则传回false 值。

范   例
boolValue ＝ xmlDoc.documentElement.hasChildNodes();
alert(boolValue);
  -------------------------------------------------------------------------------------

insertBefore 方法
作   用
  在指定的节点前插入一个子节点。
基本语法
  objDocumentNode ＝ xmlDocumentNode.insertBefore(newChild,refChild);

说   明
  newChild 是一个包含新子节点地址的对象，refChild 是参照节点的地址。新子节点被插到参照节点之前。如果refChild 参数没有包含在内，新的子节点会被插到子节点列表的末端。

范   例
objRefNode ＝ xmlDoc.documentElement;
alert(xmlDoc.xml);
objNewNode ＝ xmlDoc.createComment("This is a comment");
xmlDoc.insertBefore(objNewNode, objRefNode);
alert(xmlDoc.xml);

-------------------------------------------------------------------------------------
selectSingleNode 传回第一个符合样式的节点。
作   用
  传回第一个符合样式的节点。
基本语法
  objDocumentNode ＝ xmlDocumentNode.selectSingleNode(patternString)；

说   明
  patternString 为一包含XSL 样式的字符串。此方法会传回第一个符合的节点对象，如果没有符合的节点，则传回null。

范   例
objNode ＝ xmlDoc.selectSingleNode("EMAIL/BCC")；
alert(objNode.xml)；
  -------------------------------------------------------------------------------------

transformNode 方法
作   用
  使用提供的样式表来处理该节点及其子节点。
基本语法
  strTransformedDocument ＝ xmlDocumentNode.transformNode(stylesheet)；

说   明
  stylesheet 为一XML 文件或是片断包含负责节点转换工作的XSL 元素。此方法会传回一包含转换结果的字符串。

范   例
var style ＝ new ActiveXObject("Microsoft.XMLDOM")；
style.load("LstA_49.xsl")；
strTransform ＝ xmlDoc.transformNode(style.documentElement)；
alert(strTransform)；

XMLDOM对象属性详解

2008-8-11 2:53:41
async 属性

作用 async 属性表示是否允许异步的下载。
基本语法 boolValue ＝ XMLDocument.async;XMLDocument.async ＝ boolValue;
说明布尔值是可擦写的（read/write），如果准许异步下载，值为True；反之则为False。
范例

xmlDoc.async ＝ "false";
alert(xmlDoc.async);

=================================================

attribute 属性

作用传回目前节点的属性列表。
基本语法 objAttributeList = xmlNode.attributes;
说明传回一个物件。如果此节点不能包含属性，则传回空值。
范例

objAttList ＝ xmlDoc.documentElement.attributes;
alert(objAttList);

=================================================

childNodes 属性

作用传回一个节点清单，包含该节点所有可用的子节点。
基本语法 objNodeList=node.childNodes;
说明传回一个物件。假如这节点没有子节点，传回null。
范例

objNodeList ＝ xmlDoc.childNodes;
alert(objNodeList);

=================================================

doctype 属性

作用传回文件型态节点，包含目前文件的DTD。这节点是一般的文件型态宣告，例如，节点，名为EMAIL 的节点物件会被传回。
基本语法 objDocType=xmlDocument.doctype;
说明传回一个对象，这个属性是只读的。假如这文件不包含DTD，会传回null。
范例

objDocType ＝ xmlDoc.doctype;
alert(objDocType.nodeName);

=================================================

documentElement 属性

作用确认XML 文件的根（Root）节点。
基本语法 objDoc=xmlDocument.documentElement;
说明回一个在单一根文件元素中包含数据的对象。此属性可读/写，如果文件中不包含根节点，将传回null。
范例

objDocRoot ＝ xmlDoc.documentElement;
alert(objDocRoot);

=================================================

firstChild 属性

作用确认在目前节点中的第一个子元素。
基本语法 objFirstChild ＝ xmlDocNode.firstChild ;
说明此属性只读且会传回一对象，如果节点中没有包含第一个子元素，将传回null。
范例

objFirstChild ＝ xmlDoc.documentElement.firstChild;
alert(objFirstChild);

=================================================

implementation 属性

作用 DOM 应用程序能使用其它实作中的对象。implementation 属性确认目前XML 文件的DOMimplementation 对象。
基本语法 objImplementation ＝ xmlDocument.implementation;
说明此属性只读且传回一个对象。
范例

objImp ＝ xmlDoc.implementation;
alert(objImp);

=================================================

lastChild 属性

作用确认目前节点中最后的子元素。
基本语法 objLastChild ＝ xmlDocNode.lastChild;
说明此属性只读且传回一个对象。如果节点中没有包含最后子元素，将传回null。
范例

objLastChild ＝ xmlDoc.documentElement.lastChild;
alert(objLastChild);

=================================================

nextSibling 属性

作用在目前文件节点的子节点列表中传回下一个兄弟节点。
基本语法 objNextSibling ＝ xmlDocNode.nextSibling;
说明此属性是只读且传回一个对象。如果节点中没有包含其它的相关节点，会传回null。
范例

objSibling ＝ xmlDoc.documentElement.childNodes.item(1) .nextSibling;
alert(objSibling);

=================================================

nodeName 属性

作用传回代表目前节点名称的字符串。
基本语法 strNodeName ＝ xmlDocNode.nodeName ;
说明传回一个字符串。这个属性是只读的，传回元素名称、属性或实体参照。
范例

strNodeName ＝ xmlDoc.documentElement.nodeName;
alert(strNodeName);

=================================================

nodeType 属性

作用辨识节点的DOM 型态。
基本语法 numNodeType ＝ xmlDocNode.nodeType ;
说明此属性只读且传回一个数值。

有效的数值符合以下的型别：
1-ELEMENT
2-ATTRIBUTE
3-TEXT
4-CDATA
5-ENTITY REFERENCE
6-ENTITY
7-PI (processing instruction)
8-COMMENT
9-DOCUMENT
10-DOCUMENT TYPE
11-DOCUMENT FRAGMENT
12-NOTATION
　
范例

numNodeType ＝ xmlDoc.documentElement.nodeType;
alert(numNodeType);

=================================================

nodeValue 属性

作用传回指定节点相关的文字。这并非一个元素中数据的值，而是与一个节点相关且未解析的文字，就像一个属性或者一个处理指令。
基本语法 varNodeValue ＝ xmlDocNode.nodeValue;
说明传回的文字代表以节点的nodeType 属性为主的型态值。（请参考附录中的nodeType 属性。）因为节点型态可能是几种数据型态中的一种，传回值也因此有差异。传回null 的节点型态有：DOCUMENT、ELEMENT、DOCUMENT TYPE、DOCUMENT FRAGMENT、ENTITY、ENTITY REFERENCE，和NOTATION。此属性可擦写。
范例

varNodeValue ＝ xmlDoc.documentElement.nodeValue;
alert(varNodeValue);

=================================================

ondataavailable 属性

作用指定一个事件来处理ondataavailable 事件。
基本语法 xmlDocNode.ondataavailable ＝ value;
说明此属性是唯写，允许文件作者一旦数据为可用，即可尽快的使用数据来运作。
范例

xmlDoc.ondataavailable ＝ alert("Data is now available.");

=================================================

onreadystatechange 属性

作用指定一个事件来处理onreadystatechange 事件。这个事件能辨识readyState 属性的改变。
基本语法 xmlDocNode.onreadystatechange ＝ value;
说明此属性是唯写的，允许文件作者指定当readyState 属性改变时呼叫事件。
范例

xmlDoc.onreadystatechange ＝ alert("The readyState property has changed.");

=================================================

ownerDocument 属性

作用传回文件的根节点，包含目前节点。
基本语法 objOwnerDoc ＝ xmlDocument.ownerDocument;
说明此属性是只读的，传回一个包含文件根节点的对象，包含特定的节点。
范例

objOwnerDoc ＝ xmlDoc.childNodes.item(2).ownerDocument;
alert(objOwnerDoc);

=================================================

parentNode 属性

作用传回目前节点的父节点。只能应用在有父节点的节点中。
基本语法 objParentNode ＝ xmlDocumentNode.parentNode;
说明此属性是只读的，传回包含指定节点的父节点对象。如果此节点不存在于文件树中，将传回null。
范例

objParentNode ＝ xmlDoc.childNodes.item(1).parentNode;
alert(objParentNode);

=================================================

parseError 属性

作用传回一个DOM 解析错误对象，此对象描述最后解析错误的讯息。
基本语法 objParseErr ＝ xmlDocument.parseError;
说明此属性是只读的。如果没有错误发生，将传回0。
范例

objParseErr ＝ xmlDoc.parseError;
alert(objParseErr);

=================================================

previousSibling 属性

作用传回目前节点之前的兄弟节点。
基本语法 objPrevSibling ＝ xmlDocument.previousSibling;
说明传回一个对象，这个属性是只读的。若该节点没有包含前面的兄弟节点，会传回null。
范例

objPrevSibling ＝ xmlDoc.documentElement.childNodes.item(3).previousSibling;
alert(objPrevSibling);

=================================================

readyState 属性

作用传回XML 文件资料的目前状况。
基本语法 intState ＝ xmlDocument.readyState;
说明这个属性是只读的，传回值有以下的可能：
0-UNINITIALIZED：XML 对象被产生，但没有任何文件被加载。
1-LOADING：加载程序进行中，但文件尚未开始解析。
2-LOADED：部分的文件已经加载且进行解析，但对象模型尚未生效。
3-INTERACTIVE：仅对已加载的部分文件有效，在此情况下，对象模型是有效但只读的。
4-COMPLETED：文件已完全加载，代表加载成功。
范例

alert("The readyState property is " + xmlDoc.readyState);

=================================================

url 属性

作用传回最近一次加载XML 文件的URL。
基本语法 strDocUrl ＝ xmlDocument.url;
说明这个属性是只读的，传回最近一次加载成功文件的URL，若文件仅存在主存储器中（表示该文件并非由外部档案加载)，则传回null。
范例

alert(xmlDoc.url);

=================================================

validateOnParse 属性

作用告诉解析器文件是否有效。
基本语法 boolValidate ＝ xmlDocument.validateOnParse; xmlDocument.validateOnParse = boolValidate;
说明此属性是可擦写的。如果传回值为true，表示文件被解析时被确认是有效的。如果传回false，表示文件是无效的，并被认为只是标准格式的（well-formed）文件。
范例

xmlDoc.validateOnParse ＝ true;
alert(xmlDoc.validateOnParse);

=================================================

xml 属性

作用传回指定节点的XML 描述和所有的子节点。
基本语法 xmlValue ＝ xmlDocumentNode.xml;
说明此属性是只读的。
范例

xmlValue ＝ xmlDoc.documentElement.xml;
alert(xmlValue);

简简单单制作网页导航栏

2008-8-10 15:08:40
  网页导航对于每一个站点来说都是相当重要的，导航能够让人一下就能知道你网站的大体内容是关于什么的，下面来简单制作一个导航栏，用两种方法：
1.DIV+LI(经常见这样的站点，具体代码不一定和本例一样)
    ȫ

DIV+UL打造导航栏--艾恩ASP学习BLOG--http://dev.mo.cn

function setbg(obj,act){
   if(act=='over'){
     obj.style.cssText='background:#dddddd;';
   }else{
     obj.style.cssText='background:none;';
   }
}


    首页


    技术文章


    个人日志


    资源下载


    给我留言


    友情站点


2.DIV+A
可以看出，用这种方法代码明显比上面的精简！
    ȫ

DIV+A打造导航栏--艾恩ASP学习BLOG--http://dev.mo.cn

    首页
    技术文章
    个人日志
    资源下载
    给我留言
    友情站点

作导航的方法有很多种，上面只是简单的例子，作抛砖引玉用,相信大家能作出更好的效果来，下面提供整个示例的代码下载：
http://dev.mo.cn/upfiles/2008081014562510.rar

操作Xml数据的Cls_Person类说明

2008-8-10 3:06:50

Cls_Person类用来完成与联系人信息相关的各种操作,包括添加,修改和删除等等,它使用VBScript编写.Cls_Person包括Id,Name,Nick,Mobile,Tel,Email,QQ和Company属性,对应于XML文件中的Person节点.Cls_Person包括GetInfoFromXml,AddToXml,EditToXml和DeleteFormXml四个主要方法,分别完成获取信息,添加信息,修改信息和删除信息四个功能.

Cls_Person的具体实现如下,
    ȫ

'***************************************************
' 说明：Person类
' 作者：gwd 2002-11-06
' 引用：pub/constpub.asp
'***************************************************
Class Cls_Person
Private m_intId ' Id,对应Person节点在Persons集合中的位置
Private m_strName ' 姓名
Private m_strNick ' 英文名
Private m_strMobile ' 手机
Private m_strTel ' 电话
Private m_strEmail ' 电子邮件
Private m_strQQ ' QQ号
Private m_strCompany ' 所在公司
Private m_strError ' 出错信息
' 类初始化
Private Sub Class_Initialize()
　m_strError = ""
　m_intId = -1
End Sub
' 类释放
Private Sub Class_Terminate()
　m_strError = ""
End Sub
'-----读写各个属性---------------------------
Public Property Get Id
　Id = m_intId
End Property
Public Property Let Id(intId)
　m_intId = intId
End Property
Public Property Get Name
Name = m_strName
End Property
Public Property Let Name(strName)
　m_strName = strName
End Property
Public Property Get Nick
　Nick = m_strNick
End Property
Public Property Let Nick(strNick)
　m_strNick = strNick
End Property
Public Property Get Mobile
　Mobile = m_strMobile
End Property
Public Property Let Mobile(strMobile)
　m_strMobile = strMobile
End Property
Public Property Get Tel
　Tel = m_strTel
End Property
Public Property Let Tel(strTel)
　m_strTel = strTel
End Property
Public Property Get Email
　Email = m_strEmail
End Property
Public Property Let Email(strEmail)
　m_strEmail = strEmail
End Property
Public Property Get QQ
　QQ = m_strQQ
End Property
Public Property Let QQ(strQQ)
　m_strQQ = strQQ
End Property
Public Property Get Company
　Company = m_strCompany
End Property
Public Property Let Company(strCompany)
　m_strCompany = strCompany
End Property
'-----------------------------------------------
' 获取错误信息
Public Function GetLastError()
　GetLastError = m_strError
End Function
' 私有方法,添加错误信息
Private Sub AddErr(strEcho)
　m_strError = m_strError + "＜Div CLASS=""alert""＞" & strEcho & "＜/Div＞"
End Sub
' 清除错误信息
Public Function ClearError()
　m_strError = ""
End Function
' 从Xml中读取指定节点的数据,并填充各个属性
' 需要首先设置Id
Public Function GetInfoFromXml(objXmlDoc)
　Dim objNodeList
　Dim I
　ClearError
　If objXmlDoc Is Nothing Then
　　GetInfoFromXml = False
　　AddErr "Dom对象为空值"
　　Exit Function
　End If
　If CStr(m_intId) = "-1" Then
　　GetInfoFromXml = False
　　AddErr "未正确设置联系人对象的ID属性"
　　Exit Function
　Else
　　I = m_intId - 1 ' 要读取得节点位置
　End If
　' 选择并读取节点信息,赋予各个属性
　Set objNodeList = objXmlDoc.getElementsByTagName("Person")
　If objNodeList.length - m_intId ＞= 0 Then
　　On Error Resume Next
　　m_strName = objNodeList(I).selectSingleNode("Name").Text
　　m_strNick = objNodeList(I).selectSingleNode("Nick").Text
　　m_strMobile = objNodeList(I).selectSingleNode("Mobile").Text
　　m_strTel = objNodeList(I).selectSingleNode("Tel").Text
　　m_strEmail = objNodeList(I).selectSingleNode("Email").Text
　　m_strQQ = objNodeList(I).selectSingleNode("QQ").Text
　　m_strCompany = objNodeList(I).selectSingleNode("Company").Text
　　GetInfoFromXml = True
　Else
　　GetInfoFromXml = False
　　AddErr "获取联系信息发生错误"
　　Set objNodeList = Nothing
　　Exit Function
　End If
　Set objNodeList = Nothing
End Function
' 添加信息到XML文件中
' 需要首先设置好要填充的属性
Public Function AddToXml(objXmlDoc)
　Dim objPerson, objNode
　ClearError
　If objXmlDoc Is Nothing Then
　　AddToXml = False
　　AddErr "Dom对象为空值"
　　Exit Function
　End If
　' 创建Person节点
　Set objPerson = objXmlDoc.createElement("Person")
　objXmlDoc.documentElement.appendChild objPerson
　' 创建各个子节点
　'-----------------------------------------------------
　Set objNode = objXmlDoc.createElement("Name")
　objNode.Text = m_strName
　objPerson.appendChild objNode
　Set objNode = objXmlDoc.createElement("Nick")
　objNode.Text = m_strNick
　objPerson.appendChild objNode
　Set objNode = objXmlDoc.createElement("Mobile")
　objNode.Text = m_strMobile
　objPerson.appendChild objNode
　Set objNode = objXmlDoc.createElement("Tel")
　objNode.Text = m_strTel
　objPerson.appendChild objNode
　Set objNode = objXmlDoc.createElement("Email")
　objNode.Text = m_strEmail
　objPerson.appendChild objNode
　Set objNode = objXmlDoc.createElement("QQ")
　objNode.Text = m_strQQ
　objPerson.appendChild objNode
　Set objNode = objXmlDoc.createElement("Company")
　objNode.Text = m_strCompany
　objPerson.appendChild objNode
　'-----------------------------------------------------
　Set objNode = Nothing
　Set objPerson = Nothing
　 On Error Resume Next
　objXmlDoc.save Server.MapPath(C_XMLFILE) '保存XML文件
　If Err.Number = 0 Then
　　AddToXml = True
　Else
　　AddToXml = False
　　AddErr Err.Description
　End If
End Function
' 从XML文件中删除数据
' 需要首先设置Id
Public Function DeleteFromXml(objXmlDoc)
　Dim objNodeList, objNode
　ClearError
　If objXmlDoc Is Nothing Then
　　DeleteFromXml = False
　　AddErr "Dom对象为空值"
　　Exit Function
　End If
　If CStr(m_intId) = "-1" Then
　　DeleteFromXml = False
　　AddErr "未正确设置联系人对象的ID属性"
　　Exit Function
　End If
　Set objNodeList = objXmlDoc.getElementsByTagName("Person")
　If objNodeList.length - m_intId ＜ 0 Then
　　DeleteFromXml = False
　　AddErr "未找到相应的联系人"
　　Set objNodeList = Nothing
　　Exit Function
　End If
　On Error Resume Next
　Set objNode = objXmlDoc.documentElement.removeChild(objNodeList(intId-1))
　If objNode Is Nothing Then
　　DeleteFromXml = False
　　AddErr "删除联系人失败"
　　Set objNodeList = Nothing
　　Exit Function
　Else
　　objXmlDoc.save Server.MapPath(C_XMLFILE)
　End If
　Set objNode = Nothing
　Set objNodeList = Nothing
　If Err.Number = 0 Then
　　DeleteFromXml = True
　Else
　　DeleteFromXml = False
　　AddErr Err.Description
　End If
End Function
' 修改XML文件中的数据
' 需要首先设置好Id
Public Function EditToXml(objXmlDoc)
　Dim objPersonList, objOldPerson, objNewPerson, objNode
　ClearError
　If objXmlDoc Is Nothing Then
　　EditToXml = False
　　AddErr "Dom对象为空值"
　　Exit Function
　End If
　If CStr(m_intId) = "-1" Then
　　EditToXml = False
　　AddErr "未正确设置联系人对象的ID属性"
　　Exit Function
　End If
　Set objPersonList = objXmlDoc.getElementsByTagName("Person")
　If objPersonList.length - m_intId ＜ 0 Then
　　DeleteFromXml = False
　　AddErr "未找到相应的联系人"
　　Set objPersonList = Nothing
　　Exit Function
　End If
　Set objOldPerson = objPersonList(m_intId-1) ' 要修改的旧节点
　Set objNewPerson = objXmlDoc.createElement("Person") ' 用来替换旧节点的新节点
　Set objNode = objXmlDoc.createElement("Name")
　objNode.Text = m_strName
　objNewPerson.appendChild objNode
　Set objNode = objXmlDoc.createElement("Nick")
　objNode.Text = m_strNick
　objNewPerson.appendChild objNode
　Set objNode = objXmlDoc.createElement("Mobile")
　objNode.Text = m_strMobile
　objNewPerson.appendChild objNode
　Set objNode = objXmlDoc.createElement("Tel")
　objNode.Text = m_strTel
　objNewPerson.appendChild objNode
　Set objNode = objXmlDoc.createElement("Email")
　objNode.Text = m_strEmail
　objNewPerson.appendChild objNode
　Set objNode = objXmlDoc.createElement("QQ")
　objNode.Text = m_strQQ
　objNewPerson.appendChild objNode
　Set objNode = objXmlDoc.createElement("Company")
　objNode.Text = m_strCompany
　objNewPerson.appendChild objNode
　On Error Resume Next
　' 进行替换
　Set objNode = objXmlDoc.documentElement.replaceChild(objNewPerson, objOldPerson)
　If objNode Is Nothing Then
　EditToXml = False
　AddErr "修改联系人失败"
　Set objOldPerosn = Nothing
　Set objNewPerson = Nothing
　Set objPersonList = Nothing
　Exit Function
Else
　objXmlDoc.save Server.MapPath(C_XMLFILE)
End If
Set objOldPerson = Nothing
Set objNewPerson = Nothing
Set objPersonList = Nothing
If Err.Number = 0 Then
　EditToXml = True
Else
　EditToXml = False
　AddErr Err.Description
End If
End Function
End Class

ASP代码封装成DLL

2008-8-9 17:55:35
服务器端组件

首先,服务器端的组件要有别于客户端的组件.客户端的组件是通过网络传输,依靠HTML来起作用.而且只能在IE上有用.但是服务器端的组件是运行在服务器端,它在服务器上执行各种操作.因此,所有的浏览器都能享用,它依靠的是服务器而不是浏览器.

当IIS被请求执行一个ASP程序,它首先会在ASP文件中找到<%%>标签之间的代码,并且执行它(也可以是之间的代码).如果这个ASP程序在先前被调用过,那么它就会用内存中的编译过的程序来向用户返回HTML代码,如果没有,那么它就重新编译.这里ASP就比CGI多一点速度优势,因为CGI 是每一个请求都使用一个线程.这样就大大消耗了服务器的资源.

想不想你写的程序自己就能在IIS运行!?!现在你就行了!使用VB5(当然现在是VB6了),你就能建立Dynamic Linked Libraries(DLL文件),它能在IIS上直接运行(如果有asp文件来请求的话).

系统和软件的要求

你需要一个32位的操作系统来运行ASP.当然你也得安装IIS或PWS.我们下面的程序是在windows 95+PWS+VB 5的环境下开发的.

我们开始吧

启动你的VB,选择ActiveX图标.这个图标可以在新建工程找到!VB会提供一个默认的工程名(project1)和类名( class1).我们会将这两个名字都改掉.在改名之前,请首先确认我们拥有Microsoft Active Server Pages ObjectLibrary,它在我们的程序非常有用.从菜单中选择"工程",然后在其中选择"引用",就会出现"引用"窗口
从中选择Microsoft Active Server Pages ObjectLibrary.

给工程和类命名

现在我们来根据自己的爱好来为project1和class1来命名吧!给它们命名也是很重要的,我们以后会用这个工程名和类名来创建这个组件的实例!后面详细介绍.

如何改名,我就不想多说了!
我们的工程名改为Exmaple,类名为Helloword

怎样使用工程和类

现在我们有了我们自己的工程(Example1)和类名(Hello
World).以后我们就会在ASP代码中使用它们的名字来引用这个组件.在ASP中我们就这样引用,如下:

Set ObjReference=Server.CreateObject("ProjectName.ClassName")

对于我们工程的引用就是:
SetObjReference=Server.CreateObject("Example1.HelloWorld")
现在我们就能用ObjReference来调用我们在组件中所创建的函数,子程序.下面我们会来写一个SayHello的子程序 ,我们执行它的代码如下:

<%
Set ObjReference=Server.CreateObject("Example1.HelloWorld")
ObjReference.SayHello
%>

为了在Helloword类中使用ASP的方法,你必须在此类中写一个OnStartPage
子函数.如下:

Public Sub OnStartPage(PassedScriptingContext As ScriptingContext)
  Set MyScriptingContext=PassedScriptingContext
EndSub

现在,无论什么时候用户访问一个带有本组件的ASP文件,IIS就会把ScriptingContext传送给我们的对象请我们使用.这个ScriptingContext包括了全部的ASP方法和属性.实现上,这使得我们有能力访问所有ASP的对象.看下面的代码:

Public Sub OnStartPage(PassedScriptingContext As ScriptingContext)
  Set MyScriptingContext=PassedScriptingContext
  Set MyApplication=MyScriptingContext.Application
  Set MyRequest=MyScriptingContext.Request
  Set MyResponse=MyScriptingContext.Response
  Set MyServer=MyScriptingContext.Server
  Set MySession=MyScriptingContext.Session
End Sub

以后我们就能用在VB中用MyApplication来代替ASP中的Application,同理可以代替Request,Server.....,不过我们来是要在OnStartPage之前来申明这些变量:

Private MyScriptingContext As ScriptingContext
Private MyApplication As Application
Private MyRequest As Request
Private MyResponse As Response
Private MyServer As Server
Private MySession As Session

使用ASP的对象

我们的变量现在就能像标准的ASP对象来使用了!比如,我们经常在ASP中用Request.form()来收集提交表单的数据 .现在我们在我们的VB中实现这个功能,代码如下:

用ASP中实现:
<%
MyTempVariable=Request.Form("userName")
Response.Write("youentered"&MyTempVariable&"asyourus ername")
%>

在VB中实现:

MyTempVariable=MyRequest.Form("userName")
My Response.Write("youentered"&MyTempVariable&"asyourus ername")

通过使用MyResponse来代替Response,我们能够使用所有Response的方法,当然,MyResponse这个名字可以随便来取,你甚至可以就取Response.
另一件我们得注意的是,我们得在我们的建立的类中,写上OnEndPage子函数,这个OnStartPage是相反的!OnS tartPage是创建对象,OnEndPage是消毁对象.

Public Sub OnEndPage()
  Set MyScriptingContext=Nothing
  Set MyApplication=Nothing
  Set MyRequest=Nothing
  Set MyResponse=Nothing
  Set MyServer=Nothing
  Set MySession=Nothing
End Sub

SayHello方法

我们来建立一个子函数,用于显示"HolleWorld".这个SayHello方法只是HelloWorld这个类中一个子函数,我们以后会在ASP中用以下的显示这个方法

<%
Set ObjReference=Server.CreateObject("Example1.HelloWorld")
ObjReference.SayHello
%>

SayHello的程序,很简单的!

Public Sub SayHello()
  MyResponse.Write("HelloWorld")
End Sub

现在一个小型的组件编写完成,剩下的工作就是编译这个组件,在"工程"菜单中保存它,取什么名字都可以,我们用Exmaple1 .vbp吧!然后就用在菜单中选择"makeexmaple1.dll",将其编译成DLL文件.一个组件就真正完成了!

注意,编译了此组件那么你就得先把你的PWS关掉,然后再编译此组件.否则VB就会告诉你些组件在使用中.

在ASP中使用我们的自己的组件.

当你更正了在编译中的错误,成功地编译了example1这个工程,现在你就得拿出你最喜欢的HTML编辑器来写下下面的语句, 保存为ASP文件.

Example1

<%
Set ObjReference=Server.CreateObject("Example1.HelloWorld")
ObjReference.SayHello
%>

运行后即可看到结果:

HelloWorld

注册组件

如果你想和你的朋友,邻居分享你的组件,那么你就得在你的系统上注册你的组件.我们一般使用Regsvr32.exe来注册组件 .注册后你的组件会出现在Win95/Win98的windows/system目录中.下面是一个注册的例子:

egsvr32.exe C:\wwwroot\Example1\Example1.dll

在你的系统中,VB会自动给你注册,所以你很少用到Regsvr32.exe

这里只是写了一个非常小的组件,你可以写好自己的更大的组件,而且还可以用VB中的很多控件.

注意:每重新编译一次组件，都要重新启动iis，并且重新注册组件!!!!!!!

下面是测试成功的代码(工程名example,类名test1)
    ȫ

Option Explicit
Private Context As ScriptingContext
Private Application As Application
Private Response As Response
Private Request As Request
Private Session As Session
Private Server As Server

Public Sub OnStartPage(PassedscriptContext As ScriptingContext)
Set Context = PassedscriptContext
Set Application = Context.Application
Set Request = Context.Request
Set Response = Context.Response
Set Server = Context.Server
Set Session = Context.Session

End Sub
Public Sub hello()
Response.Write "hello world"
End Sub

Public Sub OnEndPage()
Set Application = Nothing
Set Request = Nothing
Set Response = Nothing
Set Server = Nothing
Set Session = Nothing
Set Context = Nothing
End Sub

test.asp代码
    ȫ

<%
dim t
set t=server.createobject("example.test1")
t.hello()
%>

利用404错误页面实现UrlRewrite

2008-8-9 10:37:25
要求:网站编码为utf-8,不适用于GB2312;
替换字符的正则可以自己增加和修改，以适合自己的网站；
将下面代码保存到err404.html，然后设置404错误页面为err404.html页；
测试地址http://bbs.ii-home.cn/html/index.html
注:转载请注明本出处!谢谢!
    ȫ

var id=/(detial|show)\.asp\?id\=([0-9]+)/gi;
var flag=/([a-z0-9_]+)\.asp\?flag\=xml/gi;
var re_id=/(detial|show)\_([0-9]+)\.html/gi;
var re_flag=/([a-z0-9_]+)\.rss/gi;
var host='blog.ii-home.cn';
var ss=window.location.href;
//ss=ss.replace(window.location.hostname,host);
var Temp=getasp(ss);
getNotice(Temp);

function createobj() {
if (window.ActiveXObject) {
         return new ActiveXObject("Microsoft.XMLHTTP");
     }
     else if (window.XMLHttpRequest) {
         return new XMLHttpRequest();
     }
}

function getNotice(url) {
  var oBao=createobj();
  var my_url=url;
  oBao.open('get',my_url,false);
  oBao.onreadystatechange=function(){
       if(oBao.readyState==4){
            if(oBao.status==200){
              var returnStr=oBao.responseText;
              var Temps=gethtml(returnStr);
              document.write(Temps);
            }else{
              document.write("未找到您输入的地址或服务器505错误!");
            }
       }
  }
  oBao.send(null);
}

//将str中的asp网址按照正则替换
function gethtml(str){
  var Temp_str=str.replace(id,'$1_$2.html');
  Temp_str=Temp_str.replace(/index\.asp/gi,'index.html');
  Temp_str=Temp_str.replace(/myfiles\.asp/gi,'myfiles.html');
  Temp_str=Temp_str.replace(/mydiary\.asp\?typ\=self/gi,'mydiary_self.html');
  Temp_str=Temp_str.replace(/mydiary\.asp/gi,'mydiary.html');
  Temp_str=Temp_str.replace(flag,'$1.rss');
  Temp_str=Temp_str.replace(/xml_diary\.asp/gi,'xml_diary.html');
  Temp_str=Temp_str.replace(/xml_download\.asp/gi,'xml_download.html');
  Temp_str=Temp_str.replace(/xml_links\.asp/gi,'xml_links.html');
  Temp_str=Temp_str.replace(/xml_ly\.asp/gi,'xml_ly.html');
  Temp_str=Temp_str.replace(/ly\.asp/gi,'ly.html');
  //Temp_str=Temp_str.replace(/href=\"(http){0}/gi,'href="http://blog.ii-home.cn/');
  return(Temp_str);
}

//将URL替换成原地址
function getasp(str){
  var Temp_str=str.replace(re_id,'$1.asp?id=$2');
  Temp_str=Temp_str.replace(/index\.html/gi,'index.asp');
  Temp_str=Temp_str.replace(/myfiles\.html/gi,'myfiles.asp');
  Temp_str=Temp_str.replace(/mydiary\.html/gi,'mydiary.asp');
  Temp_str=Temp_str.replace(/mydiary\_self.html/gi,'mydiary.asp?typ=self');
  Temp_str=Temp_str.replace(/xml_diary\.html/gi,'xml_diary.asp');
  Temp_str=Temp_str.replace(/xml_download\.html/gi,'xml_download.asp');
  Temp_str=Temp_str.replace(/xml_links\.html/gi,'xml_links.asp');
  Temp_str=Temp_str.replace(/xml_ly\.html/gi,'xml_ly.asp');
  Temp_str=Temp_str.replace(/ly\.html/gi,'ly.asp');
  Temp_str=Temp_str.replace(re_flag,'$1.asp?flag=xml');
  return(Temp_str);
}

测试地址http://bbs.ii-home.cn/html/index.html

回家了~~

2008-8-2 10:05:51
   暑假都放了20多天了，该回家看看了，看看老爸看看老妈。。。
  不过，很快就回回来的；
  希望我的朋友们不要忘记我；
  简短声明下！ByeBye!

AJAX框架代码

2008-8-1 3:21:11

    ȫ

var XMLHttp = {
    _objPool: [],
    _getInstance: function () {
        for (var i = 0; i < this._objPool.length; i ++) {
            if (this._objPool[i].readyState == 0 || this._objPool[i].readyState == 4) {
                return this._objPool[i];
            }
        }

        // IE5中不支持push方法
        this._objPool[this._objPool.length] = this._createObj();
        return this._objPool[this._objPool.length - 1];
    },

    _createObj: function () {
        if (window.XMLHttpRequest) {
            var objXMLHttp = new XMLHttpRequest();
        } else {
            var MSXML = ['MSXML2.XMLHTTP.5.0', 'MSXML2.XMLHTTP.4.0', 'MSXML2.XMLHTTP.3.0', 'MSXML2.XMLHTTP', 'Microsoft.XMLHTTP'];
            for(var n = 0; n < MSXML.length; n ++) {
                try {
                    var objXMLHttp = new ActiveXObject(MSXML[n]);
                    break;
                }
                catch(e) {
                }
            }
         }

        // mozilla某些版本没有readyState属性
        if (objXMLHttp.readyState == null) {
            objXMLHttp.readyState = 0;
            objXMLHttp.addEventListener("load", function () {
                objXMLHttp.readyState = 4;
                if (typeof objXMLHttp.onreadystatechange == "function") {
                    objXMLHttp.onreadystatechange();
                }
                },  false);
        }
        return objXMLHttp;
    },

    // 发送请求(方法[post,get], 地址, 数据, 回调函数)
    sendReq: function (method, url, data, callback, i) {
        var objXMLHttp = this._getInstance();
        with(objXMLHttp) {
            try {
                // 加随机数防止缓存
                if (url.indexOf("?") > 0) {
                    url += "&randnum=" + Math.random();
                } else {
                    url += "?randnum=" + Math.random();
                }

                open(method, url, true);

                // 设定请求编码方式
                setRequestHeader('Content-Type', 'application/x-www-form-urlencoded');
                send(data);
                onreadystatechange = function () {
                    if (objXMLHttp.readyState == 4 && (objXMLHttp.status == 200 || objXMLHttp.status == 304)) {
                        callback(objXMLHttp, i);
                    }
                }
            }
            catch(e) {
                alert(e);
            }
        }
    }
};

喜欢和爱的区别

2008-7-28 12:43:37
人世间有种情感叫“喜欢”，另一种叫“爱”

爱是他在的时候，眼睛里只有他一人；他不在的时候，
一切都带有他的影子。

喜欢是在深夜看书时突然想起他，想象他现在做什么，
心里漾起一阵轻飘飘的温暖，却从不主动给他打电话。
几分钟后，注意力又重新被书中
的情节吸引!

爱是在寂寞的夜里，思念如潮水般涌来，
手里捧着书却怎么也看不进去，心里惦记着他此时是否还在加班，
吃没吃晚饭，是不是如自己想着他
一般想着自己

喜欢是和他讨论问题争的面红耳赤，各不相让，
在他面前像个刺猬一样从不认输，
但在心里却早已暗暗佩服他的见地他的才华。

爱是希望他和自己步调一致，和自己心灵相通，
他无心说的一句玩笑话也能让自己顷刻情绪低落甚至眼泪汪汪。
在他面前，自己是从不设防的。

喜欢是出门在外给他发个短信，告诉他这边的天气很好，
然后把手机关掉，独自在异地疯玩一个星期，
晒成一个黑人后突然出现在他面前吓他
一跳。

爱是无论到哪都希望有他陪伴。可以站在海边给他打手机，
让他听听海浪的声音；
也可以因为在异乡的街道上看到一个酷似他的背影而愣在原
地久久不动。

喜欢是他出差前简单的道一声“一路平安”，
看着他离去的背影，心中有一点不舍，却什么也不说，
只是默默等待他归来的消息.

爱是他临出差前千叮咛万嘱咐，往他的背包里塞满衣服和食物，
在车站要等到火车开走才肯离开。
并且在他走后的日子里天天心神不定，一遍
遍的祈祷他能够平安归来。

喜欢是在受伤的时候，不想让他看到自己脆弱的一面，
在他面前把眼泪悄悄抹掉，
转过头依然是一副快乐坚强的模样。

爱是在受委屈的时候，爬在他的胸前痛哭，
没有伪装没有顾虑，把所有的烦恼统统告诉他，
并渴望从他的怀抱中得到安慰。

喜欢是和他周末逛街逛累了一起吃肯德基；
是在寒冷的冬天和他抢一杯热咖啡；
是和他并肩走在街上中间始终隔着半米的距离；是陪他一起在
电脑前打游戏两个人笑的像个孩子。

爱是周末利用半天时间亲手做出几道好菜满足的看他吃下去；
是在寒冷的冬天不断为他的咖啡杯里续上热水；
是和他走在街上任由他紧紧挽着
自己的手；是在他旁边安静着做着，
幸福地看着他在电脑前工作时专心的样子。

喜欢是听他讲自己童年的趣事，然后哈哈大笑，
心中涌起一阵莫名的感动。
爱是听他将自己童年的趣事，然后微微一笑，
心中更加怜惜眼前这个曾经如此调皮捣蛋的男人

喜欢是在楼道里碰上他，愉快的和他打声招呼，
再简单寒暄几句，擦肩而过的时候看见了窗外明媚的阳光，
心情无端好了起来。
爱是在楼道了看见他，脸上装出一副毫不在乎的表情，
但在擦肩而过时细心感受身边颤动的空气，于是忍不住回头望一眼

喜欢是看到他和另一个女孩牵手走过，心里有一点点疼，
但很快会冲着朝阳重新扬起笑脸。
爱是输不爱是输不起的游戏，付出全部只后，
留下的可能仅仅是刻在心底的一道伤痕

喜欢一个人是想要他是自己的，所以，可以喜欢很多人，
想要很多人都是自己的。
爱是明明离不开他，却要不得不放弃他，
因为他要的幸福，也许我给不了。不敢霸占他，
希望看他找到幸福，即使那份幸福不是跟我分享的。

喜欢是，希望寂寞的时候，无聊的时候，
伤感的时候，找个人说说话。
爱是，在任何时候都想跟他分享，
快乐的时候甚至希望把所有快乐都给了他。

喜欢是，在很久很久没联络的时候，
接到他的电话，然后笑着听他说话。
爱是，在几天没有联络的时候，着急得的打电话给他，
然后忍住眼泪笑一笑。

喜欢，只有在一起的时候，才惦记着对方。
爱，是哪怕是在一起，每一秒钟也都在思念思念他。

喜欢一个人，多许多朋友，也会觉得快乐。
爱一个人，是多一个人，都会难受的两个人的世界。

喜欢一个人，是甜腻的。
爱一个人，是苦尽甘来的。

喜欢一个人，在一起的时候会很开心
爱一个人，在一起的时候，会莫名的失落

喜欢一个人，你不会想到你们的将来
爱一个人，你们常常在一起憧憬明天

喜欢一个人，在一起的时候永远是欢乐
爱一个人，你会常常流泪

喜欢一个人，当你们好久不见，你会突然想起他
爱一个人，当你们好久不见，你会天天想着他

喜欢一个人，当你想起他，你会微微一笑
爱一个人，当你想起他，你会对着天空发呆

喜欢一个人，你会想他有了孩子，你一定会很喜欢
爱一个人，会有一天，你突然很好奇：将来我们的孩子会是什么样子

喜欢一个人就是希望大家都开心
爱一个人希望他会更开心

喜欢一个人，你要得只是今天
爱一个人，你期望的是永远

喜欢一个人，是看到了他的优点
爱一个人，是包容了他的缺点

当你站在你爱的人面前,你的心跳会加速
但当你站在你喜欢的人面前,你只感到开心

当你与你爱的人四目交投,你会害羞
但当你与你喜欢的人四目交投,你只会微笑

当你与你爱的人对话,你觉得难以启齿
但当你和你喜欢的人对话,你可以畅所欲言

当你爱的人哭,你会陪她一起哭
但当你喜欢的人哭,你会技巧的安慰她.

当你不想再爱一个人,你要闭上眼睛并忍着泪水
当你不想再喜欢一个人,你只要掩住双耳!

喜欢，是一种心情
爱，是一种感情
喜欢，是一种直觉
爱，是一种感觉
喜欢，可以停止
爱，没有休止

喜欢一个人，特别自然
爱一个人，特别坦然
喜欢一个人，有时候盼和他在一起
爱一个人，有时候怕和他在一起

喜欢一个人，不停的和他争执
爱一个人，不停的为他付出
喜欢一个人，希望他可以随时找到自己
爱一个人，希望可以随时找到他

喜欢一个人，总是为他而笑
爱一个人，总是为他而哭
喜欢，是执着
爱，是值得

喜欢就是喜欢，很简单
爱就是爱，很复杂
喜欢你，却不一定爱你
爱你，就一定很喜欢你

其实，喜欢和爱仅一步之遥
但，想要迈这一步
就看你
是喜欢迈这一步
还是爱迈这一步
爱将会属于那些虽然曾经失望过，却仍心怀希望的人；属于那些虽然曾经背叛过，但依然相信的人

关于数组排序

2008-7-28 1:51:30
呵呵~今天突然发现,学编程这么久了,除了上C语言课做过排序作业,自己用VB还真没做过---狂晕啊!
下面代码只是自己实验代码,仅有参考意义,没有任何技术含量,呵呵!
    ȫ

<%
server.scripttimeout=300
count=100
Arr=count-1
dim nums()
response.write "原数组:"
for i=0 to Arr
  ReDim Preserve nums(i)
  randomize()
  num=(cint(rnd()*9999))
  nums(i)=num
  response.write num&" "
  if (i+1) mod 20 =0 then response.write ""
next
'计算最大值和最小值
max=nums(0)
min=nums(0)
for j=1 to Arr
  if nums(j)>max then max=nums(j)
  if nums(j)next
'由小到大排序
num_m=0
time1=timer
for j=0 to Arr
  for i=0 to Arr-1
     if nums(i)>nums(i+1) then
        num_m=nums(i+1)
        nums(i+1)=nums(i)
        nums(i)=num_m
        complete=false
     end if
  next
next
  '排序完成
     response.write "排序后:"
     for k=0 to Arr
         response.write nums(k)&" "
         if (k+1) mod 20 =0 then response.write ""
     next
     response.write "数组共有"&color(count)&"个数,最大值:"&color(max)&",最小值:"&color(min)&";"

function color(str)
  color=""&str&""
end function
%>

RSS基本结构的定义

2008-7-26 21:17:56
其中，必填项已经在代码中标出。channel的image节点如果不定义，里面的各项也不是必须的！
把第一段代码保存为rss.xml，第2段代码保存为rss.xslt(当然都以utf-8格式保存)，然后打开rss.xml就会看到效果！如下图：
http://blog.ii-home.cn/upfiles/2008072711535503.JPG
如果把第2段代码的一行去掉就仅仅显示一个xml文件树结构！
    ȫ


           艾恩ASP学习BLOG(必选)
           http://blog.ii-home.cn(必选)
           免费提供各种ASP学习资源，组件、源代码、学习手册、技术文章...(必选)
           ASP学习
           copyright@2008 blog.ii-home.cn

                 http://blog.ii-home.cn/img/myblog.jpg(必选)
                 艾恩ASP学习BLOG(必选)
                 http://blog.ii-home.cn(必选)
                 88
                 31
                 免费提供各种ASP学习资源，组件、源代码、学习手册、技术文章...

           zh-cn
           定义频道最新一次改动的时间
           zhanghuiguoanlige@126.com
           Sat, 26 Jul 2008 21:07:57 +0800
           60
           zhanghuiguoanlige@126.com

                汉字图片验证码(必选)
                http://blog.ii-home.cn/show.asp?id=94(必选)

                     (必选)

                Anlige
                源代码下载
                http://blog.ii-home.cn/show.asp?id=94
                http://blog.ii-home.cn/show.asp?id=94
                Sat, 26 Jul 2008 21:07:57 +0800
                http://blog.ii-home.cn/show.asp?id=94



.

    ȫ




               <xsl:value-of select="title" />




















































最尴尬的口误(暴笑)

2008-7-25 12:23:01

1、周末回家，晚饭后烟瘾犯了，打算借口去散步。在门口换鞋时，老爸问我干吗去？我说：“去散个烟！”结果老爸从我身上搜出一包白沙，狠狠k了我一顿。

2、一次从妈妈那里出来后到老婆那里去，看见老婆后，习惯性的叫了一声：“妈！”

3、早上上班，发现自行车没气了，于是想叫妈妈推到门外打气。结果我说：“把我的轮胎推出去。”妈妈迷糊了，我笑着连忙改正，结果又说成：“帮我的汽车打点气！”

4、一次我开车，坐我旁边的女同事突然问：“你怎么开车不系安全套的？”

5、一次在厕所方便，没纸了。就对老婆说：“把擦纸的屁股拿来！”

6、一个女孩失恋了，我劝她：“两条腿的蛤蟆不好找，三条腿的男人有的是啊！”

7、两个人斗嘴，突然旁边一人冒出来一句：“你们真是吃饱了事情没饭做啊！”

8、同事和人争执，急了张口来了句：“你以为我吃饭长大的啊？”我一直纳闷他到底吃什么长大的。
9、上电脑课，一同学的机器有问题，于是大喊；“老板，换机子！”

10、边吃饭边看帖子，边念经典的给老婆听，笑死她了，于是她对我说：“吃完饭再看吧，不然脑子消化不良！”

11、一次问一个近视的人眼睛多少度，他本想说400度的，结果一出口就成了400 瓦，肚子痛死！

12、一次教育局领导视察课间操，结束后，本应由体育老师宣布“解散”，但一时情急，忘词了，憋了半天，大喊：“撤退！”

13、一体育系学生上实习课时，很多老师听课，他太紧张，最后要解散队伍时，一时脑子空白，硬憋了句：“全体注意，立正！闪！！”

14、一群同学去郊区同学家玩。我们买了几个西瓜放在厨房。叫一个同学去拿刀切，好久不见回来，正疑惑间，他手里捧着个切开的瓜来了，惊慌地说：我把南瓜给切了。大家狂笑，但两秒钟后，大家更是笑翻，原来他手里捧着个冬瓜！

15、高中有一老师姓江，酷似罗家英（演大话西游唐僧的），我去问他问题，脱口而出：“唐师傅，这题……”

16、有一同事，有天我开车在路上车胎没气了，问哪里有充气的，同事说：“街上到处都是打胎的啊！”

17、一次去麦当劳买甜桶，终于轮到了，我迫不及待的说：“给我两个滚筒！”没想到那服务员对我大声的说；“两个滚筒，四块钱！”

18、俺碰到一个心仪已久的女孩从澡堂里出来，想套近乎，憋了半天憋出一句：“你洗澡啊，里面男的多不多啊？”

19、有次去吃饭，结帐时对老板说：“老公！结帐！”当时老板娘就在旁边……

20、有一老师通宵麻将，见黑板没擦，大怒：“今天谁做庄啊？黑板都不擦！”

21、有一次我大叔见我小姑在搽大宝，突然大叫一声：“你皮肤这么好，还用护舒宝啊？”

22、刚买了房子，兴奋中给一哥们打电话：‘我买房啦，不过就一毛房（忘说“坯”字了）还得装修。”哥们说：“就只有一厕所吗？那你住哪里啊？”

23、被老师留下做作业，不会做就抄别人的，然后去办公室交作业，看见老师说：“我抄完了！”

24、某君考驾驶证那天，特别紧张。考官为难他，叫他在路边有一个消防栓的地方停车。此君特紧张的说：“报告消防栓，路边有一个考官，不允许停车！”

25、公司养一狗叫：小白。某天大家逗狗，同事甲拿着一饼干对狗说到：“小白，整个办公室只有你喂我哦。”三秒钟后，整个办公室暴笑. >

ASP汉字图片验证码

2008-7-24 17:45:05
生成汉字图片验证码，字库少点-85个
资源下载里有个动网的验证码，字库多点还有多种显示选择~
这个验证码的使用方法:在需要显示验证码的地方加入
    ȫ

会生成一个Session("psn")供你使用！
code.asp请到这里来下载
http://blog.ii-home.cn/detial.asp?id=140

参加奥运会火炬在青岛的传递活动

2008-7-23 0:51:55
  昨天,奥运火炬来到了青岛!!!!我们学校参加收火仪式的方队早上6:50(崂山和浮山校区的同学是凌晨3、4点就要集合出发)集合前往第一海水浴场,鱼山校区400多人组成的队伍甚是浩大！

  为了安全起见，青岛基本出动所有的警察拉好警戒线，每隔几米就有一名警察站岗，心中有一种钦佩，更应该说是感动的感觉！为了奥运，大家都付出了很多，在大家的支持下相信北京奥运会顺利举办成功！

  火炬8：80左右正式开始传递，经过259名火炬手的传递，上午11:08分，火炬顺利到达收火仪式现场，现场的气氛也是异常的活跃，我们挥动各国国旗大声呐喊着，万分激动地等待这一刻的到来！当最后一棒火炬手—青岛市市长、青岛奥帆委主席夏耕跑进第一海水浴场点燃圣火盆的时候，整个会场沸腾起来了，呐喊声、锣鼓声、欢呼声....震耳欲聋，当然会场的秩序没有一丝混乱！北京奥组委给予“安全保卫和服务组织双满分”的高度评价！

  北京奥运会是中国百年难遇的举国盛事，需要我们一起努力，一起为奥运加油，为中国加油，愿北京奥运会能够取得圆满成功！

  (下面是俺在收火仪式会场休息时拍的一张照片，人长的难看点，手机拍的，比较磕碜！)

560)this.width=560" />

关于request的几个集合

2008-7-20 19:05:59
request包含request.form和request.querystring及其它几个集合
request.form获取的是表单post方式传输的（传输相对于querystring容量较大，传输较安全）
request.querystring获取的是表单get方式传输的（会紧接再URL？后，传输容量有限制，且不安全，但可作为URL速记地址）
建议不要使用request("test")的形式提取信息，这样的话服务器会依次检索所有的request集合，加重负担

读取顺序为
request.querystring()
request.form()
request.cookies()
request.ClientCertificate() (不常用，可以说不用)
request.serverVariables()

request.form只会查询form集合，而不去查询其余4个集合

有兴趣的可以运行下面的代码看看request.serverVariables的各种属性
    ȫ

for each vari in request.serverVariables()
response.write vari&"---"&request.serverVariables(vari)&""
next

这个循环会罗列所有的request.serverVariables()集合中的属性

小偷程序原理--xmlhttp组件

2008-7-20 18:45:16
一般来说，我们做网站，数据都是在我们自己的数据库中的，但有些数据，我们不想也不能自己去收集数据，比如新闻＼天气预报，（我们无法天天更新），所以我们就需要借助别人的网站来显示这些内容。但如果直接链接到别人的网站，那就不是自己的站点了，所以我们通过xmlhttp对象来在后台把别人的网页内容载入到内存中，经过筛选，将别人的网页内容显示出来，这就是所谓的“小偷程序”。

小偷程序实际上是通过了XML中的XMLHTTP组件调用其它网站上的网页，动态载入内存后，再对别人网页的内容进行分析过滤。所以，原则上只要别人网页上能显示出来的信息，你都可以使用（关于连接，一般的下载网站的连接你是截不到的，因为它进行了隐藏）。现在有很多新闻小偷程序，很多都是调用了sina的新闻网页，对其中的html进行了一些替换，同时对广告也进行过滤。除了新闻截取，你还可以利用小偷程序去截取一些别的信息，比如天气预报等。

小偷程序的优点有：
1、无须维护网站，因为小偷程序中的数据来自其他网站，它将随着该网站的更新而更新；
2、可以节省服务器资源，一般小偷程序就几个文件，所有网页内容都是来自其他网站。

其缺点有：
1、不稳定，如果目标网站出错，程序也会出错。目标网站进行升级维护，小偷程序也要进行相应修改；
2、速度慢，因为是远程调用，速度和在本地服务器上读取数据比起来，肯定要慢一些。

小偷程序一般是使用xmlhttp组件来下载别人的网页，将别人的网页内容载到了你的内存中，再经过分析，过滤掉不需要的内容，最终实现按照自己的格式来显示内容。比如这个网页：http://www.itb2b.com.cn/thief/index.asp ，就是截取了新浪的内容。

以下是小偷程序代码：
    ȫ

<%
'常用函数
'1、输入url目标网页地址，返回值getHTTPPage是目标网页的html代码

function getHTTPPage(url)
dim Http
set Http=server.createobject("MSXML2.XMLHTTP")
Http.open "GET",url,false
Http.send()
if Http.readystate<>4 then
exit function
end if
getHTTPPage=bytesToBSTR(Http.responseBody,"GB2312")
set http=nothing
if err.number<>0 then err.Clear
end function
%>

换句话说，要做小偷程序，你必须了解xmlhttp组件的使用。微软提供的Microsoft.XMLHTTP对象，能够完成从数据包到Request对象的转换以及发送任务。

XMLHTTP对象及其方法:
创建XMLHTTP对象的语句如下：

Set objXML = CreateObject("Msxml2.XMLHTTP")
或
Set objXML = CreateObject(“Microsoft.XMLHTTP”)
其中Set objXML = CreateObject("Msxml2.XMLHTTP")是最新的版本

对象创建后调用Open方法对Request对象进行初始化，语法格式为：
poster.open http-method, url, async, userID, password
Open方法中包含了5个参数，前三个是必要的，后两个是可选的(在服务器需要进行身份验证时提供)。
参数的含义如下所示：
http-method： HTTP的通信方式，比如GET或是 POST
url：接收XML数据的服务器的URL地址。通常在URL中要指明ASP或CGI程序
async：一个布尔标识，说明请求是否为异步的。如果是异步通信方式(true)，客户机就不等待服务器的响应；如果是同步方式(false)，客户机就要等到服务器返回消息后才去执行其他操作
userID：用户ID，用于服务器身份验证
password：用户密码，用于服务器身份验证

比如，我们要调用百度的网页，我们可以：
dim Http
set Http=server.createobject("MSXML2.XMLHTTP")
Http.open "GET","http://www.baidu.com",false
Http.send()

Send方法是用来发送XML数据的，用法如下：
poster.send()

如果不用send来发参数，而你要调用的网页又要接收参数，可以这样简单处理
dim Http
set Http=server.createobject("MSXML2.XMLHTTP")
Http.open "GET","http://要调用的网页?id=1&name=abc",false
Http.send()
Http.send()以后，xmlhttp对象会返回一个对象，这个对象里面就包含了所调用网页的内容，就象从浏览器里打开一样，只不过网页内容是在内存中，还没有显示出来。但在调用过程中可能会出错，所以XMLHTTP对象中的readyState属性能够反映出服务器在处理请求时的进展状况。

0 Response对象已经创建，但XML文档上载过程尚未结束
1 XML文档已经装载完毕
2 XML文档已经装载完毕，正在处理中
3 部分XML文档已经解析
4 文档已经解析完毕，客户端可以接受返回消息

所以我们一般这样处理:
dim Http
set Http=server.createobject("MSXML2.XMLHTTP")
Http.open "GET","http://要调用的网页?id=1&name=abc",false
Http.send()
'检查是否完成，readystate值为４说明载入完毕
if Http.readystate<>4 then
   exit function
end if

Http.send()后，经检测Http.readystate==4，说明载入完毕，这时网页内容已经载入到了Http.responseBody中了，但是如果是中文网页，Http.responseBody中会有乱码，这需要我们转换一下乱码，所以完整的调用是这样的：
dim http
set http=Server.createobject("Microsoft.XMLHTTP")
Http.open "GET","你要调用的网址",false
Http.send()
if Http.readystate<>4 then　'如果不等于4，说明出错了
   exit function
end if
getHTTPPage=bytesToBSTR(Http.responseBody,"GB2312")
set http=nothing
其中,bytesToBSTR是一个自己写的函数
    ȫ

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
  BytesToBstr = objstream.ReadText
  objstream.Close
  set objstream = nothing
End Function

所以，getHTTPPage=bytesToBSTR(Http.responseBody,"GB2312")表示，将Http.responseBody的内容按GB2312编码转换一下，放到getHTTPPage变量中。
最后，你再对getHTTPPage变量进行分析，取出你想显示的数据就行了。

需要注意的是,BytesToBstr函数中用到了adodb.stream组件，这需要你的服务器有执行它的权限。

下面我们讲个实例，我们显示一下新浪的新闻。要想显示新浪的新闻，我们就要先找到新浪的新闻网址是什么。新浪有个动态新闻页网址：http://news.sina.com.cn/old1000/news1000_日期.shtml 。比如，我们要显示6月18日的新闻，就输入
http://news.sina.com.cn/old1000/news1000_20050618.shtml ，打开网页你会发现是一个新闻列表，下面我们就要分析一下它的结构，右键查看源代码。里面很乱，但你可以找到和，中间的内容就是列表的内容。好了，也就是我说，我们想显示6月18号的新闻，就这样调用：
dim http
set http=Server.createobject("Microsoft.XMLHTTP")
Http.open "GET","http://news.sina.com.cn/old1000/news1000_20050618.shtml",false
Http.send()
if Http.readystate<>4 then
   exit function
end if
getHTTPPage=bytesToBSTR(Http.responseBody,"GB2312")
set http=nothing
start=Instr(wstr,"")
over=Instr(wstr,"")
wstr=mid(wstr,start+11,over-start-11)

这样wstr就是新闻列表的内容。为什么start+11和over-start-11呢？因为和都是11的长度。wstr取出来后，还要进行分析,把它的网址链接替换成你的链接，把不必要的字符过滤掉，这个工作很烦琐，你可以用replace或者用正则表达式来替换,比如：
wstr=replace(wstr,"href=""","href=""show.asp?url=")
wstr=replace(wstr,"
","")
wstr=trim(replace(wstr,"
","")) '完成对页面内容的截取加工
wstr=Replace(wstr,"http://news.sina.com.cn","NewsNews")
wstr=Replace(wstr,"http://tech.sina.com.cn","TechNews")
wstr=Replace(wstr,"http://sports.sina.com.cn","SportsNews")
wstr=Replace(wstr,"http://ent.sina.com.cn","EntNews")
wstr=Replace(wstr,"http://eladies.sina.com.cn","EladiesNews")
wstr=Replace(wstr,"http://jczs.sina.com.cn","jczs")
wstr=Replace(wstr,"http://auto.sina.com.cn","AutoNews")
wstr=Replace(wstr,"http://finance.sina.com.cn","FinanceNews")
wstr=Replace(wstr,"http://www.eladies.com.cn","wwwEladies")

常用正则表达式集锦

2008-7-20 18:41:27

常用正则表达式集锦

在使用RegularExpressionValidator验证控件时的验证功能及其验证表达式介绍如下:

只能输入数字：“^[0-9]*$”
只能输入n位的数字：“^\d{n}$”
只能输入至少n位数字：“^\d{n,}$”
只能输入m-n位的数字：“^\d{m,n}$”
只能输入零和非零开头的数字：“^(0|[1-9][0-9]*)$”
只能输入有两位小数的正实数：“^[0-9]+(.[0-9]{2})?$”
只能输入有1-3位小数的正实数：“^[0-9]+(.[0-9]{1,3})?$”
只能输入非零的正整数：“^\+?[1-9][0-9]*$”
只能输入非零的负整数：“^\-[1-9][0-9]*$”
只能输入长度为3的字符：“^.{3}$”
只能输入由26个英文字母组成的字符串：“^[A-Za-z]+$”
只能输入由26个大写英文字母组成的字符串：“^[A-Z]+$”
只能输入由26个小写英文字母组成的字符串：“^[a-z]+$”
只能输入由数字和26个英文字母组成的字符串：“^[A-Za-z0-9]+$”
只能输入由数字、26个英文字母或者下划线组成的字符串：“^\w+$”
验证用户密码:“^[a-zA-Z]\w{5,17}$”正确格式为：以字母开头，长度在6-18之间，

只能包含字符、数字和下划线。
验证是否含有^%&',;=?$\"等字符：“[^%&',;=?$\x22]+”
只能输入汉字：“^[\u4e00-\u9fa5],{0,}$”
验证Email地址：“^\w+[-+.]\w+)*@\w+([-.]\w+)*\.\w+([-.]\w+)*$”
验证InternetURL：“^http://([\w-]+\.)+[\w-]+(/[\w-./?%&=]*)?$”
验证电话号码：“^($\d{3,4}$|\d{3,4}-)?\d{7,8}$”

正确格式为：“XXXX-XXXXXXX”，“XXXX-XXXXXXXX”，“XXX-XXXXXXX”，

“XXX-XXXXXXXX”，“XXXXXXX”，“XXXXXXXX”。
验证身份证号（15位或18位数字）：“^\d{15}|\d{}18$”
验证一年的12个月：“^(0?[1-9]|1[0-2])$”正确格式为：“01”-“09”和“1”“12”
验证一个月的31天：“^((0?[1-9])|((1|2)[0-9])|30|31)$”

正确格式为：“01”“09”和“1”“31”。

突破WindowsXPHome版的限制安装IIS

2008-7-19 22:04:35
突破Windows XP Home版的限制安装IIS
　　常见的Windows XP有两个版本，Professional和Home版。这两个版本大体上是相同的，只是在细节方面，Professional版比Home版多了一些功能。例如Professional版的XP支持双CPU，多国语言，加入域，EFS文件加密，以及IIS（Internet Information Services）。很多人在买电脑的时候了解的不够清楚，买了预装Home版XP的电脑，而需要用到或者想学习IIS的时候才发现，原来Home版根本不能安装IIS或者PWS。如果按照一般的方法，你只能升级到Windows XP Professional或者使用Windows 2000，不过仔细看看下文吧，你也可以在Windows XP Home上安装IIS了。

　　首先需要说明一点，就是这种做法可能会有风险，因此在你实际操作之前，最好明确你的行为会带来什么后果。并且经过这样处理安装的IIS在运行上可能存在某种未知的缺陷。还有，同Professional版的XP一样，在Home版上运行的IIS也有10个并发连接的限制。在同一个时间内，最多只能有10个人使用你提供的IIS服务。如果你还想继续，那么就往下看吧。

　　准备条件：一张Windows 2000 Professional的光盘（假设光驱是F盘）。

　　首先在运行中输入"c:\windows\inf\sysoc.inf"，系统会自动使用记事本打开sysoc.inf这个文件。在sysoc.inf中找到"[Components]"这一段，并继续找到类似"iis=iis.dll,OcEntry,iis.inf,hide,7"的一行字,把这一行替换为"iis=iis2.dll,OcEntry,iis2.inf,,7"。之后保存并关闭。

　　把Windows 2000 Professional的光盘插入光驱，同时按下Shift键禁止光驱的自动运行。在运行中输入"CMD"然后回车，打开命令行模式，在命令行下输入下列的两条命令，在每一行命令结束后回车：

　　Expand d:\i386\iis.dl_ c:\windows\system32\setup\iis2.dll
　　Expand d:\i386\iis.in_ c:\windows\inf\iis2.inf

　　这时，打开你的控制面板，并点击"添加删除程序"图标，之后点击"添加删除Windows组件"，你应该可以看见图一的界面。请仔细看，在开始菜单中显示的操作系统是Windows XP Home，但是经过修改，已经有了添加IIS的选项了。

图一

　　然后你可以按照在Windows XP Professional或者Windows 2000中的方法添加IIS，在本例中我们只安装了WWW服务。系统会开始复制文件，这需要一些时间。并且在这起见，请保持Windows 2000 Professional的光盘还在光驱中。

　　在安装结束后，你可以打开控制面板－性能和选项－管理工具，"Internet信息服务管理"已经出现在那里（图二）。如果你想要验证IIS是否运行正常，而已打开IE，在地址栏中输入"http://localhost"然后回车，如果能看到图三的界面，那么你的IIS就全部正常运行了。

图三

　　最后还有一点注意的：

　　如果你在安装过程中，系统需要你插入Window Whistler CD或者需要你提供exch_adsiisex.dll这个文件，那是因为你按照默认的选项安装了IIS。要解决这个问题，只要在安装IIS的时候先点击"详细信息"，然后取消对SMTP的选择（即，不要安装SMTP服务器），那么复制文件的时候就不会需要那两个文件了。

　　如果在你安装的到图一的位置后发现，已经显示了Internet信息服务（IIS）的安装项目，但是它们根本无法被选中，那很可能因为你使用的iis.dl_和iis.in_是从Windows XP Professional中取出的，只要换成Windows 2000 Professional中的就可以继续正常安装了。

　　经过验证，WWW、FTP等几个服务经过这样的修改都可以在Windows XP Home上正常运行

新手asp编程的基本法则

2008-7-17 4:04:03
新手asp编程的基本法则
一、新手常犯的错误
在论坛看到很多帖子代码中都有一个共同的基本错误，字段类型错误。
程序和数据库是紧紧相连的，数据库字段文本型或时间型的都使用单引号
比如下面这段修改语句：
conn.execute "update Counts set counts='"&counts&"' where num="&num&" and Atime='"&now()&"'"
等号左边都是字段名，等号右边是传值过来的变量名，counts 字段是文本型，所以写入时必须前后加单引号，无论是写入还是查询都一样，后面的查寻语句中，num 字段是数字型，所以前后就没有单引号了，Atime 字段是时间型所以前后也要加单引号。
最重要的是以ID查询，ID字段是唯一的并且数字类型，很明显查询ID号时前后也不能有单引号
    ȫ
conn.execute "update Counts set counts='"&counts&"' where id='"&id&"'"  '错误写法
conn.execute "update Counts set counts='"&counts&"' where id="&id  '正确写法

二、ACCESS 数据库连接
通常数据库连接有两种方式，新手基本不知道用哪一种方式，或者在什么情况下用哪一种，又或者不知道两者的原理
①直接连接数据库文件
    ȫ

Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="&Server.MapPath("database/yanhang.mdb")

②通过数据源来连接数据库文件
    ȫ

Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="&Server.MapPath("database/yanhang.mdb")

那么，两者到底哪一个好呢，当然是第二种，因为第一种其实就是客户端浏览器直接读取数据库的，所以安全方面差很多，第二种通过数据源连接，是以服务器数据源工具连接的，与客户端没关系，所以数据库不会暴露给客户端，安全系数高很多。

ACCESS 数据库对应程序的应用：①直接连接数据库文件
    ȫ

conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="&Server.MapPath("database/yanhang.mdb")

这样的数据库连接方式，添加语句：
    ȫ

set rs=server.createobject("adodb.recordset")   '(正确写法)
rs.open "select * from dndj",conn,1,3
rs.addnew
rs("bh") = bh
rs("bm") = bm
rs("xm") = xm
rs("xsq") = xsq
rs.update
rs.close
set rs=nothing

set rs=server.createobject("adodb.recordset")  '(错误写法)
sql="insert into dndj(bh,bm,xm,xsq) values('bh','bm','xm','xsq')"
rs.open sql,conn,1,3

ACCESS 数据库对应程序的应用：②通过数据源来连接数据库文件
    ȫ

conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="&Server.MapPath("database/yanhang.mdb")

这样的数据库连接方式，添加语句：
    ȫ

conn.execute "insert into dndj(bh,bm,xm,xsq) values('"&bh&"','"&bm&"','"&xm&"','"&xsq&"')"    '(正确写法)

set rs=server.createobject("adodb.recordset")  '(错误写法)
sql="insert into dndj(bh,bm,xm,xsq) values('bh','bm','xm','xsq')"
rs.open sql,conn,1,3

三、双引号的应用
通常我们写超级连接这样 ">超级连接
但要是把这个超级连接编译进asp里面呢
    ȫ

response.write "超级连接"   '(正确写法)
response.write "超级连接"       '(正确写法)
response.write "超级连接"        '(正确写法)

response.write "">超级连接"  '(错误写法)
response.write "超级连接"       '(错误写法)

表单编译进asp里  " />
    ȫ

response.write "" '(正确写法) 注意：这里有三个双引号
response.write ""       '(正确写法)
response.write ""            '(正确写法)

response.write "" />"  '(错误写法)
response.write ""       '(错误写法)

四、防止ACCESS数据库被下载的几个方法
很多动态站点大量应用了数据库，数据库理所当然成了一个站点的核心文件。一旦数据库被非法下载，极有可能被恶意人士破坏网站。或者窃取资料。

下面提供的方法分别适用使用虚拟主机空间的用户和有IIS控制权的用户！

   一：购买虚拟主机空间的，适合没有IIS控制权
1：发挥你的想象力修改数据库文件名
这个是最基本的。我想现在也没有多少连数据库文件名都懒得改的人吧？至于改成什么，你自己看着办，至少要保证文件名复杂，不可猜测性。当然这个时候你的数据库所在目录是不能开放目录浏览权限的！

2：数据库名后缀改为ASA、ASP等
这个听说很流行，不过我测试了好多次，发现并不理想，如果真正要起到防止下载的作用，要进行一些二进制字段添加等设置，一句话，繁而复杂（如果你的数据库有很多的话，这个方法实在不是很好）

3：数据库名前加“#”
只需要把数据库文件前名加上#、然后修改数据库连接文件（如conn.asp）中的数据库地址。原理是下载的时候只能识别 #号前名的部分，对于后面的自动去掉，比如你要下载：http://bbs.bccn.net/date/#123.mdb(假设存在的话）。无论是IE还是FLASHGET等下到的都是http://bbs.bccn.net/date/index.htm

另外在数据库文件名中保留一些空格也起到类似作用，由于HTTP协议对地址解析的特殊性，空格会被编码为"%20",如http://bbs.bccn.net/date/123 456.mdb
下载时http://bbs.bccn.net/date/123%20456.mdb。而我们的目录就根本没有123%20456.mdb这个文件，所以下载也是无效的，即使你暴露了数据库地址，一般情况下别人也是无法下载，最好两种方法同时使用“#”+空格，例如 http://bbs.bccn.net/date/#123 456.mdb

4：加密数据库
用ACCESS将你的数据库以独占方式打开后，在工具-安全-设置数据库密码，加密后要修改数据库连接页，如：
conn.open "driver={microsoft access driver (*.mdb)};uid=admin;pwd=数据库密码;dbq=数据库路径"
这样修改后，数据库即使被人下载了，别人也无法打开（前提是你的数据库连接页中的密码没有被泄露）
但值得注意的是，由于Access数据库的加密机制比较简单，即使设置了密码，解密也很容易。该数据库系统通过将用户输入的密码与某一固定密钥进行“异或”来形成一个加密串，并将其存储在*.mdb文件从地址“&H42”开始的区域内。所以一个好的程序员可以轻松制作一个几十行的小程序就可以轻松地获得任何Access数据库的密码。因此，只要数据库被下载，其安全依然是个未知数。

  二：有主机控制权（当然虚拟空间的设置在这里依然可以用）
5:数据库放在WEB目录外
如你的WEB目录是e:\webroot，可以把数据库放到e:\data这个文件夹里，在e:\webroot里的数据库连接页中
修改数据库连接地址为："../data/#123 456.mdb" 的形式，这样数据库可以正常调用，但是无法下载的，因为它不在WEB目录里！这个方法一般也适合购买虚拟空间的用户。

6:使用ODBC数据源。
在ASP等程序设计中，如果有条件，应尽量使用ODBC数据源，不要把数据库名写在程序中，否则，数据库名将随ASP源代码的失密而一同失密
例如：
conn.open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("../123/abc/asfadf.mdb")
可见，即使数据库名字起得再怪异，隐藏的目录再深，ASP源代码失密后，也很容易被下载下来。
如果使用ODBC数据源，就不会存在这样的问题了：conn.open "ODBC-DSN名" ,不过这样是比较烦的，目录移动的话又要重新设置数据源了！

7：添加数据库名的如MDB的扩展映射
这个方法就是通过修改IIS设置来实现，适合有IIS控制权的朋友，不适合购买虚拟主机用户(除非管理员已经设置了）。这个方法我认为是目前最好的。只要修改一处，整个站点的数据库都可以防止被下载。无须修改代码即使暴露目标地址也可以防止下载。

设置：
在 IIS属性---主目录---配置---映射---应用程序扩展那里添加.mdb文件的应用解析。注意这里的选择的DLL（或EXE等）似乎也不是任意的，选择不当，这个MDB文件还是可以被下载的，  注意最好不要选择选择asp.dll等。你可以自己多测试下
这样修改后下载数据库如：http://bbs.bccn.net/data/dvbbs6.mdb。就出现（404或500等错误）

8：使用.net的优越性
动网的木鸟就写过一个防非法下载文件的“WBAL 防盗链工具”。记得本论坛曾经也有位牛人也发表过数据库防下载的插件，是.dll的加载到IIS里的。
不过那个只实现了防止非本地下载的，没有起到真正的防下载数据库的功能。不过这个方法跟第5种差不多
可以通过修改.NET文件，实现本地也不能下载！

这几个方法中，只有第7和8个是统一性改的，一次修改配置后，整个站点的数据库都可以防止下载，其他几个就要分别修改数据库名和连接文件，比较麻烦，不过对于虚拟主机的朋友也只能这样了！

其实第6种方法应该是第5种方法的扩展，可以实现特殊的功能，但对于不支持.net的主机或者怕设置麻烦的话，还是直接用第5种方法了，而且默认情况下第6种方法，依然可以通过复制连接到同主机的论坛或留言本发表，然后就可以点击下载了（因为这样的引用页是来自同主机的）

这几个方法各有长短，请自己选择性地使用。这些方法也不是绝对的安全，还需要网站管理员平时注意一些系统的安全，以及写ASP代码本身的安全，否则依然有可能被人下载或者修改数据库！

VBScript下载文件

2008-7-16 3:38:49
把下面代码保存到一个文本文件,修改后缀为.vbs,然后运行,就能下载文件了，最好不要下载大文件，很耗时间的~
    ȫ

'函数名:WritFile
'作用:把指定二进制数据写入文件
'参数:byt--二进制数据,file--要写入的文件名
Function WritFile(byt,file) '写入文件函数
   SavePath=file
   Set objAso = CreateObject("ADODB.Stream")
     objAso.Type=1
     objAso.Mode = 3
     objAso.Open
     objAso.Position =0
     objAso.Write byt
     objAso.SaveToFile SavePath,2
     objAso.Close
     set objAso=nothing
End Function

'函数名:GetRes
'作用:下载文件
'参数:URL-要获取的URL
function GetRes(URL)
dim ResBody,ResStr,PageCode,ReturnStr
sPos=InStrRev(URL,"/")+1
sStr=mid(url,sPos)
Set Http=createobject("MiCROSOFT.XMLHTTP")
Http.open "GET",URL,False
Http.Send()
If Http.Readystate =4 Then
  If Http.status=200 Then
     ResBody=http.responseBody
        head=Http.getResponseHeader("content-disposition")
        if head<>"" then
           startPos=instr(head,"=")+1
           filename=mid(head,startPos)
        elseif instr(sStr,".")>0 then
           filename=sStr
        else
           filename=getname()&".dat"
        end if
    WritFile ResBody,"c:\"&filename
    GetRes=filename
  End If
End If
End Function

'函数名:getname
'作用:按日期获取随机数字
function getname()
    newname=now()
    newname=replace(newname," ","")
    newname=replace(newname,".","")
    newname=replace(newname,":","")
    newname=replace(newname,"-","")
    newname=replace(newname,"上午","am")
    newname=replace(newname,"下午","pm")
    Randomize()
    newname=newname&cstr(int(Rnd()*10))
    Randomize()
    newname=newname&cstr(int(Rnd()*10))
    getname=newname
end function

dim str,time1,time2,tim,f_name,speed
str=""
time1=timer
f_name=GetRes("http://25.duote.org/Fetion2008.exe")
time2=timer
tim=formatnumber((time2-time1)*1000,2)
str=str&"文件"""&f_name&"""下载完毕,耗时"&tim&"MS!"&vbcrlf
str=str&"保存在C:\根目录下！"&vbcrlf
msgbox str,vbinformation,"下载完毕!"

VBScript小偷

2008-7-16 2:22:28
把下面代码保存到一个文本文件,修改后缀为.vbs,然后运行,输入正确网址就可以"偷"别人的网页了~哈哈
    ȫ

time1=timer
dim reg,vUrl,VBody,code,time1,time2,title
vUrl=inputbox("请输入有效网址，必须以http://开头","请输入网址","http://blog.ii-home.cn")
path=left(Wscript.ScriptFullName,len(Wscript.ScriptFullName)-len(Wscript.ScriptName))
str=""
reg="\\/]*).+\/{0,1}\>"
VBody=GetResStr(vUrl)
code=GetCode(VBody,reg)
title=GetCode(VBody,"\(.*)\<\/title\>")
time2=timer
tim=formatnumber((time2-time1)*1000,2)&"MS"
str=str&"页面标题:"&title&vbcrlf
str=str&"使用时间:"&tim&vbcrlf
fname=path&"\"&getname()&".html"
WritFile replaceStr(VBody),fname
'WritFile VBody,fname '若不清除img标签请使用这个
str=str&"文件已经成功保存到"&fname

WScript.echo str

Function WritFile(str,file) '写入文件函数
   SavePath=file
   Set objAso = CreateObject("ADODB.Stream")
     objAso.Type=2
     objAso.Mode = 3
     objAso.Open
     objAso.Position =0
     objAso.Writetext str
     objAso.SaveToFile SavePath,2
     objAso.Close
     set objAso=nothing
End Function

'函数名:GetResStr
'作用:获取指定URL的HTML代码
'参数:URL-要获取的URL
function GetResStr(URL)
err.clear
dim ResBody,ResStr,PageCode,ReturnStr
Set Http=createobject("MiCROSOFT.XMLHTTP")
Http.open "GET",URL,False
Http.Send()
If Http.Readystate =4 Then
  If Http.status=200 Then
    ResStr=http.responseText
    ResBody=http.responseBody
    PageCode=GetCode(ResStr,reg)
    ReturnStr=BytesToBstr(http.responseBody,PageCode)
    GetResStr=ReturnStr
  End If
End If
End Function

'函数名:BytesToBstr
'作用:转换二进制数据为字符
'参数:Body-二进制数据,Cset-文本编码方式
Function BytesToBstr(Body,Cset)
  Dim Objstream
  Set Objstream = CreateObject("adodb.stream")
  objstream.Type = 1
  objstream.Mode =3
  objstream.Open
  objstream.Write body
  objstream.Position = 0
  objstream.Type = 2
  objstream.Charset =Cset
  BytesToBstr = objstream.ReadText
  objstream.Close
  set objstream = nothing
End Function

'函数名:GetCode
'作用:转换二进制为字符
'参数:str-待查询字符串,regstr-正则表达式
Function GetCode(str,regstr)
Dim Reg,serStr
set Reg= new RegExp
Reg.IgnoreCase = True
Reg.MultiLine = True
Reg.Pattern =regstr
if Reg.test(str) then '若查询到匹配项
   Set Cols = Reg.Execute(str)
   serStr=Cols(0).SubMatches(0) '使用匹配到的第一个匹配项
else '否则给个默认值gb2312,有点省懒法，如果页面没给出编码格式，想知道确实有点麻烦
   serStr="gb2312"
end if
GetCode=serStr
end function

'函数名:getname
'作用:获得随机文件名
'参数:无
function getname()
    dim y,m,d,h,mm,s,r
    Randomize()
    y=year(now)
    m=month(now):if m<10 then m="0"&m
    d=day(now):if d<10 then d="0"&d
    h=hour(now):if h<10 then h="0"&h
    mm=minute(now):if mm<10 then mm="0"&mm
    s=second(now):if s<10 then s="0"&s
    r=cint(rnd()*10):if r<10 then r="0"&r
    getname=y&m&d&h&mm&s&r
end function

'函数名:replaceStr
'作用:替换指定字符
'参数:strcontent-待替换字符串
Function replaceStr(strcontent)
dim re
Set re=new RegExp
re.IgnoreCase =true
re.Global=True
re.pattern="\\/].*(\/|)\>" '祛除所有img标签
strcontent=re.replace(strcontent,"")
set re=Nothing
replaceStr=strcontent
End Function

AJAX的POST方法传递数据

2008-7-15 21:48:41
   AJAX的POST方法传递数据的示例代码，a.asp另存为utf-8格式；
a.asp的代码为：
    ȫ

<%
for i=0 to 1000000
next
response.write request.form("say")&""&request.form("content")
%>

test.asp的代码为：
    ȫ

var oBao;
var obj;
//发送请求
function sxs() {
obj=document.getElementById("return");
if (window.ActiveXObject) {
         oBao=new ActiveXObject("Microsoft.XMLHTTP");
     }
     else if (window.XMLHttpRequest) {
         oBao=new XMLHttpRequest();
     }
var my_url='a.asp';
obj.innerHTML='请等待...';
oBao.onreadystatechange=changecontent;
oBao.open("post",my_url,true);
oBao.setRequestHeader("Content-Type","application/x-www-form-urlencoded");
oBao.send('say='+escape('我爱你')+'&content=anlige');
}
//发送请求
function changecontent(){
if(oBao.readyState==4){
   if(oBao.status==200){
     obj.innerHTML='返回信息:'+oBao.responseText;
     }else{
     obj.innerHTML='返回信息:出现错误,错误代码为:'+oBao.status;
    }
  }
}

ie和firefox兼容(CSS)

2008-7-8 4:19:57
DOCTYPE 影响 CSS 处理
　　2.FF: div 设置 margin-left, margin-right 为 auto 时已经居中, IE 不行
　　3.FF: body 设置 text-align 时, div 需要设置 margin: auto(主要是 margin-left,margin-right) 方可居中
　　4.FF: 设置 padding 后, div 会增加 height 和 width, 但 IE 不会, 故需要用 !important 多设一个 height 和 width
　　5.FF: 支持 !important, IE 则忽略, 可用 !important 为 FF 特别设置样式，值得注意的是，一定要将xxxx !important 这句放置在另一句之上
　　6.div 的垂直居中问题: vertical-align:middle; 将行距增加到和整个DIV一样高 line-height:200px; 然后插入文字，就垂直居中了。缺点是要控制内容不要换行
　　7.cursor: pointer 可以同时在 IE FF 中显示游标手指状， hand 仅 IE 可以
　 8.FF: 链接加边框和背景色，需设置 display: block, 同时设置 float: left 保证不换行。参照 menubar, 给 a 和 menubar 设置高度是为了避免底边显示错位, 若不设 height, 可以在 menubar 中插入一个空格。
　　9.在mozilla firefox和IE中的BOX模型解释不一致导致相差2px解决方法：div{margin:30px!important;margin:28px;}
　　注意这两个margin的顺序一定不能写反，据阿捷的说法!important这个属性IE不能识别，但别的浏览器可以识别。所以在IE下其实解释成这样：div{maring:30px;margin:28px}
　　重复定义的话按照最后一个来执行，所以不可以只写margin:XXpx!important;

　　10.IE5 和IE6的BOX解释不一致
　　IE5下div{width:300px;margin:0 10px 0 10px;}
　　div的宽度会被解释为300px-10px(右填充)-10px(左填充)最终div的宽度为280px，而在IE6和其他浏览器上宽度则是以300px+10px(右填充)+10px(左填充)=320px来计算的。这时我们可以做如下修改div{width:300px!important;width /**/:340px;margin:0 10px 0 10px}
　　关于这个/**/是什么我也不太明白，只知道IE5和firefox都支持但IE6不支持，如果有人理解的话，请告诉我一声，谢了！：）

　　11.ul标签在Mozilla中默认是有padding值的,而在IE中只有margin有值所以先定义ul{margin:0;padding:0;}
　　就能解决大部分问题

　　
注意事项：

　　1、float的div一定要闭合。

　　例如：(其中floatA、floatB的属性已经设置为float:left;)<#div id=\"floatA\" >
<#div id=\"floatB\" >
<#div id=\"NOTfloatC\" >
　　这里的NOTfloatC并不希望继续平移，而是希望往下排。
　　这段代码在IE中毫无问题，问题出在FF。原因是NOTfloatC并非float标签，必须将float标签闭合。
　　在<#div class=\"floatB\">
<#div class=\"NOTfloatC\">
　　之间加上<#div class=\"clear\">
　　这个div一定要注意声明位置，一定要放在最恰当的地方，而且必须与两个具有float属性的div同级，之间不能存在嵌套关系，否则会产生异常。
　　并且将clear这种样式定义为为如下即可：.clear{
clear:both;}
　　此外，为了让高度能自动适应，要在wrapper里面加上overflow:hidden;
　　当包含float的box的时候，高度自动适应在IE下无效，这时候应该触发IE的layout私有属性(万恶的IE啊！)用zoom:1;可以做到，这样就达到了兼容。
　　例如某一个wrapper如下定义：.colwrapper{
overflow:hidden;
zoom:1;
margin:5px auto;}

　　2、margin加倍的问题。

　　设置为float的div在ie下设置的margin会加倍。这是一个ie6都存在的bug。
　　解决方案是在这个div里面加上display:inline;
例如：
<#div id=\"imfloat\">

　　相应的css为
#IamFloat{
float:left;
margin:5px;/*IE下理解为10px*/
display:inline;/*IE下再理解为5px*/}

　　3、关于容器的包涵关系

　　很多时候，尤其是容器内有平行布局，例如两、三个float的div时，宽度很容易出现问题。在IE中，外层的宽度会被内层更宽的div挤破。一定要用Photoshop或者Firework量取像素级的精度。

　　4、关于高度的问题

　　如果是动态地添加内容，高度最好不要定义。浏览器可以自动伸缩，然而如果是静态的内容，高度最好定好。（似乎有时候不会自动往下撑开，不知道具体怎么回事）

　　5、最狠的手段 - !important;

　　如果实在没有办法解决一些细节问题,可以用这个方法.FF对于"!important"会自动优先解析,然而IE则会忽略.如下.tabd1{
background:url(/res/images/up/tab1.gif) no-repeat 0px 0px !important; /*Style for FF*/
background:url(/res/images/up/tab1.gif) no-repeat 1px 0px; /* Style for IE */}
　　值得注意的是，一定要将xxxx !important 这句放置在另一句之上，上面已经提过

IE/Firefox兼容性汇总(JavaScript)

2008-7-8 4:03:51
以下以 IE 代替 Internet Explorer，以 MF 代替 Mozzila Firefox

1. document.form.item 问题
     (1)现有问题：
         现有代码中存在许多 document.formName.item("itemName") 这样的语句，不能在 MF 下运行
     (2)解决方法：
         改用 document.formName.elements["elementName"]
     (3)其它
         参见 2

2. 集合类对象问题
     (1)现有问题：
         现有代码中许多集合类对象取用时使用 ()，IE 能接受，MF 不能。
     (2)解决方法：
         改用 [] 作为下标运算。如：document.forms("formName") 改为 document.forms["formName"]。
         又如：document.getElementsByName("inputName")(1) 改为 document.getElementsByName("inputName")[1]
     (3)其它

3. window.event
     (1)现有问题：
         使用 window.event 无法在 MF 上运行
     (2)解决方法：
         MF 的 event 只能在事件发生的现场使用，此问题暂无法解决。可以这样变通：
         原代码(可在IE中运行)：

             ...

                 function gotoSubmit() {
                     ...
                     alert(window.event);     // use window.event
                     ...
                 }


         新代码(可在IE和MF中运行)：

             ...

                 function gotoSubmit(evt) {
                     evt = evt ? evt : (window.event ? window.event : null);
                     ...
                     alert(evt);              // use evt
                     ...
                 }

         此外，如果新代码中第一行不改，与老代码一样的话(即 gotoSubmit 调用没有给参数)，则仍然只能在IE中运行，但不会出错。所以，这种方案 tpl 部分仍与老代码兼容。

4. HTML 对象的 id 作为对象名的问题
     (1)现有问题
         在 IE 中，HTML 对象的 ID 可以作为 document 的下属对象变量名直接使用。在 MF 中不能。
     (2)解决方法
         用 getElementById("idName") 代替 idName 作为对象变量使用。

5. 用idName字符串取得对象的问题
     (1)现有问题
         在IE中，利用 eval(idName) 可以取得 id 为 idName 的 HTML 对象，在MF 中不能。
     (2)解决方法
         用 getElementById(idName) 代替 eval(idName)。

6. 变量名与某 HTML 对象 id 相同的问题
     (1)现有问题
         在 MF 中，因为对象 id 不作为 HTML 对象的名称，所以可以使用与 HTML 对象 id 相同的变量名，IE 中不能。
     (2)解决方法
         在声明变量时，一律加上 var ，以避免歧义，这样在 IE 中亦可正常运行。
         此外，最好不要取与 HTML 对象 id 相同的变量名，以减少错误。
     (3)其它
         参见问题4

7. event.x 与 event.y 问题
     (1)现有问题
         在IE 中，event 对象有 x, y 属性，MF中没有。
     (2)解决方法
         在MF中，与event.x 等效的是 event.pageX。但event.pageX IE中没有。
         故采用 event.clientX 代替 event.x。在IE 中也有这个变量。
         event.clientX 与 event.pageX 有微妙的差别（当整个页面有滚动条的时候），不过大多数时候是等效的。

         如果要完全一样，可以稍麻烦些：
         mX = event.x ? event.x : event.pageX;
         然后用 mX 代替 event.x
     (3)其它
         event.layerX 在 IE 与 MF 中都有，具体意义有无差别尚未试验。

8. 关于frame
    (1)现有问题
          在 IE中可以用window.testFrame取得该frame，mf中不行
    (2)解决方法
          在frame的使用方面mf和ie的最主要的区别是：
如果在frame标签中书写了以下属性：

那么ie可以通过id或者name访问这个frame对应的window对象
而mf只可以通过name来访问这个frame对应的window对象
例如如果上述frame标签写在最上层的window里面的htm里面，那么可以这样访问
ie： window.top.frameId或者window.top.frameName来访问这个window对象
mf：只能这样window.top.frameName来访问这个window对象

另外，在mf和ie中都可以使用window.top.document.getElementById("frameId")来访问frame标签
并且可以通过window.top.document.getElementById("testFrame").src = 'xx.htm'来切换frame的内容
也都可以通过window.top.frameName.location = 'xx.htm'来切换frame的内容
关于frame和window的描述可以参见bbs的‘window与frame’文章
以及/test/js/test_frame/目录下面的测试
----adun 2004.12.09修改

9. 在mf中，自己定义的属性必须getAttribute()取得
10.在mf中没有   parentElement parement.children   而用
                parentNode parentNode.childNodes
    childNodes的下标的含义在IE和MF中不同，MF使用DOM规范，childNodes中会插入空白文本节点。
   一般可以通过node.getElementsByTagName()来回避这个问题。
    当html中节点缺失时，IE和MF对parentNode的解释不同，例如








    MF中input.parentNode的值为form, 而IE中input.parentNode的值为空节点

   MF中节点没有removeNode方法，必须使用如下方法 node.parentNode.removeChild(node)

11.const 问题
   (1)现有问题:
      在 IE 中不能使用 const 关键字。如 const constVar = 32; 在IE中这是语法错误。
   (2)解决方法:
      不使用 const ，以 var 代替。

12. body 对象
    MF的body在body标签没有被浏览器完全读入之前就存在，而IE则必须在body完全被读入之后才存在

13. url encoding
在js中如果书写url就直接写&不要写&例如var url = 'xx.jsp?objectName=xx&objectEvent=xxx';
frm.action = url那么很有可能url不会被正常显示以至于参数没有正确的传到服务器
一般会服务器报错参数没有找到
当然如果是在tpl中例外，因为tpl中符合xml规范，要求&书写为&
一般MF无法识别js中的&

14. nodeName 和 tagName 问题
   (1)现有问题：
      在MF中，所有节点均有 nodeName 值，但 textNode 没有 tagName 值。在 IE 中，nodeName 的使用好象
      有问题（具体情况没有测试，但我的IE已经死了好几次）。
   (2)解决方法：
      使用 tagName，但应检测其是否为空。

15. 元素属性
    IE下 input.type属性为只读，但是MF下可以修改

16. document.getElementsByName() 和 document.all[name] 的问题
   (1)现有问题：
      在 IE 中，getElementsByName()、document.all[name] 均不能用来取得 div 元素（是否还有其它不能取的元素还不知道）。

1,document.getElementById替代document.all（ie适用）
2,集合[]替代()（ie适用）
3,target替代srcElement;parentNode替代parentElement（parentNode ie适用）
4,node.parentNode.removeChild(node)替代removeNode(this)（ie适用）
5,有空白文本节点
6,无outerHTML属性
7,事件局部变量e替代事件全局变量event
8,e.button键值有别于event.button,只有3个键值而无组合键值
9,无ondrag事件
10,DOMMouseScroll替代onmousewheel;-e.detail替代event.wheelDelta
11,addEventListener替代attachEvent;removeEventListener替代detachEvent
12,e.preventDefault()替代event.returnValue=false;e.stopPropagation()替代event.cancelBubble=true
13,style.top、style.left等严格检查"px"单位（加"px" ie适用）
14,style="-moz-opacity:0.9"替代style="filter:alpha(opacity=90)";无其它filter
15,style.cursor="pointer"替代style.cursor="hand"（ie适用）
16,title替代alt（ie适用）
17,状态栏默认不可修改,需调整ff设置
18,内置绘图功能以canvas或者SVG替代vml
19,代码出错时经常不报错（想来也是ff的无奈之举吧,如果每个ie独有的表达方式换在它里面都报错的话,怕是报都报不过来吧）
20,对缓存的清理非常不好
注:标明“ie适用”者为通用性建议写法,未标明者在ie里不适用。

以下所有IE指IE6.0

验证是否是IE浏览器(来之于google js)

var agt=navigator.userAgent.toLowerCase();
var is_ie=(agt.indexOf("msie")!=-1 && document.all);
正式开始

事件委托方法

IE

document.body.onload = inject; //Function inject()在这之前已被实现

firefox

document.body.onload = inject();

有人说标准是：

document.body.onload=new Function('inject()');

在firefox无法取得event.srcElement

通过其他方式传递对象

if(isIE)
thistable.attachEvent("onmousedown",OnClickChangeTdBackColor);
//thistable.onmousedown=OnClickChangeTdBackColor;
else//deal firefox
{

for(var i=0;i{
var rowObj = thistable.rows[i];
for( var j=0;j{
var cellObj = rowObj.cells[j];
cellObj.setAttribute("onmousedown","OnClickChangeTdBackColor(this)");
}
//alert(rowObj.cells[0].tagName);
}
}
这是来之 http://blog.joycode.com/lostinet/archive/2005/02/27/44999.aspx

在FireFox下编写事件处理函数是很麻烦的事.
因为FireFox并没有 window.event . 如果要得到 event 对象,就必须要声明时间处理函数的第一个参数为event.

所以为了兼容IE与FireFox,一般的事件处理方法为:
btn.onclick=handle_btn_click;
function handle_btn_click(evt)
{
if(evt==null)evt=window.event;//IE
//处理事件.
}
对于简单的程序,这不算麻烦.

但对于一些复杂的程序,某写函数根本就不是直接与事件挂钩的.如果要把event传进该参数,那么所有的方法都要把event传来传去..这简直就是噩梦.

下面介绍一个解决这个麻烦事的方法,与原理.

JScript中，函数的调用是有一个 func.caller 这个属性的.
例如
function A()
{
B();
}
function B()
{
alert(B.caller);
}
如果B被A调用,那么B.caller就是A

另外,函数有一个arguments属性. 这个属性可以遍历函数当前执行的参数:
function myalert()
{
var arr=[];
for(var i=0;i
arr[i]=myalert.arguments[i];
alert(arr.join("-"));
}
alert("hello","world",1,2,3)
就能显示 hello-world-1-2-3
(arguments的个数与调用方有关,而与函数的参数定义没有任何关系)

根据这两个属性,我们可以得到第一个函数的event对象:
btn.onclick=handle_click;
function handle_click()
{
showcontent();
}
function showcontent()
{
var evt=SearchEvent();
if(evt&&evt.shiftKey)//如果是基于事件的调用,并且shift被按下
window.open(global_helpurl);
else
location.href=global_helpurl;
}
function SearchEvent()
{
func=SearchEvent.caller;
while(func!=null)
{
var arg0=func.arguments[0];
if(arg0)
{
if(arg0.constructor==Event) // 如果就是event 对象
return arg0;
}
func=func.caller;
}
return null;
}
这个例子使用了SearchEvent来搜索event对象. 其中 'Event' 是 FireFox 的 event.constructor .
在该例子运行时,
SearchEvent.caller就是showcontent,但是showcontent.arguments[0]是空.所以 func=func.caller 时,func变为handle_click .
handle_click 被 FireFox 调用, 虽然没有定义参数,但是被调用时,第一个参数就是event,所以handle_click.arguments[0]就是event !

针对上面的知识,我们可以结合 prototype.__defineGetter__ 来实现 window.event 在 FireFox 下的实现:

下面给出一个简单的代码.. 有兴趣的可以补充

if(window.addEventListener)
{
FixPrototypeForGecko();
}
function FixPrototypeForGecko()
{
HTMLElement.prototype.__defineGetter__("runtimeStyle",element_prototype_get_runtimeStyle);
window.constructor.prototype.__defineGetter__("event",window_prototype_get_event);
Event.prototype.__defineGetter__("srcElement",event_prototype_get_srcElement);
}
function element_prototype_get_runtimeStyle()
{
//return style instead...
return this.style;
}
function window_prototype_get_event()
{
return SearchEvent();
}
function event_prototype_get_srcElement()
{
return this.target;
}

function SearchEvent()
{
//IE
if(document.all)
return window.event;

func=SearchEvent.caller;
while(func!=null)
{
var arg0=func.arguments[0];
if(arg0)
{
if(arg0.constructor==Event)
return arg0;
}
func=func.caller;
}
return null;
}

firefox与IE(parentElement)的父元素的区别

因为firefox与IE都支持DOM,因此使用obj.parentNode是不错选择.

IE
obj.parentElement
firefox
obj.parentNode

asp.net中UniqueID和clientID的区别

要使用document.getElementById 方法，则使用控件的时候要这样来作

"javascript:OnSelectSubCatalog(\""+subCatalog_drp.ClientID+"\","+catalogIDX+","+catID.ToString()+")";

调用Select元素的区别

移出一个选择项

--------------------------------------------------------------------------------

IE ：sel.options.remove(sel.selectedIndex);
firefox ：

增加选择项：

--------------------------------------------------------------------------------

IE: subCatalog.add(new Option(text,value));

firefox:
var opnObj = document.createElement("OPTION");
//opnObj.id = optionID;
opnObj.value = value;
opnObj.text = text;
subCatalog.appendChild(opnObj);

'操作必须使用一个可更新的查询'解决方法

2008-7-7 23:01:41
当我们用ASP执行修改数据库记录操作时常会遇到以下问题

第一种情况:

错误类型：
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][ODBC Microsoft Access Driver] 操作必须使用一个可更新的查询。

第二种情况:

stream错误,无法写入文件

第三种情况

rs.open sql,conn,1,1  时出现"参数类型不正确"错误

究其原因,是你没有对文件夹的写权限!下面是解决方法

1.win2000中
在WIN2000中文件夹属性有个安全选项卡，右键点选数据库文件所在文件夹的属性选项并选择安全选项卡

然后添加用户“Internet来宾帐号”（IUSR_计算机名）

并为该用户的修改权上打上勾

2.winxp中
  a.若右键查看文件夹属性有"安全"选项卡，解决方法：选中"安全"选项卡--->点"添加"--->添加用户everyone--->确定，返回"安全"选项卡--->给刚才添加的everyone用户"修改"权限,或者直接把完全控制选中；

  b.若右键查看文件夹属性没有"安全"选项卡，解决方法：我的电脑--->工具（菜单栏）--->文件夹选项--->查看--->高级设置里面的"使用简单文件共享(推荐)"勾去--->确定--->返回步骤a操作

  c.若还没有发现"安全"选项卡，说明你的分区格式为fat，fat格式不支持权限，你可以设置下文件夹共享看看，fat好像很少出项上面提到的问题.

在使用stream以及filesystemobject对象的时候要注意权限问题，反正要写或读硬盘文件的代码都要注意下~~

fso遍历文件夹内所有文件和子文件夹

2008-7-6 22:02:01
   fso遍历文件夹内所有文件和子文件夹，递归调用，并计算所有文件总大小（这里当然可以直接用folder的size方法直接或得），新手可以看看~
    ȫ

<%
response.charset="gb2312"
response.buffer=true
dim fso,fod,fil,o_c,f_c,siz,i
o_c=0:f_c=0:siz=0
set fso=server.createobject("scripting.filesystemobject")
pathStr=request.querystring("path")
if trim(pathStr)="" then
response.write "未指定path参数!"
response.end
end if
temp_path=server.mappath(pathStr) '要遍历的文件夹路径
if not fso.folderexists(temp_path) then
response.write temp_path&" 不存在!"
response.end
end if
response.write temp_path&"(1)"
call getcount(temp_path,1)
response.write temp_path&",共有文件夹 "&o_c&" 个,文件 "&f_c&" 个,总大小为"&formatnumber(siz/1024/1024,2)&"MB!"

'函数名getcount
'作用：遍历文件夹内的所有文件和子文件
'参数:path--要遍历的文件夹，i--文件/文件夹级数
function getcount(path,i)
t_path=path
set fod=fso.getfolder(t_path)
o_c=o_c+fod.subfolders.count
f_c=f_c+fod.files.count
'遍历文件夹中的文件
if fod.files.count>0 then
   for each fi in fod.files
       for j=1 to i
           response.write "- - "
       next
       response.write t_path&"\"&fi.name&"("&i+1&")"&vbcrlf
       siz=siz+fi.size
   next
end if
'遍历文件夹中的子文件夹，并回归调用
if fod.subfolders.count>0 then
   for each ff in fod.subfolders
       for j=1 to i
           response.write "- - "
       next
       response.write t_path&"\"&ff.name&"("&i+1&")"&vbcrlf
       response.flush '输出
       c_fod=t_path&"\"&ff.name
       call getcount(c_fod,i+1)
   next
end if
end function
%>

我如何爱你

2008-7-6 0:46:24
我能抽象出整个世界．．．
但是我不能抽象出你．．．
因为你在我心中是那么的具体．．．
所以我的世界并不完整．．．
我可以重载甚至覆盖这个世界里的任何一种方法．．．
但是我却不能重载对你的思念．．．
也许命中注定了你在我的世界里永远的烙上了静态的属性．．．
而我不慎调用了爱你这个方法．．．
当我义无返顾的把自己作为参数传进这个方法时．．．
我才发现爱上你是一个死循环．．．
它不停的返回对你的思念压入我心里的堆栈．．．
在这无尽的黑夜中．．．
我的内存里已经再也装不下别人．．．
我不停的向系统申请空间．．．
但却捕获一个异常－－－我爱的人不爱我．．．
为了解决这个异常．．．
我愿意虚拟出最后一点内存．．．
把所有我能实现的方法地址压入堆栈．．．
并且在栈尾压入最后一个方法－－－将字符串＂我爱你，你爱我吗？＂传递给你．．．
如果返回值为真－－我将用尽一生去爱你．．．
否则－－我将释放掉所有系统资源．．

自己博客终于完工了

2008-7-5 1:47:31
自己的博客终于完工了~~~
日志管理系统...
文件上传下载管理系统...
访问统计...
博客数据管理...
留言系统....
下步改着手我的知寻网了~~
呵呵~有点累但挺充实的，因为自己喜欢这个工作~
说实话，自己还从来没接过项目，一个是学习的原因，另一个就是有点不自信
给自己加油。。。

----------------------------^_^大家一起学习^_^------------------------------
艾恩ASP学习博客 http://dev.mo.cn
Email:zhanghuiguoanlige@126.com   QQ:417833272
免费提供各种ASP学习资源，组件、源代码、学习手册、技术文章...
订阅我的BLOG文章
 十个DIV+CSS网页布局模版
 An-Upload无组件上传类8.7.28
动网论坛(DvBBS)验证码
XXWBAITDACGKTC

AspJpeg生成水印、随机码、缩略图

2008-7-1 23:48:05
1、AspJpeg是一款功能强大的基于Microsoft IIS环境的图片处理组件，网络上对其进行详细和深入介绍的中文文章并不多，即使有一般也只是牵涉到图片缩略图和图片水印，这与其为英文版本有着密切的关系。
AspJpeg可以使用很少的代码在您的ASP/ASP.Net应用程序上动态的创建高质量的缩略图象，支持的图象格式有：JPEG, GIF, BMP, TIFF, PNG。

AspJpeg主要可以做到：生成缩略图片、生成水印图片、图片合并、图片切割、数据库支持、安全码技术

2、AspJpeg功能摘要
支持JPEG, GIF, BMP, TIFF 和 PNG 格式图片. 输出格式始终为 JPEG
源图片可以来源于磁盘、内存、或者记录集（数据库）
缩略图片可以保存到磁盘、内存、或者HTTP流
支持三种更改大小方式: nearest-neighbor, bilinear, and bicubic.
可以在图片之上添加图片或者文字.
支持画中画
支持复制，反转，旋转，锐化，灰度调节.
可以调节压缩比率，以得到最佳输出效果和大小.
从Jpeg图片中抽取EXIF 和 IPTC数据.
CMYK-RGB转换
Read/write access to individual pixels of an image. （从图象中对任意象素进行读/写存取。）

3、AspJpeg系统需求
Windows 95/98/NT/2000/XP/2003, and
IIS 4.0+ and ASP/ASP.NET, or
Visual Basic 5.0+, or
Visual C++ 5.0+, or
any development environment supporting COM.

4、AspJpeg安装
全新安装：
在AspJpeg安装过程中输入序列号即可，如果安装位置磁盘格式为NTFS，则可能出现访问权限问题，需手工设置安装目录对Everyone有访问权限。

更新安装：
如果之前有装过其它版本的AspJpeg组件，则需要先卸载原来的组件，再进行新版本的安装。
先停止IIS
Net Stop iisadmin /y
卸载旧版组件
regsvr32 /u Path/aspjpeg.dl（Path为安装路径）
重启IIS
Net Start w3svc

然后再进行全新安装或复制AspJpeg.dll文件到安装目录进行手工安装：
regsvr32 Path/aspjpeg.dll（Path为安装路径）

如果在正常安装过程中没有输入序列号或手工安装则必须在注册表中加入以下项，为方便起见您可以直接将以下代码保存为.reg文档并导入注册表：
Windows Registry Editor Version 5.00

[HKEY_LOCAL_MACHINE\SOFTWARE\Persits Software\AspUpload3\RegKey]
@="21764-40765-60456"
5、如何创建一个AspJpeg实例？
Set Jpeg = Server.CreateObject("Persits.Jpeg")

6、如何查看到期时间（是否注册成功）？
Set Jpeg = Server.CreateObject("Persits.Jpeg")
Response.Write Jpeg.Expires
注册成功则到期时间为：9999-9-9
否则为：安装日期加1个月期限

7、如何用AspJpeg组件生成图片缩略图？
    ȫ

<%
Set Jpeg = Server.CreateObject("Persits.Jpeg") '创建实例
Path = Server.MapPath("../images/apple.jpg")        '处理图片路径
Jpeg.Open Path             '打开图片
'调整宽度和高度为原来的50%
Jpeg.Width = Jpeg.OriginalWidth / 2
Jpeg.Height = Jpeg.OriginalHeight / 2
Jpeg.Save Server.MapPath("apple_small.jpg")        '保存图片到磁盘
Jpeg.Close:Set Jpeg = Nothing
%>

8、如何用AspJpeg组件生成图片水印？
    ȫ

<%
Set Jpeg = Server.CreateObject("Persits.Jpeg")
Jpeg.Open Server.MapPath("images/dodge_viper.jpg")
'开始写文字
Jpeg.Canvas.Font.Color = &000000 '' red 颜色
Jpeg.Canvas.Font.Family = "Courier New" '字体
Jpeg.Canvas.Font.Bold = True '是否加粗
Jpeg.Canvas.Print 10, 10, "Copyright (c) XYZ, Inc."
'打印坐标x 打印坐标y 需要打印的字符
'以下是对图片进行边框处理
Jpeg.Canvas.Pen.Color = &H000000 '' black 颜色
Jpeg.Canvas.Pen.Width = 2 '画笔宽度
Jpeg.Canvas.Brush.Solid = False '是否加粗处理
Jpeg.Canvas.Bar 1, 1, Jpeg.Width, Jpeg.Height
'起始X坐标起始Y坐标输入长度输入高度
Jpeg.Save Server.MapPath("images/dodge_viper_framed.jpg") '保存
%>

9、如何用AspJpeg组件进行图片合并？
AspJpeg 1.3+ enables you to place images on top of each other via the method DrawImage. To use this method, you must create two instances of the AspJpeg objects and populate both of them with images via calls to Open (or OpenBinary). When calling Canvas.DrawImage, the 2nd instance of AspJpeg is passed as an argument to this method, along with the X and Y offsets (in pixels):
使用该方法，您必需创建两个AspJpeg实例对象
    ȫ

<%
Set Jpeg1 = Server.CreateObject("Persits.Jpeg")
Set Jpeg2 = Server.CreateObject("Persits.Jpeg")
Jpeg1.Open Server.MapPath("t.jpg")
Jpeg2.Open Server.MapPath("t1.jpg")
Jpeg1.DrawImage 10, 10, Jpeg2 ' optional arguments omitted
jpeg1.save Server.mappath("tt.jpg")
%>

10、如何用AspJpeg组件进行图片切割？
AspJpeg 1.1+ is also capable of cutting off edges from, or cropping, the resultant thumbnails via the method Crop(x0, y0, x1, y1). The size of the cropped image is specified by the coordinates of the upper-left and lower-right corners within the resultant thumbnail, not the original large image.
    ȫ

<%
Set Jpeg = Server.CreateObject("Persits.Jpeg")
Jpeg.Open Server.MapPath("t.jpg")
jpeg.Crop 20, 30, jpeg.Width - 20, jpeg.Height - 10
jpeg.save Server.mappath("tt.jpg")
Response.write("")
%>

11、如何用AspJpeg组件创建安全码？
创建安全码原理上和创建水印差不多。
    ȫ

<%
function make_randomize(max_len,w_n) 'max_len 生成长度，w_n：0 可能包含字母，1：只为数字
randomize
for intcounter=1 to max_len
       whatnext=int((1-0+1)*rnd+w_n)
       if whatnext=0 then
         upper=122
         lower=97
       else
         upper=57
         lower=48
       end if
       strnewpass=strnewpass & chr(int((upper-lower+1)*rnd)+lower)
next
make_randomize=strnewpass
end function

'生成安全码的图片。
random_num=make_randomize(4,1) ''生成4位数字的安全码
session("random_num")=random_num '为么调用session，没有session的安全码是完全没有意义的。呵呵 .

Set Jpeg = Server.CreateObject("Persits.Jpeg") '调用组件
Jpeg.Open Server.MapPath("t.jpg") '打开准备的图片
Jpeg.Canvas.Font.Color = &HFFFFFF
Jpeg.Canvas.Font.Family = "Arial Black"
Jpeg.Canvas.Font.Bold = false
Jpeg.Canvas.PrintText 0, -2, random_num
jpeg.save Server.MapPath("tt.jpg") '保存
%>

12、如何让AspJpeg组件支援数据库？
图片存进数据库只能以二进制数据保存，这里即利用AspJpeg的Binary方法，下面以两个AspJpeg用户手册上的代码为例，具体请参考AspJpeg用户手册：
Opening Images from Memory
    ȫ

<% ' Using ADO, open database with an image blob
strConnect = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("../db/aspjpeg.mdb")
Set rs = Server.CreateObject("adodb.recordset")
SQL = "select image_blob from images2 where id = " & Request("id")
rs.Open SQL, strConnect, 1, 3
Set Jpeg = Server.CreateObject("Persits.Jpeg")
' Open image directly from recordset
Jpeg.OpenBinary rs("image_blob").Value
' Resize
jpeg.Width = Request("Width")
' Set new height, preserve original aspect ratio
jpeg.Height = jpeg.OriginalHeight * jpeg.Width / jpeg.OriginalWidth
Jpeg.SendBinary
rs.Close
%>
Output to Memory
<%
...
Set rs = Server.CreateObject("adodb.recordset")
rs.Open "images", strConnect, 1, 3
rs.AddNew
rs("image_blob").Value = Jpeg.Binary
rs.Update
...
%>

Persits.Jpeg(ASPJpeg)组件的使用说明

2008-7-1 23:45:29
一.缩略图
    ȫ

<%
Dim tmStart, tmEnd, demo
tmStart = timer()
%>

JSP家测试Persits.Jpeg组件

<%
Dim Jpeg,Path
Set Jpeg = Server.CreateObject("Persits.Jpeg")
Path = Server.MapPath("images/sogou.gif")
Jpeg.Open Path

' 设置缩略图大小（这里比例设定为50%）
Jpeg.Width = Jpeg.OriginalWidth / 2
Jpeg.Height = Jpeg.OriginalHeight / 2

' 保存缩略图到指定文件夹下
Jpeg.Save Server.MapPath("images/sogou_small.jpg")

Set Jpeg = Nothing
%>

缩略前的图片

缩略后的图片
<%
tmEnd = timer()
%>
页面执行时间： <%=CStr(FormatNumber((tmEnd - tmStart),3)*1000)%>  毫秒

二、图片水印
    ȫ

<%
Dim tmStart, tmEnd, demo
tmStart = timer()
%>

图片水印

<%
Dim Jpeg,Path
Set Jpeg = Server.CreateObject("Persits.Jpeg")
Path = Server.MapPath("images/google.jpg")
Jpeg.Open Path

' 添加文字水印
Jpeg.Canvas.Font.Color = &HFF0000 '颜色
Jpeg.Canvas.Font.Family = "arial" '字体
Jpeg.Canvas.Font.Bold = True '是否加粗
Jpeg.Canvas.Print 10, 10, "Copyright ? JspJia.Com" '打印坐标x,打印坐标y,需要打印的字符

'图片片框处理
Jpeg.Canvas.Pen.Color = &H000000 '颜色
Jpeg.Canvas.Pen.Width = 2 '画笔宽度
Jpeg.Canvas.Brush.Solid = False '是否加粗处理
Jpeg.Canvas.Bar 1, 1, Jpeg.Width, Jpeg.Height '起始X坐标起始Y坐标输入长度输入高度

Jpeg.Save Server.MapPath("images/googlewater.jpg")

Set Jpeg = Nothing
%>

水印前

水印后

<%
tmEnd = timer()
%>
页面执行时间： <%=CStr(FormatNumber((tmEnd - tmStart),3)*1000)%>  毫

秒

三、安全码

安全玛的道理和加水印差不多
    ȫ

<%
生成安全码的函数
function make_randomize(max_len,w_n) max_len 生成长度，w_n：0 可能包含字母，1：只为数字
randomize
for intcounter=1 to max_len
whatnext=int((1-0+1)*rnd+w_n)
if whatnext=0 then
upper=122
lower=97
else
upper=57
lower=48
end if
strnewpass=strnewpass & chr(int((upper-lower+1)*rnd)+lower)
next
make_randomize=strnewpass
end function
%>
生成安全码的图片。当然你要预先准备一张背景图哦

<%random_num=make_randomize(4,1) 生成4位数字的安全码
session("random_num")=random_num 为什么调用session，没有session的安全码是完全没有意义的。

Set Jpeg = Server.CreateObject("Persits.Jpeg") 调用组件
Jpeg.Open Server.MapPath("infos/random_pic/random_index.gif") 打开准备的图片
Jpeg.Canvas.Font.Color = &H006699

Jpeg.Canvas.Font.Family = "Arial Black"
Jpeg.Canvas.Font.Bold = false
Jpeg.Canvas.PrintText 0, -2, random_num
jpeg.save Server.MapPath("infos/random_pic/random_index.bmp") 保存
%>

四、图片切割

一直以来，对aspjpeg不了解的人以为是无法用它来进行切割的。
其实有这样的一个方法的
crop x1,y1,x2,y2
切割长方型左上角x坐标，y坐标右下角x坐标 y坐标
下面我就做一个演示哈
Set Jpeg = Server.CreateObject("Persits.Jpeg")
jpeg.open server.MapPath("/pic/1.gif")
jpeg.width=70
Jpeg.Height = Jpeg.OriginalHeight*70 / jpeg.Originawidth
jpeg.crop 0,0,70,52 开始切割其实是把超过52象素的下部分去掉
jpeg.save server.MapPath("/temp_pic/small_1.gif") 保存

五、图片合并

我们这里是要把logo图片加到dodge_viper.jpg图片上去
其实，图片合并的方法也可以用来动态打水印哦
    ȫ

Set Photo = Server.CreateObject("Persits.Jpeg")
PhotoPath = Server.MapPath("images") & "\dodge_viper.jpg"
Photo.Open PhotoPath
Set Logo = Server.CreateObject("Persits.Jpeg")
LogoPath = Server.MapPath("images") & "\clock.jpg"
Logo.Open LogoPath

Logo.Width = 70
Logo.Height = Logo.Width * Logo.OriginalHeight / Logo.OriginalWidth

Photo.DrawImage 0, 0, Logo
Photo.SendBinary

这里用了sendBinary的输出方法。当然，你也可以先保存更改后的dodge_viper.jpg，再输入也可以。我个人不大喜欢用sendBinary方法，在网速慢的时候容易出错。在速度方面也不怎样。
七、更多方法介绍

Canvas.Line(Left, Top, Right, Bottom)
画一条直线
Canvas.Ellipse(Left, Top, Right, Bottom)
画出一个椭圆
Canvas.Circle(X, Y, Radius)
画出一个圆
Canvas.Bar(Left, Top, Right, Bottom)
画出一个长方形，上面有代码介绍了
Canvas.Font.ShadowColor
文字阴影颜色
Canvas.Font.ShadowXOffset As Long
阴影X坐标设定
Canvas.Font.ShadowYOffset As Long
Y坐标设定
Canvas.Font.BkMode As String
文字背景

MD5加密(VBScript代码)

2008-6-29 0:57:15
将此代码包含进需要加密的asp文件，在需要的地方调用 MD5(你要加密的字串)
    ȫ

<%
Private Const BITS_TO_A_BYTE = 8
Private Const BYTES_TO_A_WORD = 4
Private Const BITS_TO_A_WORD = 32

Private m_lOnBits(30)
Private m_l2Power(30)

Public Function MD5(sMessage)
    m_lOnBits(0) = CLng(1)
    m_lOnBits(1) = CLng(3)
    m_lOnBits(2) = CLng(7)
    m_lOnBits(3) = CLng(15)
    m_lOnBits(4) = CLng(31)
    m_lOnBits(5) = CLng(63)
    m_lOnBits(6) = CLng(127)
    m_lOnBits(7) = CLng(255)
    m_lOnBits(8) = CLng(511)
    m_lOnBits(9) = CLng(1023)
    m_lOnBits(10) = CLng(2047)
    m_lOnBits(11) = CLng(4095)
    m_lOnBits(12) = CLng(8191)
    m_lOnBits(13) = CLng(16383)
    m_lOnBits(14) = CLng(32767)
    m_lOnBits(15) = CLng(65535)
    m_lOnBits(16) = CLng(131071)
    m_lOnBits(17) = CLng(262143)
    m_lOnBits(18) = CLng(524287)
    m_lOnBits(19) = CLng(1048575)
    m_lOnBits(20) = CLng(2097151)
    m_lOnBits(21) = CLng(4194303)
    m_lOnBits(22) = CLng(8388607)
    m_lOnBits(23) = CLng(16777215)
    m_lOnBits(24) = CLng(33554431)
    m_lOnBits(25) = CLng(67108863)
    m_lOnBits(26) = CLng(134217727)
    m_lOnBits(27) = CLng(268435455)
    m_lOnBits(28) = CLng(536870911)
    m_lOnBits(29) = CLng(1073741823)
    m_lOnBits(30) = CLng(2147483647)

    m_l2Power(0) = CLng(1)
    m_l2Power(1) = CLng(2)
    m_l2Power(2) = CLng(4)
    m_l2Power(3) = CLng(8)
    m_l2Power(4) = CLng(16)
    m_l2Power(5) = CLng(32)
    m_l2Power(6) = CLng(64)
    m_l2Power(7) = CLng(128)
    m_l2Power(8) = CLng(256)
    m_l2Power(9) = CLng(512)
    m_l2Power(10) = CLng(1024)
    m_l2Power(11) = CLng(2048)
    m_l2Power(12) = CLng(4096)
    m_l2Power(13) = CLng(8192)
    m_l2Power(14) = CLng(16384)
    m_l2Power(15) = CLng(32768)
    m_l2Power(16) = CLng(65536)
    m_l2Power(17) = CLng(131072)
    m_l2Power(18) = CLng(262144)
    m_l2Power(19) = CLng(524288)
    m_l2Power(20) = CLng(1048576)
    m_l2Power(21) = CLng(2097152)
    m_l2Power(22) = CLng(4194304)
    m_l2Power(23) = CLng(8388608)
    m_l2Power(24) = CLng(16777216)
    m_l2Power(25) = CLng(33554432)
    m_l2Power(26) = CLng(67108864)
    m_l2Power(27) = CLng(134217728)
    m_l2Power(28) = CLng(268435456)
    m_l2Power(29) = CLng(536870912)
    m_l2Power(30) = CLng(1073741824)

    Dim x
    Dim k
    Dim AA
    Dim BB
    Dim CC
    Dim DD
    Dim a
    Dim b
    Dim c
    Dim d

    Const S11 = 7
    Const S12 = 12
    Const S13 = 17
    Const S14 = 22
    Const S21 = 5
    Const S22 = 9
    Const S23 = 14
    Const S24 = 20
    Const S31 = 4
    Const S32 = 11
    Const S33 = 16
    Const S34 = 23
    Const S41 = 6
    Const S42 = 10
    Const S43 = 15
    Const S44 = 21

    x = ConvertToWordArray(sMessage)

    a = &H67452301
    b = &HEFCDAB89
    c = &H98BADCFE
    d = &H10325476

    For k = 0 To UBound(x) Step 16
        AA = a
        BB = b
        CC = c
        DD = d

        md5_FF a, b, c, d, x(k + 0), S11, &HD76AA478
        md5_FF d, a, b, c, x(k + 1), S12, &HE8C7B756
        md5_FF c, d, a, b, x(k + 2), S13, &H242070DB
        md5_FF b, c, d, a, x(k + 3), S14, &HC1BDCEEE
        md5_FF a, b, c, d, x(k + 4), S11, &HF57C0FAF
        md5_FF d, a, b, c, x(k + 5), S12, &H4787C62A
        md5_FF c, d, a, b, x(k + 6), S13, &HA8304613
        md5_FF b, c, d, a, x(k + 7), S14, &HFD469501
        md5_FF a, b, c, d, x(k + 8), S11, &H698098D8
        md5_FF d, a, b, c, x(k + 9), S12, &H8B44F7AF
        md5_FF c, d, a, b, x(k + 10), S13, &HFFFF5BB1
        md5_FF b, c, d, a, x(k + 11), S14, &H895CD7BE
        md5_FF a, b, c, d, x(k + 12), S11, &H6B901122
        md5_FF d, a, b, c, x(k + 13), S12, &HFD987193
        md5_FF c, d, a, b, x(k + 14), S13, &HA679438E
        md5_FF b, c, d, a, x(k + 15), S14, &H49B40821

        md5_GG a, b, c, d, x(k + 1), S21, &HF61E2562
        md5_GG d, a, b, c, x(k + 6), S22, &HC040B340
        md5_GG c, d, a, b, x(k + 11), S23, &H265E5A51
        md5_GG b, c, d, a, x(k + 0), S24, &HE9B6C7AA
        md5_GG a, b, c, d, x(k + 5), S21, &HD62F105D
        md5_GG d, a, b, c, x(k + 10), S22, &H2441453
        md5_GG c, d, a, b, x(k + 15), S23, &HD8A1E681
        md5_GG b, c, d, a, x(k + 4), S24, &HE7D3FBC8
        md5_GG a, b, c, d, x(k + 9), S21, &H21E1CDE6
        md5_GG d, a, b, c, x(k + 14), S22, &HC33707D6
        md5_GG c, d, a, b, x(k + 3), S23, &HF4D50D87
        md5_GG b, c, d, a, x(k + 8), S24, &H455A14ED
        md5_GG a, b, c, d, x(k + 13), S21, &HA9E3E905
        md5_GG d, a, b, c, x(k + 2), S22, &HFCEFA3F8
        md5_GG c, d, a, b, x(k + 7), S23, &H676F02D9
        md5_GG b, c, d, a, x(k + 12), S24, &H8D2A4C8A

        md5_HH a, b, c, d, x(k + 5), S31, &HFFFA3942
        md5_HH d, a, b, c, x(k + 8), S32, &H8771F681
        md5_HH c, d, a, b, x(k + 11), S33, &H6D9D6122
        md5_HH b, c, d, a, x(k + 14), S34, &HFDE5380C
        md5_HH a, b, c, d, x(k + 1), S31, &HA4BEEA44
        md5_HH d, a, b, c, x(k + 4), S32, &H4BDECFA9
        md5_HH c, d, a, b, x(k + 7), S33, &HF6BB4B60
        md5_HH b, c, d, a, x(k + 10), S34, &HBEBFBC70
        md5_HH a, b, c, d, x(k + 13), S31, &H289B7EC6
        md5_HH d, a, b, c, x(k + 0), S32, &HEAA127FA
        md5_HH c, d, a, b, x(k + 3), S33, &HD4EF3085
        md5_HH b, c, d, a, x(k + 6), S34, &H4881D05
        md5_HH a, b, c, d, x(k + 9), S31, &HD9D4D039
        md5_HH d, a, b, c, x(k + 12), S32, &HE6DB99E5
        md5_HH c, d, a, b, x(k + 15), S33, &H1FA27CF8
        md5_HH b, c, d, a, x(k + 2), S34, &HC4AC5665

        md5_II a, b, c, d, x(k + 0), S41, &HF4292244
        md5_II d, a, b, c, x(k + 7), S42, &H432AFF97
        md5_II c, d, a, b, x(k + 14), S43, &HAB9423A7
        md5_II b, c, d, a, x(k + 5), S44, &HFC93A039
        md5_II a, b, c, d, x(k + 12), S41, &H655B59C3
        md5_II d, a, b, c, x(k + 3), S42, &H8F0CCC92
        md5_II c, d, a, b, x(k + 10), S43, &HFFEFF47D
        md5_II b, c, d, a, x(k + 1), S44, &H85845DD1
        md5_II a, b, c, d, x(k + 8), S41, &H6FA87E4F
        md5_II d, a, b, c, x(k + 15), S42, &HFE2CE6E0
        md5_II c, d, a, b, x(k + 6), S43, &HA3014314
        md5_II b, c, d, a, x(k + 13), S44, &H4E0811A1
        md5_II a, b, c, d, x(k + 4), S41, &HF7537E82
        md5_II d, a, b, c, x(k + 11), S42, &HBD3AF235
        md5_II c, d, a, b, x(k + 2), S43, &H2AD7D2BB
        md5_II b, c, d, a, x(k + 9), S44, &HEB86D391

        a = AddUnsigned(a, AA)
        b = AddUnsigned(b, BB)
        c = AddUnsigned(c, CC)
        d = AddUnsigned(d, DD)
    Next

    MD5 = LCase(WordToHex(c) & WordToHex(a) & WordToHex(b) & WordToHex(c) & WordToHex(d))
End Function

Private Function LShift(lValue, iShiftBits)
    If iShiftBits = 0 Then
        LShift = lValue
        Exit Function
    ElseIf iShiftBits = 31 Then
        If lValue And 1 Then
            LShift = &H80000000
        Else
            LShift = 0
        End If
        Exit Function
    ElseIf iShiftBits < 0 Or iShiftBits > 31 Then
        Err.Raise 6
    End If

    If (lValue And m_l2Power(31 - iShiftBits)) Then
        LShift = ((lValue And m_lOnBits(31 - (iShiftBits + 1))) * m_l2Power(iShiftBits)) Or &H80000000
    Else
        LShift = ((lValue And m_lOnBits(31 - iShiftBits)) * m_l2Power(iShiftBits))
    End If
End Function

Private Function RShift(lValue, iShiftBits)
    If iShiftBits = 0 Then
        RShift = lValue
        Exit Function
    ElseIf iShiftBits = 31 Then
        If lValue And &H80000000 Then
            RShift = 1
        Else
            RShift = 0
        End If
        Exit Function
    ElseIf iShiftBits < 0 Or iShiftBits > 31 Then
        Err.Raise 6
    End If

    RShift = (lValue And &H7FFFFFFE) \ m_l2Power(iShiftBits)

    If (lValue And &H80000000) Then
        RShift = (RShift Or (&H40000000 \ m_l2Power(iShiftBits - 1)))
    End If
End Function

Private Function RotateLeft(lValue, iShiftBits)
    RotateLeft = LShift(lValue, iShiftBits) Or RShift(lValue, (32 - iShiftBits))
End Function

Private Function AddUnsigned(lX, lY)
    Dim lX4
    Dim lY4
    Dim lX8
    Dim lY8
    Dim lResult

    lX8 = lX And &H80000000
    lY8 = lY And &H80000000
    lX4 = lX And &H40000000
    lY4 = lY And &H40000000

    lResult = (lX And &H3FFFFFFF) + (lY And &H3FFFFFFF)

    If lX4 And lY4 Then
        lResult = lResult Xor &H80000000 Xor lX8 Xor lY8
    ElseIf lX4 Or lY4 Then
        If lResult And &H40000000 Then
            lResult = lResult Xor &HC0000000 Xor lX8 Xor lY8
        Else
            lResult = lResult Xor &H40000000 Xor lX8 Xor lY8
        End If
    Else
        lResult = lResult Xor lX8 Xor lY8
    End If

    AddUnsigned = lResult
End Function

Private Function md5_F(x, y, z)
    md5_F = (x And y) Or ((Not x) And z)
End Function

Private Function md5_G(x, y, z)
    md5_G = (x And z) Or (y And (Not z))
End Function

Private Function md5_H(x, y, z)
    md5_H = (x Xor y Xor z)
End Function

Private Function md5_I(x, y, z)
    md5_I = (y Xor (x Or (Not z)))
End Function

Private Sub md5_FF(a, b, c, d, x, s, ac)
    a = AddUnsigned(a, AddUnsigned(AddUnsigned(md5_F(b, c, d), x), ac))
    a = RotateLeft(a, s)
    a = AddUnsigned(a, b)
End Sub

Private Sub md5_GG(a, b, c, d, x, s, ac)
    a = AddUnsigned(a, AddUnsigned(AddUnsigned(md5_G(b, c, d), x), ac))
    a = RotateLeft(a, s)
    a = AddUnsigned(a, b)
End Sub

Private Sub md5_HH(a, b, c, d, x, s, ac)
    a = AddUnsigned(a, AddUnsigned(AddUnsigned(md5_H(b, c, d), x), ac))
    a = RotateLeft(a, s)
    a = AddUnsigned(a, b)
End Sub

Private Sub md5_II(a, b, c, d, x, s, ac)
    a = AddUnsigned(a, AddUnsigned(AddUnsigned(md5_I(b, c, d), x), ac))
    a = RotateLeft(a, s)
    a = AddUnsigned(a, b)
End Sub

Private Function ConvertToWordArray(sMessage)
    Dim lMessageLength
    Dim lNumberOfWords
    Dim lWordArray()
    Dim lBytePosition
    Dim lByteCount
    Dim lWordCount

    Const MODULUS_BITS = 512
    Const CONGRUENT_BITS = 448

    lMessageLength = Len(sMessage)

    lNumberOfWords = (((lMessageLength + ((MODULUS_BITS - CONGRUENT_BITS) \ BITS_TO_A_BYTE)) \ (MODULUS_BITS \ BITS_TO_A_BYTE)) + 1) * (MODULUS_BITS \ BITS_TO_A_WORD)
    ReDim lWordArray(lNumberOfWords - 1)

    lBytePosition = 0
    lByteCount = 0
    Do Until lByteCount >= lMessageLength
        lWordCount = lByteCount \ BYTES_TO_A_WORD
        lBytePosition = (lByteCount Mod BYTES_TO_A_WORD) * BITS_TO_A_BYTE
        lWordArray(lWordCount) = lWordArray(lWordCount) Or LShift(Asc(Mid(sMessage, lByteCount + 1, 1)), lBytePosition)
        lByteCount = lByteCount + 1
    Loop

    lWordCount = lByteCount \ BYTES_TO_A_WORD
    lBytePosition = (lByteCount Mod BYTES_TO_A_WORD) * BITS_TO_A_BYTE

    lWordArray(lWordCount) = lWordArray(lWordCount) Or LShift(&H80, lBytePosition)

    lWordArray(lNumberOfWords - 2) = LShift(lMessageLength, 3)
    lWordArray(lNumberOfWords - 1) = RShift(lMessageLength, 29)

    ConvertToWordArray = lWordArray
End Function

Private Function WordToHex(lValue)
    Dim lByte
    Dim lCount

    For lCount = 0 To 3
        lByte = RShift(lValue, lCount * BITS_TO_A_BYTE) And m_lOnBits(BITS_TO_A_BYTE - 1)
        WordToHex = WordToHex & Right("0" & Hex(lByte), 2)
    Next
End Function
%>

DIV提示信息框(置于窗口最上面)

2008-6-27 12:33:49

    ȫ

提示信息框

a{ color:#000; font-size:12px;text-decoration:none}
a:hover{ color:#900; text-decoration:underline}
body{background:;filter:progid:DXImageTransform.Microsoft.Gradient(gradientType=0,startColorStr=#ffffff,endColorStr=#003366); overflow:hidden}
#massage_box{ position:absolute;  left:expression((body.clientWidth-350)/2); top:expression((body.clientHeight-200)/2); width:350px; height:200px;filter:dropshadow(color=#666666,offx=3,offy=3,positive=2); z-index:2; visibility:hidden}
#mask{ position:absolute; top:0; left:0; width:expression(body.scrollWidth); height:expression(body.scrollHeight); background:#666; filter:ALPHA(opacity=60); z-index:1; visibility:hidden}
.massage{border:#036 solid; border-width:1 1 3 1; width:95%; height:95%; background:#fff; color:#036; font-size:12px; line-height:150%}
.header{background:#036; height:10%; font-family:Verdana, Arial, Helvetica, sans-serif; font-size:12px; padding:3 5 0 5; color:#fff}

var Obj=''
document.onmouseup=MUp
document.onmousemove=MMove
function MDown(Object){
Obj=Object.id
document.all(Obj).setCapture()
pX=event.x-document.all(Obj).style.pixelLeft;
pY=event.y-document.all(Obj).style.pixelTop;
}
function MMove(){
if(Obj!=''){
    document.all(Obj).style.left=event.x-pX;
    document.all(Obj).style.top=event.y-pY;
    }
}
function MUp(){
if(Obj!=''){
    document.all(Obj).releaseCapture();
    Obj='';
    }
}

本站提示信息

×

本人申明此博客所有文章（包括文章插图）均为原创，如需引用或转载请注明出处。
欢迎大家对博文中观点留言评述，谢绝无聊人士无素质无观点的灌水漫骂。
本站已设背景音乐，听音乐盒中收集的音乐时请先到页面底部关闭背景音乐。

显示提示信息

bottom here

开发者版本：你属于哪个版本的web程序员？

2008-6-27 6:39:15
国外开发者博客中有一篇有趣的文章，将程序员按水平像软件版本号那样划分为不同的版本。相对于在招聘时分为初级，中级，高级程序员，直接表明需要某种语言N版本的程序员或许更方便直接。根据作者的观点，可将WEB开发者大致分为以下几个版本：

Alpha：阅读过一些专业书籍，大多数能用Dreamweaver或者FrontPage帮朋友制作一些Web页面。但在他们熟练掌握HTML代码以前，你大概不会雇佣他们成为职业的WEB制作人员。

Beta：已经比较擅长整合站点页面了，在HTML技巧方面也有一定造诣，但还是用Tables来制作页面，不了解CSS，在面对动态页面或数据库连接时还是底气不足。

Pre Version 1 (0.1)：比Beta版的开发者水平要高。熟悉HTML，开始了解CSS是如何运作的，懂一点JavaScript，但还是基于业余水准，逐步开始关心动态站点搭建和数据库连接的知识。这个版本的WEB开发人员还远不能成为雇主眼中的香饽饽。

1.0: 能够基本把控整个站点开发，针对每个问题尽可能的找到最直接的解决办法。但对可测性，可扩展性以及在不同(层)框架下如何选择最合适的WEB设计工具尚无概念。这个版本的WEB开发者有良好的技术基础，需要有进一步的帮助和指导。

2.0：懂面向对象的编程语言，理解分层开发的必要性，关注代码分离，对问题寻找更完美的解决方法，偶然也会考虑设计模式的问题，但对此仍然概念不清。属于优秀的初级开发者，能完成较松散的代码开发(相对大型严谨的站点开发而言)，在面对较复杂问题寻找解决办法时需要周边人的帮助。

3.0：开始较为深入的理解面向对象编程和设计模式，了解他们的用途，当看到好的设计模式时能看透其本质，逐步关注分层的架构解决办法和可测试性。理解不同的开发语言并能说出他们的异同(例如各自的优势)。属于优秀的中级别开发者，雇主也确信他们最终能找到问题的解决办法，这个版本的人可以给1.0和2.0的开发者以指导。但他们对架构的理解仍然不够清晰，值得一提的是，只要给予一些指导，他们能很快理解并熟记做出的决定，以及选定方案的优势所在。

4.0：理解模式，重视用户的反馈。着手研究方法论，架构设计和软件开发的最佳入口。头脑中已经形成了超越开发语言，技术架构的整体方案，可根据需求解构程序。能从理论的角度，不同模式如何融合成最佳形态，将多种X-驱动的模式应用到不同的方案中。是精通多语言的高手，理解不同系统和方法论的细微差别，属于高级程序员。这个级别的人能够轻易的辅导2.0和3.0的程序员，将他们推向更高的级别。

5.0：从系统的角度考虑问题。对各种系统结构有深入研究，能对整个代码架构中的问题进行改进。在团队粘合性以及代码安全性方面有杰出贡献。对1.0到4.0版本的开发人员出现的问题能及时察觉，让整个团队保持积极性且保持兴奋的状态创建软件解决办法。举例来说，他们总是对新的技术和信息保持饥渴状态，试图用最简便的方案解决开发任务。在整个IT团队中获得信任，属于高级程序员和架构师。

那么，您属于哪个版本的程序员呢？

简单的单文件上传示例及详细说明

2008-6-27 3:21:02

    ȫ

简单的文件上传示例及详细说明

简单的文件上传示例及详细说明

本示例由Anlige制作，QQ417833272，Email:zhanghuiguoanlige@126.com

选择本地文件:

<%
if request.querystring("act")="upload" then
dim t_stream,FormName,localname,servername,tdata     '定义变量
tdata=request.binaryread(request.totalbytes)
call getdata(tdata)                                  '调用主体函数处理数据
response.write "成功上传文件到服务器!"
response.write "表单名:"&FormName&""
response.write "本地文件名:"&localname&""
response.write "服务器文件名:"&server.mappath(servername)&""
response.write "打开文件"
end if
%>

<%
'函数名:getdata
'参数:tempdata-待处理的二进制数据,由客户端提交得到
'作用:处理客户端提交来的数据
Function getdata(tempdata)
  set t_stream=server.createobject("adodb.stream")   '初始化stream对象
  t_stream.type=1                                    '设置数据模式为二进制
  t_stream.mode=3                                    '设置读写模式为读和写
  t_stream.open                                      '打开stream对象
  t_stream.write tempdata                            '写入用户提交的数据，写入文件用
  bcrlf=chrb(13)&chrb(10)                            '换行符
  fpos=instrb(1,tempdata,bcrlf)                      '找到第一个换行符位置
  sSplit=midb(tempdata,1,fpos-1)                     '得到数据分割标志
  slen=lenb(ssplit)                                  '得到数据分割标志的长度
  istart=slen+2                                      '表单开始位置
  formend=instrb(istart,tempdata,bcrlf&bcrlf)        '获得表单的结束位置
  formhead=midb(tempdata,istart,formend-istart)      '获得表单相关的文本内容
  str=bytes2str(formhead)                            '将二进制内容转换为文本
  startpos=instr(str,"name=""")+6                    '查找表单名的开始位置，为什么要+6?name="正好6个字符长
  endpos=instr(startpos,str,"""")                    '查找表单名的结束位置
  FormName=mid(str,startpos,endpos-startpos)         '获得表单名
  startpos=instr(str,"filename=""")+10               '获得本地文件路径的开始位置，+10和上面原理一样
  endpos=instr(startpos,str,"""")                    '获得本地文件路径的结束位置
  filename=mid(str,startpos,endpos-startpos)         '获得本地文件路径
  localname=filename                                 '保存本地文件路径到变量
  filename=mid(filename,instrrev(filename,"\")+1)    '获得本地文件名
  fileExe=split(filename,".")(ubound(split(filename,".")))                     '获地文件后缀
  valueend=instrb(formend+3,tempdata,sSplit)         '获得文件数据的结束位置
  newname=getRndName()                               '调用函数生成随即字串
  newname=newname&"."&fileExe                        '连接后缀生成新文件名,以后保存到服务器用
  servername=newname                                 '保存新文件名到变量
  call savf(newname,formend+3,valueend-formend-6)    '调用函数保存文件
  t_stream.close                                     '关闭stream对象
  set t_stream=nothing                               '销毁stream对象
End Function

'函数名:savf
'参数:fname-以本参数为文件名保存到服务器，pos-要保存文件内容在流内的位置,siz-要保存的流大小(也就是文件大小)
'作用:保存文件
Function savf(fname,pos,siz)
    dim mystream
    set mystream=server.createobject("adodb.stream")
    mystream.type=1
    mystream.mode=3
    mystream.open
    t_stream.position=Pos
    t_stream.CopyTo mystream,siz
    mystream.savetofile server.mappath(fname)
    mystream.close
    set mystream=nothing
End Function

'函数名:bytes2str
'参数:byt-待转换的二进制数据
'作用:将二进制数据转换为文本
Function bytes2str(byt)
    if lenb(byt)=0 then
    bytes2str=""
    exit function
    end if
    dim mystream
    set mystream=server.createobject("adodb.stream")
    mystream.type=2
    mystream.mode=3
    mystream.open
    mystream.writetext byt
    mystream.position=0
    mystream.charset="gb2312"
    mystream.position=2
    bstr=mystream.readtext()
    mystream.close
    set mystream=nothing
    bytes2str=bstr
End Function

'函数名:getRndName
'参数:无
'作用:根据时间获得一个随即字串
Function getRndName()
    dim y,m,d,h,mm,s,r
    Randomize()
    y=year(now)
    m=month(now):if m<10 then m="0"&m
    d=day(now):if d<10 then d="0"&d
    h=hour(now):if h<10 then h="0"&h
    mm=minute(now):if mm<10 then mm="0"&mm
    s=second(now):if s<10 then s="0"&s
    r=cint(rnd()*10):if r<10 then r="0"&r
    getRndName=y&m&d&h&mm&s&r
End Function
%>

用CE查找武林外传基础地址

2008-6-26 3:20:17
需要工具:

CE（英文或汉化）

一,打开游戏和CE用CE载入游戏

二,让你的血量回到最满状态,记住血量值

如上图,我的是1312点血,好的,用CE搜"1312",.用"Exact value"方式,4字节

搜到N个址,好,再回到游戏里,我们让人物掉点血(打怪什么的,最好多掉点,这样方便后面来查数),

再用"Decreased value"(减少了的数)来搜,这样掉点血,搜一次,搜点血搜一次,几次下来,

好的,找到的地址就只剩四个了(我是两次就找到只剩四个了,电脑不同,可能找的次数也不同,不过方法是一样的,先找最大血量值,然后,再掉点血,再用减少的搜,如此循环几次就OK了)

记下第一个地址(为什么用第一个地址,CE的教程里说,一般如果找到少量的地址后,正确的一般在第一个,如果你不确定,你可以让人物自动回血,就可以看到,第一个地址的数也在跟着增加~)

接着,把第一个地址双击,加入下面的栏里,再在地址上单击右键,

弹出菜单中选"Find out what writes to this address"(谁在改定这个地址),调出监视窗口,再回到游戏,掉点血,就可以看到监视窗口里己经有改写该地址的命令了~

选中该命令,点"Mor information",得到如下图

mov [esi+00000254],ecx 红色加亮的这句,(+00000254也就是血量的偏移量了)

可以看到,是把ECX的值写入ESI+00000254这个内存地址中,所以,我们记下下面的ESI地址:ESI=046acf68,再回到CE主界面,搜"05C0B548"这个数(选中HEX,用十六进制四字节方式搜)

得到26个地址都含有这个数,好的,把最前面的三个数保存到下栏里,然后,小退一下(回到人物选择界面,再进入游戏),

就可以看到,三个地址的数值都有变化了.好,再重新找血量地址,

然后再"Find out what writes to this address"(谁在改定这个地址)这个地址,得到ESI的值,记下来,

对比刚保存下来的三个地址内的数,呵呵,发现010AEAE4里的值刚好等于ESI,这就可以肯定,010AEAE4一定二级基址了,

好,我们监视010AEAE4,"Find out what writes to this address".好,再次小退一下,再进入游戏,这时监视窗口有东东了,

如下图得到:mov [esi+24],0000000

记下ESI的值,010AEAC0,再回到CE主界面,用十六进制的方法找010AEACO

得到N个数,反复搜几次,好,得到下图

按CE教程说的,一般最是地址最小的就是正确的,呵呵,有点那个啊,~~~~~~~~~~~~

选第一个008BE594,加到下面的栏里,完全退出游戏,再进入游戏

重复,最后还是得到008BE594,这样就可以肯定,008BE594就是一级基址了

得出公式如下

一级基址:008BE594

008BE594地址里面保存的数值+24的偏移=二级基址

二级基址里面保存的地址数+254的偏移得到血量的地址

下面开始搜索数据!

用CE打开武林外传。运行CE，按照下图的次序打开(...\武林外传\element\elementclient.exe)

2.游戏启动后，别忘了选择游戏窗口。

3.这是游戏中人物的数据。

4.好，现在我们要在CE中显示人物的生命值。同样按照图中的顺序打开“添加地址”对话框，

在数据框中添加我们已知的内存地址。当然，我们要用指针的方式，因为存储这些数据的地址是不固定的，

我们可以用8C6A54这个固定的基地址以及相关的偏移地址找到我们需要的数据。我们就来看看生命的值，

完成图上的项目点“确定”来看看结果。

5.怎么样！是不是角色的生命值呢，使自己失去一些血量看看这个值是不是也在跟着变化。

6.根据已知的人物地址，我们还可以显示其它数据。

以上数字均为16进制

Stream读写文本文件示例

2008-6-26 1:40:09

    ȫ

<%
'删除文件
Function delfile(path)
Set fso=server.createobject("scripting.filesystemobject")
if fso.fileexists(path) then
    fso.deletefile path
end if
Set fso=nothing
End function

'创建文件
Function createfile(path)
Set fso=server.createobject("scripting.filesystemobject")
if not fso.fileexists(path) then
    fso.createtextfile path
end if
Set fso=nothing
End function

'写入文件并保存
Function writefile(path,str)
Set mystream=server.createobject("adodb.stream")
    mystream.type=2 '文本模式
    mystream.mode=3 '读写模式
    mystream.charset="gb2312" '字符集
    mystream.open '打开
    createfile(path) '创建文件
    mystream.loadfromfile(path) '从文件加载
    mystream.position=mystream.size
    mystream.writetext str,1 '把数据以"行"模式写入流
    mystream.savetofile path,2 '覆盖原文件保存
    mystream.position=0
    writefile=mystream.readtext()
    mystream.close
Set mystream=nothing
End function

filename=server.mappath("a.txt")
temp=writefile(filename,"测试文本")
Response.write "成功写入文件！"&filename&"，文件内容为:
"&temp&"
"
%>

XMLHttpRequest对象详细说明

2008-6-25 3:36:38
以支持多种浏览器的方式创建 XMLHttpRequest 对象
    ȫ

var xmlHttp = false;
try {
  xmlHttp = new ActiveXObject("Msxml2.XMLHTTP");
}
catch (e) {
  try {
    xmlHttp = new ActiveXObject("Microsoft.XMLHTTP");
  }
catch (e2) {
    xmlHttp = false;
  }
}
if (!xmlHttp && typeof XMLHttpRequest != 'undefined') {
  xmlHttp = new XMLHttpRequest();
}

Ajax 的基本请求/响应模型
所有 Ajax 应用程序中基本都雷同的流程：
1、从 Web 表单中获取需要的数据。
2、建立要连接的 URL。
3、打开到服务器的连接。
4、设置服务器在完成后要运行的函数。
5、发送请求。
XMLHttpRequest 对象实例的 onreadystatechange 属性可以告诉服务器在运行完成后做什么。因为代码没有等待服务器，必须让服务器知道怎么做以便您能作出响应。

现在要面对服务器的响应了。现在只要知道两点：
•什么也不要做，直到 xmlHttp.readyState 属性的值等于 4。
•服务器将把响应填充到 xmlHttp.responseText 属性中。
其中的第一点，即就绪状态，将在下一篇文章中详细讨论，您将进一步了解 HTTP 请求的阶段，可能比您设想的还多。现在只要检查一个特定的值（4）就可以了（下一期文章中还有更多的值要介绍）。第二点，使用 xmlHttp.responseText 属性获得服务器的响应，
一个 JavaScript 方法捕捉用户输入表单的信息并将其发送到服务器，另一个 JavaScript 方法监听和处理响应，并在响应返回时设置字段的值。所有这些实际上都依赖于调用第一个 JavaScript 方法，它启动了整个过程。

必须非常熟悉一个 JavaScript 对象，即 XMLHttpRequest
该对象的很少的几个方法和属性。
•open()：建立到服务器的新请求。
•send()：向服务器发送请求。
•abort()：退出当前请求。
•readyState：提供当前 HTML 的就绪状态。
•responseText：服务器返回的请求响应文本
这些方法和属性都与发送请求及处理响应有关

用 XMLHttpRequest 发送请求
得到请求对象之后就可以进入请求/响应循环了。记住，XMLHttpRequest 惟一的目的是让您发送请求和接收响应。其他一切都是 JavaScript、CSS 或页面中其他代码的工作：改变用户界面、切换图像、解释服务器返回的数据。
设置服务器 URL
首先要确定连接的服务器的 URL。这并不是 Ajax 的特殊要求，但仍然是建立连接所必需的，显然现在您应该知道如何构造 URL 了。
打开请求
有了要连接的 URL 后就可以配置请求了。可以用 XMLHttpRequest 对象的 open() 方法来完成。该方法有五个参数：
request-type：发送请求的类型。典型的值是 GET 或 POST，但也可以发送 HEAD 请求。
url：要连接的 URL。
asynch：如果希望使用异步连接则为 true，否则为 false。该参数是可选的，默认为 true。
username：如果需要身份验证，则可以在此指定用户名。该可选参数没有默认值。 password：如果需要身份验证，则可以在此指定口令。该可选参数没有默认值。
Internet 开发人员对 open() 方法到底做什么没有达成一致。但它实际上并不是打开一个请求。如果监控 XHTML/Ajax 页面及其连接脚本之间的网络和数据传递，当调用 open() 方法时将看不到任何通信。不清楚为何选用了这个名字，但显然不是一个好的选择。

发送请求
一旦用 open() 配置好之后，就可以发送请求了。幸运的是，发送请求的方法的名称要比 open() 适当，它就是 send()。
指定回调方法
服务器在完成通过 XMLHttpRequest 发送给它的请求处理之后需要某种指示说明怎么做。
在 JavaScript 中引用函数：
JavaScript 是一种弱类型的语言，可以用变量引用任何东西。因此如果声明了一个函数 updatePage()，JavaScript 也将该函数名看作是一个变量。换句话说，可用变量名 updatePage 在代码中引用函数。
需要特别注意的是该属性在代码中设置的位置 —— 它是在调用 send() 之前设置的。发送请求之前必须设置该属性，这样服务器在回答完成请求之后才能查看该属性。
服务器完成了请求处理。服务器查看 onreadystatechange 属性确定要调用的方法。
回调和 Ajax
将 XMLHttpRequest 对象的 onreadystatechange 属性设置为要运行的函数名。这样，当服务器处理完请求后就会自动调用该函数。

服务器在完成请求之后会在 XMLHttpRequest 的 onreadystatechange 属性中查找要调用的方法。但还不完整。事实上，每当 HTTP 就绪状态改变时它都会调用该方法。
HTTP 就绪状态表示请求的状态或情形。它用于确定该请求是否已经开始、是否得到了响应或者请求/响应模型是否已经完成。它还可以帮助确定读取服务器提供的响应文本或数据是否安全。在 Ajax 应用程序中需要了解五种就绪状态：
•0：请求没有发出（在调用 open() 之前）。
•1：请求已经建立但还没有发出（调用 send() 之前）。
•2：请求已经发出正在处理之中（这里通常可以从响应得到内容头部）。
•3：请求已经处理，响应中通常有部分数据可用，但是服务器还没有完成响应。
•4：响应已完成，可以访问服务器响应并使用它。
与大多数跨浏览器问题一样，这些就绪状态的使用也不尽一致。您也许期望任务就绪状态从 0 到 1、2、3 再到 4，但实际上很少是这种情况。一些浏览器从不报告 0 或 1 而直接从 2 开始，然后是 3 和 4。其他浏览器则报告所有的状态。还有一些则多次报告就绪状态 1。在上一节中看到，服务器多次调用 updatePage()，每次调用都会弹出警告框 —— 可能和预期的不同！
对于 Ajax 编程，需要直接处理的惟一状态就是就绪状态 4，它表示服务器响应已经完成，可以安全地使用响应数据了。基于此，回调方法中的第一行应该如清单 13 所示。
除了就绪状态外，还需要检查 HTTP 状态。我们期望的状态码是 200，它表示一切顺利。如果就绪状态是 4 而且状态码是 200，就可以处理服务器的数据了，而且这些数据应该就是要求的数据（而不是错误或者其他有问题的信息）。因此还要在回调方法中增加状态检查，
    ȫ

function updatePage() {
     if (request.readyState == 4)
       if (request.status == 200)
         alert("Server is done!");
       else if (request.status == 404)
         alert("Request URL does not exist");
       else
         alert("Error: status code is " + request.status);
   }

读取响应文本
返回的数据保存在 XMLHttpRequest 对象的 responseText 属性中。关于 responseText 中的文本内容，比如格式和长度，有意保持含糊。这样服务器就可以将文本设置成任何内容。比方说，一种脚本可能返回逗号分隔的值，另一种则使用管道符（即 | 字符）分隔的值，还有一种则返回长文本字符串。何去何从由服务器决定。
HTTP 就绪状态
0：请求未初始化（还没有调用 open()）。
•1：请求已经建立，但是还没有发送（还没有调用 send()）。
•2：请求已发送，正在处理中（通常现在可以从响应中获取内容头）。
•3：请求在处理中；通常响应中已有部分数据可用了，但是服务器还没有完成响应的生成。
•4：响应已完成；您可以获取并使用服务器的响应了。
在多个 JavaScript 函数都使用相同的请求对象时，您需要检查就绪状态 0 来确保这个请求对象没有正在使用，这种机制会产生问题。由于 readyState == 4 表示一个已完成的请求，因此您经常会发现那些目前没在使用的处于就绪状态的请求对象仍然被设置成了 4 —— 这是因为从服务器返回来的数据已经使用过了，但是从它们被设置为就绪状态之后就没有进行任何变化。有一个函数 abort() 会重新设置请求对象，但是这个函数却不是真正为了这个目的而使用的。如果您必须使用多个函数，最好是为每个函数都创建并使用一个函数，而不是在多个函数之间共享相同的对象。
查看就绪状态
   function updatePage() {
     // Output the current ready state
     alert("updatePage() called with ready state of " + request.readyState);
   }
查看请求的响应文本
与就绪状态类似，responseText 属性的值在整个请求的生命周期中也会发生变化。要查看这种变化，请使用如清单 5 所示的代码来测试请求的响应文本，以及它们的就绪状态。
清单 5. 测试 responseText 属性
   function updatePage() {
     // Output the current ready state
     alert("updatePage() called with ready state of " + request.readyState +
           " and a response text of '" + request.responseText + "'");
     }
深入了解 HTTP 状态代码
有了就绪状态和您在 Ajax 编程技术中学习到的服务器的响应，您就可以为 Ajax 应用程序添加另外一级复杂性了 —— 这要使用 HTTP 状态代码。这些代码对于 Ajax 来说并没有什么新鲜。从 Web 出现以来，它们就已经存在了。在 Web 浏览器中您可能已经看到过几个状态代码：
•401：未经授权
•403：禁止
•404：没找到
它花费了最小的努力来确保服务器不但完成了一个请求，而且还返回了一个 “一切良好” 的状态代码。这个代码是 "200"，它是通过 XMLHttpRequest 对象的 status 属性来报告的。为了确保服务器不但完成了一个请求，而且还报告了一个 OK 状态，请在您的回调函数中添加另外一个检查功能，如清单 7 所示。
清单 7. 检查有效状态代码
    ȫ

   function updatePage() {
     if (request.readyState == 4) {
       if (request.status == 200) {
         var response = request.responseText.split("|");
         document.getElementById("order").value = response[0];
         document.getElementById("address").innerHTML =
           response[1].replace(/\n/g, "");
       } else
         alert("status is " + request.status);
     }
   }

用户无法判断问题究竟是认证问题、没找到脚本（此处就是这种情况）、用户错误还是代码中有些地方产生了问题。添加一些简单的代码可以让这个错误更加具体。请参照清单 8，它负责处理没找到的脚本或认证发生错误的情况，在出现这些错误时都会给出具体的消息。
清单 8. 检查有效状态代码
    ȫ

   function updatePage() {
     if (request.readyState == 4) {
       if (request.status == 200) {
         var response = request.responseText.split("|");
         document.getElementById("order").value = response[0];
         document.getElementById("address").innerHTML =
           response[1].replace(/\n/g, "");
       } else if (request.status == 404) {
         alert ("Requested URL is not found.");
       } else if (request.status == 403) {
         alert("Access denied.");
       } else
         alert("status is " + request.status);
     }
   }

其他请求类型
检查 URL
您已经看到了当 URL 不存在时应该如何检查 404 错误。如果这变成一个常见的问题 —— 可能是缺少了一个特定的脚本或 servlet —— 那么您就可能会希望在生成完整的 GET 或 POST 请求之前来检查这个 URL。要实现这种功能，生成一个 HEAD 请求，然后在回调函数中检查 404 错误；清单 11 给出了一个简单的回调函数。
清单 11. 检查某个 URL 是否存在
    ȫ

   function updatePage() {
     if (request.readyState == 4) {
       if (request.status == 200) {
         alert("URL exists");
       } else if (request.status == 404) {
         alert("URL does not exist.");
       } else {
         alert("Status is: " + request.status);
       }
     }
   }

一段重用很高的ajax代码

2008-6-25 3:33:23
一段重用很高的ajax代码，可以套用
    ȫ


        client.html

            var xmlreq = false;
            // ---------------初始化XMLHttpRequest--------------------
            function createXMLHttpRequest(){
                if (window.XMLHttpRequest) {
                    //不是ie浏览器
                    xmlreq = new XMLHttpRequest();
                }
                else
                    if (window.ActiveXObject) {
                        //IE
                        try {
                            xmlreq = new ActiveXObject("Msxml12.XMLHTTP");
                        }
                        catch (e1) {
                            try {
                                req = new ActiveXObject("Microsoft.XMLHTTP");
                            }
                            catch (e2) {
                            // Unable to create an XMLHttpRequest with ActiveX
                            }
                        }

                    }
            }
//------------发送XMLHttpRequest请求-----------------
//GET提交请求
function sendRequestGet(url){
createXMLHttpRequest();
xmlreq.open("get",url,true);
xmlreq.onreadystatechange = processResponse;//响应请求函数
xmlreq.send(null);
}
//POST提交请求
function sendRequestPost(url,param){
createXMLHttpRequest();
xmlreq.open("post",url,true);
xmlreq.onreadystatechange = processResponse;//响应请求的函数
xmlreq.setRequestHeader("Content-Type", "application/x-www-form-urlencoded");
xmlreq.send(param);
}
function sendRequest(url,param,method){
if(method){
if (method.toLowerCase("get")) {
                        sendRequestGet(url + "?" + param);
                    }
                    else
                        if (method.toLowerCase("post")) {
                            sendRequestPost(url, param);
                        }
}else{
alert("method is null");
}
}
//---------响应请求的函数------------
function processResponse(){
if(xmlreq.readyState == 4){
if(xmlreq.status == 200){
alert(xmlreq.responseText);
}else{
alert("发送失败！")
}
}
}
//事件响应
function submitRequest(){
                var form1 = document.getElementById("form1");
                var url = form1.action;
                var username = form1.username.value;
                var password = form1.password.value;
                var method = form1.method;
                var param = "username=" + username + "&password=" + password;
                sendRequest(url, param, method);
            }




             用户名:


             密  码:






XMLHTTP获取访问者地理位置

2008-6-25 0:27:21
利用XMLHTTP组件，调用纯真的IP查询(也可以调用其他的,代码就要修改了)
    ȫ

<%
function GetResStr(URL,code)
err.clear
dim ResBody,ResStr,PageCode,ReturnStr
Set Http=server.createobject("Microsoft.XMLHTTP")
Http.open "GET",URL,False
Http.Send()
If Http.Readystate =4 Then
  If Http.status=200 Then
    ResBody=http.responseBody
    ReturnStr=BytesToBstr(http.responseBody,code)
    GetResStr=ReturnStr
  End If
End If
End Function

'函数名:BytesToBstr
'作用:转换二进制数据为字符
'参数:Body-二进制数据,Cset-文本编码方式
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
  BytesToBstr = objstream.ReadText
  objstream.Close
  set objstream = nothing
End Function

dim reg,vUrl,VBody,code,time1,time2,title
vUrl="http://www.cz88.net/ip/ipcheck.aspx?ip="&request.servervariables("REMOTE_ADDR")
TempStr=GetResStr(vUrl,"gb2312")
p1=instr(TempStr,"""")+1
p2=InStrRev(TempStr,"""")
Add=mid(TempStr,p1,p2-p1)

response.write "您的IP为:"&request.servervariables("REMOTE_ADDR")&""
response.write "您的位置:"&Add&""
%>

global.asa文件解惑

2008-6-24 7:08:20
这今天留意了不少帖子，其中这两天在讨论一个问题，关于限制登录技术的处理。也有很多朋友发表了意见，大致上就是用一个online字段来分辨，此不在多说这个。关键是有人提出，当用户未正常注销的情况下，如何处理online字段的问题。针对这个问题，我补充一个小知识（可能许多初学asp甚至已经接触了相当时间的asp人员都会忽略的东西）－asp网站全局共享文件global.asa。

再我回复的某个帖子中，有人误认为，这是一个表（这也难怪，后缀是asa……）。其实，这个文件是整个asp网站所共享拥有的文件，也可以所成是服务器检查整个asp网站配置的文件。首先，这个文件需放在网站根目录下，以gloabl.asa命名。
那么，这个文件到底有什么作用呢。这个文件里面一共有四个过程，而且只能有这么四个过程，分别是

Sub Application_OnStart
'TODO sth.
End Sub

Sub Application_OnEnd
'TODO sth.
End Sub

Sub Session_OnStart
'TODO sth.
End Sub

Sub Sessin_OnEnd
'TODO sth.
End Sub

那么这四个过程定义了有什么用呢，如下我们描述四个服务器状态
1、服务器启动初次运行该asp网站（开启服务器会话状态）
2、某用户打开浏览器，访问该asp网站（开启用户会话状态）
3、某用户关闭浏览器，结束一次对整个asp网站的浏览（关闭用户会话状态）
4、服务器关闭或结束该asp网站（关闭服务器会话状态）

这服务器状态所触发的事件就分别对应这四个过程
1、Application_OnStart
2、Session_OnStart
3、Session_OnEnd
4、Application_OnEnd

当服务器状态触发这四个过程的某一个过程时，就可以在这个过程里编写相应的代码，来实现一些特殊功能，举例
1、有些网站，当你第一次访问时，并不允许你访问除index.htm以外的页面，这个如何来做的呢？当用户第一次访问该网站时，触发Session_OnStart事件。在Session_OnStart过程里判断，当前用户浏览的网址是否为index.htm，如不是则跳转自index.htm
2、大家对Session应该很熟悉了，但我相信，极少人会去注意另一个会话变量，application。对于这两个会话级变量，我希望接触asp的朋友都能认真的去了解他们的特性（session是用户级会话变量，application是服务器级会话变量）。对于这些会话变量，我们都可以在四个过程中进行操作。比如，在Session_OnStart过程中，把Session("login")赋值为false等等，在Session_OnEnd过程中，显式释放Session变量，即Session.Abandon()。
3、最后一个例子回到最开始的主题，如何处理用户非正常注销的问题。针对Session_OnEnd事件的特性，即只要在Session_OnEnd过程里，处理用户离线（或退出的状态就可以了）。针对Session两个的事件，以及application的服务器变量特性，甚至可以不必用到数据库就能判断用户是否在线或离线，大致思路如下：
（1）用户初次访问网站时，分配一个ID号，在Session_OnStart事件中，设置Application(该用户ID号)=false，表示未登录状态。
（2）当用户登录时，在程序中置Application(该用户ID号)=true，表示该用户已经登录
（3）他人如果需要检查某人是否是在线状态，只要查看Application(该用户ID号)是否为true（为什么可以这样检查？因为application是服务器级变量，它保存在服务器端的内存中，是对所有用户可见的，即可理解成全局变量）
（4）当用户退出时，在程序中置Application(该用户ID号)=false
（5）当用户关闭浏览器，结束一次会话状态时，在Session_OnEnd过程中，再次置Application(该用户ID号)=false

对于这四个事件过程，以及两个会话变量，最后还是希望各位朋友能够仔细了解他们的特性，从中你会获得许多知识，并能想到解决一些本无法处理的技术问题

对象不支持此属性或方法:'Response.CharSet'

2008-6-22 11:51:26
给客户开发的一个web系统，本来计划是在IIS下运行，无奈客户那边的电脑操作系统IIS无论怎样都安装不了，总不能要求客户为了这个web系统重新安装操作系统吧？所以想到了NetBox。

开发的时候都是在IIS下进行调试，然后用NetBox运行，基本上一切正常，客户使用了一段时间后，提出增加一个新的功能，于是用ajax增加了一个新功能，NetBox下运行出错，

错误提示：

运行时错误 '800a01b6'

对象不支持此属性或方法: 'Response.CharSet'

---------------------------------------------------------------------

(百度一下，还有很多人遇到同样的错误)

Microsoft VBScript runtime error '800a01b6'

Object doesn't support this property or method: 'Response.Charset'

检查出错代码：

Response.CharSet    =    "GB2312"

这行代码主要是为了解决ajax用get获得数据时，中文乱码的问题。

删除这行代码后netbox正常运行，但是ajax返回的中文数据成了乱码。

说明 NetBox不支持 Response.CharSet 。

打开netbox的使用手册，依次展开：

对象参考 → Response 对象 → Response 方法

AddHeader 方法

AddHeader 方法用指定的值添加 HTML 标题。该方法常常向响应添加新的 HTTP 标题

语法

Response.AddHeader name, value

参数

name

     新的标题变量的名称

value

     存储在新的标题变量中的初始值

注释

为避免命名不明确，name 中不能包含任何下划线字符 (_)。ServerVariables 集合将标题中的下划线字符解释为反斜杠。例如，下面的脚本使服务器查找一个名为 MY-HEADER 的标题名。

<% Request.ServerVariables("HTTP_MY_HEADER") %>

示例

下面这个示例使用 AddHeader 方法要求客户端使用 BASIC 验证。

<% Response.Addheader "WWW-Authenticate", "BASIC" %>

注意前面的脚本仅通知客户端浏览器使用哪个验证。若您在 Web 应用程序中使用该脚本，则一定要启用 Web 服务器的 BASIC 验证。

于是将

Response.CharSet    =    "GB2312"

替换成：

Response.Addheader "Content-Type","text/html; charset=gb2312"

NetBox环境下ajax用get获取数据,中文乱码的问题解决！

GHOST版本安装IIS后出现500服务器错误的解决方法

2008-6-18 17:52:23
GHOST版本停止了许多服务。可以按以下方法来搞定：
1，进入管理工具->[服务]管理器
找到Network DDE DSDM 启动类型改成自动然后启动它
找到Network DDE 启动类型改成自动然后启动它
2，在命令提示符里输入
msdtc -resetlog
然后启动Distributed Transaction Coordinator这个服务
3，启动“iis Out-Of-Process Pooled Applications”
“组件服务”->“计算机”->“我的电脑”->“COM+应用程序”->“iis Out-Of-Process Pooled
Applications”。
"COM+ 应用程序中"找不到此项，可以通过下述方法重建：
a. 开始->运行->CMD，打开命令提示窗口，然后使用以下命令切换目录：
b. cd %windir%/system32/inetsrv
c. 运行以下命令：
rundll32 wamreg.dll, CreateIISPackage
注意：必须准确键入"CreateIISPackage"；它区分大小写。
regsvr32 asptxn.dll
d. 关闭并重新打开"组件服务"。您应看到已经重新创建的所有这三个 IIS COM+ 应用程序。
e. 从命令行运行 IISRESET，并对先前未正确加载的任意 ASP 页进行测试。

SQL操作全集

2008-6-12 23:12:57
SQL操作全集

下列语句部分是Mssql语句，不可以在access中使用。

SQL分类：
DDL—数据定义语言(CREATE，ALTER，DROP，DECLARE)
DML—数据操纵语言(SELECT，DELETE，UPDATE，INSERT)
DCL—数据控制语言(GRANT，REVOKE，COMMIT，ROLLBACK)

首先,简要介绍基础语句：
1、说明：创建数据库
CREATE DATABASE database-name
2、说明：删除数据库
drop database dbname
3、说明：备份sql server
--- 创建备份数据的 device
USE master
EXEC sp_addumpdevice 'disk', 'testBack', 'c:\mssql7backup\MyNwind_1.dat'
--- 开始备份
BACKUP DATABASE pubs TO testBack
4、说明：创建新表
create table tabname(col1 type1 [not null] [primary key],col2 type2 [not null],..)
根据已有的表创建新表：
A：create table tab_new like tab_old (使用旧表创建新表)
B：create table tab_new as select col1,col2… from tab_old definition only
5、说明：删除新表drop table tabname
6、说明：增加一个列
Alter table tabname add column col type
注：列增加后将不能删除。DB2中列加上后数据类型也不能改变，唯一能改变的是增加varchar类型的长度。
7、说明：添加主键： Alter table tabname add primary key(col)
说明：删除主键： Alter table tabname drop primary key(col)
8、说明：创建索引：create [unique] index idxname on tabname(col….)
删除索引：drop index idxname
注：索引是不可更改的，想更改必须删除重新建。
9、说明：创建视图：create view viewname as select statement
删除视图：drop view viewname
10、说明：几个简单的基本的sql语句
选择：select * from table1 where 范围
插入：insert into table1(field1,field2) values(value1,value2)
删除：delete from table1 where 范围
更新：update table1 set field1=value1 where 范围
查找：select * from table1 where field1 like ’%value1%’ ---like的语法很精妙，查资料!
排序：select * from table1 order by field1,field2 [desc]
总数：select count * as totalcount from table1
求和：select sum(field1) as sumvalue from table1
平均：select avg(field1) as avgvalue from table1
最大：select max(field1) as maxvalue from table1
最小：select min(field1) as minvalue from table1
11、说明：几个高级查询运算词
A： UNION 运算符
UNION 运算符通过组合其他两个结果表（例如 TABLE1 和 TABLE2）并消去表中任何重复行而派生出一个结果表。当 ALL 随 UNION 一起使用时（即 UNION ALL），不消除重复行。两种情况下，派生表的每一行不是来自 TABLE1 就是来自 TABLE2。
B： EXCEPT 运算符
EXCEPT 运算符通过包括所有在 TABLE1 中但不在 TABLE2 中的行并消除所有重复行而派生出一个结果表。当 ALL 随 EXCEPT 一起使用时 (EXCEPT ALL)，不消除重复行。
C： INTERSECT 运算符
INTERSECT 运算符通过只包括 TABLE1 和 TABLE2 中都有的行并消除所有重复行而派生出一个结果表。当 ALL 随 INTERSECT 一起使用时 (INTERSECT ALL)，不消除重复行。
注：使用运算词的几个查询结果行必须是一致的。
12、说明：使用外连接
A、left outer join：
左外连接（左连接）：结果集几包括连接表的匹配行，也包括左连接表的所有行。
SQL: select a.a, a.b, a.c, b.c, b.d, b.f from a LEFT OUT JOIN b ON a.a = b.c
B：right outer join:
右外连接(右连接)：结果集既包括连接表的匹配连接行，也包括右连接表的所有行。
C：full outer join：
全外连接：不仅包括符号连接表的匹配行，还包括两个连接表中的所有记录。

其次，大家来看一些不错的sql语句
1、说明：复制表(只复制结构,源表名：a 新表名：b) (Access可用)
法一：select * into b from a where 1 <>1
法二：select top 0 * into b from a

2、说明：拷贝表(拷贝数据,源表名：a 目标表名：b) (Access可用)
insert into b(a, b, c) select d,e,f from b;

3、说明：跨数据库之间表的拷贝(具体数据使用绝对路径) (Access可用)
insert into b(a, b, c) select d,e,f from b in ‘具体数据库’ where 条件
例子：..from b in '"&Server.MapPath(".")&"\data.mdb" &"' where..

4、说明：子查询(表名1：a 表名2：b)
select a,b,c from a where a IN (select d from b ) 或者: select a,b,c from a where a IN (1,2,3)

5、说明：显示文章、提交人和最后回复时间
select a.title,a.username,b.adddate from table a,(select max(adddate) adddate from table where table.title=a.title) b

6、说明：外连接查询(表名1：a 表名2：b)
select a.a, a.b, a.c, b.c, b.d, b.f from a LEFT OUT JOIN b ON a.a = b.c

7、说明：在线视图查询(表名1：a )
select * from (SELECT a,b,c FROM a) T where t.a > 1;

8、说明：between的用法,between限制查询数据范围时包括了边界值,not between不包括
select * from table1 where time between time1 and time2
select a,b,c, from table1 where a not between 数值1 and 数值2

9、说明：in 的使用方法
select * from table1 where a [not] in (‘值1’,’值2’,’值4’,’值6’)

10、说明：两张关联表，删除主表中已经在副表中没有的信息
delete from table1 where not exists ( select * from table2 where table1.field1=table2.field1 )

11、说明：四表联查问题：
select * from a left inner join b on a.a=b.b right inner join c on a.a=c.c inner join d on a.a=d.d where .....

12、说明：日程安排提前五分钟提醒
SQL: select * from 日程安排 where datediff('minute',f开始时间,getdate())>5

13、说明：一条sql 语句搞定数据库分页
select top 10 b.* from (select top 20 主键字段,排序字段 from 表名 order by 排序字段 desc) a,表名 b where b.主键字段 = a.主键字段 order by a.排序字段

14、说明：前10条记录
select top 10 * form table1 where 范围

15、说明：选择在每一组b值相同的数据中对应的a最大的记录的所有信息(类似这样的用法可以用于论坛每月排行榜,每月热销产品分析,按科目成绩排名,等等.)
select a,b,c from tablename ta where a=(select max(a) from tablename tb where tb.b=ta.b)

16、说明：包括所有在 TableA 中但不在 TableB和TableC 中的行并消除所有重复行而派生出一个结果表
(select a from tableA ) except (select a from tableB) except (select a from tableC)

17、说明：随机取出10条数据
select top 10 * from tablename order by newid()

18、说明：随机选择记录
select newid()

19、说明：删除重复记录
Delete from tablename where id not in (select max(id) from tablename group by col1,col2,...)

20、说明：列出数据库里所有的表名
select name from sysobjects where type='U'

21、说明：列出表里的所有的
select name from syscolumns where id=object_id('TableName')

22、说明：列示type、vender、pcs字段，以type字段排列，case可以方便地实现多重选择，类似select 中的case。
select type,sum(case vender when 'A' then pcs else 0 end),sum(case vender when 'C' then pcs else 0 end),sum(case vender when 'B' then pcs else 0 end) FROM tablename group by type
显示结果：
type vender pcs
电脑 A 1
电脑 A 1
光盘 B 2
光盘 A 2
手机 B 3
手机 C 3

23、说明：初始化表table1
TRUNCATE TABLE table1

24、说明：选择从10到15的记录
select top 5 * from (select top 15 * from table order by id asc) table_别名 order by id desc
　　
随机选择数据库记录的方法（使用Randomize函数，通过SQL语句实现）
　　对存储在数据库中的数据来说，随机数特性能给出上面的效果，但它们可能太慢了些。你不能要求ASP“找个随机数”然后打印出来。实际上常见的解决方案是建立如下所示的循环：
Randomize
RNumber = Int(Rnd*499) +1
　
While Not objRec.EOF
If objRec("ID") = RNumber THEN
... 这里是执行脚本 ...
end if
objRec.MoveNext
Wend
　
　　这很容易理解。首先，你取出1到500范围之内的一个随机数（假设500就是数据库内记录的总数）。然后，你遍历每一记录来测试ID 的值、检查其是否匹配RNumber。满足条件的话就执行由THEN 关键字开始的那一块代码。假如你的RNumber 等于495，那么要循环一遍数据库花的时间可就长了。虽然500这个数字看起来大了些，但相比更为稳固的企业解决方案这还是个小型数据库了，后者通常在一个数据库内就包含了成千上万条记录。这时候不就死定了？
　　采用SQL，你就可以很快地找出准确的记录并且打开一个只包含该记录的recordset，如下所示：
Randomize
RNumber = Int(Rnd*499) + 1
　
SQL = "SELECT * FROM Customers WHERE ID = " & RNumber
　
set objRec = ObjConn.Execute(SQL)
Response.WriteRNumber & " = " & objRec("ID") & " " & objRec("c_email")
　
　　不必写出RNumber 和ID，你只需要检查匹配情况即可。只要你对以上代码的工作满意，你自可按需操作“随机”记录。Recordset没有包含其他内容，因此你很快就能找到你需要的记录这样就大大降低了处理时间。
再谈随机数
　　现在你下定决心要榨干Random 函数的最后一滴油，那么你可能会一次取出多条随机记录或者想采用一定随机范围内的记录。把上面的标准Random 示例扩展一下就可以用SQL应对上面两种情况了。
　　为了取出几条随机选择的记录并存放在同一recordset内，你可以存储三个随机数，然后查询数据库获得匹配这些数字的记录：
SQL = "SELECT * FROM Customers WHERE ID = " & RNumber & " OR ID = " & RNumber2 & " OR ID = " & RNumber3
　
　　假如你想选出10条记录（也许是每次页面装载时的10条链接的列表），你可以用BETWEEN 或者数学等式选出第一条记录和适当数量的递增记录。这一操作可以通过好几种方式来完成，但是 SELECT 语句只显示一种可能（这里的ID 是自动生成的号码）：
SQL = "SELECT * FROM Customers WHERE ID BETWEEN " & RNumber & " AND " & RNumber & "+ 9"

　　注意：以上代码的执行目的不是检查数据库内是否有9条并发记录。

　
随机读取若干条记录，测试过
Access语法：SELECT top 10 * From 表名 ORDER BY Rnd(id)
Sql server:select top n * from 表名 order by newid()
mysqlelect * From 表名 Order By rand() Limit n
Access左连接语法(最近开发要用左连接,Access帮助什么都没有,网上没有Access的SQL说明,只有自己测试, 现在记下以备后查)
语法elect table1.fd1,table1,fd2,table2.fd2 From table1 left join table2 on table1.fd1,table2.fd1 where ...
使用SQL语句用...代替过长的字符串显示
语法：
SQL数据库：select case when len(field)>10 then left(field,10)+'...' else field end as news_name,news_id from tablename
Access数据库：SELECT iif(len(field)>2,left(field,2)+'...',field) FROM tablename;
　
Conn.Execute说明
Execute方法
　　该方法用于执行SQL语句。根据SQL语句执行后是否返回记录集，该方法的使用格式分为以下两种：
　　　　1．执行SQL查询语句时，将返回查询得到的记录集。用法为：
　　　　Set 对象变量名=连接对象.Execute("SQL 查询语言")
　　　Execute方法调用后，会自动创建记录集对象，并将查询结果存储在该记录对象中，通过Set方法，将记录集赋给指定的对象保存，以后对象变量就代表了该记录集对象。

　　　　2．执行SQL的操作性语言时，没有记录集的返回。此时用法为：
　　　　连接对象.Execute "SQL 操作性语句" [, RecordAffected][, Option]
　　　　　　·RecordAffected 为可选项，此出可放置一个变量，SQL语句执行后，所生效的记录数会自动保存到该变量中。通过访问该变量，就可知道SQL语句队多少条记录进行了操作。
　　　　　　·Option 可选项，该参数的取值通常为adCMDText，它用于告诉ADO，应该将Execute方法之后的第一个字符解释为命令文本。通过指定该参数，可使执行更高效。

·BeginTrans、RollbackTrans、CommitTrans方法
　　

isapi_rewrite使用方法

2008-6-5 9:26:59
今天弄了个代码下来调试,发现链接指向某静态页面,去这个目录中查看又没有此文件,经baidu搜索得知,是有一个叫做"isapi_rewrite "的玩意来完成,"狗日的,高科技哦",看来偶是落后啦.所有今天把人家的资料贴到这里来,方便以后查阅.isapi_rewrite(动态转静态工具)asp网站程序在国内运用很广,但是类似于im286.asp@id=20050307213811这样的url有点不利于搜索引擎的收录,也就是说不符合友好url(urls-friendly)的标准,那么我们用isapi_rewrite打造一个clean url

1.下载isapi_rewrite.isapi_rewrite分精简(lite)和完全(full)版.精简版不支持对每个虚拟主机站点进行重写,只能进行全局处理.不过对于有服务器的朋友,精简版也就够啦.精简版下载地址:http://www.helicontech.com/download/,就是那lite version (free)啦.

2.安装.msi的文件,和装一般程序一样装就可以了,俺就装在d:\isapi_rewrite.

3.接下来一步比较重要哦,看仔细喽.打开internet 信息服务,右键,web站点属性,电isapi筛选器选项卡.添加筛选器,名称自己填,路径自己指定isapi_rewrite.dll,然后确定.

4.来测试一下.新建一个1ting.asp,里面写上
<%=request.querystring("inso")%> ,效果就是执行的时候1ting.asp?inso=*浏览器显示*.

5.这一步很重要哦,开始添加rewrite规则.正则,好头痛,幸亏这个例子比较简单.

找到isapi_rewrite目录,把httpd.ini的只读属性去掉,打开编辑.我们要把1ting.asp@inso=im286映射成为1ting-im286.html这样的类型,需要在httpd.ini里加上这么一行:

RewriteRule /1ting-([0-9,a-z]*).html /1ting.asp\?inso=$1 ,保存.

6.来来来,到浏览器里查看一下效果吧.输入http://127.0.0.1/1ting.asp?inso=im286和http://127.0.0.1/1ting-im286.html,显示的内容是不是都是im286?这就证明成功啦!

文本文件操作---FSO

2008-6-5 4:27:06
FSO - FileSystemObject 或 Scripting.FileSystemObject 的缩写，为 IIS 内置组件，用于操作磁盘、文件夹或文本文件。FSO 的对象、方法和属性非常的多，这里用示例的方式列出常用的，如果您要查看更详尽的信息，请点击这里下载 FileSystemObject 参考，注意：《VBScript 语言参考》或《JScript 语言参考》中的：《FileSystemObject 用户指南》和《Scripting 运行时库参考》便是微软给出的 FileSystemObject 完整参考。

FSO 不能操作二进制文件，要操作二进制文件，请使用：ADODB.Stream。

创建文件
    ȫ

dim fso, f
set fso = server.CreateObject("Scripting.FileSystemObject")
set f = fso.CreateTextFile("C:\test.txt", true) '第二个参数表示目标文件存在时是否覆盖
f.Write("写入内容")
f.WriteLine("写入内容并换行")
f.WriteBlankLines(3) '写入三个空白行（相当于在文本编辑器中按三次回车）
f.Close()
set f = nothing
set fso = nothing

打开并读文件
    ȫ

dim fso, f
set fso = server.CreateObject("Scripting.FileSystemObject")
set f = fso.OpenTextFile("C:\test.txt", 1, false) '第二个参数 1 表示只读打开，第三个参数表示目标文件不存在时是否创建
f.Skip(3) '将当前位置向后移三个字符
f.SkipLine() '将当前位置移动到下一行的第一个字符，注意：无参数
response.Write f.Read(3) '从当前位置向后读取三个字符，并将当前位置向后移三个字符
response.Write f.ReadLine() '从当前位置向后读取直到遇到换行符（不读取换行符），并将当前位置移动到下一行的第一个字符，注意：无参数
response.Write f.ReadAll() '从当前位置向后读取，直到文件结束，并将当前位置移动到文件的最后
if f.atEndOfLine then
    response.Write("一行的结尾！")
end if
if f.atEndOfStream then
    response.Write("文件的结尾！")
end if
f.Close()
set f = nothing
set fso = nothing

打开并写文件
    ȫ

dim fso, f
set fso = server.CreateObject("Scripting.FileSystemObject")
set f = fso.OpenTextFile("C:\test.txt", 2, false) '第二个参数 2 表示重写，如果是 8 表示追加
f.Write("写入内容")
f.WriteLine("写入内容并换行")
f.WriteBlankLines(3) '写入三个空白行（相当于在文本编辑器中按三次回车）
f.Close()
set f = nothing
set fso = nothing

判断文件是否存在
    ȫ

dim fso
set fso = server.CreateObject("Scripting.FileSystemObject")
if fso.FileExists("C:\test.txt") then
    response.Write("目标文件存在")
else
    response.Write("目标文件不存在")
end if
set fso = nothing

移动文件
    ȫ

dim fso
set fso = server.CreateObject("Scripting.FileSystemObject")
call fso.MoveFile("C:\test.txt", "D:\test111.txt") '两个参数的文件名部分可以不同
set fso = nothing

复制文件
    ȫ

dim fso
set fso = server.CreateObject("Scripting.FileSystemObject")
call fso.CopyFile("C:\test.txt", "D:\test111.txt") '两个参数的文件名部分可以不同
set fso = nothing

删除文件
    ȫ

dim fso
set fso = server.CreateObject("Scripting.FileSystemObject")
fso.DeleteFile("C:\test.txt")
set fso = nothing

创建文件夹
    ȫ

dim fso
set fso = server.CreateObject("Scripting.FileSystemObject")
fso.CreateFolder("C:\test") '目标文件夹的父文件夹必须存在
set fso = nothing

判断文件夹是否存在
    ȫ

dim fso
set fso = server.CreateObject("Scripting.FileSystemObject")
if fso.FolderExists("C:\Windows") then
    response.Write("目标文件夹存在")
else
    response.Write("目标文件夹不存在")
end if
set fso = nothing

删除文件夹
    ȫ

dim fso
set fso = server.CreateObject("Scripting.FileSystemObject")
fso.DeleteFolder("C:\test") '文件夹不必为空
set fso = nothing

Response.Redirect与Server.Transfer的优缺点比较

2008-6-5 4:25:47
如果你读过很多行业杂志和 ASP.NET 示例，你会发现，大多数人使用 Response.Redirect 将用户引导到另一个页面，而另一些人好像偏爱于神秘的 Server.Transfer，那么，这二者有什么区别？

Response.Redirect 简单地发送一条消息到浏览器，告诉浏览器定位到另一个页面。你可以使用下面的代码将用户引导到另一个页面：
Response.Redirect("WebForm2.aspx")
或者
Response.Redirect("http://cike.org")

Server.Transfer 也是通过一条语句将用户引导到另一页面，比如：Server.Transfer("WebForm2.aspx")。不过，这条语句有一系列独特的优缺点。

首先，通过 Server.Transfer 引导到另一页面保留服务器资源，通过更改服务器端“焦点”和传输请求来代替告诉浏览器重定向，这就意味着你不会占用较多的 HTTP 请求，因此这可以减轻服务器的压力，使你的服务器运行更快。

Server.Transfer 只能在同一服务器端的同一站点间运行，所以你不能用 Server.Transfer 将用户重定向到另一服务器上的站点。要重定向到服务器以外的站点，只有 Response.Redirect 能办到。

Server.Transfer 保留浏览器端的 URL 地址.Request集合里的内容不会丢失这对流线型的数据输入很有帮助，不过这也增加了调试的复杂度。

还有：Server.Transfer 方法还有另一个参数——"preserveForm"。如果你设置这个参数为 True，比如：Server.Transfer("WebForm2.aspx", True), 那么 query string 和任何 form 变量都会同时传递到你定位的页面。

例：WebForm1.aspx 有一个文本框名为 TextBox1，你利用 preserveForm 为 True 传递到 WebForm2.aspx，你仍然可以用 Request.Form("TextBox1") 来取得文本框的值。

这种技术对向导式的多页面输入很有用，不过这里有一个你必须注意的问题是，当你使用 preserveForm 参数时，ASP.NET 有一个 bug，通常情况下，当试图传递 form 或 query string 值时会发生错误。请参见：http://support.microsoft.com/default.aspx?id=kb;en-us;Q316920

非官方的解决办法是在你要传递的目的页面中设置 enableViewStateMac 属性为 True，然后再将其设置回 False。这说明你需要使用 enableViewStateMac 的 False 值才能解决这个问题。

总结：Response.Redirect 简单地告诉浏览器访问另一个页面。Server.Transfer 有利于减少服务器请求，保持地址栏 URL 不变，允许你将 query string 和 form 变量传递到另一个页面（有一点小小的缺陷）。

重要提示：不要混淆了 Server.Transfer 和 Server.Execute，Server.Execute 执行一个页面，并返回结果，在过去 Server.Execute 很有用，不过在 ASP.NET 里，它被 fresher 方法所代替，所以忽略 Server.Execute。

ASP怎么实现urlrewite

2008-6-5 4:22:46
UrlRewrite是怎么样发生作用的？
简单的说，一个web server的工作就是根据用户请求的地址发送一个文件，或者运行一个cgi/脚本，并把运行结果发送给用户。加入了UrlRewrite功能的web server的工作流程略有变化，首先是看用户请求的地址是否包括在我们的替换规则里面。如果在，先把用户请求的地址进行改变，然后服务器按照新的地址进行文件传送或者cgi/脚本执行。

UrlRewrite有什么用处？
1、满足搜索引擎的要求

某些搜索引擎不能支持动态页面的抓取，大量的信息就不能被潜在用户搜索到。用UrlRewrite技术你可以把 http://yangshu.org/poplar.asp?id=111 变成 http://yangshu.org/poplar/111.shtml 这样他们就会被搜索引擎收录了。google虽然可以抓取动态页面，但是google对动态页面的评分一般低于静态页面。所以，对大量信息发布的网站，把网站地址改变成静态的绝对是值得的。

2、隐藏技术实现，提高网站的移植性

每个页面都挂着鲜明的.asp/.jsp这种开发语言的标记，可以一眼让人看出你的网站使用什么语言做的。而且在改变网站的语言的时候，你需要改动大量的链接。而且，一个页面修改了扩展名，他的pagerank也会随之消失，从头开始。我们可以用UrlRewrite技术隐藏我们的实现细节，这样修改移植都很方便，而且完全不损失pagerank。

3、满足美感的要求

对于追求完美主义的网站设计师，即使是网页的地址也要看起来简洁明快。形如 http://yangshu.org/poplar.asp?id=111 的网页地址，肯定是上不了完美主义者的法眼的，用UrlRewrite技术，你可以把他变成 http://yangshu.org/poplar/111.shtml 。

IIS 5.0支持UrlRewrite么？
答案很简单，不支持。但是我们可以通过安装服务器扩展让IIS支持。

目前有两种产品支持IIS 5.0的UrlRewrite，isapi_rewrite 和 IIS Rewrite。

isapi_rewrite: http://www.helicontech.com/download/#isapi_rewrite

IIS Rewrite :http://www.qwerksoft.com/products/iisrewrite/download.asp

这里只有ISAPI Rewrite的一个LITE版本是免费的，其它都是trial版本。ISAPI Rewrite Lite的版本功能。

我们采用isapi_rewrite Lite Version(免费版本)。

lite版本不支持虚拟站点配置，元数据监测和自动缓存清理。

metabase元数据：metabase 元数据库指一个驻留内存的数据存储区域，其中存放着IIS的配置值。/Metabase是储存成System32\Inetsrv 资料夹中的Metabase.bin文件

如何进行UrlRewrite的设置？
isapi_rewrite利用正则表达式进行替换规则的表示。

下面是一个简单的例子，我想让我们的用户输入 http://server/test-12314.html 实际上访问的是 http://server/test.asp?id=12314 。那么我们的匹配表达式应该是 /test-([0-9]*).html 对应的格式化表达式应该为 /test.asp\?id=$1 。

进行正则表达式的编写的时候，可以利用isapi_rewrite提供的正则表达式测试工具（默认安装提供），进行调试。

做好了匹配表达式和格式化表达式，我们可以按照下面的格式，把它们放到安装目录下的httpd.ini里面。

格式：RewriteRule 匹配表达式格式化表达式

刚才的例子：RewriteRule /test-([0-9]*).html /test.asp\?id=$1

文件保存后，不需重新启动iis即可生效。

参考资料：

面向Google(Search Engine Friendly)的URL设计
http://www.chedong.com/tech/google_url.html

ISAPI REWRITE文档
http://www.isapirewrite.com/docs/

经典正则表达式应用收藏

2008-6-5 4:22:00
正则表达式用于字符串处理，表单验证等场合，实用高效，但用到时总是不太把握，以致往往要上网查一番。我将一些常用的表达式收藏在这里，作备忘之用。本贴随时会更新。

匹配中文字符的正则表达式： [\u4e00-\u9fa5]

匹配双字节字符(包括汉字在内)：[^\x00-\xff]

应用：计算字符串的长度（一个双字节字符长度计2，ASCII字符计1）

String.prototype.len=function(){return this.replace([^\x00-\xff]/g,"aa").length;}

匹配空行的正则表达式：\n[\s| ]*\r

匹配HTML标记的正则表达式：/<(.*)>.*<\/\1>|<(.*) \/>/

匹配首尾空格的正则表达式：(^\s*)|(\s*$)

应用：javascript中没有像vbscript那样的trim函数，我们就可以利用这个表达式来实现，如下：

String.prototype.trim = function()
{
    return this.replace(/(^\s*)|(\s*$)/g, "");
}

利用正则表达式分解和转换IP地址：

下面是利用正则表达式匹配IP地址，并将IP地址转换成对应数值的javascript程序：

function IP2V(ip)
{
re=/(\d+)\.(\d+)\.(\d+)\.(\d+)/g  //匹配IP地址的正则表达式
if(re.test(ip))
{
return RegExp.$1*Math.pow(255,3))+RegExp.$2*Math.pow(255,2))+RegExp.$3*255+RegExp.$4*1
}
else
{
throw new Error("Not a valid IP address!")
}
}

不过上面的程序如果不用正则表达式，而直接用split函数来分解可能更简单，程序如下：

var ip="10.100.20.168"
ip=ip.split(".")
alert("IP值是："+(ip[0]*255*255*255+ip[1]*255*255+ip[2]*255+ip[3]*1))

匹配Email地址的正则表达式：\w+([-+.]\w+)*@\w+([-.]\w+)*\.\w+([-.]\w+)*

匹配网址URL的正则表达式：http://([\w-]+\.)+[\w-]+(/[\w- ./?%&=]*)?

利用正则表达式去除字串中重复的字符的算法程序：[注：此程序不正确：《]

var s="abacabefgeeii"
var s1=s.replace(/(.).*\1/g,"$1")
var re=new RegExp("["+s1+"]","g")
var s2=s.replace(re,"")
alert(s1+s2)  //结果为：abcefgi

我原来在CSDN上发贴寻求一个表达式来实现去除重复字符的方法，最终没有找到，这是我能想到的最简单的实现方法。思路是使用后向引用取出包括重复的字符，再以重复的字符建立第二个表达式，取到不重复的字符，两者串连。这个方法对于字符顺序有要求的字符串可能不适用。

得用正则表达式从URL地址中提取文件名的javascript程序，如下结果为page1

s="http://www.9499.net/page1.htm"
s=s.replace(/(.*\/){0,}([^\.]+).*/ig,"$2")
alert(s)

利用正则表达式限制网页表单里的文本框输入内容：

用正则表达式限制只能输入中文：onkeyup="value=value.replace(/[^\u4E00-\u9FA5]/g,'')" onbeforepaste="clipboardData.setData('text',clipboardData.getData('text').replace(/[^\u4E00-\u9FA5]/g,''))"

用正则表达式限制只能输入全角字符： onkeyup="value=value.replace(/[^\uFF00-\uFFFF]/g,'')" onbeforepaste="clipboardData.setData('text',clipboardData.getData('text').replace(/[^\uFF00-\uFFFF]/g,''))"

用正则表达式限制只能输入数字：onkeyup="value=value.replace(/[^\d]/g,'') "onbeforepaste="clipboardData.setData('text',clipboardData.getData('text').replace(/[^\d]/g,''))"

用正则表达式限制只能输入数字和英文：onkeyup="value=value.replace(/[\W]/g,'') "onbeforepaste="clipboardData.setData('text',clipboardData.getData('text').replace(/[^\d]/g,''))"

杂谈ASP生成静态Html文件技术

2008-6-5 4:13:48
网页生成静态Html文件有许多好处,比如生成html网页有利于被搜索引擎收录,不仅被收录的快还收录的全.前台脱离了数据访问,减轻对数据库访问的压力,加快网页打开速度.像http://yangshu.org/的主站就采用了生成html文件!以下为转,仅是生成HTML的基础内容,具体自己发挥吧

1,下面这个例子直接利用FSO把html代码写入到文件中然后生成.html格式的文件
<%
filename="test.htm"
if request("body")<>"" then
set fso = Server.CreateObject("Scripting.FileSystemObject")
set htmlwrite = fso.CreateTextFile(server.mappath(""&filename&""))
htmlwrite.write "" & request.form("title") & ""
htmlwrite.write "输出Title内容: " & request.form("title") & " 输出Body内容:" & request.form("body")& ""
htmlwrite.close
set fout=nothing
set fso=nothing
end if
%>

Body

2,但是按照上面的方法生成html文件非常不方便,第二种方法就是利用模板技术,将模板中特殊代码的值替换为从表单或是数据库字段中接受过来的值,完成模板功能;将最终替换过的所有模板代码生成HTML文件.这种技术采用得比较多,大部分的CMS都是使用这类方法.
template.htm ' //模板文件

$title$ by aspid.cn

$body$

?

TestTemplate.asp '// 生成Html
<%
Dim fso,htmlwrite
Dim strTitle,strContent,strOut
'// 创建文件系统对象
Set fso=Server.CreateObject("Scripting.FileSystemObject")
'// 打开网页模板文件，读取模板内容
Set htmlwrite=fso.OpenTextFile(Server.MapPath("Template.htm"))
strOut=f.ReadAll
htmlwrite.close

strTitle="生成的网页标题"
strContent="生成的网页内容"

'// 用真实内容替换模板中的标记
strOut=Replace(strOut,"$title$",strTitle)
strOut=Replace(strOut,"$body$",strContent)

'// 创建要生成的静态页
Set htmlwrite=fso.CreateTextFile(Server.MapPath("test.htm"),true)

'// 写入网页内容
htmlwrite.WriteLine strOut
htmlwrite.close

Response.Write "生成静态页成功！"

'// 释放文件系统对象
set htmlwrite=Nothing
set fso=Nothing
%>

3,第三种方法就是用XMLHTTP获取动态页生成的HTML内容，再用ADODB.Stream或者Scripting.FileSystemObject保存成html文件。这句话是在蓝色理想上看到的,对XMLHTTP吟清还不熟悉正在找资料了解.找到一段XMLHTTP生成Html的代码参考一下.

<%

'常用函数
'1、输入url目标网页地址，返回值getHTTPPage是目标网页的html代码
function getHTTPPage(url)
dim Http
set Http=server.createobject("MSXML2.XMLHTTP")
Http.open "GET",url,false
Http.send()
if Http.readystate<>4 then
exit function
end if
getHTTPPage=bytesToBSTR(Http.responseBody,"GB2312")
set http=nothing
if err.number<>0 then err.Clear
end function

'2、转换乱玛，直接用xmlhttp调用有中文字符的网页得到的将是乱玛，可以通过adodb.stream组件进行转换
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
BytesToBstr = objstream.ReadText
objstream.Close
set objstream = nothing
End Function

txtURL=server.MapPath("../index.asp")

sText = getHTTPPage(txtURL)

Set FileObject=Server.CreateObject("Scripting.FileSystemObject")
filename="../index.htm"
Set openFile=FileObject.OpenTextfile(server.mapPath(filename),2,true) 'true为不存在自行建立
openFile.writeline(sText)
Set OpenFile=nothing

%>

RegExp对象正则表达式功能用介绍

2008-6-5 4:09:26
首先，让我们来了解一下究竟什么是VBScript的“正则表达式”对象，我们先来看一段程序：
    ȫ

Function CheckExp(patrn, strng)

Dim regEx, Match　　 ’ 建立变量。

Set regEx = New RegExp ’ 建立正则表达式。

regEx.Pattern = patrn ’ 设置模式。

regEx.IgnoreCase = true ’ 设置是否区分字符大小写。

regEx.Global = True ’ 设置全局可用性。

Matches = regEx.test(strng) ’ 执行搜索。

CheckExp = matches

End Function

我们现在就看看在数据校验方面正则表达式对象常用的方法和属性：

常用方法
Execute 方法
描述：对指定的字符串执行正则表达式搜索。

语法：object.Execute(string)　　Execute 方法的语法包括以下几个部分：

object：必需的。总是一个 RegExp 对象的名称。

string：必需的。要在其上执行正则表达式的文本字符串。

说明：正则表达式搜索的设计模式是通过 RegExp 对象的 Pattern 来设置的。Execute 方法返回一个Matches 集合，其中包含了在 string 中找到的每一个匹配的 Match 对象。如果未找到匹配，Execute 将返回空的 Matches 集合。

Test方法
描述：对指定的字符串执行一个正则表达式搜索，并返回一个 Boolean 值指示是否找到匹配的模式。

语法：object.Test(string)

Test 方法的语法包括以下几个部分：

object：必需的。总是一个 RegExp 对象的名称。

string：必需的。要执行正则表达式搜索的文本字符串。

说明：正则表达式搜索的实际模式是通过RegExp对象的Pattern属性来设置的。RegExp.Global属性对Test方法没有影响。如果找到了匹配的模式，Test方法返回True；否则返回False。

常用属性：
Global属性
描述：设置或返回一个 Boolean 值，该值指明在整个搜索字符串时模式是全部匹配还是只匹配第一个。

语法：object.Global [= True | False ]

object 参数总是 RegExp 对象。如果搜索应用于整个字符串，Global 属性的值为 True，否则其值为 False。默认的设置为 True。

IgnoreCase属性
描述：设置或返回一个Boolean值，指明模式搜索是否区分大小写。

语法：object.IgnoreCase [= True | False ]

object 参数总是一个 RegExp 对象。如果搜索是区分大小写的，则 IgnoreCase 属性为 False；否则为 True。缺省值为 True。

Pattern属性
描述：设置或返回被搜索的正则表达式模式。这是一个最重要的属性，我们主要是设置这个属性来实现数据校验的。

语法：object.Pattern [= "searchstring"]

Pattern 属性的语法包含以下几个部分：

object：必需的。总是一个 RegExp 对象变量。

searchstring：可选的。被搜索的正则字符串表达式。它可能包含设置部分表格中的各种正则表达式字符。

设置：在书写正则表达式的模式时使用了特殊的字符和序列。下表描述了可以使用的字符和序列，并给出了实例。

字符描述：

\：将下一个字符标记为特殊字符或字面值。例如"n"与字符"n"匹配。"\n"与换行符匹配。序列"\[code=vbscript\]"与"\"匹配，"$"与"("匹配。

^ ：匹配输入的开始位置。

$ ：匹配输入的结尾。

* ：匹配前一个字符零次或几次。例如，"zo*"可以匹配"z"、"zoo"。

+ ：匹配前一个字符一次或多次。例如，"zo+"可以匹配"zoo",但不匹配"z"。

? ：匹配前一个字符零次或一次。例如，"a?ve?"可以匹配"never"中的"ve"。

.：匹配换行符以外的任何字符。

(pattern) 与模式匹配并记住匹配。匹配的子字符串可以从作为结果的 Matches 集合中使用 Item [0]...[n]取得。如果要匹配括号字符(和 )，可使用"\(" 或 "$"。

x|y：匹配 x 或 y。例如 "z|food" 可匹配 "z" 或 "food"。"(z|f)ood" 匹配 "zoo" 或 "food"。

{n}：n 为非负的整数。匹配恰好n次。例如，"o{2}" 不能与 "Bob 中的 "o" 匹配，但是可以与"foooood"中的前两个o匹配。

{n,} ：n 为非负的整数。匹配至少n次。例如，"o{2,}"不匹配"Bob"中的"o"，但是匹配"foooood"中所有的o。"o{1,}"等价于"o+"。"o{0,}"等价于"o*"。

{n,m} ：m 和 n 为非负的整数。匹配至少 n 次，至多 m 次。例如，"o{1,3}" 匹配 "fooooood"中前三个o。"o{0,1}"等价于"o?"。

[xyz] ：一个字符集。与括号中字符的其中之一匹配。例如，"[abc]" 匹配"plain"中的"a"。

[^xyz] ：一个否定的字符集。匹配不在此括号中的任何字符。例如，"[^abc]" 可以匹配"plain"中的"p".

[a-z] ：表示某个范围内的字符。与指定区间内的任何字符匹配。例如，"[a-z]"匹配"a"与"z"之间的任何一个小写字母字符。

[^m-z] ：否定的字符区间。与不在指定区间内的字符匹配。例如，"[m-z]"与不在"m"到"z"之间的任何字符匹配。

\b ：与单词的边界匹配，即单词与空格之间的位置。例如，"er\b" 与"never"中的"er"匹配，但是不匹配"verb"中的"er"。

\B ：与非单词边界匹配。"ea*r\B"与"never early"中的"ear"匹配。

\[code=vbscript\] ：与一个数字字符匹配。等价于[0-9]。

\D ：与非数字的字符匹配。等价于[^0-9]。

\f ：与分页符匹配。

\n ：与换行符字符匹配。

\r ：与回车字符匹配。

\s ：与任何白字符匹配，包括空格、制表符、分页符等。等价于"[ \f\n\r\t\v]"。

\S ：与任何非空白的字符匹配。等价于"[^ \f\n\r\t\v]"。

\t ：与制表符匹配。

\v ：与垂直制表符匹配。

\w ：与任何单词字符匹配，包括下划线。等价于"[A-Za-z0-9_]"。

\W ：与任何非单词字符匹配。等价于"[^A-Za-z0-9_]"。

\num ：匹配 num个，其中 num 为一个正整数。引用回到记住的匹配。例如，"(.)\1"匹配两个连续的相同的字符。

\n：匹配 n，其中n 是一个八进制换码值。八进制换码值必须是 1, 2 或 3 个数字长。

\xn：匹配n，其中n是一个十六进制的换码值。十六进制换码值必须恰好为两个数字长。例如，"\x41"匹配"A"。"\x041"等价于"\x04" 和 "1"。允许在正则表达式中使用 ASCII 码。

asp RegExp例子
我们想要对用户输入的电子邮件进行校验，那么，什么样的数据才算是一个合法的电子邮件呢？我可以这样输入：uestc95@263.net，当然我也会这样输入：xxx@yyy.com.cn,但是这样的输入就是非法的：xxx@@com.cn或者@xxx.com.cn，等等，所以我们得出一个合法的电子邮件地址至少应当满足以下几个条件：

1. 必须包含一个并且只有一个符号“@”

2. 必须包含至少一个至多三个符号“.”

3. 第一个字符不得是“@”或者“.”

4. 不允许出现“@.”或者.@

5. 结尾不得是字符“@”或者“.”

所以根据以上的原则和上面表中的语法，我们很容易的就可以得到需要的模板如下："(\w)+[@]{1}(\w)+[.]{1，3}(\w)+"

接下来我们仔细分析一下这个模板,首先“\w”表示邮件的开始字符只能是包含下划线的单词字符，这样，满足了第三个条件；“[@]{1}”表示在电子邮件中应当匹配并且只能匹配一次字符“@”,满足了条件一；同样的“[.]{1，3}”表示在电子邮件中至少匹配1个至多匹配3个字符“.” ，满足了第二个条件；模板最后的“(\w)+”表示结尾的字符只能是包含下划线在内的单词字符，满足了条件五；模板中间的“(\w)+”满足了条件四。

然后，我们就直接调用刚才的那个函数CheckExp("(\w)+[@]{1}(\w)+[.]{1}(\w)+",待校验的字符串)就好了，如果返回True就表示数据是合法的，否则就是不正确的，怎么样，简单吧。我们还可以写出来校验身份证号码的模板："([0-9]){15}"；校验URL的模板："^http://{1}((\w)+[.]){1,3}"等等；

正则表达式对象中最重要的属性就是：“Pattern”属性,只要真正掌握了这个属性，才可以自由的运用正则表达式对象来为我们的数据校验进行服务。

例如，"\11" 和 "\011" 都与一个制表符匹配。"\0011"等价于"\001" 与 "1"。八进制换码值不得超过 256。否则，只有前两个字符被视为表达式的一部分。允许在正则表达式中使用ASCII码。
在这段程序程序中，使用“New RegExp”来得到一个正则表达式对象，然后对这个对象进行正则匹配模板的赋值，也就是告诉正则表达式对象，你想要匹配一个什么样子的模板，然后使用方法Test来检测待处理的数据究竟和我们给出的模版是否相匹配，如果不匹配，那就表明待处理的数据不是合法的数据，从而也就实现了数据合法性的校验，我们可以看出，使用一个设计合理的匹配模板，我们可以轻松的校验一批格式类似的数据信息。

阳历转农历(VB)

2008-6-3 16:55:13
[codd]

<%

Function Nongli()

Dim WeekName(7), MonthAdd(11), NongliData(99), TianGan(9), DiZhi(11), ShuXiang(11), DayName(30), MonName(12)

Dim curTime, curYear, curMonth, curDay, curWeekday

Dim GongliStr, WeekdayStr, NongliStr, NongliDayStr

Dim i, m, n, k, isEnd, bit, TheDate

'获取当前系统时间

curTime = Date

'星期名

WeekName(0) = " * "

WeekName(1) = "星期日"

WeekName(2) = "星期一"

WeekName(3) = "星期二"

WeekName(4) = "星期三"

WeekName(5) = "星期四"

WeekName(6) = "星期五"

WeekName(7) = "星期六"

'天干名称

TianGan(0) = "甲"

TianGan(1) = "乙"

TianGan(2) = "丙"

TianGan(3) = "丁"

TianGan(4) = "戊"

TianGan(5) = "己"

TianGan(6) = "庚"

TianGan(7) = "辛"

TianGan(8) = "壬"

TianGan(9) = "癸"

'地支名称

DiZhi(0) = "子"

DiZhi(1) = "丑"

DiZhi(2) = "寅"

DiZhi(3) = "卯"

DiZhi(4) = "辰"

DiZhi(5) = "巳"

DiZhi(6) = "午"

DiZhi(7) = "未"

DiZhi(8) = "申"

DiZhi(9) = "酉"

DiZhi(10) = "戌"

DiZhi(11) = "亥"

'属相名称

ShuXiang(0) = "鼠"

ShuXiang(1) = "牛"

ShuXiang(2) = "虎"

ShuXiang(3) = "兔"

ShuXiang(4) = "龙"

ShuXiang(5) = "蛇"

ShuXiang(6) = "马"

ShuXiang(7) = "羊"

ShuXiang(8) = "猴"

ShuXiang(9) = "鸡"

ShuXiang(10) = "狗"

ShuXiang(11) = "猪"

'农历日期名

DayName(0) = "*"

DayName(1) = "初一"

DayName(2) = "初二"

DayName(3) = "初三"

DayName(4) = "初四"

DayName(5) = "初五"

DayName(6) = "初六"

DayName(7) = "初七"

DayName(8) = "初八"

DayName(9) = "初九"

DayName(10) = "初十"

DayName(11) = "十一"

DayName(12) = "十二"

DayName(13) = "十三"

DayName(14) = "十四"

DayName(15) = "十五"

DayName(16) = "十六"

DayName(17) = "十七"

DayName(18) = "十八"

DayName(19) = "十九"

DayName(20) = "二十"

DayName(21) = "廿一"

DayName(22) = "廿二"

DayName(23) = "廿三"

DayName(24) = "廿四"

DayName(25) = "廿五"

DayName(26) = "廿六"

DayName(27) = "廿七"

DayName(28) = "廿八"

DayName(29) = "廿九"

DayName(30) = "三十"

'农历月份名

MonName(0) = "*"

MonName(1) = "正"

MonName(2) = "二"

MonName(3) = "三"

MonName(4) = "四"

MonName(5) = "五"

MonName(6) = "六"

MonName(7) = "七"

MonName(8) = "八"

MonName(9) = "九"

MonName(10) = "十"

MonName(11) = "十一"

MonName(12) = "腊"

'公历每月前面的天数

MonthAdd(0) = 0

MonthAdd(1) = 31

MonthAdd(2) = 59

MonthAdd(3) = 90

MonthAdd(4) = 120

MonthAdd(5) = 151

MonthAdd(6) = 181

MonthAdd(7) = 212

MonthAdd(8) = 243

MonthAdd(9) = 273

MonthAdd(10) = 304

MonthAdd(11) = 334

'农历数据

NongliData(0) = 2635

NongliData(1) = 333387

NongliData(2) = 1701

NongliData(3) = 1748

NongliData(4) = 267701

NongliData(5) = 694

NongliData(6) = 2391

NongliData(7) = 133423

NongliData(8) = 1175

NongliData(9) = 396438

NongliData(10) = 3402

NongliData(11) = 3749

NongliData(12) = 331177

NongliData(13) = 1453

NongliData(14) = 694

NongliData(15) = 201326

NongliData(16) = 2350

NongliData(17) = 465197

NongliData(18) = 3221

NongliData(19) = 3402

NongliData(20) = 400202

NongliData(21) = 2901

NongliData(22) = 1386

NongliData(23) = 267611

NongliData(24) = 605

NongliData(25) = 2349

NongliData(26) = 137515

NongliData(27) = 2709

NongliData(28) = 464533

NongliData(29) = 1738

NongliData(30) = 2901

NongliData(31) = 330421

NongliData(32) = 1242

NongliData(33) = 2651

NongliData(34) = 199255

NongliData(35) = 1323

NongliData(36) = 529706

NongliData(37) = 3733

NongliData(38) = 1706

NongliData(39) = 398762

NongliData(40) = 2741

NongliData(41) = 1206

NongliData(42) = 267438

NongliData(43) = 2647

NongliData(44) = 1318

NongliData(45) = 204070

NongliData(46) = 3477

NongliData(47) = 461653

NongliData(48) = 1386

NongliData(49) = 2413

NongliData(50) = 330077

NongliData(51) = 1197

NongliData(52) = 2637

NongliData(53) = 268877

NongliData(54) = 3365

NongliData(55) = 531109

NongliData(56) = 2900

NongliData(57) = 2922

NongliData(58) = 398042

NongliData(59) = 2395

NongliData(60) = 1179

NongliData(61) = 267415

NongliData(62) = 2635

NongliData(63) = 661067

NongliData(64) = 1701

NongliData(65) = 1748

NongliData(66) = 398772

NongliData(67) = 2742

NongliData(68) = 2391

NongliData(69) = 330031

NongliData(70) = 1175

NongliData(71) = 1611

NongliData(72) = 200010

NongliData(73) = 3749

NongliData(74) = 527717

NongliData(75) = 1452

NongliData(76) = 2742

NongliData(77) = 332397

NongliData(78) = 2350

NongliData(79) = 3222

NongliData(80) = 268949

NongliData(81) = 3402

NongliData(82) = 3493

NongliData(83) = 133973

NongliData(84) = 1386

NongliData(85) = 464219

NongliData(86) = 605

NongliData(87) = 2349

NongliData(88) = 334123

NongliData(89) = 2709

NongliData(90) = 2890

NongliData(91) = 267946

NongliData(92) = 2773

NongliData(93) = 592565

NongliData(94) = 1210

NongliData(95) = 2651

NongliData(96) = 395863

NongliData(97) = 1323

NongliData(98) = 2707

NongliData(99) = 265877

'生成当前公历年、月、日 ==> GongliStr

curYear = Year(curTime)

curMonth = Month(curTime)

curDay = Day(curTime)

GongliStr = curYear & "年"

If (curMonth < 10) Then

    GongliStr = GongliStr & "0" & curMonth & "月"

Else

    GongliStr = GongliStr & curMonth & "月"

End If

If (curDay < 10) Then

    GongliStr = GongliStr & "0" & curDay & "日"

Else

    GongliStr = GongliStr & curDay & "日"

End If

'生成当前公历星期 ==> WeekdayStr

curWeekday = Weekday(curTime)

WeekdayStr = WeekName(curWeekday)

'计算到初始时间1921年2月8日的天数：1921-2-8(正月初一)

TheDate = (curYear - 1921) * 365 + Int((curYear - 1921) / 4) + curDay + MonthAdd(curMonth - 1) - 38

If ((curYear Mod 4) = 0 And curMonth > 2) Then

    TheDate = TheDate + 1

End If

'计算农历天干、地支、月、日

isEnd = 0

m = 0

Do

    If (NongliData(m) < 4095) Then

        k = 11

    Else

        k = 12

    End If

    n = k

    Do

        If (n < 0) Then

            Exit Do

        End If

    '获取NongliData(m)的第n个二进制位的值

    bit = NongliData(m)

    For q = 1 To n Step 1

        bit = Int(bit / 2)

    Next

    bit = bit Mod 2

    If (TheDate <= 29 + bit) Then

        isEnd = 1

        Exit Do

    End If

    TheDate = TheDate - 29 - bit

    n = n - 1

  Loop

  If (isEnd = 1) Then

      Exit Do

  End If

  m = m + 1

Loop

curYear = 1921 + m

curMonth = k - n + 1

curDay = TheDate

If (k = 12) Then

    If (curMonth = (Int(NongliData(m) / 65536) + 1)) Then

        curMonth = 1 - curMonth

    ElseIf (curMonth > (Int(NongliData(m) / 65536) + 1)) Then

        curMonth = curMonth - 1

    End If

End If

'生成农历天干、地支、属相 ==> NongliStr

NongliStr = TianGan(((curYear - 4) Mod 60) Mod 10) & DiZhi(((curYear - 4) Mod 60) Mod 12)

NongliStr = NongliStr & "(" & ShuXiang(((curYear - 4) Mod 60) Mod 12) & ")年"

'生成农历月、日 ==> NongljDayStr

If (curMonth < 1) Then

    NongliDayStr = "闰" & MonName(-1 * curMonth)

Else

    NongliDayStr = MonName(curMonth)

End If

NongliDayStr = NongliDayStr & "月"

NongliDayStr = NongliDayStr & DayName(curDay)

NongLi= NongliStr & "   " & NongliDayStr

end Function

%>

[/code]

Jmail发邮件代码(测试成功)

2008-6-3 16:26:56
按照下面的说明调用SendMail函数！

Jmail 4.4.0 Free Edition可以到这里下载http://dev.mo.cn/detial.asp?id=60(注册方法,拷贝jmail.dll到system32文件夹,开始-运行-输入regsvr32 jmail.dll-确定)

    ȫ

<%

'按照下面方法调用

response.write SendMail("发邮件服务器，例smtp.126.com","你的登陆帐号","你的登陆密码","邮件标题","收件人地址","发件人姓名","邮件内容","发件人邮箱地址")

'****************************************************

    '参数说明

      'Subject     : 邮件标题

      'MailAddress : 发件服务器的地址,如smtp.163.com

      'LoginName     ----登录用户名(不需要请填写"")

      'LoginPass     ----用户密码(不需要请填写"")

      'Email       : 收件人邮件地址

      'Sender      : 发件人姓名

      'Content     : 邮件内容

      'Fromer      : 发件人的邮件地址

    '****************************************************

      Public Function SendMail(MailAddress, LoginName, LoginPass, Subject, Email, Sender, Content, Fromer)

       On Error Resume Next

        Dim JMail

          Set jmail = Server.CreateObject("JMAIL.Message") '建立发送邮件的对象

            jmail.silent = true '屏蔽例外错误，返回FALSE跟TRUE两值j

            jmail.Charset = "GB2312" '邮件的文字编码为国标

            jmail.ContentType = "text/html" '邮件的格式为HTML格式

            jmail.AddRecipient Email '邮件收件人的地址

            jmail.From = Fromer '发件人的E-MAIL地址

            jmail.FromName = Sender

              If LoginName <> "" And LoginPass <> "" Then

                JMail.MailServerUserName = LoginName '您的邮件服务器登录名

                JMail.MailServerPassword = LoginPass '登录密码

              End If

            jmail.Subject = Subject '邮件的标题

            JMail.Body = Content

            JMail.Priority = 1'邮件的紧急程序，1 为最快，5 为最慢， 3 为默认值

            jmail.Send(MailAddress) '执行邮件发送（通过邮件服务器地址）

            jmail.Close() '关闭对象

        Set JMail = Nothing

        If Err Then

            SendMail = Err.Description

            Err.Clear

        Else

            SendMail = "邮件发送完毕!"

        End If

      End Function

%>

ASP常用数据库连接及操作的方法和技巧

2008-6-3 13:34:44
1.ASP连接Access数据库
    ȫ

<%
dim conn,mdbfile
mdbfile=server.mappath("数据库名称.mdb")
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};uid=admin;pwd=数据库密码;dbq="&mdbfile
%>

2. ASP与SQL数据库连接：
    ȫ

<%
dim conn
set conn=server.createobject("ADODB.connection")
conn.open "PROVIDER=SQLOLEDB;DATA SOURCE=SQL服务器名称或IP地址;UID=sa;PWD=数据库密码;DATABASE=数据库名称"
%>

建立记录集对象：
Set rs=server.createobject("adodb.recordset")
rs.open SQL语句,conn,3,2

3. SQL常用命令使用方法：

(1) 数据记录筛选：

sql="select * from 数据表 where 字段名=字段值 order by 字段名 "
sql="select * from 数据表 where 字段名 like ‘%字段值%‘ order by 字段名 "
sql="select top 10 * from 数据表 where 字段名 order by 字段名 "
sql="select * from 数据表 where 字段名 in (‘值1‘,‘值2‘,‘值3‘)"
sql="select * from 数据表 where 字段名 between 值1 and 值2"

(2) 更新数据记录：

sql="update 数据表 set 字段名=字段值 where 条件表达式"
sql="update 数据表 set 字段1=值1,字段2=值2 …… 字段n=值n where 条件表达式"

(3) 删除数据记录：

sql="delete from 数据表 where 条件表达式"
sql="delete from 数据表" (将数据表所有记录删除)

(4) 添加数据记录：

sql="insert into 数据表 (字段1,字段2,字段3 …) valuess (值1,值2,值3 …)"
sql="insert into 目标数据表 select * from 源数据表" (把源数据表的记录添加到目标数据表)

(5) 数据记录统计函数：

AVG(字段名) 得出一个表格栏平均值
COUNT(* ¦字段名) 对数据行数的统计或对某一栏有值的数据行数统计
MAX(字段名) 取得一个表格栏最大的值
MIN(字段名) 取得一个表格栏最小的值
SUM(字段名) 把数据栏的值相加

引用以上函数的方法：

sql="select sum(字段名) as 别名 from 数据表 where 条件表达式"
set rs=conn.excute(sql)

用 rs("别名") 获取统的计值，其它函数运用同上。

(5) 数据表的建立和删除：

CREATE TABLE 数据表名称(字段1 类型1(长度),字段2 类型2(长度) …… )

例：CREATE TABLE tab01(name varchar(50),datetime default now())

DROP TABLE 数据表名称 (永久性删除一个数据表)

(6) 记录集对象的方法：
rs.movenext 将记录指针从当前的位置向下移一行
rs.moveprevious 将记录指针从当前的位置向上移一行
rs.movefirst 将记录指针移到数据表第一行
rs.movelast 将记录指针移到数据表最后一行
rs.absoluteposition=N 将记录指针移到数据表第N行
rs.absolutepage=N 将记录指针移到第N页的第一行
rs.pagesize=N 设置每页为N条记录
rs.pagecount 根据 pagesize 的设置返回总页数
rs.recordcount 返回记录总数
rs.bof 返回记录指针是否超出数据表首端，true表示是，false为否
rs.eof 返回记录指针是否超出数据表末端，true表示是，false为否
rs.delete 删除当前记录，但记录指针不会向下移动
rs.addnew 添加记录到数据表末端
rs.update 更新数据表记录

判断所填数据是数字型

if not isNumeric(request("字段名称")) then
response.write "不是数字"
else
response.write "数字"
end if

经常使用到有关数据库的操作。包括连接代码、SQL命令等等，又不曾刻意去记忆它们（我本人是不愿意去记这东东），所以常常在用到的时候又去查书本，翻来翻去。一些比较少用的数据库还不一定能顺利找到，所以现在把它们全归纳到这里，提供大家参考。

一、数据库的连接方法：
1.Access数据库的DSN-less连接方法:
set adocon=Server.Createobject("adodb.connection")
adoconn.Open"Driver={Microsoft Access Driver(*.mdb)};DBQ="& _
Server.MapPath("数据库所在路径")

2.Access OLE DB连接方法：

set adocon=Server.Createobject("adodb.connection")
adocon.open"Provider=Microsoft.Jet.OLEDB.4.0;"& _
"Data Source=" & Server.MapPath("数据库所在路径")

3.SQL server连接方法：

set adocon=server.createobject("adodb.adodb.connection")
adocon.Open"Driver={SQL Server};Server=(Local);UID=***;PWD=***;"& _
"database=数据库名;"

4.SQL server OLE DB连接方法:

set adocon=Server.Createobject("adodb.connection")
adocon.open"provider=SQLOLEDB.1;Data Source=RITANT4;"& _
"user ID=***;Password=***;"& _
"inital Catalog=数据库名"

5.Oracle 连接方法:

set adocon=Server.Createobject("adodb.connection")
adocon.open"Driver={microsoft odbc for oracle};server=oraclesever.world;uid=admin;pwd=pass;"

6.Oracle OLE DB 连接方法:

set adocon=Server.Createobject("adodb.connection")
adocon.open"Provider=OraOLEDB.Oracle;data source=dbname;user id=admin;password=pass;"

7.dBase 连接方法:

set adocon=Server.Createobject("adodb.connection")
adocon.open"Driver={microsoft dbase driver(*.dbf)};driverid=277;dbq=------------;"

8.mySQL 连接方法:

set adocon=Server.Createobject("adodb.connection")
adocon.open"Driver={mysql};database=yourdatabase;uid=username;pwd=yourpassword;option=16386;"

9.Visual Foxpro 连接方法:

set adocon=Server.Createobject("adodb.connection")
adocon.open"Driver={microsoft Visual Foxpro driver};sourcetype=DBC;sourceDB=*.dbc;Exclusive=No;"

10.MS text 连接方法:

set adocon=Server.Createobject("adodb.connection")
adocon.open"Driver={microsoft text driver(*.txt; *.csv)};dbq=-----;"&_
"extensions=asc,csv,tab,txt;Persist SecurityInfo=false;"

11.MS text OLE DB 连接方法:

set adocon=Server.Createobject("adodb.connection")
adocon.open"Provider=microsof.jet.oledb.4.0;data source=your_path;"&_
"Extended Properties'text;FMT=Delimited'"

<二>。常用的四种SQL命令：

1.查询数据记录(Select)
语法：Select 字段串行 From table Where 字段=内容
例子：想从book表中找出作者为"cancer"的所有记录，SQL语句便如下：
select * from book where author=’cancer’
"*"是取出book表所有的字段，如查询的字段值为数字，则其后的"内容"便无须加上单引号，

如是日期，则在Access中用(#)包括，而在SQL server中则用(’)包括，
如:

select * from book where id=1
select * from book where pub_date=#2002-1-7# (Access)
select * from book where pub_date=’2002-1-7’ (SQL Server)

提示：
日期函数to_date不是标准sql文，不是所有的数据库适用，所以大家在使用的时候要参考数据库具体语法

另外如果是查询传入的变量，则如下：

strau=request.form("author")
strsql="select * from book where author=’"&strau&"’"

如果查询的是数字，则：

intID=request.form("id")
strsql="select * from book where id="&intID

在很多数据库中，如：oracle，上面的语句是可以写成：
strsql="select * from book where id='"&intID&"'"的。
但是字符型一定不能按照数字格式写，需要注意。

2.添加记录(Insert)
语法：Insert into table(field1,field2,....) Values (value1,value2,....)
例子：添加一作者是"cancer"的记录入book表:
insert into book (bookno,author,bookname) values (’CF001’,’cancer’,’Cancer无组件上传程序’)
同样，如果用到变量就如下：

strno=request.form("bookno")
strau=request.form("author")
strname=request.form("bookname")
strsql="insert into book (bookno,author,bookname) values (’"&strno&"’,’"&strau&"’,’"&strname&"’)"

3.用Recordset对象的Addnew插入数据的方法:
语法：

rs.addnew
rs("field1").value=value1
rs("field2").value=value2
...
rs.update

4.修改数据记录(Update)
语法：update table set field1=value1,field2=value2,...where fieldx=valuex
例子：update book set author=’babycrazy’ where bookno=’CF001’
如果用到变量就如下：

strno=request.form("bookno")
strau=request.form("author")
strsql="update book set author=’"&strau&"’ where bookno=’"&strno"’"

5.Recordset对象的Update方法:
语法：

rs("field1").value=value1
rs("field2").value=value2
...
rs.update

注意：使用语法3和语法5的时候，一定要注意字段的类型（尤其是日期型）一致，否则出错的几率非常的高。

例子：
    ȫ

strno=request.form("bookno")
strau=request.form("author")
set adocon=server.createobject("adodb.connection")
adocon.open "Driver={Microsoft Access Driver(*.mdb)};DBQ=" & _
Server.Mappath=("/cancer/cancer.mdb")
strsql="select * from book where bookno=’"&strno&"’"
set rs=server.createobject("adodb.recordset")
rs.open strsql,adconn,1,3
if not rs.eof then ’如果有此记录的话
rs("author").value=strau
rs.update
end if
rs.close
set rs=nothing
adocon.close
set adocon=nothing

6.删除一条记录(Delete)
语法：Delete table where field=value
例子：删除book表中作者是cancer的记录

delete book where author=’cancer’

(注意：如果book表中author字段的值为cancer的记录有多条，将会删除所有author为cancer的记录)

XmlHttp是什么？

2008-6-2 23:29:53
XmlHttp是什么？

最通用的定义为：XmlHttp是一套可以在Javascript、VbScript、Jscript等脚本语言中通过http协议传送或从接收XML及其他数据的一套API。XmlHttp最大的用处是可以更新网页的部分内容而不需要刷新整个页面。
来自MSDN的解释：XmlHttp提供客户端同http服务器通讯的协议。客户端可以通过XmlHttp对象(MSXML2.XMLHTTP.3.0)向http服务器发送请求并使用微软XML文档对象模型Microsoft® XML Document Object Model (DOM)处理回应。

现在的绝对多数浏览器都增加了对XmlHttp的支持，IE中使用ActiveXObject方式创建XmlHttp对象，其他浏览器如：Firefox、Opera等通过window.XMLHttpRequest来创建xmlhttp对象。

XmlHttp对象参考：
属性：
onreadystatechange* 指定当readyState属性改变时的事件处理句柄。只写
readyState 返回当前请求的状态，只读.
responseBody 将回应信息正文以unsigned byte数组形式返回.只读
responseStream 以Ado Stream对象的形式返回响应信息。只读
responseText 将响应信息作为字符串返回.只读
responseXML 将响应信息格式化为Xml Document对象并返回，只读
status 返回当前请求的http状态码.只读
statusText 返回当前请求的响应行状态，只读

* 表示此属性是W3C文档对象模型的扩展.

方法：
abort 取消当前请求
getAllResponseHeaders 获取响应的所有http头
getResponseHeader 从响应信息中获取指定的http头
open 创建一个新的http请求，并指定此请求的方法、URL以及验证信息(用户名/密码)
send 发送请求到http服务器并接收回应
setRequestHeader 单独指定请求的某个http头

自己写的ajax无刷新投票，IE下正常调用~~

2008-5-23 11:57:09
自己写的ajax无刷新投票，IE下正常调用~~

投票页面

    ȫ

        调查投票





        您对本站的印象如何?

        很好(共票)

        还可以(共票)

        一般(共票)

        不好(共票)

        很差(共票)











//无刷新投票

Star(document.vot_frm,0);

var oBao;

//创建组件

function createobj() {

if (window.ActiveXObject) {

         oBao=new ActiveXObject("Microsoft.XMLHTTP");

     }

     else if (window.XMLHttpRequest) {

         oBao=new XMLHttpRequest();

     }

}

//调用并返回结果

function Star(frm,ty) {

createobj();

var id=0;

if(ty==1) {

for(var i=0;i
if(frm.elements[ i].checked) {

id=frm.elements[ i].value;

}

}

}

var my_url="vote.asp?vote="+id;

oBao.open("POST",my_url,false);

oBao.send(null);

var strResult = unescape(oBao.responseText);

for(var j=1;j<6;j++){

document.getElementById("s"+j).innerText =strResult.split(" ")[j-1];

}

}

//定时刷新

window.setInterval("Star(document.vot_frm,0);",5000);

vote.asp的内容

    ȫ

'连接你自己的数据库，最好根据自己的数据库重新写下面的代码~~

<%

dim n

n=""

if request.querystring("vote")<>"" or request.querystring("vote")>0 then

sql="update vote set count=count+1 where vote='vote"&request.querystring("vote")&"'"

conn.execute sql

end if

set rs=server.createobject("adodb.recordset")

sql="select * from vote"

rs.open sql,conn,1,1

do while not rs.eof

n=n&" "&rs(1)

rs.movenext

loop

response.write trim(n)

%>

利用AJAX进行whois查询

2008-5-7 3:28:17
ajax说新颖也不新颖的一项技术，如果你用过google map服务就会体会到他的优点，当然不能乱用，呵呵！
下面是自己写的一个小例子，仅供参考，见笑！
详细内容可去网上搜索~
具体代码如下:

main.html内容
    ȫ

利用AJAX调用whois查询

fun.js内容

    ȫ

var a="http://whois.hichina.com/cgi-bin/whois?domain=";
var b="&B1=GO";
function CreateXMLHttpRequest() {
    var request = false;
    if (window.XMLHttpRequest) {
        request = new XMLHttpRequest();
        if (request.overrideMimeType) {
            request.overrideMimeType('text/xml');
        }
    } else if (window.ActiveXObject) {
        try {
            request = new ActiveXObject("Msxml2.XMLHTTP");
        } catch (e) {
            try {
                request = new ActiveXObject("Microsoft.XMLHTTP");
            } catch (e) {return false;}
    }   }
    if (!request) {
        alert('Create XMLHTTP Object false.');
        return false;
    }
    return request;
}

function Request(domain,method) {
    var obj=document.getElementById("whois");  //定位到div
    var xmlHttp = CreateXMLHttpRequest();
    xmlHttp.open(method, a+domain+b, true);
    //xmlHttp.setRequestHeader("Content-Length", body.length);
    //xmlHttp.setRequestHeader("Content-Type", "application/x-www-form-urlencoded"); //application/x-www-form-urlencoded
    xmlHttp.onreadystatechange = function(){
    if(xmlHttp.readyState==4){          //4代表数据已经从服务器返回
      if(xmlHttp.status==200){     //200代表页面正常
        var strResult =xmlHttp.responseText;       //以文本方式取得返回内容
        //下面是分离截取的内容，显示我们需要的部分
        var c=strResult.search(/\/);
        var d=strResult.search(/\<\/pre\>/);
        var str=strResult.substr(c+5,d-c-5);
        str=str.replace(/\n/gi,'
');        //显示信息
        str=str.replace(/请.*$/,'');        //显示信息
        obj.innerHTML=str;
      }else{
        obj.innerHTML="服务器返回错误!";
       }
    }else{
      obj.innerHTML="数据请求中...";
    }
    }
    xmlHttp.send(null);
}

一个简单的JavaScript对象编程示例

2008-3-28 6:49:34

    ȫ

    一个简单的JavaScript对象编程示例

function pig(Speed){
        this.runSpeed=Speed;
        this.Run=function(runTime){
            return  runTime * this.runSpeed;
        };
}

var aPig=new pig("10");
document.write("我是一头小猪,我的速度是" + aPig.runSpeed +"公里/小时;我要开始跑步了....");
var runOver=aPig.Run(5);
document.write("跑了5小时,终于跑完了;我跑了" + runOver + "公里!");