壹次网 - 网络编程 http://www.yici.net 网络编程 zh-cn Www.Yici.Net Copyright 2006-2012 www.Yici.Net, All Rights Reserved 2012-5-19 18:02:39 [JavaScript]eWebEditor不支持IE9、IE8、IE7、火狐、遨游的解决方法 http://www.yici.net/content/text_all/text_0/711_1.html 佚名 JavaScript 2012-5-19 17:27:00 昨天ie8正式发布了，偶也去下载了一个，感觉很爽，&nbsp;还在美的时候，突然发现很多网页都出问题，更可气的是自己的网站编辑器也不管用了，所有的按钮都不管用，即使是别的浏览器也都不管用，我这叫一个汗。于是就去360论坛找人问，因为我用的360浏览器以为是360浏览器的问题。问了半天也没有人回答我于是我就去网上找，由于今天才出的ie8所以网上根本也没有这方面的解决办法，于是到了第二天，网上终于有了这样的贴子，所以我也找了找解决办法。&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;在一个哥们的贴子中是这样写的，打开include下面的editor.js文件，有这样的段代码： <BR><BR>if&nbsp;(element.YUSERONCLICK)&nbsp;{ <BR>&nbsp;&nbsp;&nbsp;&nbsp;eval(element.YUSERONCLICK&nbsp;+&nbsp;"anonymous()"); <BR>} <BR>或 <BR>if&nbsp;(element.YUSERONCLICK)&nbsp;eval(element.YUSERONCLICK&nbsp;+&nbsp;"anonymous()"); <BR>或&nbsp;&nbsp;&nbsp;&nbsp; <BR>if&nbsp;(element.YUSERONCLICK)&nbsp;eval(element.YUSERONCLICK&nbsp;+&nbsp;"anonymous()"); <BR><BR>&nbsp;&nbsp;&nbsp;&nbsp;说是因为ie8屏蔽了anonymous方法&nbsp;所以要改成click方法，于是就改成这样，但是我又有了一个惊人的发现，那就是改成这样之后在ie7下编辑器就不管用了，痛苦之余我又去网上查，网上果然高水如云，果然在csdn上找到了答案： <BR><BR>if(navigator.appVersion.match(/8./i)=='8.')&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp;{&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;if&nbsp;(element.YUSERONCLICK)&nbsp;eval(element.YUSERONCLICK&nbsp;+&nbsp;"onclick(event)");&nbsp;&nbsp;&nbsp; <BR>&nbsp;&nbsp;&nbsp;}&nbsp; <BR>else <BR><BR>&nbsp;&nbsp;&nbsp;{&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;if&nbsp;(element.YUSERONCLICK)&nbsp;eval(element.YUSERONCLICK&nbsp;+&nbsp;"anonymous()");&nbsp; <BR>} <BR><BR>如果还是不行用下面这个 <BR><BR>if(navigator.appVersion.match(/8./i)=='8.'&nbsp;||&nbsp;navigator.appVersion.match(/7./i)=='7.'){ <BR>if&nbsp;(element.YUSERONCLICK)&nbsp;eval(element.YUSERONCLICK&nbsp;+&nbsp;"onclick(event)");&nbsp;//IE8&nbsp;or&nbsp;IE7 <BR>}&nbsp;else&nbsp;{ <BR>if&nbsp;(element.YUSERONCLICK)&nbsp;eval(element.YUSERONCLICK&nbsp;+&nbsp;"anonymous()");&nbsp;//IE6 <BR>} <BR><BR><BR>把代码改成这样之后在ie7和ie8下就都管用了。 <BR><BR>========================================================================= <BR><BR>以上是一个人的说话,以下是另一个人的 <BR><BR>还有由于那个eWebEditor编辑器的问题。 <BR><BR>今天检查公司一老站后台，发现eWebEditor编辑不能使用，按照网上找的答案 <BR><BR>找到editor.js文件，把这文件里的一行语句if(element.YUSERONCLICK)eval(element.YUSERONCLICK&nbsp;+&nbsp;“anonymous()”);&nbsp; <BR>修改成&nbsp; <BR>if(navigator.appVersion.match(/8./i)==’8.’)&nbsp; <BR>{&nbsp; <BR>if(element.YUSERONCLICK)eval(element.YUSERONCLICK&nbsp;+&nbsp;“onclick(event)”);&nbsp; <BR>}&nbsp; <BR>else&nbsp; <BR>{&nbsp; <BR>if(element.YUSERONCLICK)eval(element.YUSERONCLICK&nbsp;+&nbsp;“anonymous()”);&nbsp; <BR>}&nbsp; <BR>原因是IE8不支持anonymous（），所以要换成onclick(event)事件。 <BR><BR><BR>修改之后一同事使用IE7竟然不能正常使用该编辑器，修改之后可以。 <BR><BR>估计还是那行代码的问题。恢复以前的，IE7可以而IE8不可以。看来还必须先判断IE版本然后再写不同的代码。 <BR><BR>于是就使用了下面的代码： <BR>if(navigator.appVersion.match(/8./i)=='8.'){ <BR>&nbsp;&nbsp;&nbsp;&nbsp;if&nbsp;(element.YUSERONCLICK)&nbsp;eval(element.YUSERONCLICK&nbsp;+&nbsp;"onclick(event)"); <BR>}else{ <BR>&nbsp;&nbsp;&nbsp;&nbsp;if&nbsp;(element.YUSERONCLICK)&nbsp;eval(element.YUSERONCLICK&nbsp;+&nbsp;"anonymous()"); <BR>} <BR><BR>修改之后在IE8和IE7均可以正常使用eWebEditor编辑器。 <BR><BR>但是在装有IE8的机器上使用傲游浏览器竟然不能使用该编辑器，纳闷了，傲游是IE内核，应该可以呀。 <BR><BR>于是就使用alert(navigator.appVersion)弹出信息，结果发现竟然是IE7？ <BR>晕了！竟然不一样？难道傲游没有用到真正的IE8内核？还是显示的问题？ <BR><BR>难道再加一句判断傲游的？ <BR>没办法： <BR><BR>if(navigator.appVersion.match(/8./i)=='8.'&nbsp;||&nbsp;navigator.appVersion.match(/MAXTHON/i)=='MAXTHON'){ <BR>&nbsp;&nbsp;&nbsp;&nbsp;if&nbsp;(element.YUSERONCLICK)&nbsp;eval(element.YUSERONCLICK&nbsp;+&nbsp;"onclick(event)"); <BR>}else{ <BR>&nbsp;&nbsp;&nbsp;&nbsp;if&nbsp;(element.YUSERONCLICK)&nbsp;eval(element.YUSERONCLICK&nbsp;+&nbsp;"anonymous()"); <BR>} <BR><BR><BR>前几天看新闻说傲游开发自己的内核浏览器，希望众多浏览器在兼容代码上好一些，不要浪费编写代码者的那么多找不兼容问题、调试不兼容问题的时间。 <BR><BR>如果上面不行的话,请使用下面的方法: <BR><BR>try{&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;if&nbsp;(element.YUSERONCLICK)&nbsp;eval(element.YUSERONCLICK&nbsp;+&nbsp;"anonymous()");&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp;}&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp;catch(e){&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;if&nbsp;(element.YUSERONCLICK)&nbsp;eval(element.YUSERONCLICK&nbsp;+&nbsp;"onclick(event)");&nbsp; <BR><BR><BR>================================== <BR><BR>我用下面这个人的方法解决了 <BR><BR><BR>---------------------------------------------- <BR><BR>类似文摘： <BR>原创]简单解决ewebeditor在IE7、IE8下失效问题 <BR>EWEBEDITOR在IE7、IE8下，图片上传等按钮总是不能正常弹出，搞的人很郁闷，在网上搜索了一下解决方法，找到代码编辑器目录JS下的EDITOR.JS文件，找到如下代码 <BR><BR>if&nbsp;(element.YUSERONCLICK)&nbsp;{ <BR>eval(element.YUSERONCLICK&nbsp;+&nbsp;"anonymous()"); <BR>} <BR><BR>再换成如下代码： <BR><BR>以下是引用片段： <BR><BR>if(navigator.appVersion.match(/8./i)=='8.'&nbsp;||&nbsp;navigator.appVersion.match(/7./i)=='7.'){ <BR>if&nbsp;(element.YUSERONCLICK)&nbsp;eval(element.YUSERONCLICK&nbsp;+&nbsp;"onclick(event)");&nbsp;//IE8&nbsp;or&nbsp;IE7 <BR>}&nbsp;else&nbsp;{ <BR>if&nbsp;(element.YUSERONCLICK)&nbsp;eval(element.YUSERONCLICK&nbsp;+&nbsp;"anonymous()");&nbsp;//IE6 <BR>} <BR><BR><BR><BR>替换后问题依旧。TNND，又找一位仁兄写的代码换上： <BR><BR>以下是引用片段： <BR><BR>if(navigator.appVersion.match(/MSIE&nbsp;(7|8)\./i)!=null){&nbsp; <BR><BR>&nbsp;&nbsp;&nbsp;&nbsp;if&nbsp;(element.YUSERONCLICK)&nbsp;eval(element.YUSERONCLICK&nbsp;+&nbsp;"onclick(event)");&nbsp;&nbsp; <BR><BR>}else{&nbsp; <BR><BR>&nbsp;&nbsp;&nbsp;&nbsp;if&nbsp;(element.YUSERONCLICK)&nbsp;eval(element.YUSERONCLICK&nbsp;+&nbsp;"anonymous()");&nbsp; <BR><BR>} <BR><BR><BR><BR>&nbsp;&nbsp;&nbsp;&nbsp;还是不行，两个代码都未能解决问题，郁闷，看来，要不是浏览器中毒了，造成JS不能正常取得版本号，就是我RP太差。所以引起程序不知道如何处理判断。我看了一下两位作者的代码，虽然写的很好，但是都有局限性。既然知道了造成问题的原因，那就好办了，自己写吧 <BR><BR>此文章出处为西宁威势电子信息服务有限公司： <BR>try{ <BR>eval(element.YUSERONCLICK&nbsp;+&nbsp;"anonymous()"); <BR>} <BR>catch(error) <BR>{ <BR>eval(element.YUSERONCLICK&nbsp;+&nbsp;"onclick(event)"); <BR>} <BR><BR><BR>写完以后再次测试，OK，正常了，哈哈！！我不管它是IE7还是IE8，我都往下执行，一个错了我就执行另一个，管它呢，哈哈，正常解决,容错语句就是挺管用的。 <BR><BR> [ASP/shtml]win7环境下，IIS7中，Request.ServerVariables[“REMOTE_ADDR”]显示的IP为::1？ http://www.yici.net/content/text_all/text_0/710_1.html 佚名 ASP/shtml 2012-2-8 22:30:42 <P>win7环境下，读取Request.ServerVariables["REMOTE_ADDR"]可以正常显示IP，可是用IIS启动后插入到数据库中的IP就为：：1？？？</P> <P>解决：</P> <P>win7获取的是ipv6<BR><BR>string clientIP = string.Empty;<BR><BR>&nbsp; clientIP = Request.ServerVariables["HTTP_X_FORWARDED_FOR"];<BR><BR>&nbsp; if (string.IsNullOrEmpty(clientIP))<BR>&nbsp; clientIP = Request.ServerVariables["HTTP_X_REAL_IP"];<BR><BR>&nbsp; if (string.IsNullOrEmpty(clientIP))<BR>&nbsp; clientIP = Request.ServerVariables["REMOTE_ADDR"];<BR><BR>&nbsp; return clientIP;</P> [JavaScript]再谈javascript图片预加载技术-比onload更快获取图片尺寸 http://www.yici.net/content/text_all/text_0/705_1.html 佚名 JavaScript 2011-11-2 22:31:04 <P>lightbox类效果为了让图片居中显示而使用预加载，需要等待完全加载完毕才能显示，体验不佳（如filick相册的全屏效果）。javascript无法获取img文件头数据，真的是这样吗？本文通过一个巧妙的方法让javascript获取它。 <BR><BR>这是大部分人使用预加载获取图片大小的例子： <BR><BR>var&nbsp;imgLoad&nbsp;=&nbsp;function&nbsp;(url,&nbsp;callback)&nbsp;{ <BR>&nbsp;&nbsp;var&nbsp;img&nbsp;=&nbsp;new&nbsp;Image(); <BR><BR>&nbsp;&nbsp;img.src&nbsp;=&nbsp;url; <BR>&nbsp;&nbsp;if&nbsp;(img.complete)&nbsp;{ <BR>&nbsp;&nbsp;&nbsp;&nbsp;callback(img.width,&nbsp;img.height); <BR>&nbsp;&nbsp;}&nbsp;else&nbsp;{ <BR>&nbsp;&nbsp;&nbsp;&nbsp;img.onload&nbsp;=&nbsp;function&nbsp;()&nbsp;{ <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;callback(img.width,&nbsp;img.height); <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;img.onload&nbsp;=&nbsp;null; <BR>&nbsp;&nbsp;&nbsp;&nbsp;}; <BR>&nbsp;&nbsp;}; <BR><BR>}; </P> <P><BR>可以看到上面必须等待图片加载完毕才能获取尺寸，其速度不敢恭维，我们需要改进。&nbsp; <BR><BR>web应用程序区别于桌面应用程序，响应速度才是最好的用户体验。如果想要速度与优雅兼得，那就必须提前获得图片尺寸，如何在图片没有加载完毕就能获取图片尺寸？&nbsp; <BR><BR>十多年的上网经验告诉我：浏览器在加载图片的时候你会看到图片会先占用一块地然后才慢慢加载完毕，并且不需要预设width与height属性，因为浏览器能够获取图片的头部数据。基于此，只需要使用javascript定时侦测图片的尺寸状态便可得知图片尺寸就绪的状态。&nbsp; <BR><BR>当然实际中会有一些兼容陷阱，如width与height检测各个浏览器的不一致，还有webkit&nbsp;new&nbsp;Image()建立的图片会受以处在加载进程中同url图片影响，经过反复测试后的最佳处理方式： <BR></P> <P> <TABLE style="BORDER-RIGHT: #cccccc 1px dotted; TABLE-LAYOUT: fixed; BORDER-TOP: #cccccc 1px dotted; BORDER-LEFT: #cccccc 1px dotted; BORDER-BOTTOM: #cccccc 1px dotted" cellSpacing=0 cellPadding=6 width="95%" align=center border=0> <TBODY> <TR> <TD style="WORD-WRAP: break-word" bgColor=#f3f3f3><FONT style="FONT-WEIGHT: bold; COLOR: #990000">以下是引用片段：</FONT><BR>//&nbsp;更新：&nbsp; <BR>//&nbsp;05.27:&nbsp;1、保证回调执行顺序：error&nbsp;&gt;&nbsp;ready&nbsp;&gt;&nbsp;load；2、回调函数this指向img本身&nbsp; <BR>//&nbsp;04-02:&nbsp;1、增加图片完全加载后的回调&nbsp;2、提高性能&nbsp; <BR><BR>/**&nbsp; <BR>&nbsp;*&nbsp;图片头数据加载就绪事件&nbsp;-&nbsp;更快获取图片尺寸&nbsp; <BR>&nbsp;*&nbsp;@version&nbsp;&nbsp;2011.05.27&nbsp; <BR>&nbsp;*&nbsp;@author&nbsp;&nbsp;TangBin&nbsp; <BR>&nbsp;*&nbsp;@see&nbsp;&nbsp;&nbsp;&nbsp;http://www.planeart.cn/?p=1121&nbsp; <BR>&nbsp;*&nbsp;@param&nbsp;&nbsp;{String}&nbsp;&nbsp;图片路径&nbsp; <BR>&nbsp;*&nbsp;@param&nbsp;&nbsp;{Function}&nbsp;&nbsp;尺寸就绪&nbsp; <BR>&nbsp;*&nbsp;@param&nbsp;&nbsp;{Function}&nbsp;&nbsp;加载完毕&nbsp;(可选)&nbsp; <BR>&nbsp;*&nbsp;@param&nbsp;&nbsp;{Function}&nbsp;&nbsp;加载错误&nbsp;(可选)&nbsp; <BR>&nbsp;*&nbsp;@example&nbsp;imgReady('/content/uploadfiles/2011-11/20111102223232734.png',&nbsp;function&nbsp;()&nbsp;{&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp;alert('size&nbsp;ready:&nbsp;width='&nbsp;+&nbsp;this.width&nbsp;+&nbsp;';&nbsp;height='&nbsp;+&nbsp;this.height);&nbsp; <BR>&nbsp;&nbsp;});&nbsp; <BR>&nbsp;*/&nbsp; <BR>var&nbsp;imgReady&nbsp;=&nbsp;(function&nbsp;()&nbsp;{&nbsp; <BR>&nbsp;&nbsp;var&nbsp;list&nbsp;=&nbsp;[],&nbsp;intervalId&nbsp;=&nbsp;null,&nbsp; <BR><BR>&nbsp;&nbsp;//&nbsp;用来执行队列&nbsp; <BR>&nbsp;&nbsp;tick&nbsp;=&nbsp;function&nbsp;()&nbsp;{&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp;var&nbsp;i&nbsp;=&nbsp;0;&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp;for&nbsp;(;&nbsp;i&nbsp;&lt;&nbsp;list.length;&nbsp;i++)&nbsp;{&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;list[i].end&nbsp;?&nbsp;list.splice(i--,&nbsp;1)&nbsp;:&nbsp;list[i]();&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp;};&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp;!list.length&nbsp;&amp;&amp;&nbsp;stop();&nbsp; <BR>&nbsp;&nbsp;},&nbsp; <BR><BR>&nbsp;&nbsp;//&nbsp;停止所有定时器队列&nbsp; <BR>&nbsp;&nbsp;stop&nbsp;=&nbsp;function&nbsp;()&nbsp;{&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp;clearInterval(intervalId);&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp;intervalId&nbsp;=&nbsp;null;&nbsp; <BR>&nbsp;&nbsp;};&nbsp; <BR><BR>&nbsp;&nbsp;return&nbsp;function&nbsp;(url,&nbsp;ready,&nbsp;load,&nbsp;error)&nbsp;{&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp;var&nbsp;onready,&nbsp;width,&nbsp;height,&nbsp;newWidth,&nbsp;newHeight,&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;img&nbsp;=&nbsp;new&nbsp;Image();&nbsp; <BR><BR>&nbsp;&nbsp;&nbsp;&nbsp;img.src&nbsp;=&nbsp;url;&nbsp; <BR><BR>&nbsp;&nbsp;&nbsp;&nbsp;//&nbsp;如果图片被缓存，则直接返回缓存数据&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp;if&nbsp;(img.complete)&nbsp;{&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;ready.call(img);&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;load&nbsp;&amp;&amp;&nbsp;load.call(img);&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;return;&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp;};&nbsp; <BR><BR>&nbsp;&nbsp;&nbsp;&nbsp;width&nbsp;=&nbsp;img.width;&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp;height&nbsp;=&nbsp;img.height;&nbsp; <BR><BR>&nbsp;&nbsp;&nbsp;&nbsp;//&nbsp;加载错误后的事件&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp;img.onerror&nbsp;=&nbsp;function&nbsp;()&nbsp;{&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;error&nbsp;&amp;&amp;&nbsp;error.call(img);&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;onready.end&nbsp;=&nbsp;true;&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;img&nbsp;=&nbsp;img.onload&nbsp;=&nbsp;img.onerror&nbsp;=&nbsp;null;&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp;};&nbsp; <BR><BR>&nbsp;&nbsp;&nbsp;&nbsp;//&nbsp;图片尺寸就绪&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp;onready&nbsp;=&nbsp;function&nbsp;()&nbsp;{&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;newWidth&nbsp;=&nbsp;img.width;&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;newHeight&nbsp;=&nbsp;img.height;&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;if&nbsp;(newWidth&nbsp;!==&nbsp;width&nbsp;||&nbsp;newHeight&nbsp;!==&nbsp;height&nbsp;||&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;//&nbsp;如果图片已经在其他地方加载可使用面积检测&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;newWidth&nbsp;*&nbsp;newHeight&nbsp;&gt;&nbsp;1024&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;)&nbsp;{&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;ready.call(img);&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;onready.end&nbsp;=&nbsp;true;&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;};&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp;};&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp;onready();&nbsp; <BR><BR>&nbsp;&nbsp;&nbsp;&nbsp;//&nbsp;完全加载完毕的事件&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp;img.onload&nbsp;=&nbsp;function&nbsp;()&nbsp;{&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;//&nbsp;onload在定时器时间差范围内可能比onready快&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;//&nbsp;这里进行检查并保证onready优先执行&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;!onready.end&nbsp;&amp;&amp;&nbsp;onready();&nbsp; <BR><BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;load&nbsp;&amp;&amp;&nbsp;load.call(img);&nbsp; <BR><BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;//&nbsp;IE&nbsp;gif动画会循环执行onload，置空onload即可&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;img&nbsp;=&nbsp;img.onload&nbsp;=&nbsp;img.onerror&nbsp;=&nbsp;null;&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp;};&nbsp; <BR><BR>&nbsp;&nbsp;&nbsp;&nbsp;//&nbsp;加入队列中定期执行&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp;if&nbsp;(!onready.end)&nbsp;{&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;list.push(onready);&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;//&nbsp;无论何时只允许出现一个定时器，减少浏览器性能损耗&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;if&nbsp;(intervalId&nbsp;===&nbsp;null)&nbsp;intervalId&nbsp;=&nbsp;setInterval(tick,&nbsp;40);&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp;};&nbsp; <BR>&nbsp;&nbsp;};&nbsp; <BR>})();&nbsp; <BR></TD></TR></TBODY></TABLE><BR><BR>调用例子： <BR></P> <P> <TABLE style="BORDER-RIGHT: #cccccc 1px dotted; TABLE-LAYOUT: fixed; BORDER-TOP: #cccccc 1px dotted; BORDER-LEFT: #cccccc 1px dotted; BORDER-BOTTOM: #cccccc 1px dotted" cellSpacing=0 cellPadding=6 width="95%" align=center border=0> <TBODY> <TR> <TD style="WORD-WRAP: break-word" bgColor=#f3f3f3><FONT style="FONT-WEIGHT: bold; COLOR: #990000">以下是引用片段：</FONT><BR>imgReady('/content/uploadfiles/2011-11/20111102223232734.png',&nbsp;function&nbsp;()&nbsp;{&nbsp; <BR>&nbsp;&nbsp;alert('size&nbsp;ready:&nbsp;width='&nbsp;+&nbsp;this.width&nbsp;+&nbsp;';&nbsp;height='&nbsp;+&nbsp;this.height);&nbsp; <BR>});&nbsp; <BR></TD></TR></TBODY></TABLE></P> <P>是不是很简单？这样的方式获取摄影级别照片尺寸的速度往往是onload方式的几十多倍，而对于web普通(800×600内)浏览级别的图片能达到秒杀效果。看了这个再回忆一下你见过的web相册，是否绝大部分都可以重构一下呢？ <BR><BR></P> [JavaScript]js如何控制【停止】、【播放】gif动画图片 http://www.yici.net/content/text_all/text_0/703_1.html 佚名 JavaScript 2011-9-24 21:04:21 ShowModalDialog()能够使父窗口停滞,&nbsp;{停止}就做出来了: <BR>试试这个代码: <BR>&lt;img&nbsp;src="/content/uploadfiles/2011-09/20110924210516734.gif"/&gt;&lt;br/&gt; <BR>&lt;a&nbsp;href="javascript:window.showModalDialog('about:&lt;body&nbsp;onload=close(this)&gt;','');"&gt;【停止】&lt;/a&gt;&nbsp; <BR>&lt;a&nbsp;href="javascript:window.location.reload();"&gt;【播放】&lt;/a&gt;&nbsp; [JavaScript]IE中多帧GIF可以触发多次Image().load事件，解决方案 http://www.yici.net/content/text_all/text_0/702_1.html 佚名 JavaScript 2011-9-24 21:02:02 昨天同事负责一个首页广告，广告采用的是多帧GIF动画，在HTML演示页面中采用的是jpg，运用Image对象的load事件来加上广告，这样就避免了广告播放出来而图片还没有加载完成的尴尬局面，但是却遇到了一个超级郁闷的事情，那就是在IE中load事件不停的执行，找了很多原因，最后在google上找到了：原来是多帧GIF引起的Image().load事件重复触发的问题。又一次长见识了！而且还有人发帖说可以通过这个bug来模拟js的多线程~ <BR><BR>解决方法： <BR><BR>var&nbsp;img=new&nbsp;Image(); <BR>img.load=function(){ <BR>&nbsp;&nbsp;&nbsp;&nbsp;//do&nbsp;something <BR>&nbsp;&nbsp;&nbsp;img.load=null;//重新赋值为null <BR>} <BR>img.src='××.gif'; [JavaScript]一款好用的JavaScript 代码格式化工具：JavaScript Code Improver http://www.yici.net/content/text_all/text_0/701_1.html 佚名 JavaScript 2011-9-24 9:44:45 <P>很多时候我们从其他站点上载回来的JS文件都是没有换行和缩进的，形如：&nbsp;<BR><BR> <TABLE style="BORDER-RIGHT: #cccccc 1px dotted; TABLE-LAYOUT: fixed; BORDER-TOP: #cccccc 1px dotted; BORDER-LEFT: #cccccc 1px dotted; BORDER-BOTTOM: #cccccc 1px dotted" cellSpacing=0 cellPadding=6 width="95%" align=center border=0> <TBODY> <TR> <TD style="WORD-WRAP: break-word" bgColor=#f3f3f3><FONT style="FONT-WEIGHT: bold; COLOR: #990000">以下是引用片段：</FONT><BR>var&nbsp;i=0,s="",k=0;function&nbsp;foo(){for(j=0;j&lt;10;j++){for(i=0;i&lt;10;i++){s="string1";k=Math.floor(Math.random()*10);}for(i=20;i&gt;9;i--){s="string2";k=i;}}}&nbsp; <BR></TD></TR></TBODY></TABLE><BR><BR>这极大的影响了我们分析它的效率！Dreamweaver可以对HTML进行格式化，但缺乏对JS的支持，上网搜索一番，还真有我们所要的软件：JavaScript&nbsp;Code&nbsp;Improver！使用方法也非常的简单：找到(加载)所要格式化的JS文件，选择保存位置，点击运行按钮即可完成格式化，下边是格式化后的效果： <BR><BR> <TABLE style="BORDER-RIGHT: #cccccc 1px dotted; TABLE-LAYOUT: fixed; BORDER-TOP: #cccccc 1px dotted; BORDER-LEFT: #cccccc 1px dotted; BORDER-BOTTOM: #cccccc 1px dotted" cellSpacing=0 cellPadding=6 width="95%" align=center border=0> <TBODY> <TR> <TD style="WORD-WRAP: break-word" bgColor=#f3f3f3><FONT style="FONT-WEIGHT: bold; COLOR: #990000">以下是引用片段：</FONT><BR>var&nbsp;i&nbsp;=&nbsp;0,&nbsp;s&nbsp;=&nbsp;"",&nbsp;k&nbsp;=&nbsp;0;&nbsp; <BR>function&nbsp;foo()&nbsp; <BR>{&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;for(j&nbsp;=&nbsp;0;&nbsp;j&nbsp;&lt;&nbsp;10;&nbsp;j++)&nbsp;&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;{&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;for(i&nbsp;=&nbsp;0;&nbsp;i&nbsp;&lt;&nbsp;10;&nbsp;i++)&nbsp;&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;{&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;s&nbsp;=&nbsp;"string1";&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;k&nbsp;=&nbsp;Math.floor(&nbsp;Math.random()*10&nbsp;);&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;}&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;for(i&nbsp;=&nbsp;20;&nbsp;i&nbsp;&gt;&nbsp;9;&nbsp;i--)&nbsp;&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;{&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;s&nbsp;=&nbsp;"string2";&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;k&nbsp;=&nbsp;i;&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;}&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;}&nbsp; <BR>}&nbsp; <BR></TD></TR></TBODY></TABLE><BR><BR>看起来是不是舒服多了？呵呵。 <BR></P> <P>工具下载：<IMG src="/content/webeditor/sysimage/file/rar.gif" border=0><A href="/content/uploadfiles/2011-09/20110924_094713.rar" target=_blank>js.rar</A></P> [JavaScript]Tetris(俄罗斯方块) in jQuery/JavaScript! http://www.yici.net/content/text_all/text_0/677_1.html 佚名 JavaScript 2011-6-20 18:25:36 <P>All&nbsp;in&nbsp;jQuery/JavaScript&nbsp;+&nbsp;HTML! <BR><BR>Demo：Tetris(俄罗斯方块)&nbsp;in&nbsp;jQuery/JavaScript! <BR><BR>文章最后会给出源码下载。 <BR><BR>先上两张图： <BR><BR><IMG src="/content/uploadfiles/2011-06/20110620_182716.jpg" border=0><BR><BR><BR><IMG src="/content/uploadfiles/2011-06/20110620_182730.jpg" border=0><BR><BR>其实很早就有这样的想法，无奈思想一直不是很成熟，各个细节没有想好。突然某一天灵光闪现，就想到办法了。相信应该也有很多人有过这样的想法，可是总是会被一些细节问题所卡住。只要思路有了，代码的实现上并不难。所以我重点说一下思路。 <BR><BR>先说一下这样程序的功能吧。图里面能够看得很清楚了。基本的功能就不说了，其它的包括下一个下落形状的预览（左上角的小方块中），隐藏、显示网格线，隐藏、显示下落时对好的阴影形状。其它的就是俄罗斯方块的基本功能了。 <BR><BR>很重要的一点，很多人可能受到了思维定势的影响，觉得既然是俄罗斯方块，那当然是一个个方块往下落。如果你这样想，我敢说这样就算程序的功能都可以完成，也绝对在1000行以上（我的程序不超过1000行，包括各个函数的注释），甚至要远远超过这个数。如果跳出了这个方块下落和思维定势，那问题就好解决了。 <BR><BR>有人可能要问了，既然方块不动，那是什么在动呢？有人说颜色，但更确切地说是样式！每一次，让下一个方格的样式用上一个方块来替代，这样下落就成了对样式的操作了！虽然下落是位置在变，位置（top,left）也是样式，但是这可能要涉及到HTML，或者DOM元素的操作了。相比而言，前一种思路不用动任何的HTML元素！这是简化的最关键所在了。 <BR><BR>再说一下其它方面。 <BR><BR>方块的排列： <BR><BR>用一个float:left就能排列好了，需要注意的是，在设置容器的长宽时，要注意小方块的方框宽度，这个也要计算在内。 <BR><BR>按键的处理： <BR></P> <P><IMG src="/content/uploadfiles/2011-06/20110620_182800.gif" border=0></P> <P><BR>我们知道，像DIV，SPAN（容器用的DIV，方块用的SPAN）无法直接响应按键按下的事件（onkeydown），那我们只好先用可以响应的元素来接收这个事件，我用的是document，由于我把它写在了类的内部，所以，要把事件内容的this变成实际要处理的元素（Tetris），就需要用到javascript的call函数了。 <BR><BR>形状在移动（左、右、下、旋转）的时候出界或者是否压住了其他方块的判断： <BR><BR>有两种方式，第一种是先计算好方块可以移动的最小距离，然后再判断方块是否移动超过了这个最小距离。（注意我这里说的移动都是对样式的操作）。这种方式比较麻烦，因为首先要得到方块的最左，最右和最下的方块，然后再通过这些方块来计算这个最小距离，并且旋转就无法用距离来衡量了。但是如果要得到阴影（后面解释阴影的实现）的话，还是得计算这个最小距离。我的做法是移动一步（包括旋转）采取第二种方法，而直接下落和生成阴影而采用第一种方法。 <BR><BR>第二种方式是先将坐标值预存起来，然后假设方块移动了，再判断这个方块是否在界内，并没在压住其它的方块。如果不符合条件，再将坐标值还原回去。这里插一句，如果预存坐标？我的坐标采用的是数组的形式储存的，不能直接用＝来赋值，这个只能将变量指向右值而成为右值的引用。要复制数组或对象，必须采用循环或者遍历对象属性，且元素或属性的值为基本类型时才能赋值。 <BR><BR>下一个形状预览的问题： <BR><BR>想清楚了最关键的问题，这个问题很好解决，这个就是大容器的缩小版，当前显示形状的时候同时计算下一个形状的序列号，并存储。下次显示形状的时候调用这个序列号就行了。 <BR><BR>最后说一下旋转的问题： <BR><BR>其实这是一个数学问题。 <BR><BR><BR><BR>由于旋转前后，向量的长度（设为R）不变，所以： <BR><BR>cosA&nbsp;=&nbsp;x0/R,&nbsp;&nbsp;sinA&nbsp;=&nbsp;y0/R&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;……&nbsp;&nbsp;&nbsp;（2） <BR><BR>对于右图： <BR><BR>x1&nbsp;=&nbsp;R&nbsp;*&nbsp;cos（A+B）＝R（cosAcosB&nbsp;–&nbsp;sinAsinB） <BR><BR>y1&nbsp;=&nbsp;R|*&nbsp;sin（A+B）＝R（sinAcosB&nbsp;+&nbsp;cosAsinB） <BR><BR>将（2）代入得到： <BR><BR>x1&nbsp;=&nbsp;x0&nbsp;*&nbsp;cosB&nbsp;–&nbsp;y0&nbsp;*&nbsp;sinB <BR><BR>y1&nbsp;=&nbsp;x0&nbsp;*&nbsp;sinB&nbsp;+&nbsp;y0&nbsp;*&nbsp;cosB <BR><BR>由于我设定的是逆时针旋转，所以再将B＝-B代入上式： <BR><BR>x1&nbsp;=&nbsp;x0&nbsp;*&nbsp;cosB&nbsp;+&nbsp;y0&nbsp;*&nbsp;sinB <BR><BR>y1&nbsp;=&nbsp;-x0&nbsp;*&nbsp;sinB&nbsp;+&nbsp;y0&nbsp;*&nbsp;cosB <BR><BR>再者，我们旋转的角度为90度，再代入，得到： <BR><BR>x1=y0,&nbsp;y1=-x0&nbsp;&nbsp;&nbsp;………….&nbsp;（3） <BR><BR>这是以原点为出发的向量，如果不是原点为出发点，假设这个点（旋转中心）为（cx，cy），将向量进行平移： <BR><BR>x1-cx&nbsp;=&nbsp;y0-cy,&nbsp;y1-cy&nbsp;=&nbsp;cx-x0，于是（3）变成： <BR><BR>x1&nbsp;=&nbsp;cx-cy+y0,&nbsp;y1&nbsp;=&nbsp;cx+cy-x0&nbsp;&nbsp;（4） <BR><BR>这里值得提一下的是，尽管我们的坐标系和正规的xy平面坐标系不同，我们的原点在左上角，x（二维数组第一下标）轴垂直向下，y（二维数组第二下标）轴水平向右，但是由于我们旋转的时候选取的是向量，它的方向是确定的，不随坐标系的变化而变化，所以（4）仍然适用于我们的坐标系。 <BR><BR>有了公式（4）,选取适当的旋转中心（x0,y0）就可以进行转换了。为了效率，我们可以把由四个小方块组成的大方块排除在外，不用旋转。 <BR><BR><IMG src="/content/webeditor/sysimage/file/rar.gif" border=0><A href="/content/uploadfiles/2011-06/20110620_182813.rar" target=_blank>tetris.rar</A></P> [JavaScript]jQuery插件：不超过50行的评分插件jquery.rate 1.0 http://www.yici.net/content/text_all/text_0/676_1.html 佚名 JavaScript 2011-6-20 18:20:12 整个插件不超过50行，包括css。 <BR><BR>程序调用： <BR><BR> <TABLE style="BORDER-RIGHT: #cccccc 1px dotted; TABLE-LAYOUT: fixed; BORDER-TOP: #cccccc 1px dotted; BORDER-LEFT: #cccccc 1px dotted; BORDER-BOTTOM: #cccccc 1px dotted" cellSpacing=0 cellPadding=6 width="95%" align=center border=0> <TBODY> <TR> <TD style="WORD-WRAP: break-word" bgColor=#f3f3f3><FONT style="FONT-WEIGHT: bold; COLOR: #990000">以下是引用片段：</FONT><BR>$(function(){&nbsp;&nbsp;&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;$("#hello").rate({ <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;ratePage:'rate.php', <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;rateAfterEvent:&nbsp;function(data){$("#hello").after(data)} <BR>&nbsp;&nbsp;&nbsp;&nbsp;}); <BR>});&nbsp; <BR>//&lt;span&nbsp;id=hello&gt;&lt;/span&gt;</TD></TR></TBODY></TABLE>rate.php： <BR><BR> <TABLE style="BORDER-RIGHT: #cccccc 1px dotted; TABLE-LAYOUT: fixed; BORDER-TOP: #cccccc 1px dotted; BORDER-LEFT: #cccccc 1px dotted; BORDER-BOTTOM: #cccccc 1px dotted" cellSpacing=0 cellPadding=6 width="95%" align=center border=0> <TBODY> <TR> <TD style="WORD-WRAP: break-word" bgColor=#f3f3f3><FONT style="FONT-WEIGHT: bold; COLOR: #990000">以下是引用片段：</FONT><BR>print_r($_GET);</TD></TR></TBODY></TABLE> <P><BR>运行结果： <BR><BR><IMG src="/content/uploadfiles/2011-06/20110620182339734.jpg" border=0><BR><BR>源代码 <BR></P> <P> <TABLE style="BORDER-RIGHT: #cccccc 1px dotted; TABLE-LAYOUT: fixed; BORDER-TOP: #cccccc 1px dotted; BORDER-LEFT: #cccccc 1px dotted; BORDER-BOTTOM: #cccccc 1px dotted" cellSpacing=0 cellPadding=6 width="95%" align=center border=0> <TBODY> <TR> <TD style="WORD-WRAP: break-word" bgColor=#f3f3f3><FONT style="FONT-WEIGHT: bold; COLOR: #990000">以下是引用片段：</FONT><BR>/* <BR>&nbsp;*&nbsp;&nbsp;&nbsp;&nbsp;jquery.rate&nbsp;1.0&nbsp;-&nbsp;2009-09-29 <BR>&nbsp;* <BR>&nbsp;*&nbsp;&nbsp;&nbsp;&nbsp;All&nbsp;the&nbsp;stuff&nbsp;written&nbsp;by&nbsp;pwwang&nbsp;(pwwang.com)&nbsp;&nbsp;&nbsp;&nbsp; <BR>&nbsp;*&nbsp;&nbsp;&nbsp;&nbsp;Feel&nbsp;free&nbsp;to&nbsp;do&nbsp;whatever&nbsp;you&nbsp;want&nbsp;with&nbsp;this&nbsp;file <BR>&nbsp;* <BR>&nbsp;*/ <BR>(function($)&nbsp;{ <BR>&nbsp;&nbsp;&nbsp;&nbsp;$.rate&nbsp;=&nbsp;function(wraper,&nbsp;options)&nbsp;{ <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;var&nbsp;$wraper&nbsp;=&nbsp;$(wraper); <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;var&nbsp;$rateUnits&nbsp;=&nbsp;[]; <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;for(var&nbsp;i=0;&nbsp;i&lt;options.rateMax;&nbsp;i++){&nbsp;&nbsp;&nbsp;&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;$rateUnits[i]&nbsp;=&nbsp;&nbsp;$(document.createElement("a"))&nbsp;&nbsp;&nbsp;&nbsp;.attr("href","javascript:;").addClass(options.rateClass);&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;if(&nbsp;i&lt;options.rated&nbsp;)&nbsp;$rateUnits[i].addClass(options.ratedClass); <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;$wraper.append($rateUnits[i]); <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;} <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;$.each($rateUnits,&nbsp;function(){&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;$(this).hover(&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;function(){&nbsp;$(this).prevAll().add($(this)).addClass(options.rateOverClass)&nbsp;},&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;function(){&nbsp;$(this).prevAll().add($(this)).removeClass(options.rateOverClass)&nbsp;}&nbsp;&nbsp;&nbsp;&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;);&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;$(this).click(function(){ <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;var&nbsp;index&nbsp;=&nbsp;$wraper.children().index($(this));&nbsp;&nbsp;&nbsp;&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;$.get(options.ratePage,&nbsp;{&nbsp;rate:index+1&nbsp;},&nbsp;function(data){&nbsp;(options.rateAfterEvent)(data);&nbsp;&nbsp;&nbsp;&nbsp;});&nbsp;&nbsp;&nbsp;&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;$(this).prevAll().add($(this)).addClass(options.ratedClass); <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;$(this).nextAll().removeClass(options.ratedClass); <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;});&nbsp;&nbsp;&nbsp;&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;});&nbsp;&nbsp;&nbsp;&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp;}&nbsp;&nbsp;&nbsp;&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp;$.fn.rate&nbsp;=&nbsp;function(options)&nbsp;{ <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;options&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=&nbsp;options&nbsp;||&nbsp;{}; <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;options.rated&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=&nbsp;3; <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;options.rateMax&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=&nbsp;options.rateMax&nbsp;||&nbsp;5; <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;options.rateClass&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=&nbsp;options.rateClass&nbsp;||&nbsp;"star"; <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;options.rateOverClass&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=&nbsp;options.rateOverClass&nbsp;||&nbsp;"star_on"; <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;options.ratedClass&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=&nbsp;options.ratedClass&nbsp;||&nbsp;"star_yes" <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;options.rateImg&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=&nbsp;options.rateImg&nbsp;||&nbsp;"images/star.gif"; <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;options.rateAfterEvent&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=&nbsp;options.rateAfterEvent&nbsp;||&nbsp;function(){}; <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;options.ratePage&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=&nbsp;options.ratePage&nbsp;||&nbsp;"rate.php"; <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;$.rate(this,&nbsp;options); <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;return&nbsp;this;&nbsp;&nbsp;&nbsp;&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp;};&nbsp;&nbsp;&nbsp;&nbsp; <BR>})(jQuery);</TD></TR></TBODY></TABLE></P>jquery.rate.css <BR><BR> <TABLE style="BORDER-RIGHT: #cccccc 1px dotted; TABLE-LAYOUT: fixed; BORDER-TOP: #cccccc 1px dotted; BORDER-LEFT: #cccccc 1px dotted; BORDER-BOTTOM: #cccccc 1px dotted" cellSpacing=0 cellPadding=6 width="95%" align=center border=0> <TBODY> <TR> <TD style="WORD-WRAP: break-word" bgColor=#f3f3f3><FONT style="FONT-WEIGHT: bold; COLOR: #990000">以下是引用片段：</FONT><BR>@charset&nbsp;"utf-8"; <BR>/*&nbsp;CSS&nbsp;Document&nbsp;*/ <BR>.star{&nbsp;height:16px;&nbsp;width:16px;&nbsp;display:block;&nbsp;float:left;&nbsp;background:url(star.gif)&nbsp;no-repeat&nbsp;0&nbsp;0;} <BR>.star_on{&nbsp;background:&nbsp;url(star.gif)&nbsp;no-repeat&nbsp;0&nbsp;-16px&nbsp;!important;} <BR>.star_yes{&nbsp;background:&nbsp;url(star.gif)&nbsp;no-repeat&nbsp;0&nbsp;-32px;}</TD></TR></TBODY></TABLE><IMG src="/content/webeditor/sysimage/file/rar.gif" border=0><A href="/content/uploadfiles/2011-06/20110620_182332.rar" target=_blank>jquery.rar</A> [ASP/shtml]ASP多条数据分页的思路整理 http://www.yici.net/content/text_all/text_0/672_1.html Joker ASP/shtml 2011-6-19 23:35:17 <P>好久没有修改程序了</P> <P>发现以前好多的思路都有点混乱</P> <P>大概整理了一下，留作笔记吧：</P> <P>为了方便理解，做几个定义：</P> <P>每页条目数：pagesize</P> <P>当前页数：currentPage</P> <P>搜索的数据表名：tablename</P> <P>1。分页如果确定数据库的ID连续，也就是从1、2、3、4……100、101、102……这样依次拍下去，中间没有任何被删除的数字，那就简单了：</P> <P>用个语句：select &nbsp;top “pagesize” ID from“tablename”&nbsp;where ID&gt;pagesize*currentPage orderby ID DESC</P> <P>2。如果数据ID之间有跳跃，不持续连续，就麻烦一些了</P> <P>可以用本站的分页类：</P> <P><FONT face=Verdana><A href="http://www.yici.net/content/text_all/text_0/671_1.html">http://www.yici.net/content/text_all/text_0/671_1.html</A></FONT></P> <P><FONT face=Verdana><A href="http://www.yici.net/content/text_all/text_0/670_1.html">http://www.yici.net/content/text_all/text_0/670_1.html</A></FONT></P> <P>3。其实还有个思路</P> <P>就是定义一个字段，表示数据的条数，每次增减数据都对该字段操作</P> <P>例如新建一个表，叫做“info-num”，其中的“total_num”字段就代表了记录数，每次增减记录，相应操作“total_num”</P> <P>这样就不需要为了读取记录数去“recordcount”了</P> <P>然后再用rs.move来制定记录指针</P> <P>&nbsp;</P> <P>暂时想到这几个思路，共勉</P> [ASP/shtml]ASP通用分页类 http://www.yici.net/content/text_all/text_0/671_1.html cjj ASP/shtml 2011-6-19 22:29:45 <P>一、类的属性、方法 <BR>　　这是一个ASP通用分页类。你可以用它方便的给记录集分页，当然在网上有许多的分页类和分页函数。本分页主要有Conn、SQL、URL、FieldList、PageSize、Template、Init、Show、Close等属性和方法。 <BR>　　1.Conn属性　　　&nbsp;：用来获取一个已创建的Connection对象。 <BR>　　2.SQL属性　　　　　&nbsp;：根据传入的SQL语句，自动创建RecordSet对象 <BR>　　3.PageSize属性　　&nbsp;&nbsp;：设置第页的记录条数 <BR>　　4.FieldList属性　　　&nbsp;：如果需要显示库中的数据，一定要设置此属性。它是用来获取需要显示的正确的字段名。 <BR>　　5.URL属性　　　　&nbsp;&nbsp;：设置分页条中链接的文件地址。 <BR>　　6.Template属性&nbsp;&nbsp;　　：设置分页文件的模版。 <BR>　　7.Init过程　　　　&nbsp;：分页类初始化数据。 <BR>　　8.Show过程　　&nbsp;：显示数据。 <BR>　　9.Close过程　　　&nbsp;&nbsp;：分页类结束</P> <P>二、简化类的源代码及调用代码（不含数据显示功能） <BR><BR>&nbsp;pages.asp <BR><BR> <TABLE style="BORDER-RIGHT: #cccccc 1px dotted; TABLE-LAYOUT: fixed; BORDER-TOP: #cccccc 1px dotted; BORDER-LEFT: #cccccc 1px dotted; BORDER-BOTTOM: #cccccc 1px dotted" cellSpacing=0 cellPadding=6 width="95%" align=center border=0> <TBODY> <TR> <TD style="WORD-WRAP: break-word" bgColor=#f3f3f3><FONT style="FONT-WEIGHT: bold; COLOR: #990000">以下是引用片段：</FONT><BR> <P><FONT face=Verdana>&lt;%Option Explicit<BR>&nbsp; Dim strStartTime,intUseTime<BR>&nbsp; strStartTime = timer()<BR>%&gt;<BR>&lt;!--#include file="inc_clsPages.asp"--&gt;<BR>&lt;%<BR>&nbsp; Dim clsPage,strShowTemp</FONT></P> <P><FONT face=Verdana>'分页显示的位置：SW_intPageInAll,SW_intPageInTop,SW_intPageInBottom</FONT></P> <P><FONT face=Verdana>&nbsp; Set clsPage = New SWPage<BR>&nbsp; clsPage.Conn&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; = "Driver={Microsoft Access Driver (*.mdb)};dbq=" &amp; Server.Mappath("../DB/datatest.mdb")<BR>&nbsp; clsPage.SQL&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; = "SELECT * FROM datatest"<BR>&nbsp; clsPage.PageSize&nbsp;&nbsp;&nbsp; = 10<BR>&nbsp; clsPage.URL&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; = "pages.asp"<BR>&nbsp; clsPage.Init()<BR>&nbsp; clsPage.Pages()</FONT></P> <P><FONT face=Verdana>'..............................<BR>'............................<BR>'&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 此处加入数据显示代码<BR>'..............................<BR>'..............................<BR>&nbsp; clsPage.Pages()</FONT></P> <P><FONT face=Verdana>&nbsp; clsPage.Close<BR>&nbsp; Set clsPage = Nothing</FONT></P> <P><FONT face=Verdana>&nbsp; intUseTime = FormatNumber((timer()-strStartTime)*1000,3)<BR>&nbsp; Response.Write("&lt;br&gt;&lt;br&gt;&lt;center&gt;共用时 &lt;font color=""#FF0000""&gt;" &amp; intUseTime &amp; "&lt;/font&gt; 毫秒&lt;/center&gt;")<BR>%&gt;</FONT></P></TD></TR></TBODY></TABLE></P> <P><FONT face=Verdana>[NextPage]</FONT></P> <P>inc_clsPages.asp</P> <P> <TABLE style="BORDER-RIGHT: #cccccc 1px dotted; TABLE-LAYOUT: fixed; BORDER-TOP: #cccccc 1px dotted; BORDER-LEFT: #cccccc 1px dotted; BORDER-BOTTOM: #cccccc 1px dotted" cellSpacing=0 cellPadding=6 width="95%" align=center border=0> <TBODY> <TR> <TD style="WORD-WRAP: break-word" bgColor=#f3f3f3><FONT style="FONT-WEIGHT: bold; COLOR: #990000">以下是引用片段：</FONT><BR> <P><FONT face=Verdana>&lt;%'Option Explicit<BR>&nbsp; '/************************************************<BR>&nbsp; '*&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; *<BR>&nbsp; '* Name&nbsp;&nbsp;&nbsp; : An common process database class&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; *<BR>&nbsp; '* Author&nbsp; : cjj&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; *<BR>&nbsp; '* Version : V3.0&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; *<BR>&nbsp; '* Time&nbsp;&nbsp;&nbsp; : 2004-01-12&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; *<BR>&nbsp; '* Comefrom: http://www.blueidea.com/&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; *<BR>&nbsp; '* HomePage: None (Maybe Soon)&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; *<BR>&nbsp; '* Notice&nbsp; :&nbsp;&nbsp; You can use and modify it freely,&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; *<BR>&nbsp; '*&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; BUT PLEASE HOLD THIS ITEM.&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; *<BR>&nbsp; '*&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If you modify it that i hope you&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; *<BR>&nbsp; '*&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; can send a mail for me.&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; *<BR>&nbsp; '*&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; *<BR>&nbsp; '************************************************/</FONT></P> <P><FONT face=Verdana>&nbsp; '#########声明变量#########</FONT></P> <P><FONT face=Verdana>&nbsp; '显示的页数的数字个数<BR>&nbsp; Const SW_intShowPages&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; = 10</FONT></P> <P><FONT face=Verdana>&nbsp; 'SWData Class<BR>&nbsp; Private SW_blnIsHaveRS,SW_strFields,SW_blnInConn,SW_intShowPagePos,SW_strShowWidth</FONT></P> <P><FONT face=Verdana>&nbsp; '#########初始化变量##########<BR>&nbsp; SW_blnIsHaveRS&nbsp;&nbsp;&nbsp; = false&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '设置记录集获取标志为Fasle，就是无记录集状态<BR>&nbsp; SW_strShowWidth&nbsp;&nbsp; = "90%"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '默认的显示宽度为90%<BR>&nbsp; SW_strFields&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; = ""<BR>&nbsp; SW_blnInConn&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; = true&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '由内部创建Connection,如果设为False则由外部创建</FONT></P> <P><FONT face=Verdana>&nbsp; '*****************************************<BR>&nbsp; ' 类型：&nbsp;&nbsp;&nbsp; 类<BR>&nbsp; ' 目的：&nbsp;&nbsp;&nbsp; 给记录集分页<BR>&nbsp; '*****************************************<BR>&nbsp; Class SWPage<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '声明类私有变量<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Private SW_objRS,SW_objConn</FONT></P> <P><FONT face=Verdana>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Private SW_strSQL,SW_strURL,SW_strError,SW_strFormAction,SW_strHeadJS,SW_strFootJS,SW_strKeyFiled<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Private SW_strTleBGColor,SW_strTleFTColor,SW_strTleWidth</FONT></P> <P><FONT face=Verdana>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Private SW_intPageSize,SW_intTleBDType,SW_intShowPageType,SW_intShowType<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Private SW_lngTotalPage,SW_lngTotalRecord,SW_lngPageNo<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Private SW_aryFldName,SW_aryFldNote,SW_aryFldWidth,SW_aryFldAlign,SW_aryFldLink<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Private SW_blnInit,SW_blnOpenRS,SW_blnConn,SW_blnPageSize,SW_blnFieldList,SW_blnGetURL,SW_blnShowType,SW_blnShowPageType,SW_blnTemplate</FONT></P> <P><FONT face=Verdana>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Public Property Let Conn(a_strConn)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Set SW_objConn = CreateObject("Adodb.Connection")<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; On Error Resume Next<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; SW_objConn.Open a_strConn<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; On Error Goto 0&nbsp;&nbsp; <BR>&nbsp;&nbsp;&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End Property</FONT></P> <P><FONT face=Verdana>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Public Property Let SQL(a_strSQL)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; SW_strSQL = a_strSQL</FONT></P> <P><FONT face=Verdana>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '创建RecordSet对象<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Set SW_objRS = CreateObject("adodb.RecordSet")<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; On Error Resume Next<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; SW_objRS.Open SW_strSQL,SW_objConn,1,1<BR>&nbsp;&nbsp;&nbsp; on error goto 0<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End Property</FONT></P> <P><FONT face=Verdana>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Public Property Let PageSize(a_intPageSize)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; SW_intPageSize = CLng(a_intPageSize)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End Property</FONT></P> <P><FONT face=Verdana>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Public Property Let URL(a_strURL)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; SW_strURL = a_strURL<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End Property</FONT></P> <P><FONT face=Verdana>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Sub Init()<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Dim intPostion,strError,i,objRSTemp,lngTotalRecord</FONT></P> <P><FONT face=Verdana>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If SW_objRS.Eof And SW_objRS.Bof Then<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; strError = strError &amp; "&lt;br&gt;库中无任何记录"<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If</FONT></P> <P><FONT face=Verdana>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '计算总计录数<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Set objRSTemp = SW_objConn.Execute("SELECT * FROM SW_RecCount")<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; SW_lngTotalRecord = CLng(objRSTemp("SW_RecCount").Value)</FONT></P> <P><FONT face=Verdana>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '计算总页数<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If SW_lngTotalRecord Mod SW_intPageSize = 0 Then<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; SW_lngTotalPage = CLng(SW_lngTotalRecord \ SW_intPageSize * -1)*-1<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Else<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; SW_lngTotalPage = CLng(SW_lngTotalRecord \ SW_intPageSize * -1)*-1 + 1<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If</FONT></P> <P><FONT face=Verdana>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '获取页数<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; SW_lngPageNo = Trim(Request.QueryString("pageno"))<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If SW_lngPageNo = "" Then SW_lngPageNo = Trim(Request.Form("PageNo"))<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If SW_lngPageNo = "" Then SW_lngPageNo = 1<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '如果没有选择第几页，则默认显示第一页<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If SW_lngPageNo &lt;&gt; "" And IsNumeric(SW_lngPageNo) Then SW_lngPageNo = CLng(SW_lngPageNo)<BR>&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If (SW_lngPageNo &gt; SW_lngTotalPage AND SW_lngTotalPage&lt;&gt;0) Then SW_lngPageNo = SW_lngTotalPage<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; SW_objRS.PageSize&nbsp;&nbsp;&nbsp;&nbsp; = SW_intPageSize<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; SW_objRS.AbsolutePage = SW_lngPageNo</FONT></P> <P><FONT face=Verdana>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; intPostion = InstrRev(SW_strURL,"?")<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; SW_strFormAction = SW_strURL<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If intPostion &gt; 0 Then<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; SW_strURL = SW_strURL &amp; "&amp;PageNo="<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Else<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; SW_strURL = SW_strURL &amp; "?PageNo="<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End Sub<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '*****************************************<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ' 类型：&nbsp;&nbsp;&nbsp; 过程<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ' 目的：&nbsp;&nbsp;&nbsp; 显示分页信息<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ' 输入：&nbsp;&nbsp;&nbsp; 无<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ' 返回：&nbsp;&nbsp;&nbsp; 无<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '*****************************************<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Public Sub Pages()<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Dim strPages,k,intTemp,intTemp1<BR>&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If SW_lngTotalPage = 1 Then Exit Sub<BR>&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Response.Write("&lt;table align=""center"" class=""css_ShowPage"" width=""" &amp; SW_strShowWidth &amp; """&gt;" &amp; vbcrlf)</FONT></P> <P><FONT face=Verdana>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Response.Write("&nbsp; &lt;tr&gt;" &amp; vbcrlf)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Response.Write("&nbsp;&nbsp;&nbsp; &lt;td&gt;" &amp; vbcrlf)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Response.Write("&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &lt;table width=""100%""&gt;" &amp; vbcrlf)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Response.Write("&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &lt;tr&gt;" &amp; vbcrlf &amp; "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &lt;td align=""center"" valign=""middle"" class="".test1""&gt;" &amp; vbcrlf)</FONT></P> <P><FONT face=Verdana>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If SW_lngTotalPage &gt;= 1 Then<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If SW_lngPageNo &lt;= 1 Then<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Response.Write ("首页 前页 &lt;a href=""" &amp; SW_strURL &amp; SW_lngPageNo+1 &amp; """&gt;后页&lt;/a&gt; &lt;a href=""" &amp; SW_strURL &amp; SW_lngTotalPage &amp; """&gt;末页&lt;/a&gt;" &amp; vbcrlf)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Else<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If SW_lngPageNo &gt;= SW_lngTotalPage Then<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Response.Write ("&lt;a href=""" &amp; SW_strURL &amp; "1""&gt;首页&lt;/a&gt;&nbsp; &lt;a href=""" &amp; SW_strURL&nbsp; &amp; SW_lngPageNo -1 &amp; """&gt;前页&lt;/a&gt;&nbsp; " &amp; "后页&nbsp; 末页" &amp; vbcrlf)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Else<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Response.Write ("&lt;a href=""" &amp; SW_strURL &amp; "1""&gt;首页&lt;/a&gt; &lt;a href=""" &amp; SW_strURL&nbsp; &amp; SW_lngPageNo -1 &amp; """&gt;前页&lt;/a&gt; " &amp; "&lt;a href=""" &amp; SW_strURL&nbsp; &amp; SW_lngPageNo+1 &amp; """&gt;后页&lt;/a&gt; &lt;a href=""" &amp; SW_strURL&nbsp; &amp; SW_lngTotalPage &amp; """&gt;末页&lt;/a&gt;" &amp; vbcrlf)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Response.Write ("　页次：&lt;b&gt;" &amp; SW_lngPageNo &amp; "&lt;/b&gt;/" &amp; SW_lngTotalPage &amp; "页 共&lt;b&gt;" &amp; SW_lngTotalRecord &amp; "&lt;/b&gt;条记录　&lt;b&gt;" &amp; SW_intPageSize &amp; "&lt;/b&gt;条/页&lt;/td&gt;" &amp; vbcrlf)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Response.Write("&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &lt;form name=""gopage"" action=""" &amp; SW_strFormAction &amp; """ method=""post""&gt;" &amp; vbcrlf)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Response.Write("&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &lt;td&gt; 第")<BR>&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; Response.Write("&nbsp;&nbsp;&nbsp; &lt;input type=""text"" name=""pageno"" size=""3"" maxlength=4 title=""请输入页号,然后回车""&gt;页 " &amp; vbcrlf)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Response.Write("&lt;input type=""submit"" value=""GO""&gt;&lt;/td&gt;&lt;/form&gt;&lt;/tr&gt;" &amp; vbcrlf)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Response.Write("&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &lt;/table&gt;" &amp; vbcrlf)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Response.Write("&nbsp;&nbsp;&nbsp; &lt;/td&gt;" &amp; vbcrlf)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Response.Write("&nbsp; &lt;/tr&gt;" &amp; vbcrlf)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Response.Write("&lt;/table&gt;" &amp; vbcrlf)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End Sub</FONT></P> <P><FONT face=Verdana>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Sub Close()<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Set SW_objRS&nbsp;&nbsp; = Nothing<BR>&nbsp;&nbsp;&nbsp; Set SW_objConn = Nothing<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End Sub<BR>&nbsp; End Class<BR>%&gt;</FONT></P></TD></TR></TBODY></TABLE></P> <P>&nbsp;</P> <P>三、复杂类的源代码及调用代码（含数据显示功能） <BR><BR></P> <P> <TABLE style="BORDER-RIGHT: #cccccc 1px dotted; TABLE-LAYOUT: fixed; BORDER-TOP: #cccccc 1px dotted; BORDER-LEFT: #cccccc 1px dotted; BORDER-BOTTOM: #cccccc 1px dotted" cellSpacing=0 cellPadding=6 width="95%" align=center border=0> <TBODY> <TR> <TD style="WORD-WRAP: break-word" bgColor=#f3f3f3><FONT style="FONT-WEIGHT: bold; COLOR: #990000">以下是引用片段：</FONT><BR>&lt;%Option&nbsp;Explicit <BR>&nbsp;&nbsp;Dim&nbsp;strStartTime,intUseTime,clsPage,strShowTemp <BR>&nbsp;&nbsp;strStartTime&nbsp;=&nbsp;timer() <BR>%&gt; <BR>&lt;!--#include&nbsp;file="inc_clsPages.asp"--&gt; <BR>&lt;% <BR>'分页显示的位置：SW_intPageInAll,SW_intPageInTop,SW_intPageInBottom <BR>'页数的显示模式：SW_intShowChinese,SW_intShowEnglish,SW_intShowCharacter,SW_intShowImage <BR><BR><BR>'页面显示模板设置　&lt;文件头&gt;&nbsp;+&nbsp;&lt;页数设置：分页显示模式,页数显示的位置&gt;&nbsp;+&nbsp;&lt;数据显示&gt;&nbsp;+&nbsp;&lt;页数显示&gt;&nbsp;+&nbsp;&lt;文件尾&gt;如果某项不需要，只要设置成&lt;&gt;就行了，不过&lt;文件头&gt;和&lt;文件尾是必须的&gt; <BR><BR>&nbsp;&nbsp;'设置分页文件头,可以直接跟HTML代码({code=&lt;html&gt;....&lt;/html&gt;}) <BR>&nbsp;&nbsp;strShowTemp&nbsp;=&nbsp;"[file=head.js]&nbsp;+&nbsp;" <BR>&nbsp;&nbsp;'设置分页条显示信息 <BR>&nbsp;&nbsp;strShowTemp&nbsp;=&nbsp;strShowTemp&nbsp;&amp;&nbsp;"[page="&nbsp;&amp;&nbsp;SW_intPageInAll&nbsp;&amp;&nbsp;","&nbsp;&amp;&nbsp;SW_intShowCharacter&nbsp;&amp;&nbsp;"]&nbsp;+&nbsp;" <BR><BR>&nbsp;&nbsp;'########设置数据模版信息 <BR>&nbsp;&nbsp;strShowTemp&nbsp;=&nbsp;strShowTemp&nbsp;&amp;&nbsp;"[data=" <BR>&nbsp;&nbsp;'设置显示的宽度 <BR>&nbsp;&nbsp;strShowTemp&nbsp;=&nbsp;strShowTemp&nbsp;&amp;&nbsp;"90%|" <BR>&nbsp;&nbsp;'数据显示方式，竖排、横排 <BR>&nbsp;&nbsp;strShowTemp&nbsp;=&nbsp;strShowTemp&nbsp;&amp;&nbsp;SW_intVerticalView&nbsp;&amp;&nbsp;"|" <BR><BR>&nbsp;&nbsp;'需要显示的字段的相应的中文说明 <BR>&nbsp;&nbsp;strShowTemp&nbsp;=&nbsp;strShowTemp&nbsp;&amp;&nbsp;"编号,用户名,生日#" <BR>&nbsp;&nbsp;'需要显示的字段的相应的对齐方式 <BR>&nbsp;&nbsp;strShowTemp&nbsp;=&nbsp;strShowTemp&nbsp;&amp;&nbsp;"left,center,right#" <BR>&nbsp;&nbsp;'需要显示的字段的相应的宽度 <BR>&nbsp;&nbsp;strShowTemp&nbsp;=&nbsp;strShowTemp&nbsp;&amp;&nbsp;"30%,30%,30%#" <BR>&nbsp;&nbsp;'需要显示的字段的相应的链接文件名 <BR>&nbsp;&nbsp;strShowTemp&nbsp;=&nbsp;strShowTemp&nbsp;&amp;&nbsp;"list.asp,,," <BR><BR>&nbsp;&nbsp;strShowTemp&nbsp;=&nbsp;strShowTemp&nbsp;&amp;&nbsp;"]&nbsp;+&nbsp;" <BR>&nbsp;&nbsp;'#########数据模版结束 <BR><BR>&nbsp;&nbsp;'#########设置文件尾 <BR>&nbsp;&nbsp;strShowTemp&nbsp;=&nbsp;strShowTemp&nbsp;&amp;&nbsp;"[file=foot.js]" <BR><BR>&nbsp;&nbsp;Set&nbsp;clsPage&nbsp;=&nbsp;New&nbsp;SWPage <BR>&nbsp;&nbsp;clsPage.Conn&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=&nbsp;"Driver={Microsoft&nbsp;Access&nbsp;Driver&nbsp;(*.mdb)};dbq="&nbsp;&amp;&nbsp;Server.Mappath("../db/datatest.mdb") <BR>&nbsp;&nbsp;clsPage.SQL&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=&nbsp;"SELECT&nbsp;*&nbsp;FROM&nbsp;datatest" <BR>&nbsp;&nbsp;clsPage.PageSize&nbsp;&nbsp;&nbsp;&nbsp;=&nbsp;10 <BR>&nbsp;&nbsp;clsPage.URL&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=&nbsp;"pages.asp" <BR>&nbsp;&nbsp;clsPage.FieldList&nbsp;&nbsp;&nbsp;=&nbsp;"id,field1,field2" <BR>&nbsp;&nbsp;clsPage.Template&nbsp;&nbsp;&nbsp;&nbsp;=&nbsp;strShowTemp&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;'显示模版 <BR>&nbsp;&nbsp;clsPage.Init() <BR>&nbsp;&nbsp;clsPage.Show <BR>&nbsp;&nbsp;clsPage.Close <BR>&nbsp;&nbsp;Set&nbsp;clsPage&nbsp;=&nbsp;Nothing <BR><BR>&nbsp;&nbsp;intUseTime&nbsp;=&nbsp;FormatNumber((timer()-strStartTime)*1000,3) <BR>&nbsp;&nbsp;Response.Write("&lt;br&gt;&lt;br&gt;&lt;center&gt;共用时&nbsp;&lt;font&nbsp;color=""#FF0000""&gt;"&nbsp;&amp;&nbsp;intUseTime&nbsp;&amp;&nbsp;"&lt;/font&gt;&nbsp;毫秒&lt;/center&gt;") <BR>%&gt;</TD></TR></TBODY></TABLE></P> <P>&nbsp;</P><FONT face=Verdana>[NextPage]</FONT> <P>inc_clsPages.asp</P> <P> <TABLE style="BORDER-RIGHT: #cccccc 1px dotted; TABLE-LAYOUT: fixed; BORDER-TOP: #cccccc 1px dotted; BORDER-LEFT: #cccccc 1px dotted; BORDER-BOTTOM: #cccccc 1px dotted" cellSpacing=0 cellPadding=6 width="95%" align=center border=0> <TBODY> <TR> <TD style="WORD-WRAP: break-word" bgColor=#f3f3f3><FONT style="FONT-WEIGHT: bold; COLOR: #990000">以下是引用片段：</FONT><BR> <P><FONT face=Verdana>&lt;%<BR>&nbsp; '/************************************************<BR>&nbsp; '*&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; *<BR>&nbsp; '* Name&nbsp;&nbsp;&nbsp; : Asp pagnation class&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; *<BR>&nbsp; '* Author&nbsp; : cjj&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; *<BR>&nbsp; '* Version : V2.8&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; *<BR>&nbsp; '* Time&nbsp;&nbsp;&nbsp; : 2004-01-16&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; *<BR>&nbsp; '* Comefrom: http://www.blueidea.com/&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; *<BR>&nbsp; '* HomePage: None (Maybe Soon)&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; *<BR>&nbsp; '* Notice&nbsp; :&nbsp;&nbsp; You can use and modify it freely, *<BR>&nbsp; '*&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; BUT PLEASE HOLD THIS ITEM.&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; *<BR>&nbsp; '*&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If you modify it that i hope you&nbsp; *<BR>&nbsp; '*&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; can send a mail for me.&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; *<BR>&nbsp; '*&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; *<BR>&nbsp; '************************************************/</FONT></P> <P><FONT face=Verdana>&nbsp; '#########声明变量#########</FONT></P> <P><FONT face=Verdana>&nbsp; '定义链接的显示类型<BR>&nbsp; Const SW_intShowChinese&nbsp;&nbsp;&nbsp;&nbsp; = 0&nbsp; '汉字，如"上一页、下一页"<BR>&nbsp; Const SW_intShowEnglish&nbsp;&nbsp;&nbsp;&nbsp; = 1&nbsp; '英文，如"Back、Next"<BR>&nbsp; Const SW_intShowCharacter&nbsp;&nbsp; = 2&nbsp; '特殊字符<BR>&nbsp; '定义数据的显示类型<BR>&nbsp; Const SW_intHorizontalView&nbsp; = 0&nbsp; '横排<BR>&nbsp; Const SW_intVerticalView&nbsp;&nbsp;&nbsp; = 1&nbsp; '竖排<BR>&nbsp; '线的显示类型<BR>&nbsp; Const SW_intShowBigBorder&nbsp;&nbsp; = 2&nbsp; '粗线<BR>&nbsp; Const SW_intShowSmallBorder = 1&nbsp; '细线<BR>&nbsp; Const SW_intShowNoBorder&nbsp;&nbsp;&nbsp; = 0&nbsp; '无线</FONT></P> <P><FONT face=Verdana>&nbsp; '标题栏线的显示类型<BR>&nbsp; Const SW_intTleSmallBorder = 1&nbsp; '细线<BR>&nbsp; Const SW_intTleNoBorder&nbsp;&nbsp;&nbsp; = 0&nbsp; '无线</FONT></P> <P><FONT face=Verdana>&nbsp; '显示分页信息的位置<BR>&nbsp; Const SW_intPageInNone&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; = 0&nbsp; '不显示分页条<BR>&nbsp; Const SW_intPageInTop&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; = 1&nbsp; '在顶部显示<BR>&nbsp; Const SW_intPageInBottom&nbsp;&nbsp;&nbsp; = 2&nbsp; '在底部显示<BR>&nbsp; Const SW_intPageInAll&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; = 3&nbsp; '在顶、底部显示</FONT></P> <P><FONT face=Verdana>&nbsp; '显示的页数的数字个数<BR>&nbsp; Const SW_intShowPages&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; = 10</FONT></P> <P><FONT face=Verdana>&nbsp; 'SWPage Class<BR>&nbsp; Private SW_blnIsHaveRS,SW_strFields,SW_blnInConn,SW_intShowPagePos,SW_strShowWidth<BR>&nbsp; '#########初始化变量##########<BR>&nbsp; SW_blnIsHaveRS&nbsp;&nbsp;&nbsp; = false&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '设置记录集获取标志为Fasle，就是无记录集状态<BR>&nbsp; SW_strShowWidth&nbsp;&nbsp; = "90%"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '默认的显示宽度为90%<BR>&nbsp; SW_strFields&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; = ""<BR>&nbsp; SW_blnInConn&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; = true&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '由内部创建Connection,如果设为False则由外部创建<BR>&nbsp; SW_intShowPagePos = SW_intPageInAll</FONT></P><FONT face=Verdana> <P><BR>&nbsp; '*****************************************<BR>&nbsp; ' 类型：&nbsp;&nbsp;&nbsp; 类<BR>&nbsp; ' 目的：&nbsp;&nbsp;&nbsp; 给记录集分页<BR>&nbsp; '*****************************************<BR>&nbsp; Class SWPage<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '声明类私有变量<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Private SW_objRS,SW_objConn</P> <P>&nbsp;&nbsp; Private SW_strSQL,SW_strURL,SW_strError,SW_strFormAction,SW_strHeadJS,SW_strFootJS</P> <P>&nbsp;&nbsp; Private SW_intPageSize,SW_intTleBDType,SW_intShowPageType,SW_intShowType<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Private SW_lngTotalPage,SW_lngTotalRecord,SW_lngPageNo<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Private SW_aryFldName,SW_aryFldNote,SW_aryFldWidth,SW_aryFldAlign,SW_aryFldLink<BR>&nbsp;&nbsp; Private SW_blnInit,SW_blnOpenRS,SW_blnConn,SW_blnPageSize,SW_blnFieldList,SW_blnGetURL,SW_blnShowType,SW_blnShowPageType,SW_blnTemplate</P> <P>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '*****************************************<BR>&nbsp;&nbsp; ' 类型：&nbsp;&nbsp;&nbsp; 属性<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ' 目的：&nbsp;&nbsp;&nbsp; 根据获取的信息，创建数据库连接<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ' 输入：&nbsp;&nbsp;&nbsp; a_strConn:数据类型字符串<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ' 返回：&nbsp;&nbsp;&nbsp; 无<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '*****************************************<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Public Property Let Conn(a_strConn)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Dim strError<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; SW_blnConn = false<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Set SW_objConn = CreateObject("Adodb.Connection")<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; On Error Resume Next<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; SW_objConn.Open a_strConn<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If Err.Number &lt;&gt; 0 Then strError = strError &amp; "&lt;br&gt;创建Connection对象失败"<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; On Error Goto 0&nbsp;&nbsp; <BR>&nbsp;&nbsp;&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If Trim(strError)="" Then<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; SW_blnConn = true<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Else<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; SW_strError = SW_strError &amp; "&nbsp; &lt;tr bgcolor=""#336699"" height=""28""&gt;&lt;td&gt;&lt;font color=""#FFFFFF""&gt;Conn属性：&lt;/font&gt;&lt;/td&gt;&lt;/tr&gt;" &amp; vbcrlf<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; SW_strError = SW_strError &amp; "&nbsp; &lt;tr bgcolor=""#ffffff""&gt;&lt;td&gt;" &amp; strError &amp; "&lt;/td&gt;&lt;/tr&gt;" &amp; vbcrlf<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If<BR>&nbsp;&nbsp; End Property</P> <P>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '*****************************************<BR>&nbsp;&nbsp; ' 类型：&nbsp;&nbsp;&nbsp; 属性<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ' 目的：&nbsp;&nbsp;&nbsp; 设定或显示SQL语句。<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ' 输入：&nbsp;&nbsp;&nbsp; a_strSQL:&nbsp;&nbsp; SQL语句。<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ' 返回：&nbsp;&nbsp;&nbsp; SQL语句。<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '*****************************************<BR>&nbsp;&nbsp; Public Property Let SQL(a_strSQL)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Dim strError</P> <P>&nbsp;&nbsp;&nbsp; SW_blnOpenRS = false<BR>&nbsp;&nbsp;&nbsp; SW_strSQL = a_strSQL</P> <P>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '创建RecordSet对象<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Set SW_objRS = CreateObject("adodb.RecordSet")<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; On Error Resume Next<BR>&nbsp;&nbsp;&nbsp; SW_objRS.Open SW_strSQL,SW_objConn,1,1<BR>&nbsp;&nbsp;&nbsp; If Err.Number &lt;&gt; 0 Then strError = "&lt;br&gt;记录集打开失败"<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; On Error Goto 0</P> <P>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If Trim(strError)="" Then<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; SW_blnOpenRS = true<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Else<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; SW_strError = SW_strError &amp; "&nbsp;&nbsp; &lt;tr bgcolor=""#336699"" height=""28""&gt;&lt;td&gt;&lt;font color=""#FFFFFF""&gt;SQL属性：&lt;/font&gt;&lt;/td&gt;&lt;/tr&gt;" &amp; vbcrlf<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; SW_strError = SW_strError &amp; "&nbsp; &lt;tr bgcolor=""#ffffff""&gt;&lt;td&gt;" &amp; strError &amp; "&lt;/td&gt;&lt;/tr&gt;" &amp; vbcrlf<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If<BR>&nbsp;&nbsp; End Property</P> <P><BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '*****************************************<BR>&nbsp;&nbsp; ' 类型：&nbsp;&nbsp;&nbsp; 属性<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ' 目的：&nbsp;&nbsp;&nbsp; 设置需要显示的数据的字段名<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ' 输入：&nbsp;&nbsp;&nbsp; a_strFldName:字段名字符串，多个字段之间以逗号分隔<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ' 返回：&nbsp;&nbsp;&nbsp; 无<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '*****************************************<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Public Property Let FieldList(a_strFldName)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Dim strError</P> <P>&nbsp;&nbsp;&nbsp; SW_blnFieldList = false<BR>&nbsp;&nbsp;&nbsp; If Trim(a_strFldName) &lt;&gt; "" Then<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; SW_aryFldName = Split(LCase(a_strFldName),",")<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Else<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; strError = strError &amp; "&lt;br&gt;你必须设置需要显示的字段名，否则无法显示数据"<BR>&nbsp;&nbsp;&nbsp; End If<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If Trim(strError)="" Then<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; SW_blnFieldList = true<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Else<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; SW_strError = SW_strError &amp; "&nbsp; &lt;tr bgcolor=""#336699"" height=""28""&gt;&lt;td&gt;&lt;font color=""#FFFFFF""&gt;FieldList属性：&lt;/font&gt;&lt;/td&gt;&lt;/tr&gt;" &amp; vbcrlf<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; SW_strError = SW_strError &amp; "&nbsp; &lt;tr bgcolor=""#ffffff""&gt;&lt;td&gt;" &amp; strError &amp; "&lt;/td&gt;&lt;/tr&gt;" &amp; vbcrlf<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If<BR>&nbsp;&nbsp; End Property</P> <P>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '*****************************************<BR>&nbsp;&nbsp; ' 类型：&nbsp;&nbsp;&nbsp; 属性<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ' 目的：&nbsp;&nbsp;&nbsp; 设定或显示每页的记录数。<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ' 输入：&nbsp;&nbsp;&nbsp; a_intPageSize:&nbsp;&nbsp; 每页显示的记录数。<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ' 返回：&nbsp;&nbsp;&nbsp; 每页显示的记录数。<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '*****************************************<BR>&nbsp;&nbsp; Public Property Let PageSize(a_intPageSize)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Dim strError</P> <P>&nbsp;&nbsp;&nbsp; 'PageSize获取失败标志<BR>&nbsp;&nbsp;&nbsp; SW_blnPageSize = false<BR>&nbsp;&nbsp;&nbsp; If Trim(a_intPageSize) = "" OR (Not(IsNumeric(a_intPageSize))) Then<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; strError = strError &amp; "&lt;br&gt;非法的pagesize"<BR>&nbsp;&nbsp;&nbsp; Else<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If (a_intPageSize &lt;= 2147483647 And a_intPageSize&gt;=-2147483648) Then<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; SW_intPageSize = CLng(a_intPageSize)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Else<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; strError = strError &amp; "&lt;br&gt;PageSize溢出"<BR>&nbsp;&nbsp;&nbsp;&nbsp; End If<BR>&nbsp;&nbsp;&nbsp;&nbsp; If (SW_intPageSize&lt;=0) Then<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; strError = strError &amp; "&lt;br&gt;PageSize只能是正整数"<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If<BR>&nbsp;&nbsp;&nbsp; End If<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If Trim(strError)="" Then<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; SW_blnPageSize = True<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Else<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; SW_strError = SW_strError &amp; "&nbsp; &lt;tr bgcolor=""#336699"" height=""28""&gt;&lt;td&gt;&lt;font color=""#FFFFFF""&gt;PageSize属性：&lt;/font&gt;&lt;/td&gt;&lt;/tr&gt;" &amp; vbcrlf<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; SW_strError = SW_strError &amp; "&nbsp; &lt;tr bgcolor=""#ffffff""&gt;&lt;td&gt;" &amp; strError &amp; "&lt;/td&gt;&lt;/tr&gt;" &amp; vbcrlf<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If<BR>&nbsp;&nbsp; End Property</P> <P>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '*****************************************<BR>&nbsp;&nbsp; ' 类型：&nbsp;&nbsp;&nbsp; 属性<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ' 目的：&nbsp;&nbsp;&nbsp; 设定分页文件显示模板信息。<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ' 输入：&nbsp;&nbsp;&nbsp; a_strTemplate:&nbsp;&nbsp; 模板描述。<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ' 返回：&nbsp;&nbsp;&nbsp; 无。<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '*****************************************<BR>&nbsp;&nbsp; Public Property Let Template(a_strTemplate)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Dim aryTemplate,i,j,strError,strTemp,intItem,aryTemp,aryTemp1</P> <P>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; SW_blnTemplate = false</P> <P>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; aryTemplate = Split(Trim(LCase(a_strTemplate)),"+")<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; intItem = UBound(aryTemplate)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If intItem &lt; 4 Then strError = "&lt;br&gt;此属性是必选项"</P> <P>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If intItem &lt; 4 Then<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '获取文件头<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; strTemp = TriM(aryTemplate(0))</P> <P>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If strcomp(Left(strTemp,6),"[file=")= 0 Then<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; SW_strHeadJS = "&lt;script src=""" &amp; Mid(strTemp,7,Len(strTemp)-7) &amp; """&gt;&lt;/script&gt;"<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Else<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; SW_strHeadJS = Mid(strTemp,7,Len(strTemp)-7)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If</P> <P>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '获取文件尾<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; strTemp = Trim(aryTemplate(3))</P> <P>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If strComp(Left(strTemp,6),"[file=") = 0 Then<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; SW_strFootJS = "&lt;script src=""" &amp; Mid(strTemp,7,Len(strTemp)-7) &amp; """&gt;&lt;/script&gt;"<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Else<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; SW_strFootJS = Mid(strTemp,7,Len(strTemp)-7)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If</P> <P>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '获取分页模版<BR>&nbsp;&nbsp;&nbsp;&nbsp; aryTemp = Split(aryTemplate(1),",")<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If aryTemp(0) &lt;&gt; "" Then strTemp = Replace(aryTemp(0),"[page=","")</P> <P>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If IsNumeric(strTemp) Then strTemp = CInt(strTemp)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If strTemp &lt;&gt; SW_intPageInNone Then</P> <P>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If IsNumeric(strTemp) Then strTemp = CInt(strTemp)</P> <P>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; SW_intShowPagePos = strTemp<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; strTemp = aryTemp(1)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If strTemp &lt;&gt; "" Then strTemp = Replace(strTemp,"]","")</P> <P>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If IsNumeric(strTemp) Then strTemp = CInt(strTemp)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; SW_intShowPageType = strTemp<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Else<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; SW_intShowPagePos = SW_intPageShowInNone<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If</P> <P>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '获取数据显示模版<BR>&nbsp;&nbsp;&nbsp;&nbsp; aryTemp = Split(aryTemplate(2),"|")<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; For i = 0 To UBound(aryTemp)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; strTemp = LCase(Trim(aryTemp(i)))<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Select Case i<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Case 0&nbsp; '获取并设置显示宽度<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If strTemp &lt;&gt; "" Then strTemp = Replace(strTemp,"[data=","")<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; SW_strShowWidth = strTemp<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Case 1&nbsp; '获取数据显示方式<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If IsNumeric(strTemp) Then strTemp = CInt(strTemp)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; SW_intShowType = strTemp<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Case 2<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If strTemp &lt;&gt; "" Then strTemp = Replace(strTemp,"]","")<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; aryTemp1 = Split(Trim(strTemp),"#")<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If UBound(aryTemp1) &gt;= 3 Then<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; SW_aryFldNote = Split(aryTemp1(0),",")<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; SW_aryFldAlign = Split(aryTemp1(1),",")<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; SW_aryFldWidth = Split(aryTemp1(2),",")<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; SW_aryFldLink = Split(aryTemp1(3),",")<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End Select<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Next<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If</P> <P>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If strError = "" Then<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; SW_blnTemplate = true<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Else<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; SW_strError = SW_strError &amp; "&nbsp; &lt;tr bgcolor=""#336699"" height=""28""&gt;&lt;td&gt;&lt;font color=""#FFFFFF""&gt;Template属性：&lt;/font&gt;&lt;/td&gt;&lt;/tr&gt;" &amp; vbcrlf<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; SW_strError = SW_strError &amp; "&nbsp; &lt;tr bgcolor=""#ffffff""&gt;&lt;td&gt;" &amp; strError &amp; "&lt;/td&gt;&lt;/tr&gt;" &amp; vbcrlf<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End Property</P> <P>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '*****************************************<BR>&nbsp;&nbsp; ' 类型：&nbsp;&nbsp;&nbsp; 属性<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ' 目的：&nbsp;&nbsp;&nbsp; 设定或显示URL。<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ' 输入：&nbsp;&nbsp;&nbsp; a_strURL:&nbsp;&nbsp; 需要分页的文件地址。<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ' 返回：&nbsp;&nbsp;&nbsp; 需要分页的文件地址。<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '*****************************************<BR>&nbsp;&nbsp; Public Property Let URL(a_strURL)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Dim strError,objFSO</P> <P>&nbsp;&nbsp;&nbsp; SW_blnGetURL = false<BR>&nbsp;&nbsp;&nbsp; If Trim(a_strURL)="" Then<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; strError = "&lt;br&gt;非法的URL地址"<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Else<BR>&nbsp;&nbsp;&nbsp;&nbsp; Set objFSO = CreateObject("Scripting.FileSystemObject")<BR>&nbsp;&nbsp;&nbsp;&nbsp; If objFSO.FileExists(Server.Mappath(a_strURL)) Then<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; SW_strURL = a_strURL<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Else<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; strError = strError &amp; "&lt;br&gt;你能确定文件 &lt;font color=""#ff0000""&gt;" &amp; a_strURL &amp; "&lt;/font&gt; 存在么？"<BR>&nbsp;&nbsp;&nbsp;&nbsp; End If<BR>&nbsp;&nbsp;&nbsp;&nbsp; Set objFSO = Nothing<BR>&nbsp;&nbsp;&nbsp; End If<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If strError = "" Then<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; SW_blnGetURL = true<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Else<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; SW_strError = SW_strError &amp; "&nbsp; &lt;tr bgcolor=""#336699"" height=""28""&gt;&lt;td&gt;&lt;font color=""#FFFFFF""&gt;URL属性：&lt;/font&gt;&lt;/td&gt;&lt;/tr&gt;" &amp; vbcrlf<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; SW_strError = SW_strError &amp; "&nbsp; &lt;tr bgcolor=""#ffffff""&gt;&lt;td&gt;" &amp; strError &amp; "&lt;/td&gt;&lt;/tr&gt;" &amp; vbcrlf<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If<BR>&nbsp;&nbsp; End Property</P> <P><BR>&nbsp;&nbsp; '*****************************************<BR>&nbsp;&nbsp; ' 类型：&nbsp;&nbsp;&nbsp; 属性<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ' 目的：&nbsp;&nbsp;&nbsp; 设置显示标题时单元格的宽度<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ' 输入：&nbsp;&nbsp;&nbsp; a_strTleWidth:单元格宽度字符串<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ' 返回：&nbsp;&nbsp;&nbsp; 无<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '*****************************************<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Public Property Let TleWidth(a_strWidth)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; SW_strTleWidth = a_strWidth<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End Property</P> <P>&nbsp;&nbsp; '*****************************************<BR>&nbsp;&nbsp; ' 类型：&nbsp;&nbsp;&nbsp; 属性<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ' 目的：&nbsp;&nbsp;&nbsp; 设置显示标题时单元格分隔线的类型<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ' 输入：&nbsp;&nbsp;&nbsp; a_intBDType 单元格分隔线的类型<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ' 返回：&nbsp;&nbsp;&nbsp; 无<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '*****************************************<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Public Property Let TleBDType(a_intBDType)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; SW_intTleBDType = a_intBDType<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End Property</P> <P>&nbsp;&nbsp; '*****************************************<BR>&nbsp;&nbsp; ' 类型：&nbsp;&nbsp;&nbsp; 过程<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ' 目的：&nbsp;&nbsp;&nbsp; 统计总记录数、计算总页数<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ' 输入：&nbsp;&nbsp;&nbsp; 无<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ' 返回：&nbsp;&nbsp;&nbsp; 无<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '*****************************************<BR>&nbsp;&nbsp; Sub Init()<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Dim intPostion,strError,i,objRSTemp,lngTotalRecord</P> <P>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If Not (SW_blnConn and SW_blnOpenRS and SW_blnPageSize and SW_blnGetURL) Then<BR>&nbsp;&nbsp;&nbsp; Call ShowErrors()<BR>&nbsp;&nbsp;&nbsp; Exit Sub<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If</P> <P>&nbsp;&nbsp;&nbsp; If SW_objRS.Eof And SW_objRS.Bof Then<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; strError = strError &amp; "&lt;br&gt;库中无任何记录"<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If</P> <P>&nbsp;&nbsp;&nbsp; '计算总计录数<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Set objRSTemp = SW_objConn.Execute("SELECT * FROM SW_RecCount")<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; lngTotalRecord = CLng(objRSTemp("SW_RecCount").Value)<BR>&nbsp;&nbsp;&nbsp;&nbsp; SW_lngTotalRecord = lngTotalRecord<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If (SW_lngTotalRecord&lt;=2147483647 AND SW_lngTotalRecord&gt;=-2147483648) Then<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; SW_lngTotalRecord = CLng(SW_lngTotalRecord)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Else<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; strError = strError &amp; "&lt;br&gt;分页初始化时：总记录数溢出"<BR>&nbsp;&nbsp;&nbsp; End If<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If SW_lngTotalRecord &lt;=0 Then strError = strError &amp; "&lt;br&gt;分页初始化时：总记录数小于零"</P> <P>&nbsp;&nbsp;&nbsp; '计算总页数<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If SW_lngTotalRecord Mod SW_intPageSize = 0 Then<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; SW_lngTotalPage = CLng(SW_lngTotalRecord \ SW_intPageSize * -1)*-1<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Else<BR>&nbsp;&nbsp;&nbsp;&nbsp; SW_lngTotalPage = CLng(SW_lngTotalRecord \ SW_intPageSize * -1)*-1 + 1<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If</P> <P>&nbsp;&nbsp;&nbsp; '获取页数<BR>&nbsp;&nbsp;&nbsp; SW_lngPageNo = Trim(Request.QueryString("pageno"))<BR>&nbsp;&nbsp;&nbsp; If SW_lngPageNo = "" Then SW_lngPageNo = Trim(Request.Form("PageNo"))<BR>&nbsp;&nbsp;&nbsp; If SW_lngPageNo = "" Then SW_lngPageNo = 1<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '如果没有选择第几页，则默认显示第一页<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If SW_lngPageNo &lt;&gt; "" And IsNumeric(SW_lngPageNo) Then<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If (SW_lngPageNo &lt;= 2147483647 And SW_lngPageNo&gt;=-2147483648) Then<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; SW_lngPageNo = CLng(SW_lngPageNo)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Else<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; strError = strError &amp; "&lt;br&gt;页数溢出，请检查！"<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If<BR>&nbsp;&nbsp;&nbsp;&nbsp; If (SW_lngPageNo&lt;=0) Then strError = strError &amp; "&lt;br&gt;页数只能是正整数！"<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Else<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; strError = strError &amp; "&lt;br&gt;你确信此页数　&lt;font color=""#FF0000""&gt;" &amp; SW_lngPageNo &amp; "&lt;/font&gt;　存在？"<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If</P> <P>&nbsp;&nbsp;&nbsp; If (SW_lngPageNo &gt; SW_lngTotalPage AND SW_lngTotalPage&lt;&gt;0) Then SW_lngPageNo = SW_lngTotalPage</P> <P>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; SW_objRS.PageSize&nbsp;&nbsp;&nbsp;&nbsp; = SW_intPageSize<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; SW_objRS.AbsolutePage = SW_lngPageNo</P> <P>&nbsp;&nbsp;&nbsp; intPostion = InstrRev(SW_strURL,"?")<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; SW_strFormAction = SW_strURL<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If intPostion &gt; 0 Then<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; SW_strURL = SW_strURL &amp; "&amp;PageNo="<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Else<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; SW_strURL = SW_strURL &amp; "?PageNo="<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If</P> <P>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If Trim(SW_strFields) = "" Then<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; For i = 0 To SW_objRS.Fields.Count-1<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; SW_strFields = SW_strFields &amp; SW_objRS(i).Name &amp; ","<BR>&nbsp;&nbsp;&nbsp;&nbsp; Next<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If</P> <P>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; SW_strFields = LCase("," &amp; Trim(SW_strFields))<BR>&nbsp;&nbsp;&nbsp; If IsArray(SW_aryFldName) Then<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; For i = LBound(SW_aryFldName) To Ubound(SW_aryFldName)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If&nbsp; Instr(SW_strFields,"," &amp; SW_aryFldName(i) &amp; ",") = 0 Then strError = strError &amp; "&lt;br&gt;字段名 &lt;font color=""#ff0000""&gt;" &amp; SW_aryFldName(i) &amp; "&lt;/font&gt; 正确吗？"<BR>&nbsp;&nbsp;&nbsp;&nbsp; Next</P> <P>&nbsp;&nbsp;&nbsp;&nbsp; If (IsArray(SW_aryFldNote) AND UBound(SW_aryFldName)&gt;UBound(SW_aryFldNote)) Then strError = strError &amp; "&lt;br&gt;字段相应中文说明项目不能小于字段个数"</P> <P>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If (IsArray(SW_aryFldWidth) AND UBound(SW_aryFldName)&gt;UBound(SW_aryFldWidth)) Then strError = strError &amp; "&lt;br&gt;字段相应宽度项目不能小于字段个数"<BR>&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If (IsArray(SW_aryFldAlign) AND UBound(SW_aryFldName)&gt;UBound(SW_aryFldAlign)) Then strError = strError &amp; "&lt;br&gt;字段数据相应对齐方式项目不能小于字段个数"<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If (IsArray(SW_aryFldLink) AND UBound(SW_aryFldName)&gt;UBound(SW_aryFldLink)) Then strError = strError &amp; "&lt;br&gt;字段数据相应文件链接项目不能小于字段个数"<BR>&nbsp;&nbsp;&nbsp; End If</P> <P>&nbsp;&nbsp;&nbsp; If Trim(strError) = "" Then<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; SW_blnInit = true<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Else<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; SW_strError = SW_strError &amp; "&nbsp; &lt;tr bgcolor=""#336699"" height=""28""&gt;&lt;td&gt;&lt;font color=""#FFFFFF""&gt;Init过程：&lt;/font&gt;&lt;/td&gt;&lt;/tr&gt;" &amp; vbcrlf<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; SW_strError = SW_strError &amp; "&nbsp; &lt;tr bgcolor=""#ffffff""&gt;&lt;td&gt;" &amp; strError &amp; "&lt;/td&gt;&lt;/tr&gt;" &amp; vbcrlf<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Response.Write(SW_strHeadJS &amp; vbcrlf)<BR>&nbsp; End Sub<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '*****************************************<BR>&nbsp;&nbsp; ' 类型：&nbsp;&nbsp;&nbsp; 过程<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ' 目的：&nbsp;&nbsp;&nbsp; 显示分页信息<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ' 输入：&nbsp;&nbsp;&nbsp; 无<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ' 返回：&nbsp;&nbsp;&nbsp; 无<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '*****************************************<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Private Sub Pages()<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Dim strPages,k,intTemp,intTemp1</P> <P>&nbsp;&nbsp;&nbsp; If Not(SW_blnInit) Then&nbsp; Call ShowErrors()<BR>&nbsp;<BR>&nbsp;&nbsp;&nbsp; If SW_lngTotalPage = 1 Then Exit Sub<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Response.Write("&lt;table align=""center"" class=""css_ShowPage"" width=""" &amp; SW_strShowWidth &amp; """&gt;" &amp; vbcrlf)</P> <P>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Response.Write("&nbsp; &lt;tr&gt;" &amp; vbcrlf)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Response.Write("&nbsp;&nbsp;&nbsp; &lt;td&gt;" &amp; vbcrlf)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Response.Write("&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &lt;table width=""100%""&gt;" &amp; vbcrlf)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Response.Write("&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &lt;tr&gt;" &amp; vbcrlf &amp; "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &lt;td align=""center"" valign=""middle"" class="".test1""&gt;" &amp; vbcrlf)</P> <P>&nbsp;&nbsp;&nbsp; If SW_lngTotalPage &gt;= 1 Then<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; SELECT CASE SW_intShowPageType<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Case SW_intShowChinese<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If SW_lngPageNo &lt;= 1 Then<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Response.Write ("&lt;font color=""" &amp; SW_strFTColor &amp; """&gt;首页 前页 &lt;a href=""" &amp; SW_strURL &amp; SW_lngPageNo+1 &amp; """&gt;后页&lt;/a&gt; &lt;a href=""" &amp; SW_strURL &amp; SW_lngTotalPage &amp; """&gt;末页&lt;/a&gt;" &amp; vbcrlf)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Else<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If SW_lngPageNo &gt;= SW_lngTotalPage Then<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Response.Write ("&lt;font color=""" &amp; SW_strFTColor &amp; """&gt;&lt;a href=""" &amp; SW_strURL &amp; "1""&gt;首页&lt;/a&gt;&nbsp; &lt;a href=""" &amp; SW_strURL&nbsp; &amp; SW_lngPageNo -1 &amp; """&gt;前页&lt;/a&gt;&nbsp; " &amp; "后页&nbsp; 末页" &amp; vbcrlf)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Else<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Response.Write ("&lt;font color=""" &amp; SW_strFTColor &amp; """&gt;&lt;a href=""" &amp; SW_strURL &amp; "1""&gt;首页&lt;/a&gt; &lt;a href=""" &amp; SW_strURL&nbsp; &amp; SW_lngPageNo -1 &amp; """&gt;前页&lt;/a&gt; " &amp; "&lt;a href=""" &amp; SW_strURL&nbsp; &amp; SW_lngPageNo+1 &amp; """&gt;后页&lt;/a&gt; &lt;a href=""" &amp; SW_strURL&nbsp; &amp; SW_lngTotalPage &amp; """&gt;末页&lt;/a&gt;" &amp; vbcrlf)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Response.Write ("　页次：&lt;b&gt;" &amp; SW_lngPageNo &amp; "&lt;/b&gt;/" &amp; SW_lngTotalPage &amp; "页 共&lt;b&gt;" &amp; SW_lngTotalRecord &amp; "&lt;/b&gt;条记录　&lt;b&gt;" &amp; SW_intPageSize &amp; "&lt;/b&gt;条/页&lt;/td&gt;" &amp; vbcrlf)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Response.Write("&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &lt;form name=""gopage"" action=""" &amp; SW_strFormAction &amp; """ method=""post""&gt;" &amp; vbcrlf)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Response.Write("&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &lt;td&gt; 第")<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Response.Write("&nbsp;&nbsp;&nbsp; &lt;input type=""text"" name=""pageno"" size=""3"" maxlength=4 title=""请输入页号,然后回车""&gt;页 " &amp; vbcrlf)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Response.Write("&lt;input type=""submit"" value=""GO""&gt;&lt;/td&gt;&lt;/form&gt;&lt;/tr&gt;" &amp; vbcrlf)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Case SW_intShowEnglish<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If SW_lngPageNo &lt;= 1 Then<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Response.Write ("&lt;font color=""" &amp; SW_strFTColor &amp; """&gt;First Prev &lt;a href=""" &amp; SW_strURL &amp; SW_lngPageNo+1 &amp; """&gt;Next&lt;/a&gt; &lt;a href=""" &amp; SW_strURL &amp; SW_lngTotalPage &amp; """&gt;Last&lt;/a&gt;" &amp; vbcrlf)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Else<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If SW_lngPageNo &gt;= SW_lngTotalPage Then<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Response.Write ("&lt;font color=""" &amp; SW_strFTColor &amp; """&gt;&lt;a href=""" &amp; SW_strURL &amp; "1""&gt;First&lt;/a&gt;&nbsp; &lt;a href=""" &amp; SW_strURL&nbsp; &amp; SW_lngPageNo -1 &amp; """&gt;Prev&lt;/a&gt;&nbsp; " &amp; "Next&nbsp; Last" &amp; vbcrlf)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Else<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Response.Write ("&lt;font color=""" &amp; SW_strFTColor &amp; """&gt;&lt;a href=""" &amp; SW_strURL &amp; "1""&gt;First&lt;/a&gt; &lt;a href=""" &amp; SW_strURL&nbsp; &amp; SW_lngPageNo -1 &amp; """&gt;Prev&lt;/a&gt; " &amp; "&lt;a href=""" &amp; SW_strURL&nbsp; &amp; SW_lngPageNo+1 &amp; """&gt;Next&lt;/a&gt; &lt;a href=""" &amp; SW_strURL&nbsp; &amp; SW_lngTotalPage &amp; """&gt;Last&lt;/a&gt;" &amp; vbcrlf)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Response.Write ("　Page No：&lt;b&gt;" &amp; SW_lngPageNo &amp; "&lt;/b&gt;/" &amp; SW_lngTotalPage &amp; "　Total Records:&lt;b&gt;" &amp; SW_lngTotalRecord &amp; "&lt;/b&gt;　PageSize:&lt;b&gt;" &amp; SW_intPageSize &amp; "&lt;/b&gt;&lt;/td&gt;" &amp; vbcrlf)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Response.Write("&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &lt;form name=""gopage"" action=""" &amp; SW_strFormAction &amp; """ method=""post""&gt;" &amp; vbcrlf)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Response.Write("&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &lt;td&gt; ")<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Response.Write("&nbsp;&nbsp;&nbsp; &lt;input type=""text"" name=""pageno"" size=""3""&nbsp; maxlength=4 title=""Please input pageno then enter""&gt; " &amp; vbcrlf)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Response.Write("&lt;input type=""submit"" value=""GO""&gt;&lt;/td&gt;&lt;/form&gt;&lt;/tr&gt;" &amp; vbcrlf)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Case SW_intShowCharacter<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; strPages = ""<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; intTemp = (SW_lngPageNo \ SW_intShowPages) * SW_intShowPages<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If SW_lngPageNo Mod SW_intShowPages = 0 Then intTemp = intTemp - 10<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; For k = 1 To SW_intShowPages<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; intTemp1 = intTemp + k</P> <P>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If intTemp1 &gt; SW_lngTotalPage Then Exit For<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If SW_lngPageNo = intTemp1 Then<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If Len(Trim(CStr(intTemp1)))&lt;2 Then<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; strPages = strPages &amp; " 0" &amp; CStr(intTemp1)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Else<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; strPages = strPages &amp; " " &amp; CStr(intTemp1)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Else<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; strPages = strPages &amp; "　&lt;a href=""" &amp; SW_strURL &amp; CStr(intTemp1) &amp; """&gt;"<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If Len(Trim(CStr(intTemp1)))&lt;2 Then<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; strPages = strPages &amp; "0" &amp; CStr(intTemp1)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Else<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; strPages = strPages &amp; CStr(intTemp1)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; strPages = strPages &amp; "&lt;/a&gt;"<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Next<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If SW_lngPageNo &lt;= 1 Then<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Response.Write ("&lt;font face=""Webdings""&gt;9 7&lt;/font&gt;" &amp; strPages &amp; " &lt;a href=""" &amp; SW_strURL &amp; SW_lngPageNo+1 &amp; """&gt;&lt;font face=""Webdings""&gt;8&lt;/font&gt;&lt;/a&gt; &lt;a href=""" &amp; SW_strURL &amp; SW_lngTotalPage &amp; """&gt;&lt;font&nbsp; face=""Webdings""&gt;:&lt;/font&gt;&lt;/a&gt;" &amp; vbcrlf)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Else<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If SW_lngPageNo &gt;= SW_lngTotalPage Then<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Response.Write ("&lt;a href=""" &amp; SW_strURL &amp; "1""&gt;&lt;font&nbsp; face=""Webdings""&gt;9&lt;/font&gt;&lt;/a&gt;&nbsp; &lt;a href=""" &amp; SW_strURL&nbsp; &amp; SW_lngPageNo -1 &amp; """&gt;&lt;font&nbsp; face=""Webdings""&gt;7&lt;/font&gt;&lt;/a&gt;" &amp; strPages &amp; " &lt;font&nbsp; face=""Webdings""&gt;8&nbsp; :&lt;/font&gt;" &amp; vbcrlf)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Else<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Response.Write ("&lt;a href=""" &amp; SW_strURL &amp; "1""&gt;&lt;font&nbsp; face=""Webdings""&gt;9&lt;/font&gt;&lt;/a&gt; &lt;a href=""" &amp; SW_strURL&nbsp; &amp; SW_lngPageNo -1 &amp; """&gt;&lt;font&nbsp; face=""Webdings""&gt;7&lt;/font&gt;&lt;/a&gt; " &amp; strPages &amp; " &lt;a href=""" &amp; SW_strURL&nbsp; &amp; SW_lngPageNo+1 &amp; """&gt;&lt;font&nbsp; face=""Webdings""&gt;8&lt;/font&gt;&lt;/a&gt; &lt;a href=""" &amp; SW_strURL&nbsp; &amp; SW_lngTotalPage &amp; """&gt;&lt;font&nbsp; face=""Webdings""&gt;:&lt;/font&gt;&lt;/a&gt;" &amp; vbcrlf)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If</P> <P>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Response.Write ("&lt;/td&gt;" &amp; vbcrlf)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Response.Write("&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &lt;form name=""gopage"" action=""" &amp; SW_strFormAction &amp; """ method=""post""&gt;" &amp; vbcrlf)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Response.Write("&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &lt;td&gt; ")<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Response.Write("&nbsp;&nbsp;&nbsp; &lt;input type=""text"" name=""pageno"" size=""3""&nbsp; maxlength=10 title=""Please input pageno then enter""&gt; " &amp; vbcrlf)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Response.Write("&lt;input type=""submit"" value=""GO""&gt;&lt;/td&gt;&lt;/form&gt;&lt;/tr&gt;" &amp; vbcrlf)<BR>'&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Case SW_intShowImage<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Case Else<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Response.Write("&lt;br&gt;对不起，你设置的显示方式SWPage不支持。")<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Response.End<BR>&nbsp;&nbsp;&nbsp;&nbsp; End Select<BR>&nbsp;&nbsp;&nbsp; End If<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Response.Write("&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &lt;/table&gt;" &amp; vbcrlf)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Response.Write("&nbsp;&nbsp;&nbsp; &lt;/td&gt;" &amp; vbcrlf)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Response.Write("&nbsp; &lt;/tr&gt;" &amp; vbcrlf)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Response.Write("&lt;/table&gt;" &amp; vbcrlf)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End Sub</P> <P>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '*****************************************<BR>&nbsp;&nbsp; ' 类型：&nbsp;&nbsp;&nbsp; 过程<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ' 目的：&nbsp;&nbsp;&nbsp; 显示分页数据<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ' 输入：&nbsp;&nbsp;&nbsp; 无<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ' 返回：&nbsp;&nbsp;&nbsp; 无<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '*****************************************<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Sub Show()<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Dim i,j</P> <P>&nbsp;&nbsp;&nbsp; If Not(SW_blnInit) Then Call ShowError()</P> <P>&nbsp;&nbsp;&nbsp; j = 0<BR>&nbsp;&nbsp;&nbsp; If SW_objRS.Eof And SW_objRS.Bof Then<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Response.Write("库中无任何记录&lt;br&gt;")<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Response.End<BR>&nbsp;&nbsp;&nbsp; Else<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If SW_intShowPagePos = SW_intPageInAll Or SW_intShowPagePos = SW_intPageInTop Then Call Pages()</P> <P>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '空行<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Response.Write("&lt;table&gt;&lt;tr&gt;&lt;td height=""5""&gt;&lt;/td&gt;&lt;/tr&gt;&lt;/table&gt;" &amp; vbcrlf)</P> <P>&nbsp;&nbsp;&nbsp;&nbsp; SELECT CASE SW_intShowType<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Case SW_intHorizontalView '横排<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Do While (Not SW_objRS.Eof AND j&lt;SW_intPageSize)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Response.Write("&nbsp; &lt;table class=""css_showdata_tb"" width=""" &amp; SW_strShowWidth &amp; """ align=""center""&gt;" &amp; vbcrlf)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; For i = LBound(SW_aryFldName) To UBound(SW_aryFldName)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Response.Write("&nbsp;&nbsp;&nbsp; &lt;tr class=""css_showdata_title_H"" height=""28""&gt;" &amp; vbcrlf)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Response.Write("&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &lt;td class=""css_showdata_V"" align=""center"" width=""" &amp; SW_strTleWidth &amp; """&gt;" &amp; vbcrlf &amp; "&amp;nbsp;")<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If (IsArray(SW_aryFldNote)) Then<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Response.Write(SW_aryFldNote(i) &amp; vbcrlf)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Else<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Response.Write(SW_aryFldName(i) &amp; vbcrlf)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If</P> <P>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Response.Write("&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &lt;/td&gt;" &amp; vbcrlf &amp; "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &lt;td class=""css_showdata_td"" ")</P> <P>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If (IsArray(SW_aryFldWidth)) Then Response.Write(" width=""" &amp; SW_aryFldWidth(i) &amp; """")</P> <P>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If (IsArray(SW_aryFldAlign)) Then Response.Write(" align=""" &amp; SW_aryFldAlign(i) &amp; """")</P> <P>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Response.Write("&gt;" &amp; vbcrlf)</P> <P>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If (IsArray(SW_aryFldLink) AND (Trim(SW_aryFldLink(i))&lt;&gt;"")) Then<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Response.Write("&lt;a href=""" &amp; SW_aryFldLink(i) &amp; """ target=""_blank""&gt;" &amp; SW_objRS(SW_aryFldName(i)) &amp; "&lt;/a&gt;&lt;/td&gt;" &amp; vbcrlf)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Else<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Response.Write(SW_objRS(SW_aryFldName(i)) &amp; "&lt;/td&gt;" &amp; vbcrlf)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If</P> <P>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Response.Write("&nbsp;&nbsp;&nbsp; &lt;/tr&gt;" &amp; vbcrlf)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Next<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Response.Write("&nbsp; &lt;/table&gt;" &amp; vbcrlf)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '空行<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Response.Write("&lt;table&gt;&lt;tr&gt;&lt;td height=""5""&gt;&lt;/td&gt;&lt;/tr&gt;&lt;/table&gt;" &amp; vbcrlf)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; SW_objRS.MoveNext<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; j = j + 1<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Loop<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; CASE SW_intVerticalView&nbsp; '竖排<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If SW_intTleBDType = SW_intTleNoBorder Then<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Response.Write("&nbsp; &lt;table class=""css_showdata_tb"" align=""center"" width=""" &amp; SW_strShowWidth &amp; """&gt;" &amp; vbcrlf)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Response.Write("&nbsp;&nbsp;&nbsp; &lt;tr class=""css_title""&gt;&lt;td colspan=""" &amp; CStr(UBound(SW_aryFldName)+1) &amp; """&gt;" &amp; vbcrlf)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Response.Write("&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &lt;table border=""0"" width=""100%""&gt;&lt;tr&gt;")<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; For i = LBound(SW_aryFldName) To UBound(SW_aryFldName)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Response.Write("&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &lt;td align=""center""")<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If (IsArray(SW_aryFldWidth)) Then Response.Write(" width=""" &amp; SW_aryFldWidth(i) &amp; """&gt;")<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If (IsArray(SW_aryFldNote)) Then<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Response.Write(SW_aryFldNote(i) &amp; vbcrlf)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Else<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Response.Write(SW_aryFldName(i) &amp; vbcrlf)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Response.Write("&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &lt;/td&gt;" &amp; vbcrlf)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Next<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Response.Write("&nbsp; &lt;/tr&gt;&lt;/table&gt;&lt;/td&gt;&lt;/tr&gt;" &amp; vbcrlf)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Else<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Response.Write("&nbsp; &lt;table&nbsp; class=""css_showdata_tb"" width=""" &amp; SW_strShowWidth &amp; """ align=""center""&gt;" &amp; vbcrlf)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Response.Write("&nbsp;&nbsp;&nbsp; &lt;tr class=""css_Title"" height=""28""&gt;" &amp; vbcrlf)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; For i = LBound(SW_aryFldName) To UBound(SW_aryFldName)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Response.Write("&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &lt;td class=""css_showdata_td"" align=""center""")<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If (IsArray(SW_aryFldWidth)) Then Response.Write(" width=""" &amp; SW_aryFldWidth(i) &amp; """&gt;")<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If (IsArray(SW_aryFldNote)) Then<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Response.Write(SW_aryFldNote(i))<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Else<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Response.Write(SW_aryFldName(i))<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Response.Write("&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &lt;/td&gt;" &amp; vbcrlf)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Next<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Response.Write("&nbsp; &lt;/tr&gt;" &amp; vbcrlf)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If</P> <P>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Do While (Not SW_objRS.Eof AND j&lt;SW_intPageSize)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Response.Write("&nbsp;&nbsp;&nbsp; &lt;tr class=""CSS_ShowData_tr"" height=""28""&gt;" &amp; vbcrlf)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; For i = LBound(SW_aryFldName) To UBound(SW_aryFldName)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Response.Write(&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; "&lt;td class=""css_showdata_td""")<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If (IsArray(SW_aryFldAlign)) Then Response.Write(" align=""" &amp; SW_aryFldAlign(i) &amp; """ width=""" &amp; SW_aryFldWidth(i) &amp; """&gt;")<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If (IsArray(SW_aryFldLink) AND Trim(SW_aryFldLink(i)&lt;&gt;"")) Then<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Response.Write("&nbsp;&nbsp;&nbsp; &lt;a href=""" &amp; SW_aryFldLink(i) &amp; """ target=""_blnak""&gt;" &amp; SW_objRS(SW_aryFldName(i)) &amp; "&lt;/a&gt;&lt;/td&gt;")<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Else<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Response.Write(SW_objRS(SW_aryFldName(i)) &amp; " &lt;/td&gt;" &amp; vbcrlf)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Next</P> <P>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Response.Write("&nbsp;&nbsp;&nbsp; &lt;/tr&gt;" &amp; vbcrlf)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; SW_objRS.MoveNext<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; j = j + 1<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Loop<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Response.Write("&nbsp; &lt;/table&gt;" &amp; vbcrlf)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Response.Write("&lt;table&gt;&lt;tr&gt;&lt;td height=""5""&gt;&lt;/td&gt;&lt;/tr&gt;&lt;/table&gt;" &amp; vbcrlf)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; CASE ELSE<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Response.Write("&lt;br&gt;你还没设置数据的显示方式?或者你的设置的显示方式SWPage不支持！&lt;br&gt;")<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Response.End<BR>&nbsp;&nbsp;&nbsp;&nbsp; End SELECT<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If SW_intShowPagePos = SW_intPageInAll Or SW_intShowPagePos = SW_intPageInBottom Then Call Pages()<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Response.Write( SW_strFootJS &amp; vbcrlf)<BR>&nbsp;&nbsp;&nbsp; End If<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End Sub</P> <P>&nbsp;&nbsp; '*****************************************<BR>&nbsp;&nbsp; ' 类型：&nbsp;&nbsp;&nbsp; 过程<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ' 目的：&nbsp;&nbsp;&nbsp; 显示分页类中出现的错误信息<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ' 输入：&nbsp;&nbsp;&nbsp; 无<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ' 返回：&nbsp;&nbsp;&nbsp; 无<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '*****************************************<BR>&nbsp;&nbsp; Private Sub ShowErrors()<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If SW_strError &lt;&gt; "" Then<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; SW_strError = "&lt;table bgcolor=""#0000"" cellspacing=""1"" cellpadding=""0"" width=""90%"" align=""center""&gt;" &amp; vbcrlf &amp; "&nbsp; &lt;tr bgcolor=""#ff9900"" height=""30""&gt;&lt;td align=""center"" valign=""middle""&gt;&lt;b&gt;SWPage分页类错误信息&lt;b&gt;&lt;/td&gt;&lt;/tr&gt;" &amp; vbcrlf &amp; SW_strError &amp; "&lt;/table&gt;" &amp; vbcrlf<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Response.Write(SW_strError)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Response.End<BR>&nbsp;&nbsp;&nbsp; End If<BR>&nbsp;&nbsp; End Sub</P> <P>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '*****************************************<BR>&nbsp;&nbsp; ' 类型：&nbsp;&nbsp;&nbsp; 过程<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ' 目的：&nbsp;&nbsp;&nbsp; 释放资源<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ' 输入：&nbsp;&nbsp;&nbsp; 无<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ' 返回：&nbsp;&nbsp;&nbsp; 无<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '*****************************************<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Sub Close()<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Set SW_objRS&nbsp;&nbsp; = Nothing<BR>&nbsp;&nbsp;&nbsp; Set SW_objConn = Nothing<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End Sub<BR>&nbsp; End Class<BR>%&gt;</FONT></P></TD></TR></TBODY></TABLE></P> <P>&nbsp;</P> <P>四、注意事项 <BR>　　你可以随意修改、使用此代码，但是当你修改后，希望能给我一份拷贝(cjj8110@xxx163.com为了防止垃圾邮件，发邮件时请把163前面的"xxx"删除)。如在使用中发现有Bug请通知我或帮我改正，需要注意的是本类需要用到FSO，主要是URL属性中用到它。现在不使有RecordSet对象的RecordCount属性来获取总记录数了，而是将总记录数存在另外的一个表中，所以在通用方面降低了很多，有兴趣的朋友也可以用Application对象来记录总记录数。不管哪种方法，都使添加记录、删除记录的操作麻烦起来了，但分页中最耗时的地方就是用RecordCount来取总记录数了，当然如果你的库记录数不多的话，是无所谓的。但如果有几十或几百万条记录时，可以很明显的感觉到用不用RecordCount的区别了。 <BR><BR><IMG src="/content/webeditor/sysimage/file/zip.gif" border=0><A href="/content/uploadfiles/2011-06/20110619_223333.zip" target=_blank>pages.zip</A></P> [ASP/shtml]asp分页代码，第几页开始，优化效率 http://www.yici.net/content/text_all/text_0/670_1.html 佚名 ASP/shtml 2011-6-19 22:27:09 我自己也是看下面这个分页效果学会的，总的来说分页主要分成设置rs.pagesize和rs.absolutepage还有输出结果等几个步骤。 <BR>你自己仔细看看分页效果的目的是把信息分屏显示等等！！ <BR><BR><BR>近段时间看了一些论坛上面关于分页的ASP程序依然有许多的关注者，但里面只有代码，没有详细的解释，对于初学者来说，这样总是得不到真正的掌握，此次我将针对分页技术进行详解，让大家来理解ASP分页，好了，一起来对分页程序来次透彻的了解吧！ <BR><BR>首先，来看看效果！ <BR><BR>看看功能：分页程序首先读取每页预置的记录条数，在此是5条，其它将在下页中显示，同时提示当前页数、总页数、总记录数，当显示的页数为第一页时，“首页”、“上一页”链接失效，当显示的页数为最后页时，“下一页”、“尾页”链接失效。 <BR><BR>接下来，以实例的方式告诉大家怎么一步步的做出这种分页效果。 <BR><BR>首先，数据库中字段record_info存在于info表中（实例下载中有数据库），先链接数据库并将一个记录集打开，以下代码： <BR><BR>以下为引用的内容： <BR><BR>&lt;% <BR>Set&nbsp;conn=Server.CreateObject("Adodb.Connection") <BR>connstr="provider=Microsoft.JET.OLEDB.4.0;Data&nbsp;Source="&amp;Server.MapPath("data.mdb") <BR>conn.open&nbsp;connstr <BR>Set&nbsp;rs=Server.CreateObject("Adodb.Recordset") <BR>sql="Select&nbsp;*&nbsp;from&nbsp;info" <BR>rs.open&nbsp;sql,conn,1,1 <BR>%&gt; <BR>&nbsp; <BR><BR><BR>这段代码不详解，相信初入门的都会，具体的解释可以看看《手把手教你用ASP做留言本》教程， <BR><BR>接下来这是分页中比较重要的部分，了了三行而已： <BR><BR>以下为引用的内容： <BR><BR>&lt;% <BR>rs.pagesize=5 <BR>curpage=Request.QueryString("curpage") <BR>rs.absolutepage=curpage <BR>%&gt; <BR>&nbsp; <BR><BR><BR>第二句： <BR><BR>rs.pagesize=5，这个什么意思呢？它就是在Recordset对象中的一个内置属性，它的作用是指定每页的记录条数，设置为5时，每5条记录放在一起成一页，比如实例中共有21条记录，那么，使用rs.pagesize分页后，这21条记录将分成5页进行显示。 <BR><BR>第三句： <BR><BR>这里主要是用于翻页的功能，将URL的post参数curpage传递给curpage变量，这个curpage将得到浏览者想要到达的页数。（运行一下实例就会明白） <BR><BR>第四句： <BR><BR>rs.absolutepage，这个也是个内置的属性，，它代表的意思就是将curpage变量的数值指定为当前页。 <BR><BR>现在开始可以让记录循环显示了： <BR><BR>以下为引用的内容： <BR><BR>&lt;% <BR>for&nbsp;i=&nbsp;1&nbsp;to&nbsp;rs.pagesize <BR>if&nbsp;rs.eof&nbsp;then <BR>exit&nbsp;for <BR>end&nbsp;if <BR>%&gt; <BR>&lt;%=rs("record_info")%&gt;&lt;br&gt; <BR>&lt;% <BR>rs.movenext <BR>next <BR>%&gt; <BR>&nbsp; <BR><BR><BR>第二句： <BR><BR>利用for循环在每页显示rs.pagesize属性中指定的记录数。 <BR><BR>第三、四、五句： <BR><BR>这句意思是当最后一页达不到指定记录时就退出循环，以免出错。 <BR><BR>第七句： <BR><BR>绑定从数据库取出的record_info字段，就是叫这字段内的记录循环显示的。 <BR><BR>第九句： <BR><BR>用rs.movenext方法将rs记录集往下移一条记录。 <BR><BR>第十句： <BR><BR>for循环语句。 <BR><BR>另外可以用&lt;%=curpage%&gt;读出当前页次，用&lt;%=rs.pagecount%&gt;读出总页数，用&lt;%=rs.recordcount%&gt;读出总记录数。例如：“当前第&lt;%=curpage%&gt;页，共有&lt;%=rs.pagecount%&gt;页，共有：&lt;%=rs.recordcount%&gt;条记录”。 <BR><BR>在显示首页、上页、下页、尾页功能上，采用了if...else...语句，比较好懂。 <BR><BR>以下为引用的内容： <BR><BR>&lt;%if&nbsp;curpage=1&nbsp;then%&gt; <BR>首页 <BR>&lt;%else%&gt; <BR>&lt;a&nbsp;href="?curpage=1"&gt;首页&lt;/a&gt; <BR>&lt;%end&nbsp;if%&gt; <BR><BR>&lt;%if&nbsp;curpage=1&nbsp;then%&gt; <BR>上一页 <BR>&lt;%else%&gt; <BR>&lt;a&nbsp;href="?curpage=&lt;%=curpage-1%&gt;"&gt;上一页&lt;/a&gt; <BR>&lt;%end&nbsp;if%&gt; <BR><BR>&lt;%if&nbsp;rs.pagecount&lt;curpage+1&nbsp;then%&gt; <BR>下一页 <BR>&lt;%else%&gt; <BR>&lt;a&nbsp;href="?curpage=&lt;%=curpage+1%&gt;"&gt;下一页&lt;/a&gt; <BR>&lt;%end&nbsp;if%&gt; <BR><BR>&lt;%if&nbsp;rs.pagecount&lt;curpage+1&nbsp;then%&gt; <BR>尾页 <BR>&lt;%else%&gt; <BR>&lt;a&nbsp;href="?curpage=&lt;%=rs.pagecount%&gt;"&gt;尾页&lt;/a&gt; <BR>&lt;%end&nbsp;if%&gt; <BR>&nbsp; <BR><BR><BR>理解一下： <BR><BR>首页： <BR><BR>这个使用当前页是否为第一页时判别，如果当前为第一页（也就是首页），那么显示首页两字，没有链接，否则提供直接跳转到首页的链接。&nbsp; <BR><BR>上一页： <BR><BR>当前为第一页时，链接失效，反过来，链接到当前面的上一页，这里使用：&lt;%=curpage-1%&gt;，就是用当前的页数减去1，得到上一页。&nbsp; <BR><BR>下一页： <BR><BR>这里需要使用rs.pagecount这个属性来比较，假如总页数小于当前页数加1的值，那表明这就是第后一页，链接将失效，否则链接到下一页。&nbsp; <BR><BR>尾页： <BR><BR>和下一页的功能一样判定出是最后页时链接失效，否则将当前页指定为rs.pagecount(总页数)。 <BR>这个教程到此结束，经过讲解，大家应该对ASP的分页技术有较深的理解了吧？有问题可以通过在blog留言的方式和我联系。 [XML/Ajax]网页编程必看:XML文法分析 http://www.yici.net/content/text_all/text_0/669_1.html 佚名 XML/Ajax 2011-5-24 10:45:19 　　在进行XML文法分析之前，首先有必要了解XML语法的基本规则： <BR><BR>　　词法特征：1）XML区分大小写，如元素名在打开和关闭标记中应保持大小写一致&lt;mytag&gt;…&lt;/mytag&gt;，XML的保留词串应符合大小写要求&lt;?xml&nbsp;…&gt;&nbsp;&lt;!ENTITY&gt;…。 <BR><BR>　　2）XML保留标记字符为：&lt;&nbsp;&gt;&nbsp;&amp;，保留字符不允许出现在元素名、元素文本、属性名、属性值中，&lt;&nbsp;用户打开标记，&gt;用于关闭标记，&amp;用于转意，常见的转意为&nbsp;&amp;lt生成&lt;，&amp;gt生成&gt;，&amp;amp生成&amp;，&amp;apos生成’，&amp;quot生成” <BR><BR>　　3）元素名以下划线或字母开始，可包含字母、数字、句点、连字符、下划线、冒号和用于其他语言的扩展字符，元素名中不能有空格符（分格符、跳格符、换行符、回车符），元素名可以由名域前缀。如：&lt;mytag&gt;&nbsp;&lt;dt:mytag&gt;&nbsp;元素文本可以是除XML保留字符外的字符集合，如&lt;mytag&gt;&nbsp;my&nbsp;money&nbsp;is&nbsp;$2000&nbsp;&lt;/mytag&gt; <BR><BR>　　4）属性名的规则同元素名，属性值由单引号或双引号括约其中，可由除XML保留字符以外的字符串组成，如：&lt;mytag&nbsp;myprop=”proper&nbsp;value”&gt;。属性名有xmlns前缀，表明该属性定义了一个名域，如：&lt;mytag&nbsp;xmlns:ns=”http://www.myweb.com/myschema”&gt; <BR><BR>　　句法特征：1）XML文档由一个XML说明、多个可选的文档说明、多个可选的XML指令、多个可选的XML注释和一个根元素的数据体组成，此外还可以有嵌入语句中的CDATA段，如： <BR><BR> <TABLE style="BORDER-RIGHT: #cccccc 1px dotted; TABLE-LAYOUT: fixed; BORDER-TOP: #cccccc 1px dotted; BORDER-LEFT: #cccccc 1px dotted; BORDER-BOTTOM: #cccccc 1px dotted" cellSpacing=0 cellPadding=6 width="95%" align=center border=0> <TBODY> <TR> <TD style="WORD-WRAP: break-word" bgColor=#f3f3f3><FONT style="FONT-WEIGHT: bold; COLOR: #990000">以下是引用片段：</FONT><BR>　　&lt;?xml&nbsp;…?&gt;&nbsp;/*XML说明*/ <BR>　　&lt;!DOCTYPE&nbsp;…&gt;&nbsp;/*XML文档说明*/ <BR>　　&lt;!--&nbsp;…&nbsp;--&gt;&nbsp;/*XML注释*/ <BR>　　&lt;?xml-stylesheet&nbsp;…?&gt;&nbsp;/*XML指令*/ <BR>　　&lt;root&gt;&nbsp;/*根数据元素*/ <BR>　　&lt;child&gt; <BR>　　…&lt;![CDATA[…]]&gt; <BR>　　&lt;/child&gt; <BR>　　&lt;/root&gt;</TD></TR></TBODY></TABLE> <P>&nbsp;</P> <P>　　2）XML说明由&lt;?xml打开，由?&gt;标关闭，其中包含版本、编码等可选说明，如：&lt;?xml&nbsp;version=”1.0”&nbsp;encoding=”UTF-9”?&gt; <BR>　　3）XML文档说明由&lt;!和保留串打开，由&gt;关闭，如：&lt;!DOCTYPE&nbsp;mydoc&nbsp;SYSTEM&nbsp;“mydoc.dtd”&gt; <BR>　　4)XML指令由&lt;?和保留串打开，由?&gt;关闭，如：&lt;?xml-stylesheet&nbsp;type=”text/xsl”&nbsp;href=”mystyle.xsl”?&gt; <BR>　　5）XML注释由&lt;!――打开，由――&gt;关闭，如：&lt;!--&nbsp;&nbsp;&nbsp;this&nbsp;is&nbsp;my&nbsp;xml&nbsp;document&nbsp;&nbsp;--&gt; <BR>　　6）XML元素由&lt;元素名&gt;打开，由/&gt;，或&lt;/元素名&gt;关闭，元素的打开和关闭标记相互匹配，如&lt;myteg&nbsp;../&gt;或&lt;mytag&gt;…&lt;/myteg&gt;，XML的元素允许嵌套，应此还应保持层次上的匹配，如&lt;myteg&gt;&lt;subtag&gt;..&lt;/subtag&gt;&lt;/mytag&gt;。 <BR>　　7）CDTATA段由&lt;![CDATA[&gt;打开，由]]&gt;关闭，用于使居于其中的语句规避XML解析规则。如：&lt;![CDATA[&nbsp;select&nbsp;*&nbsp;from&nbsp;mytable&nbsp;where&nbsp;thefield&nbsp;&lt;=&nbsp;‘100’&nbsp;]]&gt; <BR>　　根据以上的XML文法特征，可以构造出用于词法分析的正则式和用于句法分析的下推自动机结构。 <BR>　　XML词法正则式： <BR>　　#define&nbsp;digit&nbsp;[1,2,…,9]&nbsp;/*数字字符*/ <BR>　　#define&nbsp;letter&nbsp;[a,b,…,z,A,B,…,Z]&nbsp;/*字母字符*/ <BR>　　#define&nbsp;signs&nbsp;[~,&nbsp;!&nbsp;,&nbsp;@,&nbsp;#,&nbsp;%,&nbsp;^,&nbsp;&amp;,*,(,&nbsp;),&nbsp;?,&nbsp;:,&nbsp;;,&nbsp;“,&nbsp;‘,&nbsp;,,&nbsp;.,&nbsp;/,-,&nbsp;_,&nbsp;+,&nbsp;=,&nbsp;|,&nbsp;\]&nbsp;/*符号字符*/ <BR>　　#define&nbsp;ascii2&nbsp;[0x80,…,0xFF]&nbsp;/*ASCII&nbsp;chart2&nbsp;扩展字符*/ <BR>　　#define&nbsp;space&nbsp;[0x20,&nbsp;\t,&nbsp;\r,&nbsp;\n]&nbsp;/*空格符，跳格符，回车符，换行符*/ <BR>　　#define&nbsp;reserve&nbsp;[&lt;&nbsp;,&nbsp;&gt;,&nbsp;&amp;]&nbsp;/*XML保留字符*/ <BR>　　1）&nbsp;元素名的正则式： <BR>　　element_name&nbsp;-&gt;&nbsp;(_&nbsp;|&nbsp;letter&nbsp;|&nbsp;ascii2)&nbsp;(ε|&nbsp;_&nbsp;|&nbsp;-&nbsp;|&nbsp;:&nbsp;|&nbsp;.&nbsp;|&nbsp;digit&nbsp;|&nbsp;letter&nbsp;|&nbsp;signs&nbsp;|&nbsp;ascii2)* <BR>　　2）&nbsp;元素文本的正则式： <BR>　　element_text&nbsp;-&gt;&nbsp;(ε|&nbsp;not&nbsp;reserve)* <BR>　　3）&nbsp;属性名的正则式： <BR>　　proper_name&nbsp;-&gt;&nbsp;(_&nbsp;|&nbsp;letter&nbsp;|&nbsp;ascii2)&nbsp;(ε|&nbsp;_&nbsp;|&nbsp;-&nbsp;|&nbsp;:&nbsp;|&nbsp;.&nbsp;|&nbsp;digit&nbsp;|&nbsp;letter&nbsp;|&nbsp;signs&nbsp;|&nbsp;ascii2)* <BR>　　4）&nbsp;属性文本的正则式： <BR>　　proper_value&nbsp;-&gt;&nbsp;(ε|&nbsp;not&nbsp;reserve)* <BR></P> <P><FONT face=Verdana>[NextPage]</FONT></P> <P>　　XML句法结构： <BR>　　xml_document&nbsp;-&gt;&nbsp;xml_header&nbsp;(ε|&nbsp;xml_declare&nbsp;|&nbsp;xml_instruct&nbsp;|&nbsp;xml_comments)*&nbsp;xml_element <BR>　　xml_header&nbsp;-&gt;&nbsp;[&lt;?xml](space)*(proper_token)*(space)*&nbsp;[?&gt;] <BR>　　xml_declare&nbsp;-&gt;&nbsp;[&lt;!]reserve_word(space)*(token)*(space)*[&gt;] <BR>　　xml_instruct&nbsp;-&gt;&nbsp;[&lt;?]reserve_word(space)*&nbsp;(proper_token)*&nbsp;(space)*[?&gt;] <BR>　　xml_comments&nbsp;-&gt;&nbsp;[&lt;!--](ε|&nbsp;digit&nbsp;|&nbsp;letter&nbsp;|&nbsp;signs&nbsp;|&nbsp;ascii2&nbsp;|&nbsp;space)*[--&nbsp;&gt;] <BR>　　xml_element&nbsp;-&gt;&nbsp;[&lt;]element_name&nbsp;(space)*(&nbsp;ε|&nbsp;proper_token)*(space)*[/&gt;]&nbsp;|&nbsp; <BR>　　[&lt;]element_name(space)*(&nbsp;ε&nbsp;|&nbsp;proper_token)*(space)*[&gt;] <BR>　　[ε|&nbsp;&lt;![CDATA[&nbsp;]element_text[ε|&nbsp;]]&gt;] <BR>　　(ε&nbsp;|&nbsp;xml_element)*(space)*[&lt;/]element_name[&gt;] <BR>　　proper_token&nbsp;-&gt;&nbsp;proper_name(space)*[=](space)*&nbsp;[ε|&nbsp;&lt;![CDATA[&nbsp;]&nbsp;[‘&nbsp;|&nbsp;“]proper_value[‘&nbsp;|&nbsp;“]&nbsp;[ε|&nbsp;]]&gt;] <BR>　　reserve_word&nbsp;-&gt;&nbsp;[DOCTYPE&nbsp;|&nbsp;ELEMENT&nbsp;|&nbsp;NOTATION&nbsp;|&nbsp;…] <BR>　　token&nbsp;-&gt;&nbsp;(ε|&nbsp;not&nbsp;reserve)* <BR><BR>　　分析XML文法需要构造一个下推自动机，它的结构定义如下： <BR><BR>　　1）STACK_DFA&nbsp;mata_xml_doc&nbsp;=&nbsp;&lt;Q,Σ，σ，q,Γ,T,S&nbsp;&gt; <BR>　　Q:&nbsp;{…}&nbsp;/*详见后面的状态集合*/ <BR>　　Σ:&nbsp;/*指向待解析的XML元素词串*/ <BR>　　σ:&nbsp;Q×Σ-&gt;Q&nbsp;/*状态转移函数，见状态转移列表*/ <BR>　　q:&nbsp;{NIL_SKIP}&nbsp;/*初始状态*/ <BR>　　Γ:&nbsp;{NIL_FAILED,NIL_SUCCEED}&nbsp;/*终结状态集合*/ <BR>　　S:&nbsp;&nbsp;{Q/*状态*/,&nbsp;N/*DOM节点*/&gt;,&lt;…&gt;}&nbsp;/*下推栈*/ <BR>　　2）栈顶符集合用于反映当前分析节点的类型： <BR>　　T：{NIL/*空*/,&nbsp;TG/*标记*/,&nbsp;NS/*元素*/,&nbsp;IS/*指令*/,&nbsp;DS/*声明*/,&nbsp;CD/*CDATA界段*/,CM/*注释*/} <BR>　　3）状态集合反映了分析的某一阶段特征，与栈顶符对应： <BR>　　NIL:&nbsp;&nbsp;NIL_FAILED&nbsp;/*失败*/ <BR>　　NIL_SKIP&nbsp;/*忽略*/ <BR>　　NIL_SUCCEED&nbsp;/*成功*/ <BR>　　CM:&nbsp;&nbsp;CM_BEGIN&nbsp;/*注释开始*/ <BR>　　CM_END&nbsp;/*注释结束*/ <BR>　　TG:&nbsp;&nbsp;TG_OPEN&nbsp;/*标记打开*/ <BR>　　TG_INT_CLOSE&nbsp;/*标记中断*/ <BR>　　TG_PRE_CLOSE&nbsp;/*标记准备关闭*/ <BR>　　TG_CLOSE&nbsp;/*标记关闭*/ <BR>　　NS:&nbsp;&nbsp;NS_NAME_BEGIN&nbsp;/*元素名开始*/ <BR>　　NS_NAME_END&nbsp;/*元素名结束*/ <BR>　　NS_KEY_BEGIN&nbsp;/*属性名开始*/ <BR>　　NS_KEY_END&nbsp;/*属性名结束*/ <BR>　　NS_ASIGN&nbsp;/*属性赋值*/ <BR>　　NS_VAL_BEGIN&nbsp;/*属性值开始*/ <BR>　　NS_VAL_END&nbsp;/*属性值结束*/ <BR>　　NS_TEXT_BEGIN&nbsp;/*元素文本开始*/ <BR>　　NS_TEXT_END&nbsp;/*元素文本结束*/ <BR>　　IS:&nbsp;&nbsp;IS_OPEN&nbsp;/*指令打开*/ <BR>　　IS_NAME_BEGIN&nbsp;/*指令名开始*/ <BR>　　IS_NAME_END&nbsp;/*指令名结束*/ <BR>　　IS_KEY_BEGIN&nbsp;/*指令键开始*/ <BR>　　IS_KEY_END&nbsp;/*指令键结束*/ <BR>　　IS_ASIGN&nbsp;/*赋值符*/ <BR>　　IS_VAL_BEGIN&nbsp;/*指令值开始*/ <BR>　　IS_VAL_END&nbsp;/*指令值结束*/ <BR>　　IS_CLOSE&nbsp;/*指令关闭*/ <BR>　　DS:&nbsp;&nbsp;DS_OPEN&nbsp;/*声明打开*/ <BR>　　DS_SKIP&nbsp;/*越过申明节*/ <BR>　　DS_CLOSE&nbsp;/*声明关闭*/ <BR>　　CD:&nbsp;&nbsp;CD_BEGIN&nbsp;/*CDATA界段开始*/ <BR>　　CD_END&nbsp;/*CDATA界段结束*/ <BR><BR><FONT face=Verdana>[NextPage]</FONT></P> <P>&nbsp;</P> <P>　　4）栈顶动作：PUSH:&nbsp;将当前节点和状态压入栈 <BR>　　POP：出栈并恢复当前节点和状态 <BR>　　NOP：无栈操作 <BR><BR>　　5）读写头动作：NEXT:&nbsp;移动至下一字符 <BR>　　SKIP:&nbsp;越过转义串或保留名串 <BR>　　PAUSE:&nbsp;暂定于当前字符 <BR>　　STOP：停机于当前字符 <BR><BR>　　6）状态转移列表： <BR>　　说明：&nbsp;space&nbsp;指符合空格定义的字符 <BR>　　name&nbsp;指符合命名定义的字符 <BR>　　namepre&nbsp;指符合命名的第一个字符 <BR>　　token&nbsp;指除去保留字符外字符 <BR>　　other&nbsp;指除去已判断以外的字符 <BR>　　（状态）输入符（栈操作，状态，读写头动作） <BR>　　(NOP,NIL_SKIP,NEXT)/*初始化*/ <BR>　　(NIL_SKIP) <BR>　　space&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(NOP,NIL_SKIP,NEXT)&nbsp;/*忽略起始空格*/ <BR>　　&lt;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(NOP,TG_OPEN,NEXT)&nbsp;/*遇到标记*/ <BR>　　‘\0’&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(NOP,NIL_SUCCEED,STOP)&nbsp;/*终结符*/ <BR>　　other&nbsp;(NOP,NIL_FAILED,STOP)&nbsp;/*无效字符*/ <BR>　　(TG_OPEN) <BR>　　!&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(NOP,DS_OPEN,NEXT)&nbsp;/*遇到声明符*/ <BR>　　?&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(NOP,IS_OPEN,NEXT)&nbsp;/*遇到指令符*/ <BR>　　/&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(POP,TG_PRE_CLOSE,NEXT)&nbsp;/*准备关闭标记*/ <BR>　　namepre&nbsp;(NOP,NS_NAME_BEGIN,PAUSE)&nbsp;/*元素名开始*/ <BR>　　other&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(NOP,NIL_FAILED,STOP)&nbsp;/*非法字符*/ <BR>　　(DS_OPEN) <BR>　　other&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(NOP,DS_SKIP,PAUSE)&nbsp;/*忽略声明*/ <BR>　　(DS_SKIP) <BR>　　&gt;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(NOP,DS_CLOSE,PAUSE)&nbsp;/*声明结束*/ <BR>　　other&nbsp;&nbsp;&nbsp;&nbsp;(NOP,DS_SKIP,NEXT)&nbsp;/*忽略声明*/ <BR>　　(DS_CLOSE) <BR>　　&gt;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(NOP,TG_CLOSE,PAUSE)&nbsp;/*标记关闭*/ <BR>　　other&nbsp;&nbsp;&nbsp;(NOP,NIL_FAILED,STOP)&nbsp;/*非法字符*/ <BR>　　(CM_BEGIN) <BR>　　-&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(NOP,CM_END,SKIP)&nbsp;/*注释开始*/ <BR>　　token&nbsp;&nbsp;&nbsp;&nbsp;(NOP,CM_BEGIN,NEXT)&nbsp;/*继续注释串*/ <BR>　　other&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(NOP,NIL_FAILED,STOP)&nbsp;/*非法字符*/ <BR>　　(CM_END) <BR>　　&gt;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(NOP,DS_CLOSE,PAUSE)&nbsp;/*注释关闭*/ <BR>　　other&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(NOP,NIL_FAILED,STOP)&nbsp;/*非法字符*/ <BR>　　(CD_BEGIN) <BR>　　]&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(NOP,CD_END,SKIP)&nbsp;/*界段开始*/ <BR>　　token&nbsp;&nbsp;&nbsp;(NOP,CD_BEGIN,NEXT)&nbsp;/*继续界段*/ <BR>　　other&nbsp;&nbsp;&nbsp;&nbsp;(NOP,NIL_FAILED,STOP)&nbsp;/*非法字符*/ <BR>　　(CD_END) <BR>　　&gt;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(NOP,DS_CLOSE,PAUSE)&nbsp;/*声明关闭*/ <BR>　　other&nbsp;&nbsp;&nbsp;(NOP,NIL_FAILED,STOP)&nbsp;/*非法字符*/ <BR>　　(IS_OPEN)</P> <P><FONT face=Verdana>[NextPage]</FONT></P> <P>　　namepre&nbsp;&nbsp;&nbsp;&nbsp;(NOP,IS_NAME_BEGIN,PAUSE)&nbsp;/*指令名开始*/ <BR>　　other&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(NOP,NIL_FAILED,STOP)&nbsp;/*非法字符*/ <BR>　　(IS_NAME_BEGIN) <BR>　　space&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(NOP,IS_NAME_END,PAUSE)&nbsp;/*指令名结束*/ <BR>　　?&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(NOP,IS_NAME_END,PAUSE)&nbsp;/*指令名结束*/ <BR>　　&amp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(NOP,IS_NAME_BEGIN,SKIP)&nbsp;/*字符转义*/ <BR>　　name&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(NOP,IS_NAME_BEGIN,NEXT)&nbsp;/*继续指令名*/ <BR>　　other&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(NOP,NIL_FAILED,STOP)&nbsp;/*非法字符*/ <BR>　　(IS_NAME_END) <BR>　　space&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(NOP,IS_NAME_END,NEXT)&nbsp;/*忽略空格*/ <BR>　　?&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(NOP,IS_CLOSE,NEXT)&nbsp;/*标记中断*/ <BR>　　namepre&nbsp;&nbsp;(NOP,IS_KEY_BEGIN,PAUSE)&nbsp;/*指令属性名开始*/ <BR>　　other&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(NOP,NIL_FAILED,STOP)&nbsp;/*非法字符*/ <BR>　　(IS_KEY_BEGIN) <BR>　　space&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(NOP,IS_KEY_END,PAUSE)&nbsp;/*属性名结束*/ <BR>　　=&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(NOP,IS_KEY_END,PAUSE)&nbsp;/*属性名结束*/ <BR>　　&amp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(NOP,IS_KEY_BEGIN,SKIP)&nbsp;/*字符转义*/ <BR>　　name&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(NOP,IS_KEY_BEGIN,NEXT)&nbsp;/*继续属性名*/ <BR>　　other&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(NOP,NIL_FAILED,STOP)&nbsp;/*非法字符*/ <BR>　　(IS_KEY_END) <BR>　　space&nbsp;&nbsp;&nbsp;&nbsp;(NOP,IS_KEY_END,NEXT)&nbsp;/*忽略空格*/ <BR>　　=&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(NOP,IS_ASIGN,NEXT)&nbsp;/*属性赋值符*/ <BR>　　other&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(NOP,NIL_FAILED,STOP)&nbsp;/*非法字符*/ <BR>　　(IS_ASIGN) <BR>　　space&nbsp;&nbsp;&nbsp;&nbsp;(NOP,IS_ASIGN,NEXT)&nbsp;/*忽略空格*/ <BR>　　“&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(NOP,IS_VAL_BEGIN,NEXT)&nbsp;/*属性赋值打开*/ <BR>　　‘&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(NOP,IS_VAL_BEGIN,NEXT)&nbsp;/*属性赋值打开*/ <BR>　　other&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(NOP,NIL_FAILED,STOP)&nbsp;/*非法字符*/ <BR>　　(IS_VAL_BEGIN) <BR>　　“&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(NOP,IS_VAL_END,NEXT)&nbsp;/*属性值结束*/ <BR>　　‘&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(NOP,IS_VAL_END,NEXT)&nbsp;/*属性值结束*/ <BR>　　&amp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(NOP,IS_VAL_BEGIN,SKIP)&nbsp;/*字符转义*/ <BR>　　token&nbsp;&nbsp;&nbsp;(NOP,IS_VAL_BEGIN,NEXT)&nbsp;/*继续属性值*/ <BR>　　other&nbsp;&nbsp;&nbsp;&nbsp;(NOP,NIL_FAILED,STOP)&nbsp;/*非法字符*/ <BR>　　(IS_VAL_END) <BR>　　space&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(NOP,IS_VAL_END,NEXT)&nbsp;/*忽略空格*/ <BR>　　?&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(NOP,IS_CLOSE,NEXT)&nbsp;/*标记中断*/ <BR>　　other&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(NOP,IS_KEY_BEGIN,PAUSE)&nbsp;/*属性名开始*/ <BR>　　(IS_CLOSE) <BR>　　&gt;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(NOP,TG_CLOSE,NEXT)&nbsp;/*标记关闭*/ <BR>　　other&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(NOP,NIL_FAILED,STOP)&nbsp;/*非法字符*/ <BR>　　(NS_NAME_BEGIN) <BR>　　space&nbsp;&nbsp;&nbsp;&nbsp;(NOP,NS_NAME_END,PAUSE)&nbsp;/*元素名结束*/ <BR>　　&gt;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(NOP,NS_NAME_END,PAUSE)&nbsp;/*元素名结束*/ <BR>　　/&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(NOP,NS_NAME_END,PAUSE)&nbsp;/*元素名结束*/ <BR>　　&amp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(NOP,NS_NAME_BEGIN,SKIP)&nbsp;/*字符转义*/ <BR>　　name&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(NOP,NS_NAME_BEGIN,NEXT)&nbsp;/*元素名继续*/ <BR>　　other&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(NOP,NIL_FAILED,STOP)&nbsp;/*非法字符*/ <BR>　　(NS_NAME_END) <BR>　　space&nbsp;&nbsp;&nbsp;&nbsp;(NOP,NS_NAME_END,NEXT)&nbsp;/*忽略空格*/ <BR>　　&gt;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(NOP,TG_INT_CLOSE,NEXT)&nbsp;/*元素名结束*/ <BR>　　/&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(NOP,TG_PRE_CLOSE,NEXT)&nbsp;/*元素名结束*/ <BR>　　other&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(NOP,NS_KEY_BEGIN,PAUSE)&nbsp;/*属性名开始*/</P> <P>　　(NS_KEY_BEGIN) <BR>　　space&nbsp;&nbsp;&nbsp;&nbsp;(NOP,NS_NAME_END,PAUSE)&nbsp;/*属性名结束*/ <BR>　　=&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(NOP,NS_KEY_END,PAUSE)&nbsp;/*属性赋值符*/ <BR>　　&amp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(NOP,NS_KEY_BEGIN,SKIP)&nbsp;/*字符转义*/ <BR>　　name&nbsp;&nbsp;&nbsp;&nbsp;(NOP,NS_KEY_BEGIN,NEXT)&nbsp;/*继续属性名*/ <BR>　　other&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(NOP,NIL_FAILED,STOP)&nbsp;/*非法字符*/ <BR>　　(NS_KEY_END) <BR>　　space&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(NOP,NS_KEY_END,NEXT)&nbsp;/*忽略空格*/ <BR>　　=&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(NOP,NS_ASIGN,NEXT)&nbsp;/*属性赋值符*/ <BR>　　other&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(NOP,NIL_FAILED,STOP)&nbsp;/*非法字符*/ <BR>　　(NS_ASIGN) <BR>　　space&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(NOP,NS_ASIGN,NEXT)&nbsp;/*忽略空格*/ <BR>　　“&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(NOP,NS_VAL_BEGIN,NEXT)&nbsp;/*属性赋值打开*/ <BR>　　‘&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(NOP,NS_VAL_BEGIN,NEXT)&nbsp;/*属性赋值打开*/ <BR>　　other&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(NOP,NIL_FAILED,STOP)&nbsp;/*非法字符*/ <BR>　　(NS_VAL_BEGIN) <BR>　　“&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(NOP,NS_VAL_END,NEXT)&nbsp;/*属性值结束*/ <BR>　　‘&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(NOP,NS_VAL_END,NEXT)&nbsp;/*属性值结束*/ <BR>　　&amp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(NOP,NS_VAL_BEGIN,SKIP)&nbsp;/*字符转义*/ <BR>　　token&nbsp;(NOP,NS_VAL_BEGIN,NEXT)&nbsp;/*继续属性值*/ <BR>　　other&nbsp;(NOP,NIL_FAILED,STOP)&nbsp;/*非法字符*/ <BR>　　(NS_VAL_END) <BR>　　space&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(NOP,NS_VAL_END,NEXT)&nbsp;/*忽略空格*/ <BR>　　&gt;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(NOP,TG_INT_CLOSE,NEXT)&nbsp;/*标记中断*/ <BR>　　other&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(NOP,NS_KEY_BEGIN,PAUSE)&nbsp;/*属性名开始*/ <BR>　　(TG_INT_CLOSE) <BR>　　&lt;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(PUSH,TG_OPEN,NEXT)&nbsp;/*标记开始*/ <BR>　　other&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(NOP,NS_TEXT_BEGIN,PAUSE)&nbsp;/*元素文本开始*/ <BR>　　(NS_TEXT_BEGIN) <BR>　　&lt;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(NOP,NS_TEXT_END,PAUSE)&nbsp;/*元素文本结束*/ <BR>　　&amp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(NOP,NS_TEXT_BEGIN_BEGIN,SKIP)&nbsp;/*字符转义*/ <BR>　　token&nbsp;&nbsp;&nbsp;(NOP,NS_TEXT_BEGIN,NEXT)&nbsp;/*继续元素文本*/ <BR>　　other&nbsp;&nbsp;&nbsp;&nbsp;(NOP,NIL_FAILED,STOP)&nbsp;/*非法字符*/ <BR>　　(NS_TEXT_END) <BR>　　&lt;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(PUSH,TG_OPEN,NEXT)&nbsp;/*标记开始*/ <BR>　　other&nbsp;&nbsp;&nbsp;&nbsp;(NOP,NIL_FAILED,STOP)&nbsp;/*非法字符*/ <BR>　　(TG_PRE_CLOSE) <BR>　　&gt;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(NOP,TG_CLOSE,PAUSE)/*标记结束*/ <BR>　　name&nbsp;&nbsp;&nbsp;(NOP,TG_PRE_CLOSE,NEXT)&nbsp;/*继续关闭标记的元素名*/ <BR>　　other&nbsp;&nbsp;&nbsp;(NOP,NIL_FAILED,STOP)&nbsp;/*无效字符*/ <BR>　　(TG_CLOSE) <BR>　　&gt;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(POP,NEXT)&nbsp;/*标记关闭，出栈*/ <BR>　　other&nbsp;&nbsp;&nbsp;(NOP,NIL_FAILED,STOP)&nbsp;/*非法字符*/ <BR><BR>　　对XML声明，本文只做了忽略处理，可以通过增加XML声明的状态和状态转移列表，进而支持XML声明的分析。 <BR></P> [ASP/shtml]ASP中Cache（缓存）技术的应用 http://www.yici.net/content/text_all/text_0/668_1.html 佚名 ASP/shtml 2011-5-24 10:42:53 <P>　　ASP从发布至今已经7年了，使用ASP技术已经相当成熟，自从微软推出了ASP.NET之后就逐渐停止了对ASP版本的更新。但是由于有很多人仍然习惯使用ASP来开发网站，所以，再次我将以一个简单的例子来说明在ASP中如何使用Cache。&nbsp; <BR><BR>　　简单的说使用Cache基本原理是，把经常需要且获得代价昂贵的数据在内存中持续保存一定时间，以供这些数据可以被直接地全局地访问。例如，有一些数据需要从数据库多个表中查询获得，且几乎每个页面都要调用这些数据。 <BR><BR>　　这种情况下的最佳实现就是将这部分数据Cache起来，在ASP中的简单实现就是将这些数据的最终表达形式（例如HTML流）封装在string中然后存入ASP内置对象Application中（本文主要讨论的是动态Cache，简单的ASP&nbsp;应用就省略）。这样做的好处是，在整个网站中可以全局调用这段HTML，而且Application是存在内存中，所以不用再去查询数据库，从而加快了响应时间并节省了服务器负荷。当然这是以消耗内存为代价的，是一个典型的以空间换时间的实例。&nbsp; <BR><BR>　　使用这种方法虽然有很多好处，但是再遇到频繁变化的数据源（数据库）的时候，这种方法就可能不再适用，因为ASP&nbsp;Application对象有一个缺点，就是不能自动随数据源的变化而变化，或者控制刷新间隔。所以就需要开发人员编程来实现动态Cache。当然在程序设计的时候可以在所有进行改变数据源（数据库）操作时，就更新一次Appliction。从而使数据源（数据库）始终保持一致。这样做在编程上要考虑的问题会比较多，容易遗漏细节。所以除了特定情况我不推荐使用这种方法。&nbsp; <BR><BR>　　我认为在ASP中最好的办法是用编程实现定时刷新Cache，也就是说给Application中储存的设一个过期时间。当然，在ASP中Application对象没有这样一个ExpireTime属性。这需要用程序实现。 <BR><BR>　　Code&nbsp; <BR>　　ASP：default.asp </P> <P><BR>&nbsp;</P> <TABLE style="BORDER-RIGHT: #cccccc 1px dotted; TABLE-LAYOUT: fixed; BORDER-TOP: #cccccc 1px dotted; BORDER-LEFT: #cccccc 1px dotted; BORDER-BOTTOM: #cccccc 1px dotted" cellSpacing=0 cellPadding=6 width="95%" align=center border=0> <TBODY> <TR> <TD style="WORD-WRAP: break-word" bgColor=#f3f3f3><FONT style="FONT-WEIGHT: bold; COLOR: #990000">以下是引用片段：</FONT><BR>　　&lt;%@Language=VBScript%&gt; <BR>　　&lt;%Option&nbsp;&nbsp;Explicit%&gt; <BR>　　&lt;%Response.Buffer=True%&gt; <BR>　　&lt;!--#include&nbsp;file&nbsp;=&nbsp;"conn.asp"--&gt; <BR>　　&lt;!--#include&nbsp;file&nbsp;=&nbsp;"GetCache.asp"--&gt; <BR>　　&lt;HTML&gt; <BR>　　&lt;HEAD&gt; <BR>　　&lt;TITLE&gt;ASP&nbsp;Cache演示&lt;/TITLE&gt; <BR>　　&lt;META&nbsp;HTTP-EQUIV="Content-Type"&nbsp;CONTENT="text/html;&nbsp;charset=gb2312"&gt; <BR>　　&lt;/HEAD&gt; <BR>　　&lt;BODY&gt; <BR>　　&lt;h4&gt;每隔10秒刷新Cache：&lt;/h4&gt; <BR>　　&lt;% <BR>　　response.Flush <BR>　　GetHTMLStream <BR>　　response.Write <BR>　　HTMLStream <BR>　　%&gt; <BR>　　&lt;/body&gt; <BR>　　&lt;/html&gt;&nbsp;&nbsp;</TD></TR></TBODY></TABLE> <P>&nbsp;</P> <P>　ASP：getcache.asp&nbsp; </P> <P><BR>&nbsp;</P> <TABLE style="BORDER-RIGHT: #cccccc 1px dotted; TABLE-LAYOUT: fixed; BORDER-TOP: #cccccc 1px dotted; BORDER-LEFT: #cccccc 1px dotted; BORDER-BOTTOM: #cccccc 1px dotted" cellSpacing=0 cellPadding=6 width="95%" align=center border=0> <TBODY> <TR> <TD style="WORD-WRAP: break-word" bgColor=#f3f3f3> <P><FONT style="FONT-WEIGHT: bold; COLOR: #990000">以下是引用片段：</FONT><BR>　　&lt;%&nbsp; <BR>　　Const&nbsp;CACHE_DEFAULT_INTERVAL&nbsp;=&nbsp;30&nbsp;'每隔30秒刷新一次cache&nbsp; <BR>　　Dim&nbsp;HTMLStream&nbsp; <BR>　　Dim&nbsp;IsExpires&nbsp; <BR>　　IsExpires&nbsp;=&nbsp;CacheExpires&nbsp; <BR>　　Function&nbsp;CacheExpires&nbsp; <BR>　　Dim&nbsp;strLastUpdate&nbsp; <BR>　　Dim&nbsp;result&nbsp;strLastUpdate&nbsp;=&nbsp;Application("LastUpdate")&nbsp; <BR>　　If&nbsp;(strLastUpdate&nbsp;=&nbsp;"")&nbsp;Or&nbsp;(CACHE_DEFAULT_INTERVAL&nbsp;&lt;&nbsp;DateDiff("s",&nbsp;strLastUpdate,&nbsp;Now))&nbsp;Then&nbsp; <BR>　　result&nbsp;=&nbsp;true&nbsp; <BR>　　SetLastUpdateTime&nbsp; <BR>　　Else&nbsp; <BR>　　result&nbsp;=&nbsp;false&nbsp; <BR>　　End&nbsp;If&nbsp; <BR>　　CacheExpires&nbsp;=&nbsp;result&nbsp; <BR>　　End&nbsp;Function&nbsp;<BR>　　Sub&nbsp;SetLastUpdateTime&nbsp; <BR>　　Application.Lock&nbsp; <BR>　　Application("LastUpdate")&nbsp;=&nbsp;CStr(now())&nbsp; <BR>　　Application.UnLock&nbsp; <BR>　　End&nbsp;Sub&nbsp; <BR>　　Sub&nbsp;GetHTMLStream&nbsp; <BR>　　If&nbsp;IsExpires&nbsp;Then&nbsp; <BR>　　UpdateHTMLStream&nbsp; <BR>　　End&nbsp;If&nbsp; <BR>　　HTMLStream=Application("CACHE_HTMLStream")&nbsp; <BR>　　End&nbsp;Sub&nbsp; <BR><BR>　　Sub&nbsp;UpdateHTMLStream&nbsp; <BR>　　dim&nbsp;d&nbsp; <BR>　　d&nbsp;=&nbsp;FetchHTMLStream&nbsp; <BR>　　Application.Lock&nbsp; <BR>　　Application("CACHE_HTMLStream")&nbsp;=&nbsp;d&nbsp; <BR>　　Application.UnLock&nbsp; <BR>　　End&nbsp;Sub&nbsp; <BR><BR>　　Function&nbsp;FetchHTMLStream&nbsp;&nbsp; <BR>　　Dim&nbsp;rs&nbsp;,strSQL,&nbsp;strHTML&nbsp; <BR>　　Set&nbsp;rs&nbsp;=&nbsp;CreateObject("ADODB.Recordset")&nbsp; <BR>　　strSQL&nbsp;=&nbsp;"select&nbsp;categoryID&nbsp;,&nbsp;categoryname&nbsp;from&nbsp;categories"&nbsp; <BR>　　rs.Open&nbsp;strSQL,&nbsp;strConn,adOpenForwardOnly,adLockReadOnly&nbsp; <BR>　　strHTML&nbsp;=&nbsp;strHTML&nbsp;&amp;&nbsp;"&lt;select&nbsp;name=""slt_search""&gt;"&nbsp; <BR>　　while&nbsp;(not&nbsp;rs.EOF)&nbsp; <BR>　　strHTML&nbsp;=&nbsp;strHTML&nbsp;&amp;&nbsp;"&lt;option&gt;"&nbsp; <BR>　　strHTML&nbsp;=&nbsp;strHTML&nbsp;&amp;&nbsp;rs.Fields("categoryname")&nbsp; <BR>　　strHTML&nbsp;=&nbsp;strHTML&nbsp;&amp;&nbsp;"&lt;/option&gt;"&nbsp;rs.MoveNext&nbsp; <BR>　　wend&nbsp; <BR>　　strHTML&nbsp;=&nbsp;strHTML&nbsp;&amp;&nbsp;"&lt;/select&gt;"&nbsp; <BR>　　rs.Close&nbsp; <BR>　　Set&nbsp;rs&nbsp;=&nbsp;Nothing&nbsp; <BR>　　FetchHTMLStream&nbsp;=&nbsp;strHTML&nbsp; <BR>　　End&nbsp;Function&nbsp; <BR>　　%&gt;&nbsp;&nbsp; <BR></P></TD></TR></TBODY></TABLE> <P>&nbsp;</P> <P>ASP：conn.asp&nbsp; <BR></P> <P> <TABLE style="BORDER-RIGHT: #cccccc 1px dotted; TABLE-LAYOUT: fixed; BORDER-TOP: #cccccc 1px dotted; BORDER-LEFT: #cccccc 1px dotted; BORDER-BOTTOM: #cccccc 1px dotted" cellSpacing=0 cellPadding=6 width="95%" align=center border=0> <TBODY> <TR> <TD style="WORD-WRAP: break-word" bgColor=#f3f3f3><FONT style="FONT-WEIGHT: bold; COLOR: #990000">以下是引用片段：</FONT><BR>　　&lt;!--METADATA&nbsp;NAME="Microsoft&nbsp;ActiveX&nbsp;Data&nbsp;Objects&nbsp;2.5&nbsp;Library"&nbsp;TYPE="TypeLib"&nbsp;UUID="{00000205-0000-0010-8000-00AA006D2EA4}"--&gt;&nbsp; <BR>　　&lt;%&nbsp; <BR>　　dim&nbsp;strConn&nbsp; <BR>　　strConn&nbsp;=&nbsp;"Provider=SQLOLEDB.1;Integrated&nbsp;Security=SSPI;Persist&nbsp;Security&nbsp;Info=False;Initial&nbsp;Catalog=Northwind"&nbsp; <BR>　　%&gt;&nbsp;&nbsp;</TD></TR></TBODY></TABLE></P> [ASP/shtml]关于动网迷城浪子（老迷）的缓存类的始末2 http://www.yici.net/content/text_all/text_0/667_1.html 佚名 ASP/shtml 2011-5-24 10:41:17 <P>这篇主要说一下老迷的vbs的缓存类的使用 <BR></P> <P> <TABLE style="BORDER-RIGHT: #cccccc 1px dotted; TABLE-LAYOUT: fixed; BORDER-TOP: #cccccc 1px dotted; BORDER-LEFT: #cccccc 1px dotted; BORDER-BOTTOM: #cccccc 1px dotted" cellSpacing=0 cellPadding=6 width="95%" align=center border=0> <TBODY> <TR> <TD style="WORD-WRAP: break-word" bgColor=#f3f3f3><FONT style="FONT-WEIGHT: bold; COLOR: #990000">以下是引用片段：</FONT><BR><SPAN style="COLOR: #008000">Rem</SPAN><SPAN style="COLOR: #008000">&nbsp;=&nbsp;测试Demo</SPAN><SPAN style="COLOR: #008000"><BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104247734.gif" align=top>Rem</SPAN><SPAN style="COLOR: #008000">&nbsp;=&nbsp;set&nbsp;Cache&nbsp;=&nbsp;new&nbsp;Caches</SPAN><SPAN style="COLOR: #008000"><BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104247734.gif" align=top>Rem</SPAN><SPAN style="COLOR: #008000">&nbsp;=&nbsp;Cache.Reloadtime&nbsp;=&nbsp;0.5</SPAN><SPAN style="COLOR: #008000"><BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104247734.gif" align=top>Rem</SPAN><SPAN style="COLOR: #008000">&nbsp;=&nbsp;Cache.Name&nbsp;=&nbsp;"Demo"</SPAN><SPAN style="COLOR: #008000"><BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104247734.gif" align=top>Rem</SPAN><SPAN style="COLOR: #008000">&nbsp;=&nbsp;if&nbsp;Cache.ObjIsEmpty&nbsp;then</SPAN><SPAN style="COLOR: #008000"><BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104247734.gif" align=top>Rem</SPAN><SPAN style="COLOR: #008000">&nbsp;=&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Cache.value&nbsp;=&nbsp;"52xx"</SPAN><SPAN style="COLOR: #008000"><BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104247734.gif" align=top>Rem</SPAN><SPAN style="COLOR: #008000">&nbsp;=&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;response.Write("1")</SPAN><SPAN style="COLOR: #008000"><BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104247734.gif" align=top>Rem</SPAN><SPAN style="COLOR: #008000">&nbsp;=&nbsp;else</SPAN><SPAN style="COLOR: #008000"><BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104247734.gif" align=top>Rem</SPAN><SPAN style="COLOR: #008000">&nbsp;=&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;response.Write(Cache.value)</SPAN><SPAN style="COLOR: #008000"><BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104247734.gif" align=top>Rem</SPAN><SPAN style="COLOR: #008000">&nbsp;=&nbsp;end&nbsp;if</SPAN><BR></TD></TR></TBODY></TABLE></P> <P>&nbsp;</P> <P>这里要说明的就是， <BR>Rem&nbsp;=&nbsp;set&nbsp;Cache&nbsp;=&nbsp;new&nbsp;Caches <BR>Rem&nbsp;=&nbsp;Cache.Reloadtime&nbsp;=&nbsp;0.5 <BR>Rem&nbsp;=&nbsp;Cache.Name&nbsp;=&nbsp;"Demo" <BR>作为初始化的这两个赋值是必须的。 <BR><BR>同时我将老迷的类扩展了一下，这样更加方便同志们的调试。 <BR></P> <P> <TABLE style="BORDER-RIGHT: #cccccc 1px dotted; TABLE-LAYOUT: fixed; BORDER-TOP: #cccccc 1px dotted; BORDER-LEFT: #cccccc 1px dotted; BORDER-BOTTOM: #cccccc 1px dotted" cellSpacing=0 cellPadding=6 width="95%" align=center border=0> <TBODY> <TR> <TD style="WORD-WRAP: break-word" bgColor=#f3f3f3><FONT style="FONT-WEIGHT: bold; COLOR: #990000">以下是引用片段：</FONT><BR><SPAN style="COLOR: #000000">&lt;</SPAN><SPAN style="COLOR: #000000">script&nbsp;language</SPAN><SPAN style="COLOR: #000000">=</SPAN><SPAN style="COLOR: #800000">"</SPAN><SPAN style="COLOR: #800000">vbscript</SPAN><SPAN style="COLOR: #800000">"</SPAN><SPAN style="COLOR: #000000">&nbsp;runat</SPAN><SPAN style="COLOR: #000000">=</SPAN><SPAN style="COLOR: #800000">"</SPAN><SPAN style="COLOR: #800000">server</SPAN><SPAN style="COLOR: #800000">"</SPAN><SPAN style="COLOR: #000000">&gt;</SPAN><SPAN style="COLOR: #000000"><BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104247734.gif" align=top></SPAN><SPAN style="COLOR: #008000">Rem</SPAN><SPAN style="COLOR: #008000">&nbsp;==================使用说明====================&nbsp;</SPAN><SPAN style="COLOR: #008000"><BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104247734.gif" align=top>Rem</SPAN><SPAN style="COLOR: #008000">&nbsp;=&nbsp;本类模块是动网先锋原创，作者：迷城浪子。如采用本类模块，请不要去掉这个说明。这段注释不会影响执行的速度。&nbsp;</SPAN><SPAN style="COLOR: #008000"><BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104247734.gif" align=top>Rem</SPAN><SPAN style="COLOR: #008000">&nbsp;=&nbsp;作用：缓存和缓存管理类&nbsp;</SPAN><SPAN style="COLOR: #008000"><BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104247734.gif" align=top>Rem</SPAN><SPAN style="COLOR: #008000">&nbsp;=&nbsp;公有变量：Reloadtime&nbsp;过期时间（单位为分钟）缺省值为14400&nbsp;</SPAN><SPAN style="COLOR: #008000"><BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104247734.gif" align=top>Rem</SPAN><SPAN style="COLOR: #008000">&nbsp;=&nbsp;MaxCount&nbsp;缓存对象的最大值，超过则自动删除使用次数少的对象。缺省值为300&nbsp;</SPAN><SPAN style="COLOR: #008000"><BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104247734.gif" align=top>Rem</SPAN><SPAN style="COLOR: #008000">&nbsp;=&nbsp;CacheName&nbsp;缓存组的总名称，缺省值为"Dvbbs",如果一个站点中有超过一个s缓存组，则需要外部改变这个值。&nbsp;</SPAN><SPAN style="COLOR: #008000"><BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104247734.gif" align=top>Rem</SPAN><SPAN style="COLOR: #008000">&nbsp;=&nbsp;属性:Name&nbsp;定义缓存对象名称，只写属性。&nbsp;</SPAN><SPAN style="COLOR: #008000"><BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104247734.gif" align=top>Rem</SPAN><SPAN style="COLOR: #008000">&nbsp;=&nbsp;属性:value&nbsp;读取和写入缓存数据。&nbsp;</SPAN><SPAN style="COLOR: #008000"><BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104247734.gif" align=top>Rem</SPAN><SPAN style="COLOR: #008000">&nbsp;=&nbsp;函数：ObjIsEmpty()判断当前缓存是否过期。&nbsp;</SPAN><SPAN style="COLOR: #008000"><BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104247734.gif" align=top>Rem</SPAN><SPAN style="COLOR: #008000">&nbsp;=&nbsp;方法：DelCahe(MyCaheName)手工删除一个缓存对象，参数是缓存对象的名称。&nbsp;</SPAN><SPAN style="COLOR: #008000"><BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104247734.gif" align=top>Rem</SPAN><SPAN style="COLOR: #008000">&nbsp;=&nbsp;测试Demo</SPAN><SPAN style="COLOR: #008000"><BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104247734.gif" align=top>Rem</SPAN><SPAN style="COLOR: #008000">&nbsp;=&nbsp;set&nbsp;Cache&nbsp;=&nbsp;new&nbsp;Caches</SPAN><SPAN style="COLOR: #008000"><BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104247734.gif" align=top>Rem</SPAN><SPAN style="COLOR: #008000">&nbsp;=&nbsp;Cache.Reloadtime&nbsp;=&nbsp;0.5</SPAN><SPAN style="COLOR: #008000"><BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104247734.gif" align=top>Rem</SPAN><SPAN style="COLOR: #008000">&nbsp;=&nbsp;Cache.Name&nbsp;=&nbsp;"Demo"</SPAN><SPAN style="COLOR: #008000"><BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104247734.gif" align=top>Rem</SPAN><SPAN style="COLOR: #008000">&nbsp;=&nbsp;if&nbsp;Cache.ObjIsEmpty&nbsp;then</SPAN><SPAN style="COLOR: #008000"><BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104247734.gif" align=top>Rem</SPAN><SPAN style="COLOR: #008000">&nbsp;=&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Cache.value&nbsp;=&nbsp;"52xx"</SPAN><SPAN style="COLOR: #008000"><BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104247734.gif" align=top>Rem</SPAN><SPAN style="COLOR: #008000">&nbsp;=&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;response.Write("1")</SPAN><SPAN style="COLOR: #008000"><BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104247734.gif" align=top>Rem</SPAN><SPAN style="COLOR: #008000">&nbsp;=&nbsp;else</SPAN><SPAN style="COLOR: #008000"><BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104247734.gif" align=top>Rem</SPAN><SPAN style="COLOR: #008000">&nbsp;=&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;response.Write(Cache.value)</SPAN><SPAN style="COLOR: #008000"><BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104247734.gif" align=top>Rem</SPAN><SPAN style="COLOR: #008000">&nbsp;=&nbsp;end&nbsp;if</SPAN><SPAN style="COLOR: #008000"><BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104247734.gif" align=top>Rem</SPAN><SPAN style="COLOR: #008000">&nbsp;========================&nbsp;</SPAN><SPAN style="COLOR: #008000"><BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104247734.gif" align=top></SPAN><SPAN style="COLOR: #000000"><BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104247734.gif" align=top>Class&nbsp;Caches&nbsp;<BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104247734.gif" align=top><BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104247734.gif" align=top></SPAN><SPAN style="COLOR: #0000ff">Public</SPAN><SPAN style="COLOR: #000000">&nbsp;Reloadtime,MaxCount,CacheName&nbsp;<BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104247734.gif" align=top></SPAN><SPAN style="COLOR: #0000ff">Private</SPAN><SPAN style="COLOR: #000000">&nbsp;LocalCacheName,CacheData,DelCount&nbsp;<BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104247734.gif" align=top></SPAN><SPAN style="COLOR: #0000ff">Private</SPAN><SPAN style="COLOR: #000000">&nbsp;</SPAN><SPAN style="COLOR: #0000ff">Sub</SPAN><SPAN style="COLOR: #000000">&nbsp;Class_Initialize()&nbsp;<BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104247734.gif" align=top>Reloadtime</SPAN><SPAN style="COLOR: #000000">=</SPAN><SPAN style="COLOR: #800080">14400</SPAN><SPAN style="COLOR: #000000">&nbsp;<BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104247734.gif" align=top>CacheName</SPAN><SPAN style="COLOR: #000000">=</SPAN><SPAN style="COLOR: #800000">"</SPAN><SPAN style="COLOR: #800000">Dvbbs</SPAN><SPAN style="COLOR: #800000">"</SPAN><SPAN style="COLOR: #000000">&nbsp;<BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104247734.gif" align=top></SPAN><SPAN style="COLOR: #0000ff">End&nbsp;Sub</SPAN><SPAN style="COLOR: #000000"><BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104247734.gif" align=top><BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104247734.gif" align=top></SPAN><SPAN style="COLOR: #0000ff">Private</SPAN><SPAN style="COLOR: #000000">&nbsp;</SPAN><SPAN style="COLOR: #0000ff">Sub</SPAN><SPAN style="COLOR: #000000">&nbsp;SetCache(SetName,NewValue)&nbsp;<BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104247734.gif" align=top>&nbsp;&nbsp;&nbsp;&nbsp;Application.Lock&nbsp;<BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104247734.gif" align=top>&nbsp;&nbsp;&nbsp;&nbsp;Application(SetName)&nbsp;</SPAN><SPAN style="COLOR: #000000">=</SPAN><SPAN style="COLOR: #000000">&nbsp;NewValue&nbsp;<BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104247734.gif" align=top>&nbsp;&nbsp;&nbsp;&nbsp;Application.unLock&nbsp;<BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104247734.gif" align=top></SPAN><SPAN style="COLOR: #0000ff">End&nbsp;Sub</SPAN><SPAN style="COLOR: #000000">&nbsp;<BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104247734.gif" align=top><BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104247734.gif" align=top></SPAN><SPAN style="COLOR: #0000ff">Private</SPAN><SPAN style="COLOR: #000000">&nbsp;</SPAN><SPAN style="COLOR: #0000ff">Sub</SPAN><SPAN style="COLOR: #000000">&nbsp;makeEmpty(SetName)&nbsp;<BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104247734.gif" align=top>&nbsp;&nbsp;&nbsp;&nbsp;Application.Lock&nbsp;<BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104247734.gif" align=top>&nbsp;&nbsp;&nbsp;&nbsp;Application(SetName)&nbsp;</SPAN><SPAN style="COLOR: #000000">=</SPAN><SPAN style="COLOR: #000000">&nbsp;</SPAN><SPAN style="COLOR: #0000ff">Empty</SPAN><SPAN style="COLOR: #000000">&nbsp;<BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104247734.gif" align=top>&nbsp;&nbsp;&nbsp;&nbsp;Application.unLock&nbsp;<BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104247734.gif" align=top></SPAN><SPAN style="COLOR: #0000ff">End&nbsp;Sub</SPAN><SPAN style="COLOR: #000000">&nbsp;<BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104247734.gif" align=top><BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104247734.gif" align=top></SPAN><SPAN style="COLOR: #0000ff">Public</SPAN><SPAN style="COLOR: #000000">&nbsp;</SPAN><SPAN style="COLOR: #0000ff">Property</SPAN><SPAN style="COLOR: #000000">&nbsp;</SPAN><SPAN style="COLOR: #0000ff">Let</SPAN><SPAN style="COLOR: #000000">&nbsp;Name(ByVal&nbsp;vNewValue)&nbsp;<BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104247734.gif" align=top>&nbsp;&nbsp;&nbsp;&nbsp;LocalCacheName</SPAN><SPAN style="COLOR: #000000">=</SPAN><SPAN style="COLOR: #0000ff">LCase</SPAN><SPAN style="COLOR: #000000">(vNewValue)&nbsp;<BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104247734.gif" align=top></SPAN><SPAN style="COLOR: #0000ff">End&nbsp;Property</SPAN><SPAN style="COLOR: #000000">&nbsp;<BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104247734.gif" align=top><BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104247734.gif" align=top></SPAN><SPAN style="COLOR: #0000ff">Public</SPAN><SPAN style="COLOR: #000000">&nbsp;</SPAN><SPAN style="COLOR: #0000ff">Property</SPAN><SPAN style="COLOR: #000000">&nbsp;</SPAN><SPAN style="COLOR: #0000ff">Let</SPAN><SPAN style="COLOR: #000000">&nbsp;Value(ByVal&nbsp;vNewValue)&nbsp;<BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104247734.gif" align=top>&nbsp;&nbsp;&nbsp;&nbsp;</SPAN><SPAN style="COLOR: #0000ff">If</SPAN><SPAN style="COLOR: #000000">&nbsp;LocalCacheName</SPAN><SPAN style="COLOR: #000000">&lt;&gt;</SPAN><SPAN style="COLOR: #800000">""</SPAN><SPAN style="COLOR: #000000">&nbsp;</SPAN><SPAN style="COLOR: #0000ff">Then</SPAN><SPAN style="COLOR: #000000">&nbsp;<BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104247734.gif" align=top>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;CacheData</SPAN><SPAN style="COLOR: #000000">=</SPAN><SPAN style="COLOR: #000000">Application(CacheName</SPAN><SPAN style="COLOR: #000000">&amp;</SPAN><SPAN style="COLOR: #800000">"</SPAN><SPAN style="COLOR: #800000">_</SPAN><SPAN style="COLOR: #800000">"</SPAN><SPAN style="COLOR: #000000">&amp;</SPAN><SPAN style="COLOR: #000000">LocalCacheName)&nbsp;<BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104247734.gif" align=top>&nbsp;&nbsp;&nbsp;&nbsp;</SPAN><SPAN style="COLOR: #0000ff">If</SPAN><SPAN style="COLOR: #000000">&nbsp;</SPAN><SPAN style="COLOR: #0000ff">IsArray</SPAN><SPAN style="COLOR: #000000">(CacheData)&nbsp;</SPAN><SPAN style="COLOR: #0000ff">Then</SPAN><SPAN style="COLOR: #000000">&nbsp;<BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104247734.gif" align=top>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;CacheData(</SPAN><SPAN style="COLOR: #800080">0</SPAN><SPAN style="COLOR: #000000">)</SPAN><SPAN style="COLOR: #000000">=</SPAN><SPAN style="COLOR: #000000">vNewValue&nbsp;<BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104247734.gif" align=top>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;CacheData(</SPAN><SPAN style="COLOR: #800080">1</SPAN><SPAN style="COLOR: #000000">)</SPAN><SPAN style="COLOR: #000000">=</SPAN><SPAN style="COLOR: #0000ff">Now</SPAN><SPAN style="COLOR: #000000">()&nbsp;<BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104247734.gif" align=top>&nbsp;&nbsp;&nbsp;&nbsp;</SPAN><SPAN style="COLOR: #0000ff">Else</SPAN><SPAN style="COLOR: #000000">&nbsp;<BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104247734.gif" align=top>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</SPAN><SPAN style="COLOR: #0000ff">ReDim</SPAN><SPAN style="COLOR: #000000">&nbsp;CacheData(</SPAN><SPAN style="COLOR: #800080">2</SPAN><SPAN style="COLOR: #000000">)&nbsp;<BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104247734.gif" align=top>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;CacheData(</SPAN><SPAN style="COLOR: #800080">0</SPAN><SPAN style="COLOR: #000000">)</SPAN><SPAN style="COLOR: #000000">=</SPAN><SPAN style="COLOR: #000000">vNewValue&nbsp;<BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104247734.gif" align=top>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;CacheData(</SPAN><SPAN style="COLOR: #800080">1</SPAN><SPAN style="COLOR: #000000">)</SPAN><SPAN style="COLOR: #000000">=</SPAN><SPAN style="COLOR: #0000ff">Now</SPAN><SPAN style="COLOR: #000000">()&nbsp;<BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104247734.gif" align=top>&nbsp;&nbsp;&nbsp;&nbsp;</SPAN><SPAN style="COLOR: #0000ff">End</SPAN><SPAN style="COLOR: #000000">&nbsp;</SPAN><SPAN style="COLOR: #0000ff">If</SPAN><SPAN style="COLOR: #000000">&nbsp;<BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104247734.gif" align=top>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;SetCache&nbsp;CacheName</SPAN><SPAN style="COLOR: #000000">&amp;</SPAN><SPAN style="COLOR: #800000">"</SPAN><SPAN style="COLOR: #800000">_</SPAN><SPAN style="COLOR: #800000">"</SPAN><SPAN style="COLOR: #000000">&amp;</SPAN><SPAN style="COLOR: #000000">LocalCacheName,CacheData&nbsp;<BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104247734.gif" align=top>&nbsp;&nbsp;&nbsp;&nbsp;</SPAN><SPAN style="COLOR: #0000ff">Else</SPAN><SPAN style="COLOR: #000000">&nbsp;<BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104247734.gif" align=top>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Err.Raise&nbsp;vbObjectError&nbsp;</SPAN><SPAN style="COLOR: #000000">+</SPAN><SPAN style="COLOR: #000000">&nbsp;</SPAN><SPAN style="COLOR: #800080">1</SPAN><SPAN style="COLOR: #000000">,&nbsp;</SPAN><SPAN style="COLOR: #800000">"</SPAN><SPAN style="COLOR: #800000">DvbbsCacheServer</SPAN><SPAN style="COLOR: #800000">"</SPAN><SPAN style="COLOR: #000000">,&nbsp;</SPAN><SPAN style="COLOR: #800000">"</SPAN><SPAN style="COLOR: #800000">&nbsp;please&nbsp;change&nbsp;the&nbsp;CacheName.</SPAN><SPAN style="COLOR: #800000">"</SPAN><SPAN style="COLOR: #000000">&nbsp;<BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104247734.gif" align=top>&nbsp;&nbsp;&nbsp;&nbsp;</SPAN><SPAN style="COLOR: #0000ff">End</SPAN><SPAN style="COLOR: #000000">&nbsp;</SPAN><SPAN style="COLOR: #0000ff">If</SPAN><SPAN style="COLOR: #000000">&nbsp;<BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104247734.gif" align=top></SPAN><SPAN style="COLOR: #0000ff">End&nbsp;Property</SPAN><SPAN style="COLOR: #000000">&nbsp;<BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104247734.gif" align=top><BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104247734.gif" align=top></SPAN><SPAN style="COLOR: #0000ff">Public</SPAN><SPAN style="COLOR: #000000">&nbsp;</SPAN><SPAN style="COLOR: #0000ff">Property</SPAN><SPAN style="COLOR: #000000">&nbsp;</SPAN><SPAN style="COLOR: #0000ff">Get</SPAN><SPAN style="COLOR: #000000">&nbsp;Value()&nbsp;<BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104247734.gif" align=top>&nbsp;&nbsp;&nbsp;&nbsp;</SPAN><SPAN style="COLOR: #0000ff">If</SPAN><SPAN style="COLOR: #000000">&nbsp;LocalCacheName</SPAN><SPAN style="COLOR: #000000">&lt;&gt;</SPAN><SPAN style="COLOR: #800000">""</SPAN><SPAN style="COLOR: #000000">&nbsp;</SPAN><SPAN style="COLOR: #0000ff">Then</SPAN><SPAN style="COLOR: #000000">&nbsp;<BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104247734.gif" align=top>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;CacheData</SPAN><SPAN style="COLOR: #000000">=</SPAN><SPAN style="COLOR: #000000">Application(CacheName</SPAN><SPAN style="COLOR: #000000">&amp;</SPAN><SPAN style="COLOR: #800000">"</SPAN><SPAN style="COLOR: #800000">_</SPAN><SPAN style="COLOR: #800000">"</SPAN><SPAN style="COLOR: #000000">&amp;</SPAN><SPAN style="COLOR: #000000">LocalCacheName)&nbsp;<BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104247734.gif" align=top>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</SPAN><SPAN style="COLOR: #0000ff">If</SPAN><SPAN style="COLOR: #000000">&nbsp;</SPAN><SPAN style="COLOR: #0000ff">IsArray</SPAN><SPAN style="COLOR: #000000">(CacheData)&nbsp;</SPAN><SPAN style="COLOR: #0000ff">Then</SPAN><SPAN style="COLOR: #000000">&nbsp;<BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104247734.gif" align=top>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Value</SPAN><SPAN style="COLOR: #000000">=</SPAN><SPAN style="COLOR: #000000">CacheData(</SPAN><SPAN style="COLOR: #800080">0</SPAN><SPAN style="COLOR: #000000">)&nbsp;<BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104247734.gif" align=top>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</SPAN><SPAN style="COLOR: #0000ff">Else</SPAN><SPAN style="COLOR: #000000">&nbsp;<BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104247734.gif" align=top>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Err.Raise&nbsp;vbObjectError&nbsp;</SPAN><SPAN style="COLOR: #000000">+</SPAN><SPAN style="COLOR: #000000">&nbsp;</SPAN><SPAN style="COLOR: #800080">1</SPAN><SPAN style="COLOR: #000000">,&nbsp;</SPAN><SPAN style="COLOR: #800000">"</SPAN><SPAN style="COLOR: #800000">DvbbsCacheServer</SPAN><SPAN style="COLOR: #800000">"</SPAN><SPAN style="COLOR: #000000">,&nbsp;</SPAN><SPAN style="COLOR: #800000">"</SPAN><SPAN style="COLOR: #800000">&nbsp;The&nbsp;CacheData&nbsp;Is&nbsp;Empty.</SPAN><SPAN style="COLOR: #800000">"</SPAN><SPAN style="COLOR: #000000">&nbsp;<BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104247734.gif" align=top>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</SPAN><SPAN style="COLOR: #0000ff">End</SPAN><SPAN style="COLOR: #000000">&nbsp;</SPAN><SPAN style="COLOR: #0000ff">If</SPAN><SPAN style="COLOR: #000000">&nbsp;<BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104247734.gif" align=top>&nbsp;&nbsp;&nbsp;&nbsp;</SPAN><SPAN style="COLOR: #0000ff">Else</SPAN><SPAN style="COLOR: #000000">&nbsp;s<BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104247734.gif" align=top>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Err.Raise&nbsp;vbObjectError&nbsp;</SPAN><SPAN style="COLOR: #000000">+</SPAN><SPAN style="COLOR: #000000">&nbsp;</SPAN><SPAN style="COLOR: #800080">1</SPAN><SPAN style="COLOR: #000000">,&nbsp;</SPAN><SPAN style="COLOR: #800000">"</SPAN><SPAN style="COLOR: #800000">DvbbsCacheServer</SPAN><SPAN style="COLOR: #800000">"</SPAN><SPAN style="COLOR: #000000">,&nbsp;</SPAN><SPAN style="COLOR: #800000">"</SPAN><SPAN style="COLOR: #800000">&nbsp;please&nbsp;change&nbsp;the&nbsp;CacheName.</SPAN><SPAN style="COLOR: #800000">"</SPAN><SPAN style="COLOR: #000000">&nbsp;<BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104247734.gif" align=top>&nbsp;&nbsp;&nbsp;&nbsp;</SPAN><SPAN style="COLOR: #0000ff">End</SPAN><SPAN style="COLOR: #000000">&nbsp;</SPAN><SPAN style="COLOR: #0000ff">If</SPAN><SPAN style="COLOR: #000000">&nbsp;<BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104247734.gif" align=top></SPAN><SPAN style="COLOR: #0000ff">End&nbsp;Property</SPAN><SPAN style="COLOR: #000000"><BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104247734.gif" align=top><BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104247734.gif" align=top></SPAN><SPAN style="COLOR: #008000">rem</SPAN><SPAN style="COLOR: #008000">&nbsp;=&nbsp;可以调用Application的过期时间，方便大家调试。</SPAN><SPAN style="COLOR: #008000"><BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104247734.gif" align=top></SPAN><SPAN style="COLOR: #0000ff">Public</SPAN><SPAN style="COLOR: #000000">&nbsp;</SPAN><SPAN style="COLOR: #0000ff">Property</SPAN><SPAN style="COLOR: #000000">&nbsp;</SPAN><SPAN style="COLOR: #0000ff">Get</SPAN><SPAN style="COLOR: #000000">&nbsp;Expire()&nbsp;<BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104247734.gif" align=top>&nbsp;&nbsp;&nbsp;&nbsp;</SPAN><SPAN style="COLOR: #0000ff">If</SPAN><SPAN style="COLOR: #000000">&nbsp;LocalCacheName</SPAN><SPAN style="COLOR: #000000">&lt;&gt;</SPAN><SPAN style="COLOR: #800000">""</SPAN><SPAN style="COLOR: #000000">&nbsp;</SPAN><SPAN style="COLOR: #0000ff">Then</SPAN><SPAN style="COLOR: #000000">&nbsp;<BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104247734.gif" align=top>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;CacheData</SPAN><SPAN style="COLOR: #000000">=</SPAN><SPAN style="COLOR: #000000">Application(CacheName</SPAN><SPAN style="COLOR: #000000">&amp;</SPAN><SPAN style="COLOR: #800000">"</SPAN><SPAN style="COLOR: #800000">_</SPAN><SPAN style="COLOR: #800000">"</SPAN><SPAN style="COLOR: #000000">&amp;</SPAN><SPAN style="COLOR: #000000">LocalCacheName)&nbsp;<BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104247734.gif" align=top>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</SPAN><SPAN style="COLOR: #0000ff">If</SPAN><SPAN style="COLOR: #000000">&nbsp;</SPAN><SPAN style="COLOR: #0000ff">IsArray</SPAN><SPAN style="COLOR: #000000">(CacheData)&nbsp;</SPAN><SPAN style="COLOR: #0000ff">Then</SPAN><SPAN style="COLOR: #000000">&nbsp;<BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104247734.gif" align=top>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Expire</SPAN><SPAN style="COLOR: #000000">=</SPAN><SPAN style="COLOR: #000000">CacheData(</SPAN><SPAN style="COLOR: #800080">1</SPAN><SPAN style="COLOR: #000000">)&nbsp;<BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104247734.gif" align=top>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</SPAN><SPAN style="COLOR: #0000ff">Else</SPAN><SPAN style="COLOR: #000000">&nbsp;<BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104247734.gif" align=top>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Err.Raise&nbsp;vbObjectError&nbsp;</SPAN><SPAN style="COLOR: #000000">+</SPAN><SPAN style="COLOR: #000000">&nbsp;</SPAN><SPAN style="COLOR: #800080">1</SPAN><SPAN style="COLOR: #000000">,&nbsp;</SPAN><SPAN style="COLOR: #800000">"</SPAN><SPAN style="COLOR: #800000">DvbbsCacheServer</SPAN><SPAN style="COLOR: #800000">"</SPAN><SPAN style="COLOR: #000000">,&nbsp;</SPAN><SPAN style="COLOR: #800000">"</SPAN><SPAN style="COLOR: #800000">&nbsp;The&nbsp;CacheData&nbsp;Is&nbsp;Empty.</SPAN><SPAN style="COLOR: #800000">"</SPAN><SPAN style="COLOR: #000000">&nbsp;<BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104247734.gif" align=top>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</SPAN><SPAN style="COLOR: #0000ff">End</SPAN><SPAN style="COLOR: #000000">&nbsp;</SPAN><SPAN style="COLOR: #0000ff">If</SPAN><SPAN style="COLOR: #000000">&nbsp;<BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104247734.gif" align=top>&nbsp;&nbsp;&nbsp;&nbsp;</SPAN><SPAN style="COLOR: #0000ff">Else</SPAN><SPAN style="COLOR: #000000"><BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104247734.gif" align=top>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Err.Raise&nbsp;vbObjectError&nbsp;</SPAN><SPAN style="COLOR: #000000">+</SPAN><SPAN style="COLOR: #000000">&nbsp;</SPAN><SPAN style="COLOR: #800080">1</SPAN><SPAN style="COLOR: #000000">,&nbsp;</SPAN><SPAN style="COLOR: #800000">"</SPAN><SPAN style="COLOR: #800000">DvbbsCacheServer</SPAN><SPAN style="COLOR: #800000">"</SPAN><SPAN style="COLOR: #000000">,&nbsp;</SPAN><SPAN style="COLOR: #800000">"</SPAN><SPAN style="COLOR: #800000">&nbsp;please&nbsp;change&nbsp;the&nbsp;CacheName.</SPAN><SPAN style="COLOR: #800000">"</SPAN><SPAN style="COLOR: #000000">&nbsp;<BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104247734.gif" align=top>&nbsp;&nbsp;&nbsp;&nbsp;</SPAN><SPAN style="COLOR: #0000ff">End</SPAN><SPAN style="COLOR: #000000">&nbsp;</SPAN><SPAN style="COLOR: #0000ff">If</SPAN><SPAN style="COLOR: #000000">&nbsp;<BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104247734.gif" align=top></SPAN><SPAN style="COLOR: #0000ff">End&nbsp;Property</SPAN><SPAN style="COLOR: #000000"><BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104247734.gif" align=top><BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104247734.gif" align=top></SPAN><SPAN style="COLOR: #0000ff">Public</SPAN><SPAN style="COLOR: #000000">&nbsp;</SPAN><SPAN style="COLOR: #0000ff">Function</SPAN><SPAN style="COLOR: #000000">&nbsp;ObjIsEmpty()&nbsp;<BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104247734.gif" align=top>&nbsp;&nbsp;&nbsp;&nbsp;ObjIsEmpty</SPAN><SPAN style="COLOR: #000000">=</SPAN><SPAN style="COLOR: #0000ff">True</SPAN><SPAN style="COLOR: #000000">&nbsp;<BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104247734.gif" align=top>&nbsp;&nbsp;&nbsp;&nbsp;CacheData</SPAN><SPAN style="COLOR: #000000">=</SPAN><SPAN style="COLOR: #000000">Application(CacheName</SPAN><SPAN style="COLOR: #000000">&amp;</SPAN><SPAN style="COLOR: #800000">"</SPAN><SPAN style="COLOR: #800000">_</SPAN><SPAN style="COLOR: #800000">"</SPAN><SPAN style="COLOR: #000000">&amp;</SPAN><SPAN style="COLOR: #000000">LocalCacheName)&nbsp;<BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104247734.gif" align=top>&nbsp;&nbsp;&nbsp;&nbsp;</SPAN><SPAN style="COLOR: #0000ff">If</SPAN><SPAN style="COLOR: #000000">&nbsp;</SPAN><SPAN style="COLOR: #0000ff">Not</SPAN><SPAN style="COLOR: #000000">&nbsp;</SPAN><SPAN style="COLOR: #0000ff">IsArray</SPAN><SPAN style="COLOR: #000000">(CacheData)&nbsp;</SPAN><SPAN style="COLOR: #0000ff">Then</SPAN><SPAN style="COLOR: #000000">&nbsp;</SPAN><SPAN style="COLOR: #0000ff">Exit</SPAN><SPAN style="COLOR: #000000">&nbsp;</SPAN><SPAN style="COLOR: #0000ff">Function</SPAN><SPAN style="COLOR: #000000">&nbsp;<BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104247734.gif" align=top>&nbsp;&nbsp;&nbsp;&nbsp;</SPAN><SPAN style="COLOR: #0000ff">If</SPAN><SPAN style="COLOR: #000000">&nbsp;</SPAN><SPAN style="COLOR: #0000ff">Not</SPAN><SPAN style="COLOR: #000000">&nbsp;</SPAN><SPAN style="COLOR: #0000ff">IsDate</SPAN><SPAN style="COLOR: #000000">(CacheData(</SPAN><SPAN style="COLOR: #800080">1</SPAN><SPAN style="COLOR: #000000">))&nbsp;</SPAN><SPAN style="COLOR: #0000ff">Then</SPAN><SPAN style="COLOR: #000000">&nbsp;</SPAN><SPAN style="COLOR: #0000ff">Exit</SPAN><SPAN style="COLOR: #000000">&nbsp;</SPAN><SPAN style="COLOR: #0000ff">Function</SPAN><SPAN style="COLOR: #000000">&nbsp;<BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104247734.gif" align=top>&nbsp;&nbsp;&nbsp;&nbsp;</SPAN><SPAN style="COLOR: #0000ff">If</SPAN><SPAN style="COLOR: #000000">&nbsp;</SPAN><SPAN style="COLOR: #0000ff">DateDiff</SPAN><SPAN style="COLOR: #000000">(</SPAN><SPAN style="COLOR: #800000">"</SPAN><SPAN style="COLOR: #800000">s</SPAN><SPAN style="COLOR: #800000">"</SPAN><SPAN style="COLOR: #000000">,</SPAN><SPAN style="COLOR: #0000ff">CDate</SPAN><SPAN style="COLOR: #000000">(CacheData(</SPAN><SPAN style="COLOR: #800080">1</SPAN><SPAN style="COLOR: #000000">)),</SPAN><SPAN style="COLOR: #0000ff">Now</SPAN><SPAN style="COLOR: #000000">())&nbsp;</SPAN><SPAN style="COLOR: #000000">&lt;</SPAN><SPAN style="COLOR: #000000">&nbsp;</SPAN><SPAN style="COLOR: #800080">60</SPAN><SPAN style="COLOR: #000000">*</SPAN><SPAN style="COLOR: #000000">Reloadtime&nbsp;</SPAN><SPAN style="COLOR: #0000ff">Then</SPAN><SPAN style="COLOR: #000000">&nbsp;<BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104247734.gif" align=top>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;ObjIsEmpty</SPAN><SPAN style="COLOR: #000000">=</SPAN><SPAN style="COLOR: #0000ff">False</SPAN><SPAN style="COLOR: #000000">&nbsp;<BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104247734.gif" align=top>&nbsp;&nbsp;&nbsp;&nbsp;</SPAN><SPAN style="COLOR: #0000ff">End</SPAN><SPAN style="COLOR: #000000">&nbsp;</SPAN><SPAN style="COLOR: #0000ff">If</SPAN><SPAN style="COLOR: #000000">&nbsp;<BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104247734.gif" align=top></SPAN><SPAN style="COLOR: #0000ff">End&nbsp;Function</SPAN><SPAN style="COLOR: #000000">&nbsp;<BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104247734.gif" align=top><BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104247734.gif" align=top></SPAN><SPAN style="COLOR: #0000ff">Public</SPAN><SPAN style="COLOR: #000000">&nbsp;</SPAN><SPAN style="COLOR: #0000ff">Sub</SPAN><SPAN style="COLOR: #000000">&nbsp;DelCahe(MyCaheName)&nbsp;<BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104247734.gif" align=top>&nbsp;&nbsp;&nbsp;&nbsp;makeEmpty(CacheName</SPAN><SPAN style="COLOR: #000000">&amp;</SPAN><SPAN style="COLOR: #800000">"</SPAN><SPAN style="COLOR: #800000">_</SPAN><SPAN style="COLOR: #800000">"</SPAN><SPAN style="COLOR: #000000">&amp;</SPAN><SPAN style="COLOR: #000000">MyCaheName)&nbsp;<BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104247734.gif" align=top></SPAN><SPAN style="COLOR: #0000ff">End&nbsp;Sub</SPAN><SPAN style="COLOR: #000000">&nbsp;<BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104247734.gif" align=top><BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104247734.gif" align=top></SPAN><SPAN style="COLOR: #008000">rem</SPAN><SPAN style="COLOR: #008000">&nbsp;=&nbsp;这里是增加的完全清楚缓存的方法。</SPAN><SPAN style="COLOR: #008000"><BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104247734.gif" align=top></SPAN><SPAN style="COLOR: #0000ff">Public</SPAN><SPAN style="COLOR: #000000">&nbsp;</SPAN><SPAN style="COLOR: #0000ff">Sub</SPAN><SPAN style="COLOR: #000000">&nbsp;ClearAll()<BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104247734.gif" align=top>&nbsp;&nbsp;&nbsp;&nbsp;Application.Lock()<BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104247734.gif" align=top>&nbsp;&nbsp;&nbsp;&nbsp;Application.Contents.RemoveAll()<BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104247734.gif" align=top>&nbsp;&nbsp;&nbsp;&nbsp;Application.UnLock()<BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104247734.gif" align=top></SPAN><SPAN style="COLOR: #0000ff">end&nbsp;sub</SPAN><SPAN style="COLOR: #000000"><BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104247734.gif" align=top><BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104247734.gif" align=top></SPAN><SPAN style="COLOR: #0000ff">End</SPAN><SPAN style="COLOR: #000000">&nbsp;Class&nbsp;<BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104247734.gif" align=top></SPAN><SPAN style="COLOR: #000000">&lt;/</SPAN><SPAN style="COLOR: #000000">SCRIPT</SPAN><SPAN style="COLOR: #000000">&gt;</SPAN></TD></TR></TBODY></TABLE></P> <P>&nbsp;</P> <P>对于整体的缓存管理，会在以后的日子里面继续讨论和发问，希望更多的人可以给点建议。&nbsp; <BR></P> [ASP/shtml]关于动网迷城浪子（老迷）的缓存类的始末。 http://www.yici.net/content/text_all/text_0/666_1.html 佚名 ASP/shtml 2011-5-24 10:38:28 <P>首先要说明的，我不是一个教授，只是一个求知者。所以这里的很多是真的疑问，而不是指责，希望大家不要喷我。 <BR><BR>首先要引用一句老迷同志的话“ASP是几种开发语言里难度最高的,工作量巨大,要求程序员的水平要很高,技术要全面,所以好事自然是多磨了.” <BR>所以向所有奋斗在asp真正研发前段的程序员致敬（这里不包括Ctrl+C,Ctrl+V&nbsp;的兄弟们，呵呵。） <BR><BR>现在开始正规主体，本来想写整体的关于网站缓存，包括静态化，内存的相关内容，发起一系列的疑问，但是发现内容是在太多了，OK，今天只谈老迷的缓存类（Application相关） <BR><BR>在动网7之前，用的都是vbs，这个时期，老迷开发出来一个缓存类，代码如下 <BR></P> <P> <TABLE style="BORDER-RIGHT: #cccccc 1px dotted; TABLE-LAYOUT: fixed; BORDER-TOP: #cccccc 1px dotted; BORDER-LEFT: #cccccc 1px dotted; BORDER-BOTTOM: #cccccc 1px dotted" cellSpacing=0 cellPadding=6 width="95%" align=center border=0> <TBODY> <TR> <TD style="WORD-WRAP: break-word" bgColor=#f3f3f3><FONT style="FONT-WEIGHT: bold; COLOR: #990000">以下是引用片段：</FONT><BR><SPAN style="COLOR: #000000">Class&nbsp;Cls_Cache&nbsp;<BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104107734.gif" align=top><BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104107734.gif" align=top></SPAN><SPAN style="COLOR: #008000">Rem</SPAN><SPAN style="COLOR: #008000">&nbsp;==================使用说明====================&nbsp;</SPAN><SPAN style="COLOR: #008000"><BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104107734.gif" align=top>Rem</SPAN><SPAN style="COLOR: #008000">&nbsp;=&nbsp;本类模块是动网先锋原创，作者：迷城浪子。如采用本类模块，请不要去掉这个说明。这段注释不会影响执行的速度。&nbsp;</SPAN><SPAN style="COLOR: #008000"><BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104107734.gif" align=top>Rem</SPAN><SPAN style="COLOR: #008000">&nbsp;=&nbsp;作用：缓存和缓存管理类&nbsp;</SPAN><SPAN style="COLOR: #008000"><BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104107734.gif" align=top>Rem</SPAN><SPAN style="COLOR: #008000">&nbsp;=&nbsp;公有变量：Reloadtime&nbsp;过期时间（单位为分钟）缺省值为14400&nbsp;</SPAN><SPAN style="COLOR: #008000"><BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104107734.gif" align=top>Rem</SPAN><SPAN style="COLOR: #008000">&nbsp;=&nbsp;MaxCount&nbsp;缓存对象的最大值，超过则自动删除使用次数少的对象。缺省值为300&nbsp;</SPAN><SPAN style="COLOR: #008000"><BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104107734.gif" align=top>Rem</SPAN><SPAN style="COLOR: #008000">&nbsp;=&nbsp;CacheName&nbsp;缓存组的总名称，缺省值为"Dvbbs",如果一个站点中有超过一个缓存组，则需要外部改变这个值。&nbsp;</SPAN><SPAN style="COLOR: #008000"><BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104107734.gif" align=top>Rem</SPAN><SPAN style="COLOR: #008000">&nbsp;=&nbsp;属性:Name&nbsp;定义缓存对象名称，只写属性。&nbsp;</SPAN><SPAN style="COLOR: #008000"><BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104107734.gif" align=top>Rem</SPAN><SPAN style="COLOR: #008000">&nbsp;=&nbsp;属性:value&nbsp;读取和写入缓存数据。&nbsp;</SPAN><SPAN style="COLOR: #008000"><BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104107734.gif" align=top>Rem</SPAN><SPAN style="COLOR: #008000">&nbsp;=&nbsp;函数：ObjIsEmpty()判断当前缓存是否过期。&nbsp;</SPAN><SPAN style="COLOR: #008000"><BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104107734.gif" align=top>Rem</SPAN><SPAN style="COLOR: #008000">&nbsp;=&nbsp;方法：DelCahe(MyCaheName)手工删除一个缓存对象，参数是缓存对象的名称。&nbsp;</SPAN><SPAN style="COLOR: #008000"><BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104107734.gif" align=top>Rem</SPAN><SPAN style="COLOR: #008000">&nbsp;========================&nbsp;</SPAN><SPAN style="COLOR: #008000"><BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104107734.gif" align=top></SPAN><SPAN style="COLOR: #0000ff">Public</SPAN><SPAN style="COLOR: #000000">&nbsp;Reloadtime,MaxCount,CacheName&nbsp;<BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104107734.gif" align=top></SPAN><SPAN style="COLOR: #0000ff">Private</SPAN><SPAN style="COLOR: #000000">&nbsp;LocalCacheName,CacheData,DelCount&nbsp;<BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104107734.gif" align=top></SPAN><SPAN style="COLOR: #0000ff">Private</SPAN><SPAN style="COLOR: #000000">&nbsp;</SPAN><SPAN style="COLOR: #0000ff">Sub</SPAN><SPAN style="COLOR: #000000">&nbsp;Class_Initialize()&nbsp;<BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104107734.gif" align=top>Reloadtime</SPAN><SPAN style="COLOR: #000000">=</SPAN><SPAN style="COLOR: #800080">14400</SPAN><SPAN style="COLOR: #000000">&nbsp;<BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104107734.gif" align=top>CacheName</SPAN><SPAN style="COLOR: #000000">=</SPAN><SPAN style="COLOR: #800000">"</SPAN><SPAN style="COLOR: #800000">Dvbbs</SPAN><SPAN style="COLOR: #800000">"</SPAN><SPAN style="COLOR: #000000">&nbsp;<BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104107734.gif" align=top></SPAN><SPAN style="COLOR: #0000ff">End&nbsp;Sub</SPAN><SPAN style="COLOR: #000000">&nbsp;<BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104107734.gif" align=top></SPAN><SPAN style="COLOR: #0000ff">Private</SPAN><SPAN style="COLOR: #000000">&nbsp;</SPAN><SPAN style="COLOR: #0000ff">Sub</SPAN><SPAN style="COLOR: #000000">&nbsp;SetCache(SetName,NewValue)&nbsp;<BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104107734.gif" align=top>Application.Lock&nbsp;<BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104107734.gif" align=top>Application(SetName)&nbsp;</SPAN><SPAN style="COLOR: #000000">=</SPAN><SPAN style="COLOR: #000000">&nbsp;NewValue&nbsp;<BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104107734.gif" align=top>Application.unLock&nbsp;<BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104107734.gif" align=top></SPAN><SPAN style="COLOR: #0000ff">End&nbsp;Sub</SPAN><SPAN style="COLOR: #000000">&nbsp;<BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104107734.gif" align=top></SPAN><SPAN style="COLOR: #0000ff">Private</SPAN><SPAN style="COLOR: #000000">&nbsp;</SPAN><SPAN style="COLOR: #0000ff">Sub</SPAN><SPAN style="COLOR: #000000">&nbsp;makeEmpty(SetName)&nbsp;<BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104107734.gif" align=top>Application.Lock&nbsp;<BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104107734.gif" align=top>Application(SetName)&nbsp;</SPAN><SPAN style="COLOR: #000000">=</SPAN><SPAN style="COLOR: #000000">&nbsp;</SPAN><SPAN style="COLOR: #0000ff">Empty</SPAN><SPAN style="COLOR: #000000">&nbsp;<BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104107734.gif" align=top>Application.unLock&nbsp;<BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104107734.gif" align=top></SPAN><SPAN style="COLOR: #0000ff">End&nbsp;Sub</SPAN><SPAN style="COLOR: #000000">&nbsp;<BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104107734.gif" align=top></SPAN><SPAN style="COLOR: #0000ff">Public</SPAN><SPAN style="COLOR: #000000">&nbsp;</SPAN><SPAN style="COLOR: #0000ff">Property</SPAN><SPAN style="COLOR: #000000">&nbsp;</SPAN><SPAN style="COLOR: #0000ff">Let</SPAN><SPAN style="COLOR: #000000">&nbsp;Name(ByVal&nbsp;vNewValue)&nbsp;<BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104107734.gif" align=top>LocalCacheName</SPAN><SPAN style="COLOR: #000000">=</SPAN><SPAN style="COLOR: #0000ff">LCase</SPAN><SPAN style="COLOR: #000000">(vNewValue)&nbsp;<BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104107734.gif" align=top></SPAN><SPAN style="COLOR: #0000ff">End&nbsp;Property</SPAN><SPAN style="COLOR: #000000">&nbsp;<BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104107734.gif" align=top></SPAN><SPAN style="COLOR: #0000ff">Public</SPAN><SPAN style="COLOR: #000000">&nbsp;</SPAN><SPAN style="COLOR: #0000ff">Property</SPAN><SPAN style="COLOR: #000000">&nbsp;</SPAN><SPAN style="COLOR: #0000ff">Let</SPAN><SPAN style="COLOR: #000000">&nbsp;Value(ByVal&nbsp;vNewValue)&nbsp;<BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104107734.gif" align=top></SPAN><SPAN style="COLOR: #0000ff">If</SPAN><SPAN style="COLOR: #000000">&nbsp;LocalCacheName</SPAN><SPAN style="COLOR: #000000">&lt;&gt;</SPAN><SPAN style="COLOR: #800000">""</SPAN><SPAN style="COLOR: #000000">&nbsp;</SPAN><SPAN style="COLOR: #0000ff">Then</SPAN><SPAN style="COLOR: #000000">&nbsp;<BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104107734.gif" align=top>CacheData</SPAN><SPAN style="COLOR: #000000">=</SPAN><SPAN style="COLOR: #000000">Application(CacheName</SPAN><SPAN style="COLOR: #000000">&amp;</SPAN><SPAN style="COLOR: #800000">"</SPAN><SPAN style="COLOR: #800000">_</SPAN><SPAN style="COLOR: #800000">"</SPAN><SPAN style="COLOR: #000000">&amp;</SPAN><SPAN style="COLOR: #000000">LocalCacheName)&nbsp;<BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104107734.gif" align=top></SPAN><SPAN style="COLOR: #0000ff">If</SPAN><SPAN style="COLOR: #000000">&nbsp;</SPAN><SPAN style="COLOR: #0000ff">IsArray</SPAN><SPAN style="COLOR: #000000">(CacheData)&nbsp;</SPAN><SPAN style="COLOR: #0000ff">Then</SPAN><SPAN style="COLOR: #000000">&nbsp;<BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104107734.gif" align=top>CacheData(</SPAN><SPAN style="COLOR: #800080">0</SPAN><SPAN style="COLOR: #000000">)</SPAN><SPAN style="COLOR: #000000">=</SPAN><SPAN style="COLOR: #000000">vNewValue&nbsp;<BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104107734.gif" align=top>CacheData(</SPAN><SPAN style="COLOR: #800080">1</SPAN><SPAN style="COLOR: #000000">)</SPAN><SPAN style="COLOR: #000000">=</SPAN><SPAN style="COLOR: #0000ff">Now</SPAN><SPAN style="COLOR: #000000">()&nbsp;<BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104107734.gif" align=top></SPAN><SPAN style="COLOR: #0000ff">Else</SPAN><SPAN style="COLOR: #000000">&nbsp;<BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104107734.gif" align=top></SPAN><SPAN style="COLOR: #0000ff">ReDim</SPAN><SPAN style="COLOR: #000000">&nbsp;CacheData(</SPAN><SPAN style="COLOR: #800080">2</SPAN><SPAN style="COLOR: #000000">)&nbsp;<BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104107734.gif" align=top>CacheData(</SPAN><SPAN style="COLOR: #800080">0</SPAN><SPAN style="COLOR: #000000">)</SPAN><SPAN style="COLOR: #000000">=</SPAN><SPAN style="COLOR: #000000">vNewValue&nbsp;<BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104107734.gif" align=top>CacheData(</SPAN><SPAN style="COLOR: #800080">1</SPAN><SPAN style="COLOR: #000000">)</SPAN><SPAN style="COLOR: #000000">=</SPAN><SPAN style="COLOR: #0000ff">Now</SPAN><SPAN style="COLOR: #000000">()&nbsp;<BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104107734.gif" align=top></SPAN><SPAN style="COLOR: #0000ff">End</SPAN><SPAN style="COLOR: #000000">&nbsp;</SPAN><SPAN style="COLOR: #0000ff">If</SPAN><SPAN style="COLOR: #000000">&nbsp;<BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104107734.gif" align=top>SetCache&nbsp;CacheName</SPAN><SPAN style="COLOR: #000000">&amp;</SPAN><SPAN style="COLOR: #800000">"</SPAN><SPAN style="COLOR: #800000">_</SPAN><SPAN style="COLOR: #800000">"</SPAN><SPAN style="COLOR: #000000">&amp;</SPAN><SPAN style="COLOR: #000000">LocalCacheName,CacheData&nbsp;<BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104107734.gif" align=top></SPAN><SPAN style="COLOR: #0000ff">Else</SPAN><SPAN style="COLOR: #000000">&nbsp;<BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104107734.gif" align=top>Err.Raise&nbsp;vbObjectError&nbsp;</SPAN><SPAN style="COLOR: #000000">+</SPAN><SPAN style="COLOR: #000000">&nbsp;</SPAN><SPAN style="COLOR: #800080">1</SPAN><SPAN style="COLOR: #000000">,&nbsp;</SPAN><SPAN style="COLOR: #800000">"</SPAN><SPAN style="COLOR: #800000">DvbbsCacheServer</SPAN><SPAN style="COLOR: #800000">"</SPAN><SPAN style="COLOR: #000000">,&nbsp;</SPAN><SPAN style="COLOR: #800000">"</SPAN><SPAN style="COLOR: #800000">&nbsp;please&nbsp;change&nbsp;the&nbsp;CacheName.</SPAN><SPAN style="COLOR: #800000">"</SPAN><SPAN style="COLOR: #000000">&nbsp;<BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104107734.gif" align=top></SPAN><SPAN style="COLOR: #0000ff">End</SPAN><SPAN style="COLOR: #000000">&nbsp;</SPAN><SPAN style="COLOR: #0000ff">If</SPAN><SPAN style="COLOR: #000000">&nbsp;<BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104107734.gif" align=top></SPAN><SPAN style="COLOR: #0000ff">End&nbsp;Property</SPAN><SPAN style="COLOR: #000000">&nbsp;<BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104107734.gif" align=top></SPAN><SPAN style="COLOR: #0000ff">Public</SPAN><SPAN style="COLOR: #000000">&nbsp;</SPAN><SPAN style="COLOR: #0000ff">Property</SPAN><SPAN style="COLOR: #000000">&nbsp;</SPAN><SPAN style="COLOR: #0000ff">Get</SPAN><SPAN style="COLOR: #000000">&nbsp;Value()&nbsp;<BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104107734.gif" align=top></SPAN><SPAN style="COLOR: #0000ff">If</SPAN><SPAN style="COLOR: #000000">&nbsp;LocalCacheName</SPAN><SPAN style="COLOR: #000000">&lt;&gt;</SPAN><SPAN style="COLOR: #800000">""</SPAN><SPAN style="COLOR: #000000">&nbsp;</SPAN><SPAN style="COLOR: #0000ff">Then</SPAN><SPAN style="COLOR: #000000">&nbsp;<BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104107734.gif" align=top>CacheData</SPAN><SPAN style="COLOR: #000000">=</SPAN><SPAN style="COLOR: #000000">Application(CacheName</SPAN><SPAN style="COLOR: #000000">&amp;</SPAN><SPAN style="COLOR: #800000">"</SPAN><SPAN style="COLOR: #800000">_</SPAN><SPAN style="COLOR: #800000">"</SPAN><SPAN style="COLOR: #000000">&amp;</SPAN><SPAN style="COLOR: #000000">LocalCacheName)&nbsp;<BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104107734.gif" align=top></SPAN><SPAN style="COLOR: #0000ff">If</SPAN><SPAN style="COLOR: #000000">&nbsp;</SPAN><SPAN style="COLOR: #0000ff">IsArray</SPAN><SPAN style="COLOR: #000000">(CacheData)&nbsp;</SPAN><SPAN style="COLOR: #0000ff">Then</SPAN><SPAN style="COLOR: #000000">&nbsp;<BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104107734.gif" align=top>Value</SPAN><SPAN style="COLOR: #000000">=</SPAN><SPAN style="COLOR: #000000">CacheData(</SPAN><SPAN style="COLOR: #800080">0</SPAN><SPAN style="COLOR: #000000">)&nbsp;<BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104107734.gif" align=top></SPAN><SPAN style="COLOR: #0000ff">Else</SPAN><SPAN style="COLOR: #000000">&nbsp;<BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104107734.gif" align=top>Err.Raise&nbsp;vbObjectError&nbsp;</SPAN><SPAN style="COLOR: #000000">+</SPAN><SPAN style="COLOR: #000000">&nbsp;</SPAN><SPAN style="COLOR: #800080">1</SPAN><SPAN style="COLOR: #000000">,&nbsp;</SPAN><SPAN style="COLOR: #800000">"</SPAN><SPAN style="COLOR: #800000">DvbbsCacheServer</SPAN><SPAN style="COLOR: #800000">"</SPAN><SPAN style="COLOR: #000000">,&nbsp;</SPAN><SPAN style="COLOR: #800000">"</SPAN><SPAN style="COLOR: #800000">&nbsp;The&nbsp;CacheData&nbsp;Is&nbsp;Empty.</SPAN><SPAN style="COLOR: #800000">"</SPAN><SPAN style="COLOR: #000000">&nbsp;<BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104107734.gif" align=top></SPAN><SPAN style="COLOR: #0000ff">End</SPAN><SPAN style="COLOR: #000000">&nbsp;</SPAN><SPAN style="COLOR: #0000ff">If</SPAN><SPAN style="COLOR: #000000">&nbsp;<BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104107734.gif" align=top></SPAN><SPAN style="COLOR: #0000ff">Else</SPAN><SPAN style="COLOR: #000000">&nbsp;<BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104107734.gif" align=top>Err.Raise&nbsp;vbObjectError&nbsp;</SPAN><SPAN style="COLOR: #000000">+</SPAN><SPAN style="COLOR: #000000">&nbsp;</SPAN><SPAN style="COLOR: #800080">1</SPAN><SPAN style="COLOR: #000000">,&nbsp;</SPAN><SPAN style="COLOR: #800000">"</SPAN><SPAN style="COLOR: #800000">DvbbsCacheServer</SPAN><SPAN style="COLOR: #800000">"</SPAN><SPAN style="COLOR: #000000">,&nbsp;</SPAN><SPAN style="COLOR: #800000">"</SPAN><SPAN style="COLOR: #800000">&nbsp;please&nbsp;change&nbsp;the&nbsp;CacheName.</SPAN><SPAN style="COLOR: #800000">"</SPAN><SPAN style="COLOR: #000000">&nbsp;<BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104107734.gif" align=top></SPAN><SPAN style="COLOR: #0000ff">End</SPAN><SPAN style="COLOR: #000000">&nbsp;</SPAN><SPAN style="COLOR: #0000ff">If</SPAN><SPAN style="COLOR: #000000">&nbsp;<BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104107734.gif" align=top></SPAN><SPAN style="COLOR: #0000ff">End&nbsp;Property</SPAN><SPAN style="COLOR: #000000">&nbsp;<BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104107734.gif" align=top></SPAN><SPAN style="COLOR: #0000ff">Public</SPAN><SPAN style="COLOR: #000000">&nbsp;</SPAN><SPAN style="COLOR: #0000ff">Function</SPAN><SPAN style="COLOR: #000000">&nbsp;ObjIsEmpty()&nbsp;<BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104107734.gif" align=top>ObjIsEmpty</SPAN><SPAN style="COLOR: #000000">=</SPAN><SPAN style="COLOR: #0000ff">True</SPAN><SPAN style="COLOR: #000000">&nbsp;<BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104107734.gif" align=top>CacheData</SPAN><SPAN style="COLOR: #000000">=</SPAN><SPAN style="COLOR: #000000">Application(CacheName</SPAN><SPAN style="COLOR: #000000">&amp;</SPAN><SPAN style="COLOR: #800000">"</SPAN><SPAN style="COLOR: #800000">_</SPAN><SPAN style="COLOR: #800000">"</SPAN><SPAN style="COLOR: #000000">&amp;</SPAN><SPAN style="COLOR: #000000">LocalCacheName)&nbsp;<BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104107734.gif" align=top></SPAN><SPAN style="COLOR: #0000ff">If</SPAN><SPAN style="COLOR: #000000">&nbsp;</SPAN><SPAN style="COLOR: #0000ff">Not</SPAN><SPAN style="COLOR: #000000">&nbsp;</SPAN><SPAN style="COLOR: #0000ff">IsArray</SPAN><SPAN style="COLOR: #000000">(CacheData)&nbsp;</SPAN><SPAN style="COLOR: #0000ff">Then</SPAN><SPAN style="COLOR: #000000">&nbsp;</SPAN><SPAN style="COLOR: #0000ff">Exit</SPAN><SPAN style="COLOR: #000000">&nbsp;</SPAN><SPAN style="COLOR: #0000ff">Function</SPAN><SPAN style="COLOR: #000000">&nbsp;<BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104107734.gif" align=top></SPAN><SPAN style="COLOR: #0000ff">If</SPAN><SPAN style="COLOR: #000000">&nbsp;</SPAN><SPAN style="COLOR: #0000ff">Not</SPAN><SPAN style="COLOR: #000000">&nbsp;</SPAN><SPAN style="COLOR: #0000ff">IsDate</SPAN><SPAN style="COLOR: #000000">(CacheData(</SPAN><SPAN style="COLOR: #800080">1</SPAN><SPAN style="COLOR: #000000">))&nbsp;</SPAN><SPAN style="COLOR: #0000ff">Then</SPAN><SPAN style="COLOR: #000000">&nbsp;</SPAN><SPAN style="COLOR: #0000ff">Exit</SPAN><SPAN style="COLOR: #000000">&nbsp;</SPAN><SPAN style="COLOR: #0000ff">Function</SPAN><SPAN style="COLOR: #000000">&nbsp;<BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104107734.gif" align=top></SPAN><SPAN style="COLOR: #0000ff">If</SPAN><SPAN style="COLOR: #000000">&nbsp;</SPAN><SPAN style="COLOR: #0000ff">DateDiff</SPAN><SPAN style="COLOR: #000000">(</SPAN><SPAN style="COLOR: #800000">"</SPAN><SPAN style="COLOR: #800000">s</SPAN><SPAN style="COLOR: #800000">"</SPAN><SPAN style="COLOR: #000000">,</SPAN><SPAN style="COLOR: #0000ff">CDate</SPAN><SPAN style="COLOR: #000000">(CacheData(</SPAN><SPAN style="COLOR: #800080">1</SPAN><SPAN style="COLOR: #000000">)),</SPAN><SPAN style="COLOR: #0000ff">Now</SPAN><SPAN style="COLOR: #000000">())&nbsp;</SPAN><SPAN style="COLOR: #000000">&lt;</SPAN><SPAN style="COLOR: #000000">&nbsp;</SPAN><SPAN style="COLOR: #800080">60</SPAN><SPAN style="COLOR: #000000">*</SPAN><SPAN style="COLOR: #000000">Reloadtime&nbsp;</SPAN><SPAN style="COLOR: #0000ff">Then</SPAN><SPAN style="COLOR: #000000">&nbsp;<BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104107734.gif" align=top>ObjIsEmpty</SPAN><SPAN style="COLOR: #000000">=</SPAN><SPAN style="COLOR: #0000ff">False</SPAN><SPAN style="COLOR: #000000">&nbsp;<BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104107734.gif" align=top></SPAN><SPAN style="COLOR: #0000ff">End</SPAN><SPAN style="COLOR: #000000">&nbsp;</SPAN><SPAN style="COLOR: #0000ff">If</SPAN><SPAN style="COLOR: #000000">&nbsp;<BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104107734.gif" align=top></SPAN><SPAN style="COLOR: #0000ff">End&nbsp;Function</SPAN><SPAN style="COLOR: #000000">&nbsp;<BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104107734.gif" align=top></SPAN><SPAN style="COLOR: #0000ff">Public</SPAN><SPAN style="COLOR: #000000">&nbsp;</SPAN><SPAN style="COLOR: #0000ff">Sub</SPAN><SPAN style="COLOR: #000000">&nbsp;DelCahe(MyCaheName)&nbsp;<BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104107734.gif" align=top>makeEmpty(CacheName</SPAN><SPAN style="COLOR: #000000">&amp;</SPAN><SPAN style="COLOR: #800000">"</SPAN><SPAN style="COLOR: #800000">_</SPAN><SPAN style="COLOR: #800000">"</SPAN><SPAN style="COLOR: #000000">&amp;</SPAN><SPAN style="COLOR: #000000">MyCaheName)&nbsp;<BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104107734.gif" align=top></SPAN><SPAN style="COLOR: #0000ff">End&nbsp;Sub</SPAN><SPAN style="COLOR: #000000">&nbsp;<BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104107734.gif" align=top></SPAN><SPAN style="COLOR: #0000ff">End</SPAN><SPAN style="COLOR: #000000">&nbsp;Class&nbsp;</SPAN></TD></TR></TBODY></TABLE></P> <P>&nbsp;</P> <P>这里主要是Application存放一个数组，数组一个元素保存Application名称，第二个元素保存到期时间。 <BR><BR>然后网上的调用Demo是 <BR></P> <P> <TABLE style="BORDER-RIGHT: #cccccc 1px dotted; TABLE-LAYOUT: fixed; BORDER-TOP: #cccccc 1px dotted; BORDER-LEFT: #cccccc 1px dotted; BORDER-BOTTOM: #cccccc 1px dotted" cellSpacing=0 cellPadding=6 width="95%" align=center border=0> <TBODY> <TR> <TD style="WORD-WRAP: break-word" bgColor=#f3f3f3><FONT style="FONT-WEIGHT: bold; COLOR: #990000">以下是引用片段：</FONT><BR><SPAN style="COLOR: #0000ff">Set</SPAN><SPAN style="COLOR: #000000">&nbsp;WydCache</SPAN><SPAN style="COLOR: #000000">=</SPAN><SPAN style="COLOR: #0000ff">New</SPAN><SPAN style="COLOR: #000000">&nbsp;Cls_Cache&nbsp;<BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104107734.gif" align=top>WydCache.Reloadtime</SPAN><SPAN style="COLOR: #000000">=</SPAN><SPAN style="COLOR: #800080">0.5</SPAN><SPAN style="COLOR: #000000">&nbsp;</SPAN><SPAN style="COLOR: #008000">'</SPAN><SPAN style="COLOR: #008000">定义过期时间&nbsp;(以分钟为单会)&nbsp;</SPAN><SPAN style="COLOR: #008000"><BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104107734.gif" align=top></SPAN><SPAN style="COLOR: #000000">WydCache.CacheName</SPAN><SPAN style="COLOR: #000000">=</SPAN><SPAN style="COLOR: #800000">"</SPAN><SPAN style="COLOR: #800000">pages</SPAN><SPAN style="COLOR: #800000">"</SPAN><SPAN style="COLOR: #000000">　</SPAN><SPAN style="COLOR: #008000">'</SPAN><SPAN style="COLOR: #008000">定义缓存名&nbsp;</SPAN><SPAN style="COLOR: #008000"><BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104107734.gif" align=top></SPAN><SPAN style="COLOR: #0000ff">IF</SPAN><SPAN style="COLOR: #000000">&nbsp;WydCache.ObjIsEmpty()&nbsp;</SPAN><SPAN style="COLOR: #0000ff">Then</SPAN><SPAN style="COLOR: #000000">&nbsp;</SPAN><SPAN style="COLOR: #008000">'</SPAN><SPAN style="COLOR: #008000">'判断是否可用(包括过期，与是否为空值)&nbsp;</SPAN><SPAN style="COLOR: #008000"><BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104107734.gif" align=top></SPAN><SPAN style="COLOR: #000000">Response.write&nbsp;WydCache.Value&nbsp;<BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104107734.gif" align=top></SPAN><SPAN style="COLOR: #0000ff">Else</SPAN><SPAN style="COLOR: #000000">&nbsp;<BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104107734.gif" align=top><IMG alt="" src="/content/uploadfiles/2011-05/20110524104112485.gif"><IMG alt="" src="/content/uploadfiles/2011-05/20110524104112485.gif"><IMG alt="" src="/content/uploadfiles/2011-05/20110524104112485.gif"><IMG alt="" src="/content/uploadfiles/2011-05/20110524104112485.gif"><IMG alt="" src="/content/uploadfiles/2011-05/20110524104112485.gif"><IMG alt="" src="/content/uploadfiles/2011-05/20110524104112485.gif">&nbsp;<BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104107734.gif" align=top>BoardJumpList</SPAN><SPAN style="COLOR: #000000">=</SPAN><SPAN style="COLOR: #000000">xxx&nbsp;<BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104107734.gif" align=top>WydCache.Value</SPAN><SPAN style="COLOR: #000000">=</SPAN><SPAN style="COLOR: #000000">BoardJumpList&nbsp;</SPAN><SPAN style="COLOR: #008000">'</SPAN><SPAN style="COLOR: #008000">写入内容&nbsp;</SPAN><SPAN style="COLOR: #008000"><BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104107734.gif" align=top></SPAN><SPAN style="COLOR: #000000">Response.write&nbsp;BoardJumpList&nbsp;<BR><IMG alt="" src="/content/uploadfiles/2011-05/20110524104107734.gif" align=top></SPAN><SPAN style="COLOR: #0000ff">End</SPAN><SPAN style="COLOR: #000000">&nbsp;</SPAN><SPAN style="COLOR: #0000ff">if</SPAN><SPAN style="COLOR: #000000">&nbsp;</SPAN><BR></TD></TR></TBODY></TABLE></P> <P>&nbsp;</P> <P>而实际上这个Demo不知道为什么，复制出来就是错的。然后我就唐突的问老迷了错误原因，然而没有得到满意的答复，同时呢，老迷说了一句，如果我用jscript，有一个更好的。然后出来了第二个版本的缓存类。 <BR></P> <P> <TABLE style="BORDER-RIGHT: #cccccc 1px dotted; TABLE-LAYOUT: fixed; BORDER-TOP: #cccccc 1px dotted; BORDER-LEFT: #cccccc 1px dotted; BORDER-BOTTOM: #cccccc 1px dotted" cellSpacing=0 cellPadding=6 width="95%" align=center border=0> <TBODY> <TR> <TD style="WORD-WRAP: break-word" bgColor=#f3f3f3><FONT style="FONT-WEIGHT: bold; COLOR: #990000">以下是引用片段：</FONT><BR>&lt;script&nbsp;language="jscript"&nbsp;runat="server"&gt; <BR>//缓存操作类 <BR>W3sky.Config.WebName&nbsp;=&nbsp;"Myvery"; <BR>&nbsp;&nbsp;&nbsp;&nbsp;function&nbsp;Caches(){ <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;this.CacheName=W3sky.Config.WebName+"$"; <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;this.CacheTimeOut=1200000; <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;//获取一个指定的缓存数据，如果不存在或过期，返回null <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;this.get=function(key) <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;{ <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;if(typeof(Application(this.CacheName+key+"$time"))=="undefined")&nbsp;return&nbsp;null; <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;var&nbsp;exttime=String(Application(this.CacheName+key+"$time")); <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;exttime=parseFloat(exttime); <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;if(!isNaN(exttime)){ <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;if((new&nbsp;Date()).getTime()&lt;&nbsp;exttime+this.CacheTimeOut) <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;{ <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;return&nbsp;String(Application(this.CacheName+key)); <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;}else{ <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;this.remove(key); <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;} <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;} <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;return&nbsp;null; <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;}; <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;//注销指定的缓存 <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;this.remove=function(key){ <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Application.Lock; <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Application.Contents.Remove(this.CacheName+key+"$time"); <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Application.Contents.Remove(this.CacheName+key); <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Application.unLock; <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;}; <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;//注销所有缓存 <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;this.removeAll=function(){ <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;var&nbsp;x; <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;var&nbsp;e&nbsp;=&nbsp;new&nbsp;Enumerator(Application.Contents); <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;for&nbsp;(;!e.atEnd();e.moveNext()) <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;{ <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;x&nbsp;=&nbsp;e.item(); <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;if(x.indexOf(this.CacheName)!=-1&nbsp;&amp;&amp;&nbsp;x.indexOf("$time")==-1){ <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Application.Lock; <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Application.Contents.Remove(x+"$time"); <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Application.Contents.Remove(x); <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Application.unLock; <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;} <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;}; <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;}; <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;//写入一个指定的缓存 <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;this.set=function(key,value){ <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Application.Lock; <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Application(this.CacheName+key+"$time")=(new&nbsp;Date()).getTime(); <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Application(this.CacheName+key)=value; <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Application.unLock; <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;}; <BR>&nbsp;&nbsp;&nbsp;&nbsp;};&nbsp; <BR>&lt;/script&gt; <BR></TD></TR></TBODY></TABLE></P> <P>&nbsp;</P> <P>学习了一下新的jscript类，实际上就是使用名称相关的方式来，使用两个Application来控制一个Application内容。 <BR><BR>看了上面的两个方式，我很难看出来第二个类的优势在于什么。当然你可以说，jscript可以实现继承封装和重载。我不得不承认vbs在这里做的不是很好。但是这里是后面这个类比第一个强的解释吗？如果你非说，只要使用了jscript就比vbs好，效率高很多倍。那么我没有什么话说了。 <BR><BR>Application每个创建都是很消耗资源的，那么使用一个Application来管理是不是就能少的消耗资源呢？同时把时间和内容的管理放在一个Application内部，这样不是更好的内聚吗？而且如果网站使用的Application比较多，两个会是什么样子呢？ <BR>这些疑问，不知道各位有没有想过，能否回答一下。</P> [ASP/shtml]ASP技巧:rs.getrows方法 http://www.yici.net/content/text_all/text_0/665_1.html 佚名 ASP/shtml 2011-5-23 10:11:01 GetRows()方法是将数据从&nbsp;Recordset&nbsp;复制到二维数组中，这是一个二维数组，第一个下标标识字段，第二个则标识记录号，所以rsArray&nbsp;=&nbsp;rs.GetRows() <BR>rsArray(0,&nbsp;0)就表示记录集第一行的第一字段值 <BR>rsArray(1,&nbsp;0)就表示记录集第一行的第二字段值 <BR><BR>数组的数据是保存在内存中的，这就从根本上解决了每次显示记录还需向数据库请求的麻烦 <BR><BR>参考:关于GetRows()的详细介绍和用法 <BR><BR>GetRows&nbsp;方法 <BR>将&nbsp;Recordset&nbsp;对象的多个记录恢复到数组中。 <BR><BR>语法 <BR><BR>array&nbsp;=&nbsp;recordset.GetRows(&nbsp;Rows,&nbsp;Start,&nbsp;Fields&nbsp;) <BR><BR>返回值 <BR><BR>返回二维数组。 <BR><BR>参数 <BR><BR>Rows&nbsp;&nbsp;&nbsp;&nbsp;可选，长整型表达式，指定要检索记录数。默认值为&nbsp;adGetRowsRest&nbsp;(-1)。 <BR><BR>Start&nbsp;&nbsp;&nbsp;&nbsp;可选，字符串或长整型，计算得到在&nbsp;GetRows&nbsp;操作开始处的记录的书签。也可使用下列&nbsp;BookmarkEnum&nbsp;值。 <BR><BR>常量&nbsp;说明&nbsp; <BR>AdBookmarkCurrent&nbsp;从当前记录开始。&nbsp; <BR>AdBookmarkFirst&nbsp;从首记录开始。&nbsp; <BR>AdBookmarkLast&nbsp;从尾记录开始。&nbsp; <BR><BR>Fields&nbsp;&nbsp;&nbsp;可选，变体型，代表单个字段名、顺序位置、字段名数组或顺序位置号。ADO&nbsp;仅返回这些字段中的数据。 <BR><BR>说明 <BR><BR>使用&nbsp;GetRows&nbsp;方法可将记录从&nbsp;Recordset&nbsp;复制到二维数组中。第一个下标标识字段，第二个则标识记录号。当&nbsp;GetRows&nbsp;方法返回数据时数组变量将自动调整到正确大小。 <BR><BR>如果不指定&nbsp;Rows&nbsp;参数的值，GetRows&nbsp;方法将自动检索&nbsp;Recordset&nbsp;对象中的所有记录。如果请求的记录比可用记录多，则&nbsp;GetRows&nbsp;仅返回可用记录数。 <BR><BR>如果&nbsp;Recordset&nbsp;对象支持书签，则可以通过传送该记录的&nbsp;Bookmark&nbsp;属性值，来指定&nbsp;GetRows&nbsp;方法将从哪个记录开始检索数据。 <BR><BR>如要限制&nbsp;GetRows&nbsp;调用返回的字段，则可以在&nbsp;Fields&nbsp;参数中传送单个字段名/编号或者字段名/编号数组。 <BR><BR>在调用&nbsp;GetRows&nbsp;后，下一个未读取的记录成为当前记录，或者如果没有更多的记录，则&nbsp;EOF&nbsp;属性设置为&nbsp;True。 <BR><BR> [WAP手机端]ASP或PHP如何判断是从电脑还是手机客户端访问页面的思路 http://www.yici.net/content/text_all/text_0/664_1.html 佚名 WAP手机端 2011-5-22 2:02:04 <P>像3G门户和QQ那样 <BR>你输入3g.cn,如果是从电脑访问,他就跳转到电脑的网页 <BR>如果是用移动设备访问,就跳到wap的网页 <BR><BR>有谁知道这个要怎弄?</P> <P>=============================================</P> <P>PHP思路和代码：</P> <P>&nbsp;</P> <P>正巧我也在解决这个问题,&nbsp;和你分享一下我的发现. <BR><BR>网上现在有三种观点,&nbsp;一种是基于浏览器发送的&nbsp;User-Agent,&nbsp;但明显这种方法是行不通的,&nbsp;虽然有人列出了大多数的手机发送的User-Agent,&nbsp;但依然会有很多手机无法识别,&nbsp;甚至有些手机浏览器不发送User-Agent,&nbsp;而且也不能保证以后就不会出新牌子. <BR><BR>下面是一个php的例子,&nbsp;看过之后你就会知道有多么不可靠. <BR><BR>&nbsp;&nbsp;&nbsp;1.&nbsp;function&nbsp;is_wap(){ <BR>&nbsp;&nbsp;&nbsp;2.&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;$ua&nbsp;=&nbsp;strtolower($_SERVER['HTTP_USER_AGENT']); <BR>&nbsp;&nbsp;&nbsp;3.&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;$uachar&nbsp;=&nbsp;"/(nokia|sony|ericsson|mot|samsung|sgh|lg|sie|philips|panasonic|alcatel|lenovo|cldc|midp|wap|mobile)/i"; <BR>&nbsp;&nbsp;&nbsp;4.&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;if(($ua&nbsp;==&nbsp;''&nbsp;||&nbsp;preg_match($uachar,&nbsp;$ua))&amp;&amp;&nbsp;!strpos(strtolower($_SERVER['REQUEST_URI']),'wap')){ <BR>&nbsp;&nbsp;&nbsp;5.&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;return&nbsp;true; <BR>&nbsp;&nbsp;&nbsp;6.&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;}else{ <BR>&nbsp;&nbsp;&nbsp;7.&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;return&nbsp;false; <BR>&nbsp;&nbsp;&nbsp;8.&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;} <BR>&nbsp;&nbsp;&nbsp;9.&nbsp;} <BR><BR><BR>另外一种是判断HTTP_ACCEPT,&nbsp;这种应该相对可靠一点,&nbsp;不过HTTP_ACCEPT是非常复杂的,&nbsp;如果一般的不支持html的浏览器还好说,&nbsp;你只要判断浏览器支持wml并且不支持html就可以,&nbsp;但如果浏览器同时支持wml和html那就难办了,&nbsp;低端手机可能会将wml放到html的前面,&nbsp;但是很多高端手机或者智能手机对html的支持很好,&nbsp;所以html也会出现在wml前面. <BR><BR>这是黑莓手机发送的HTTP_ACCEPT <BR><BR>application/vnd.rim.html, <BR>text/html, <BR>application/vnd.wap.xhtml+xml, <BR>text/vnd.sun.j2me.app-descriptor, <BR>image/vnd.rim.png,image/jpeg, <BR>application/x-vnd.rim.pme.b, <BR>application/vnd.rim.ucs, <BR>image/gif;anim=1, <BR>application/vnd.rim.jscriptc;v=0-8-8, <BR>application/x-javascript, <BR>application/vnd.rim.css;v=1, <BR>text/css;media=handheld, <BR>application/vnd.wap.wmlc;q=0.9, <BR>application/vnd.wap.wmlscriptc;q=0.7, <BR>text/vnd.wap.wml;q=0.7, <BR>*/*;q=0.5 <BR><BR>夸张吧?&nbsp;不过的确是很标准的,&nbsp;开发人员可以根据这个得到很多信息,&nbsp;但很多手机都没这么标准的,&nbsp;如果你查看IE或者FF的HTTP_ACCEPT你会发现它很短. <BR><BR>text/html, <BR>application/xhtml+xml, <BR>application/xml;q=0.9, <BR>*/*;q=0.8 <BR><BR>同样,&nbsp;给你个php的例子. <BR><BR>if&nbsp;(isset($_SERVER['HTTP_ACCEPT'])&nbsp;&amp;&amp; <BR>&nbsp;&nbsp;&nbsp;&nbsp;(strpos($_SERVER['HTTP_ACCEPT'],'vnd.wap.wml')!==FALSE) <BR>&nbsp;&nbsp;&nbsp;&nbsp;&amp;&amp;&nbsp;(strpos($_SERVER['HTTP_ACCEPT'],'text/html')===FALSE&nbsp;|| <BR>&nbsp;&nbsp;&nbsp;&nbsp;(strpos($_SERVER['HTTP_ACCEPT'],'vnd.wap.wml')&nbsp;&lt; <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;strpos($_SERVER['HTTP_ACCEPT'],'text/html')) <BR>&nbsp;&nbsp;&nbsp;&nbsp;))&nbsp;{//手机访问 <BR>&nbsp;&nbsp;&nbsp;&nbsp;readfile('index.wml'); <BR>}&nbsp;else&nbsp;readfile('index.htm'); <BR><BR>原理：如果浏览器支持WML、而且[不支持HTML]或[WML优先于HTML]，则判定为手机。但实际上这个原理是不完全正确的. <BR><BR>还有一种是说判断网关或者IP什么的,&nbsp;但我个人认为这个很不可靠,&nbsp;手机的联网方式很多,&nbsp;比如我开发的时候就是用模拟器的.这个应该不用什么例子了,&nbsp;REMOTE_ADDR&nbsp;就足够了. <BR><BR>以上是我今天上午的工作成果,&nbsp;但实际上还是没有找到完美的解决方案,&nbsp;先写这么多,&nbsp;有问题请补充或者发送消息给我,&nbsp;如果你有更好的办法希望可以分享给我,&nbsp;谢谢. <BR><BR>补充:&nbsp;刚刚吃饭的时候想如果浏览器支持js判断屏幕尺寸也是个不错的方法.&nbsp;</P> <P>&nbsp;</P> <P>=========================================</P> <P>&nbsp;</P> <P>ASP的方案和代码范例：</P> <P>首先是通过HTTP_ACCEPT简单判断是否支持WAP的，这个逻辑太简单，也不准确：</P> <P>&lt;% <BR>if&nbsp;InStr(LCase(Request.ServerVariables("HTTP_ACCEPT")),"text/vnd.wap.wml")&gt;0&nbsp;then <BR>response.redirect&nbsp;&nbsp;http://www.yici.net/wap&nbsp;'如果是手机访问则跳转WAP页面 <BR>response.end <BR>else <BR>response.redirect&nbsp;&nbsp;http://www.yici.net&nbsp;'如果电脑访问跳转到首页 <BR>response.end&nbsp; <BR>end&nbsp;if <BR>%&gt;</P> <P>&nbsp;</P> <P>通过HTTP_USER_AGENT判断用户是从手机上访问，还是电脑IE上访问。&nbsp; <BR><BR>asp代码片段：主要使用了正则匹配手机环境，大家可以补充手机平台。 <BR></P> <P>&lt;%</P> <P>set&nbsp;regex&nbsp;=&nbsp;new&nbsp;regexp&nbsp; <BR>regex.ignorecase&nbsp;=&nbsp;true&nbsp; <BR>regex.global&nbsp;=&nbsp;true&nbsp; <BR>regex.pattern&nbsp;=&nbsp;"mini&nbsp;9.5|vx1000|lge&nbsp;|m800|e860|u940|ux840|compal|wireless|&nbsp;mobi|ahong|lg380|lgku|lgu900|lg210|lg47|lg920|lg840|lg370|sam-r|mg50|s55|g83|t66|vx400|mk99|d615|d763|el370|sl900|mp500|samu3|samu4|vx10|xda_|samu5|samu6|samu7|samu9|a615|b832|m881|s920|n210|s700|c-810|_h797|mob-x|sk16d|848b|mowser|s580|r800|471x|v120|rim8|c500foma:|160x|x160|480x|x640|t503|w839|i250|sprint|w398samr810|m5252|c7100|mt126|x225|s5330|s820|htil-g1|fly&nbsp;v71|s302|-x113|novarra|k610i|-three|8325rc|8352rc|sanyo|vx54|c888|nx250|n120|mtk&nbsp;|c5588|s710|t880|c5005|i;458x|p404i|s210|c5100|teleca|s940|c500|s590|foma|samsu|vx8|vx9|a1000|_mms|myx|a700|gu1100|bc831|e300|ems100|me701|me702m-three|sd588|s800|8325rc|ac831|mw200|brew&nbsp;|d88|htc\/|htc_touch|355x|m50|km100|d736|p-9521|telco|sl74|ktouch|m4u\/|me702|8325rc|kddi|phone|lg&nbsp;|sonyericsson|samsung|240x|x320vx10|nokia|sony&nbsp;cmd|motorola|up.browser|up.link|mmp|symbian|smartphone|midp|wap|vodafone|o2|pocket|kindle|mobile|psp|treo|iris|3g_t|windows&nbsp;ce|opera&nbsp;mobi|windows&nbsp;ce;&nbsp;smartphone;|windows&nbsp;ce;&nbsp;iemobile|ipod|iphone|android|opera&nbsp;mini|blackberry|palm&nbsp;os|palm|hiptop|avantgo|fennec|plucker|xiino|blazer|elaine|iris|3g_t|windows&nbsp;ce|opera&nbsp;mobi|windows&nbsp;ce;&nbsp;smartphone;|windows&nbsp;ce;&nbsp;iemobile"&nbsp; <BR><BR>agent&nbsp;=&nbsp;request.ServerVariables("HTTP_USER_AGENT")&nbsp;&amp;&nbsp;""&nbsp; <BR>if&nbsp;agent&nbsp;&lt;&gt;&nbsp;""&nbsp;then&nbsp; <BR>if&nbsp;not&nbsp;regex.test(agent)&nbsp;then&nbsp; <BR>'不是从手机来的访问，跳转到你指定网址&nbsp; <BR>response.redirect("http://www.yici.net")&nbsp; <BR>end&nbsp;if&nbsp; <BR>end&nbsp;if&nbsp; <BR></P> <P>%&gt;</P> <P>&nbsp;</P> <P>再给个例子给你：这里判断不是手机访问就跳转 <BR>dim&nbsp;tempUrl,browsers <BR>browsers=Lcase(Left(Request.ServerVariables("HTTP_USER_AGENT"),4))&nbsp;'判断手机访问 <BR>if&nbsp;browsers="oper"&nbsp;or&nbsp;browsers="winw"&nbsp;or&nbsp;browsers="wapi"&nbsp;or&nbsp;browsers="mc21"&nbsp;or&nbsp;browsers="up.b"&nbsp;or&nbsp;browsers="upg1"&nbsp;or&nbsp;browsers="upsi"&nbsp;or&nbsp;browsers="qwap"&nbsp;or&nbsp;browsers="jigs"&nbsp;or&nbsp;browsers="java"&nbsp;or&nbsp;browsers="alca"&nbsp;or&nbsp;browsers="wapj"&nbsp;or&nbsp;browsers="fetc"&nbsp;or&nbsp;browsers="r380"&nbsp;or&nbsp;browsers="winw"&nbsp;or&nbsp;&nbsp;browsers="mozi"&nbsp;or&nbsp;browsers="mozi"&nbsp;&nbsp;or&nbsp;browsers="m3ga"&nbsp;then <BR>&nbsp;response.redirect&nbsp;"http://www.baidu.com" <BR>end&nbsp;if <BR>tempUrl=request.servervariables("HTTP_HOST") <BR>if&nbsp;tempUrl&nbsp;&lt;&gt;"wap.gyshty.cn"&nbsp;then <BR>&nbsp;response.redirect&nbsp;"http://www.baidu.com" <BR>end&nbsp;if&nbsp;</P> [WAP手机端]最稳妥兼容！让电脑浏览wap网的软件，方便调试wap页面 http://www.yici.net/content/text_all/text_0/663_1.html Joker WAP手机端 2011-5-22 0:16:26 <P>最近打算做个WAP版的论坛插件，为了调试WAP界面，总不能一直用手机调试啊~</P> <P>但是PC端又没有好的支持WAP格式的浏览器，网上下了好几个，不是有病毒，就是出错，总之找不到一个能用的~</P> <P>&nbsp;</P> <P>最后，发现了个好东西，不敢独享，立刻发布我的小小成果：</P> <P>&nbsp;</P> <P>firefox加上个user agent switcher！</P> <P>&nbsp;</P> <P>对FireFox不熟悉的朋友，我简单做个教程吧：</P> <P>首先进入FireFox的工具-&gt;附加组件，搜索“user agent switcher”，然后点击“添加至FireFox”</P> <P><IMG src="/content/uploadfiles/2011-05/20110522_002512.jpg" border=0></P> <P>&nbsp;</P> <P>安装成功后，在扩展里面可以看到“user agent switcher”</P> <P><IMG src="/content/uploadfiles/2011-05/20110522_002617.jpg" border=0></P> <P>以后在工具下拉菜单里面会多出来一个“Default User Agent”的选项，如果要冒充手机客户端调试，就选择iphone3.0~~或者自己编辑几个手机浏览器出来，这个要自己研究了~</P> <P><IMG src="/content/uploadfiles/2011-05/20110522_002652.jpg" border=0></P> <P>再用FireFox访问百度~你会发现，百度已经把你误认为是手机端的浏览器了哦~~~</P> <P><IMG src="/content/uploadfiles/2011-05/20110522_002809.jpg" border=0></P> [ASP/shtml]怎样用asp在网页中显示今天过生日的人的姓名 http://www.yici.net/content/text_all/text_0/662_1.html 佚名 ASP/shtml 2011-5-8 22:04:17 &lt;% <BR>rs.open"select&nbsp;username&nbsp;from&nbsp;usertable&nbsp;where&nbsp;borthday='#"&amp;date()&amp;"#'",conn,1,1 <BR>if&nbsp;not&nbsp;rs.eof&nbsp;then <BR>&nbsp;&nbsp;do&nbsp;while&nbsp;not&nbsp;rs.eof <BR>&nbsp;&nbsp;&nbsp;response.write&nbsp;rs("username")&amp;"&lt;br&gt;" <BR>&nbsp;&nbsp;rs.movenext <BR>&nbsp;&nbsp;&nbsp;loop <BR>end&nbsp;if&nbsp; <BR>rs.close <BR>%&gt; <BR>根据你的数据库的实际情况修改一下字段名和数据库名&nbsp; <BR>----------------- <BR>出生日期和生日不是一回事吗？&nbsp; <BR>------------------- <BR>回楼主的，没有年份，那也简单啊，SQL语句修改一下就好了 <BR>&lt;% <BR>rs.open"select&nbsp;username&nbsp;from&nbsp;usertable&nbsp;where&nbsp;month(borthday)='#"&amp;month(date())&amp;"#'&nbsp;and&nbsp;day(borthday)='#"&amp;day(date())&amp;"#'",conn,1,1 <BR>if&nbsp;not&nbsp;rs.eof&nbsp;then <BR>&nbsp;&nbsp;do&nbsp;while&nbsp;not&nbsp;rs.eof <BR>&nbsp;&nbsp;&nbsp;response.write&nbsp;rs("username")&amp;"&lt;br&gt;" <BR>&nbsp;&nbsp;rs.movenext <BR>&nbsp;&nbsp;&nbsp;loop <BR>end&nbsp;if&nbsp; <BR>rs.close <BR>%&gt; [JavaScript]ie7 ie8 maxthon等浏览器下eWebEditor 错误的判断解决办法 http://www.yici.net/content/text_all/text_0/643_1.html 佚名 JavaScript 2010-8-21 11:06:38 <DIV class=entry-content> <P>今天写这篇文章还有因为那个eWebEditor编辑器的问题。eWebEditor在IE浏览器8下好像显示不太正常。调用的JS应该是有错误的，eWebEditor编辑不能使用，按照网上找的答案，在火狐下具说是正常的，而在ie浏览器 ，ie8 ，ie7 ，maxthon下有有错误，我想应该是 editor.js文件上面。<SPAN id=more-1284></SPAN></P> <P>把这文件里的一行语句if(element.YUSERONCLICK)eval(element.YUSERONCLICK + “anonymous()”);<BR>修改成<BR>if(navigator.appVersion.match(/8./i)==’8.’)<BR>{<BR>if(element.YUSERONCLICK)eval(element.YUSERONCLICK + “onclick(event)”);<BR>}<BR>else<BR>{<BR>if(element.YUSERONCLICK)eval(element.YUSERONCLICK + “anonymous()”);<BR>}<BR>原因是IE8不支持anonymous（），所以要换成onclick(event)事件。</P> <P>&nbsp;</P> <P>修改之后一同事使用IE7竟然不能正常使用该编辑器，修改之后可以。</P> <P>估计还是那行代码的问题。恢复以前的，IE7可以而IE8不可以。看来还必须先判断IE版本然后再写不同的代码。</P> <P>于是就使用了下面的代码：<BR>if(navigator.appVersion.match(/8./i)==’8.’){<BR>&nbsp;&nbsp;&nbsp; if (element.YUSERONCLICK) eval(element.YUSERONCLICK + “onclick(event)”);<BR>}else{<BR>&nbsp;&nbsp;&nbsp; if (element.YUSERONCLICK) eval(element.YUSERONCLICK + “anonymous()”);<BR>}</P> <P>修改之后在IE8和IE7均可以正常使用eWebEditor编辑器。</P> <P>但是在装有IE8的机器上使用傲游浏览器竟然不能使用该编辑器，纳闷了，傲游是IE内核，应该可以呀。</P> <P>于是就使用alert(navigator.appVersion)弹出信息，结果发现竟然是IE7？<BR>晕了！竟然不一样？难道傲游没有用到真正的IE8内核？还是显示的问题？</P> <P>难道再加一句判断傲游的？<BR>没办法：</P> <P>if(navigator.appVersion.match(/8./i)==’8.’ || navigator.appVersion.match(/MAXTHON/i)==’MAXTHON’){<BR>&nbsp;&nbsp;&nbsp; if (element.YUSERONCLICK) eval(element.YUSERONCLICK + “onclick(event)”);<BR>}else{<BR>&nbsp;&nbsp;&nbsp; if (element.YUSERONCLICK) eval(element.YUSERONCLICK + “anonymous()”);<BR>}<BR>前几天看新闻说傲游开发自己的内核浏览器，希望众多浏览器在兼容代码上好一些，不要浪费编写代码者的那么多找不兼容问题、调试不兼容问题的时间。</P> <P>如果上面不行的话,请使用下面的方法:</P> <P><SPAN style="COLOR: #ff0000">try{<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; if (element.YUSERONCLICK) eval(element.YUSERONCLICK + “anonymous()”);<BR>&nbsp;&nbsp;&nbsp; }<BR>&nbsp;&nbsp;&nbsp; catch(e){<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; if (element.YUSERONCLICK) eval(element.YUSERONCLICK + “onclick(event)”);<BR>&nbsp;&nbsp;&nbsp; }</SPAN></P></DIV> [ASP/shtml]asp实现网站图片防盗链的一个简单方法 http://www.yici.net/content/text_all/text_0/641_1.html 佚名 ASP/shtml 2010-8-18 11:24:14 <P>我的论坛开通了远程图片上传功能，大量图片自动传到了服务器上，图片被盗链影响服务器的流量，不防盗链是很麻烦的一件事。试过几种防盗链的方法，这种最简单。 <BR>此方法非原创，修改了leadbbs的代码，直接替换显示页面的东西，不知这样网站效率是否会降低，我测试没发现显的变化。 <BR>pic.asp文件，以下为全部内容 <BR></P> <P>&lt;% <BR>From_url&nbsp;=&nbsp;Cstr(Request.ServerVariables(HTTP_REFERER)) <BR>Serv_url&nbsp;=&nbsp;Cstr(Request.ServerVariables(SERVER_NAME)) <BR>'防止盗链，设置图片地址 <BR>if&nbsp;mid(From_url&#8218;8&#8218;len(Serv_url))&nbsp;&lt;&gt;&nbsp;Serv_url&nbsp;then <BR>response.redirect&nbsp;/content/uploadfiles/2010-08/20100818112543734.gif&nbsp; <BR>response.end <BR>end&nbsp;if <BR>Function&nbsp;GetFileName(longname)'/folder1/folder2/file.asp=&gt;file.asp <BR>while&nbsp;instr(longname&#8218;/) <BR>longname&nbsp;=&nbsp;right(longname&#8218;len(longname)-1) <BR>wend <BR>GetFileName&nbsp;=&nbsp;longname <BR>End&nbsp;Function <BR>Dim&nbsp;Stream <BR>Dim&nbsp;Contents <BR>Dim&nbsp;FileName <BR>Dim&nbsp;TrueFileName <BR>Dim&nbsp;FileExt <BR>Const&nbsp;adTypeBinary&nbsp;=&nbsp;1 <BR>FileName&nbsp;=&nbsp;Request.QueryString(FileName) <BR>if&nbsp;FileName&nbsp;=&nbsp;Then <BR>Response.End <BR>End&nbsp;if <BR>FileExt&nbsp;=&nbsp;Mid(FileName&#8218;&nbsp;InStrRev(FileName&#8218;&nbsp;.)&nbsp;+&nbsp;1) <BR>Response.Clear <BR>if&nbsp;lcase(right(FileName&#8218;3))=gif&nbsp;or&nbsp;lcase(right(FileName&#8218;3))=jpg&nbsp;or&nbsp;lcase(right(FileName&#8218;3))=png&nbsp;then <BR>Response.ContentType&nbsp;=&nbsp;image/*&nbsp;'对图像文件不出现下载对话框 <BR>else <BR>Response.ContentType&nbsp;=&nbsp;application/ms-download <BR>end&nbsp;if <BR>Response.AddHeader&nbsp;content-disposition&#8218;&nbsp;attachment;&nbsp;filename=&nbsp;&amp;&nbsp;GetFileName(Request.QueryString(FileName)) <BR>Set&nbsp;Stream&nbsp;=&nbsp;server.CreateObject(ADODB.Stream) <BR>Stream.Type&nbsp;=&nbsp;adTypeBinary <BR>Stream.Open <BR>'设置服务器文件真实地址 <BR>TrueFileName&nbsp;=&nbsp;UpFile/&amp;FileName <BR>Stream.LoadFromFile&nbsp;Server.MapPath(TrueFileName) <BR>While&nbsp;Not&nbsp;Stream.EOS <BR>Response.BinaryWrite&nbsp;Stream.Read(1024&nbsp;*&nbsp;64) <BR>Wend <BR>Stream.Close <BR>Set&nbsp;Stream&nbsp;=&nbsp;Nothing <BR>Response.Flush <BR>Response.End <BR>%&gt;</P> <P>&nbsp;</P> <P>将此文件存入你的BBS目录下，注意TrueFileName&nbsp;=&nbsp;UpFile/&amp;FileName的UpFile要写对 <BR>然后修改showpost.asp <BR>content=replace(content&#8218;src=UpFile/&#8218;src=pic.asp?filename=) <BR>详细的方法如果你修改过BBS的话，应该很容易看懂。 <BR>其它如有需要修改的地方一样参照修改。</P> [ASP/shtml]用Asp实现base64编码、解码的实用函数 http://www.yici.net/content/text_all/text_0/640_1.html 佚名 ASP/shtml 2010-8-17 17:43:18 <P>Asp:base64编码、解码函数<A href="http://www.yici.net">www.yici.net</A>&nbsp;[2003-3-6]&nbsp;base64编码、解码函数&nbsp; <BR>这是我看完几个base64编码、解码函数后自己改写的。因为，在中文操作系统的VBscript中，使用的是unicode字符集，所以很多base64编码、解码函数在理论上是正确的，但实际不能运行！ <BR><BR>文件名称base64test.asp <BR><BR>&lt;% <BR>'程序设计,环球万维:http://www.yici.net<BR>'专业的站长工具、学习资料站<BR>''以上信息与文章正文是不可分割的一部分,所以如果您要转载本文章,您必须保留以上信息.<BR><BR>sBASE_64_CHARACTERS&nbsp;=&nbsp;"ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/"&nbsp; <BR>sBASE_64_CHARACTERS&nbsp;=&nbsp;strUnicode2Ansi(sBASE_64_CHARACTERS) <BR><BR>Function&nbsp;strUnicodeLen(asContents) <BR>'计算unicode字符串的Ansi编码的长度 <BR>asContents1="a"&amp;asContents <BR>len1=len(asContents1) <BR>k=0 <BR>for&nbsp;i=1&nbsp;to&nbsp;len1 <BR>asc1=asc(mid(asContents1,i,1)) <BR>if&nbsp;asc1&lt;0&nbsp;then&nbsp;asc1=65536+asc1 <BR>if&nbsp;asc1&gt;255&nbsp;then <BR>k=k+2 <BR>else <BR>k=k+1 <BR>end&nbsp;if <BR>next <BR>strUnicodeLen=k-1 <BR>End&nbsp;Function <BR><BR>Function&nbsp;strUnicode2Ansi(asContents) <BR>'将Unicode编码的字符串，转换成Ansi编码的字符串 <BR>strUnicode2Ansi="" <BR>len1=len(asContents) <BR>for&nbsp;i=1&nbsp;to&nbsp;len1 <BR>varchar=mid(asContents,i,1) <BR>varasc=asc(varchar) <BR>if&nbsp;varasc&lt;0&nbsp;then&nbsp;varasc=varasc+65536 <BR>if&nbsp;varasc&gt;255&nbsp;then <BR>varHex=Hex(varasc) <BR>varlow=left(varHex,2) <BR>varhigh=right(varHex,2) <BR>strUnicode2Ansi=strUnicode2Ansi&nbsp;&amp;&nbsp;chrb("&amp;H"&nbsp;&amp;&nbsp;varlow&nbsp;)&nbsp;&amp;&nbsp;chrb("&amp;H"&nbsp;&amp;&nbsp;varhigh&nbsp;) <BR>else <BR>strUnicode2Ansi=strUnicode2Ansi&nbsp;&amp;&nbsp;chrb(varasc) <BR>end&nbsp;if <BR>next <BR>End&nbsp;function <BR><BR>Function&nbsp;strAnsi2Unicode(asContents) <BR>'将Ansi编码的字符串，转换成Unicode编码的字符串 <BR>strAnsi2Unicode&nbsp;=&nbsp;"" <BR>len1=lenb(asContents) <BR>if&nbsp;len1=0&nbsp;then&nbsp;exit&nbsp;function <BR>for&nbsp;i=1&nbsp;to&nbsp;len1 <BR>varchar=midb(asContents,i,1) <BR>varasc=ascb(varchar) <BR>if&nbsp;varasc&nbsp;&gt;&nbsp;127&nbsp;then&nbsp; <BR>strAnsi2Unicode&nbsp;=&nbsp;strAnsi2Unicode&nbsp;&amp;&nbsp;chr(ascw(midb(asContents,i+1,1)&nbsp;&amp;&nbsp;varchar)) <BR>i=i+1 <BR>else <BR>strAnsi2Unicode&nbsp;=&nbsp;strAnsi2Unicode&nbsp;&amp;&nbsp;chr(varasc) <BR>end&nbsp;if <BR>next <BR>End&nbsp;function <BR><BR>Function&nbsp;Base64encode(asContents)&nbsp; <BR>'将Ansi编码的字符串进行Base64编码 <BR>'asContents应当是ANSI编码的字符串（二进制的字符串也可以） <BR>Dim&nbsp;lnPosition&nbsp; <BR>Dim&nbsp;lsResult&nbsp; <BR>Dim&nbsp;Char1&nbsp; <BR>Dim&nbsp;Char2&nbsp; <BR>Dim&nbsp;Char3&nbsp; <BR>Dim&nbsp;Char4&nbsp; <BR>Dim&nbsp;Byte1&nbsp; <BR>Dim&nbsp;Byte2&nbsp; <BR>Dim&nbsp;Byte3&nbsp; <BR>Dim&nbsp;SaveBits1&nbsp; <BR>Dim&nbsp;SaveBits2&nbsp; <BR>Dim&nbsp;lsGroupBinary&nbsp; <BR>Dim&nbsp;lsGroup64&nbsp; <BR>Dim&nbsp;m4,len1,len2 <BR><BR>len1=Lenb(asContents) <BR>if&nbsp;len1&lt;1&nbsp;then&nbsp; <BR>Base64encode="" <BR>exit&nbsp;Function <BR>end&nbsp;if <BR><BR>m3=Len1&nbsp;Mod&nbsp;3&nbsp; <BR>If&nbsp;M3&nbsp;&gt;&nbsp;0&nbsp;Then&nbsp;asContents&nbsp;=&nbsp;asContents&nbsp;&amp;&nbsp;String(3-M3,&nbsp;chrb(0))&nbsp; <BR>'补足位数是为了便于计算 <BR><BR>IF&nbsp;m3&nbsp;&gt;&nbsp;0&nbsp;THEN&nbsp; <BR>len1=len1+(3-m3) <BR>len2=len1-3 <BR>else <BR>len2=len1 <BR>end&nbsp;if <BR><BR>lsResult&nbsp;=&nbsp;""&nbsp; <BR><BR>For&nbsp;lnPosition&nbsp;=&nbsp;1&nbsp;To&nbsp;len2&nbsp;Step&nbsp;3&nbsp; <BR>lsGroup64&nbsp;=&nbsp;""&nbsp; <BR>lsGroupBinary&nbsp;=&nbsp;Midb(asContents,&nbsp;lnPosition,&nbsp;3)&nbsp; <BR><BR>Byte1&nbsp;=&nbsp;Ascb(Midb(lsGroupBinary,&nbsp;1,&nbsp;1)):&nbsp;SaveBits1&nbsp;=&nbsp;Byte1&nbsp;And&nbsp;3&nbsp; <BR>Byte2&nbsp;=&nbsp;Ascb(Midb(lsGroupBinary,&nbsp;2,&nbsp;1)):&nbsp;SaveBits2&nbsp;=&nbsp;Byte2&nbsp;And&nbsp;15&nbsp; <BR>Byte3&nbsp;=&nbsp;Ascb(Midb(lsGroupBinary,&nbsp;3,&nbsp;1))&nbsp; <BR><BR>Char1&nbsp;=&nbsp;Midb(sBASE_64_CHARACTERS,&nbsp;((Byte1&nbsp;And&nbsp;252)&nbsp;\&nbsp;4)&nbsp;+&nbsp;1,&nbsp;1)&nbsp; <BR>Char2&nbsp;=&nbsp;Midb(sBASE_64_CHARACTERS,&nbsp;(((Byte2&nbsp;And&nbsp;240)&nbsp;\&nbsp;16)&nbsp;Or&nbsp;(SaveBits1&nbsp;*&nbsp;16)&nbsp;And&nbsp;&amp;HFF)&nbsp;+&nbsp;1,&nbsp;1)&nbsp; <BR>Char3&nbsp;=&nbsp;Midb(sBASE_64_CHARACTERS,&nbsp;(((Byte3&nbsp;And&nbsp;192)&nbsp;\&nbsp;64)&nbsp;Or&nbsp;(SaveBits2&nbsp;*&nbsp;4)&nbsp;And&nbsp;&amp;HFF)&nbsp;+&nbsp;1,&nbsp;1)&nbsp; <BR>Char4&nbsp;=&nbsp;Midb(sBASE_64_CHARACTERS,&nbsp;(Byte3&nbsp;And&nbsp;63)&nbsp;+&nbsp;1,&nbsp;1)&nbsp; <BR>lsGroup64&nbsp;=&nbsp;Char1&nbsp;&amp;&nbsp;Char2&nbsp;&amp;&nbsp;Char3&nbsp;&amp; Char4&nbsp; <BR><BR>lsResult&nbsp;=&nbsp;lsResult&nbsp;&amp;&nbsp;lsGroup64&nbsp; <BR>Next&nbsp; <BR><BR>'处理最后剩余的几个字符 <BR>if&nbsp;M3&nbsp;&gt;&nbsp;0&nbsp;then <BR>lsGroup64&nbsp;=&nbsp;""&nbsp; <BR>lsGroupBinary&nbsp;=&nbsp;Midb(asContents,&nbsp;len2+1,&nbsp;3)&nbsp; <BR><BR>Byte1&nbsp;=&nbsp;Ascb(Midb(lsGroupBinary,&nbsp;1,&nbsp;1)):&nbsp;SaveBits1&nbsp;=&nbsp;Byte1&nbsp;And&nbsp;3&nbsp; <BR>Byte2&nbsp;=&nbsp;Ascb(Midb(lsGroupBinary,&nbsp;2,&nbsp;1)):&nbsp;SaveBits2&nbsp;=&nbsp;Byte2&nbsp;And&nbsp;15&nbsp; <BR>Byte3&nbsp;=&nbsp;Ascb(Midb(lsGroupBinary,&nbsp;3,&nbsp;1))&nbsp; <BR><BR>Char1&nbsp;=&nbsp;Midb(sBASE_64_CHARACTERS,&nbsp;((Byte1&nbsp;And&nbsp;252)&nbsp;\&nbsp;4)&nbsp;+&nbsp;1,&nbsp;1)&nbsp; <BR>Char2&nbsp;=&nbsp;Midb(sBASE_64_CHARACTERS,&nbsp;(((Byte2&nbsp;And&nbsp;240)&nbsp;\&nbsp;16)&nbsp;Or&nbsp;(SaveBits1&nbsp;*&nbsp;16)&nbsp;And&nbsp;&amp;HFF)&nbsp;+&nbsp;1,&nbsp;1)&nbsp; <BR>Char3&nbsp;=&nbsp;Midb(sBASE_64_CHARACTERS,&nbsp;(((Byte3&nbsp;And&nbsp;192)&nbsp;\&nbsp;64)&nbsp;Or&nbsp;(SaveBits2&nbsp;*&nbsp;4)&nbsp;And&nbsp;&amp;HFF)&nbsp;+&nbsp;1,&nbsp;1)&nbsp; <BR><BR>if&nbsp;M3=1&nbsp;then <BR>lsGroup64&nbsp;=&nbsp;Char1&nbsp;&amp;&nbsp;Char2&nbsp;&amp;&nbsp;ChrB(61)&nbsp;&amp;&nbsp;ChrB(61)&nbsp;'用=号补足位数 <BR>else <BR>lsGroup64&nbsp;=&nbsp;Char1&nbsp;&amp;&nbsp;Char2&nbsp;&amp;&nbsp;Char3&nbsp;&amp;&nbsp;ChrB(61)&nbsp;'用=号补足位数 <BR>end&nbsp;if <BR><BR>lsResult&nbsp;=&nbsp;lsResult&nbsp;&amp;&nbsp;lsGroup64&nbsp; <BR>end&nbsp;if <BR><BR>Base64encode&nbsp;=&nbsp;lsResult&nbsp; <BR><BR>End&nbsp;Function&nbsp; <BR><BR><BR>Function&nbsp;Base64decode(asContents)&nbsp; <BR>'将Base64编码字符串转换成Ansi编码的字符串 <BR>'asContents应当也是ANSI编码的字符串（二进制的字符串也可以） <BR>Dim&nbsp;lsResult&nbsp; <BR>Dim&nbsp;lnPosition&nbsp; <BR>Dim&nbsp;lsGroup64,&nbsp;lsGroupBinary&nbsp; <BR>Dim&nbsp;Char1,&nbsp;Char2,&nbsp;Char3,&nbsp;Char4&nbsp; <BR>Dim&nbsp;Byte1,&nbsp;Byte2,&nbsp;Byte3&nbsp; <BR>Dim&nbsp;M4,len1,len2 <BR><BR>len1=&nbsp;Lenb(asContents)&nbsp; <BR>M4&nbsp;=&nbsp;len1&nbsp;Mod&nbsp;4 <BR><BR>if&nbsp;len1&nbsp;&lt;&nbsp;1&nbsp;or&nbsp;M4&nbsp;&gt;&nbsp;0&nbsp;then <BR>'字符串长度应当是4的倍数 <BR>Base64decode&nbsp;=&nbsp;""&nbsp; <BR>exit&nbsp;Function&nbsp; <BR>end&nbsp;if <BR><BR>'判断最后一位是不是&nbsp;=&nbsp;号 <BR>'判断倒数第二位是不是&nbsp;=&nbsp;号 <BR>'这里m4表示最后剩余的需要单独处理的字符个数 <BR>if&nbsp;midb(asContents,&nbsp;len1,&nbsp;1)&nbsp;=&nbsp;chrb(61)&nbsp;then&nbsp;m4=3&nbsp; <BR>if&nbsp;midb(asContents,&nbsp;len1-1,&nbsp;1)&nbsp;=&nbsp;chrb(61)&nbsp;then&nbsp;m4=2 <BR><BR>if&nbsp;m4&nbsp;=&nbsp;0&nbsp;then <BR>len2=len1 <BR>else <BR>len2=len1-4 <BR>end&nbsp;if <BR><BR>For&nbsp;lnPosition&nbsp;=&nbsp;1&nbsp;To&nbsp;Len2&nbsp;Step&nbsp;4&nbsp; <BR>lsGroupBinary&nbsp;=&nbsp;""&nbsp; <BR>lsGroup64&nbsp;=&nbsp;Midb(asContents,&nbsp;lnPosition,&nbsp;4)&nbsp; <BR>Char1&nbsp;=&nbsp;InStrb(sBASE_64_CHARACTERS,&nbsp;Midb(lsGroup64,&nbsp;1,&nbsp;1))&nbsp;-&nbsp;1&nbsp; <BR>Char2&nbsp;=&nbsp;InStrb(sBASE_64_CHARACTERS,&nbsp;Midb(lsGroup64,&nbsp;2,&nbsp;1))&nbsp;-&nbsp;1&nbsp; <BR>Char3&nbsp;=&nbsp;InStrb(sBASE_64_CHARACTERS,&nbsp;Midb(lsGroup64,&nbsp;3,&nbsp;1))&nbsp;-&nbsp;1&nbsp; <BR>Char4&nbsp;=&nbsp;InStrb(sBASE_64_CHARACTERS,&nbsp;Midb(lsGroup64,&nbsp;4,&nbsp;1))&nbsp;-&nbsp;1&nbsp; <BR>Byte1&nbsp;=&nbsp;Chrb(((Char2&nbsp;And&nbsp;48)&nbsp;\&nbsp;16)&nbsp;Or&nbsp;(Char1&nbsp;*&nbsp;4)&nbsp;And&nbsp;&amp;HFF)&nbsp; <BR>Byte2&nbsp;=&nbsp;lsGroupBinary&nbsp;&amp;&nbsp;Chrb(((Char3&nbsp;And&nbsp;60)&nbsp;\&nbsp;4)&nbsp;Or&nbsp;(Char2&nbsp;*&nbsp;16)&nbsp;And&nbsp;&amp;HFF)&nbsp; <BR>Byte3&nbsp;=&nbsp;Chrb((((Char3&nbsp;And&nbsp;3)&nbsp;*&nbsp;64)&nbsp;And&nbsp;&amp;HFF)&nbsp;Or&nbsp;(Char4&nbsp;And&nbsp;63))&nbsp; <BR>lsGroupBinary&nbsp;=&nbsp;Byte1&nbsp;&amp;&nbsp;Byte2&nbsp;&amp;&nbsp;Byte3&nbsp; <BR><BR>lsResult&nbsp;=&nbsp;lsResult&nbsp;&amp;&nbsp;lsGroupBinary&nbsp; <BR>Next&nbsp; <BR><BR>'处理最后剩余的几个字符 <BR>if&nbsp;M4&nbsp;&gt;&nbsp;0&nbsp;then&nbsp; <BR>lsGroupBinary&nbsp;=&nbsp;""&nbsp; <BR>lsGroup64&nbsp;=&nbsp;Midb(asContents,&nbsp;len2+1,&nbsp;m4)&nbsp;&amp;&nbsp;chrB(65)&nbsp;'chr(65)=A，转换成值为0 <BR>if&nbsp;M4=2&nbsp;then&nbsp;'补足4位，是为了便于计算&nbsp; <BR>lsGroup64&nbsp;=&nbsp;lsGroup64&nbsp;&amp;&nbsp;chrB(65)&nbsp; <BR>end&nbsp;if <BR>Char1&nbsp;=&nbsp;InStrb(sBASE_64_CHARACTERS,&nbsp;Midb(lsGroup64,&nbsp;1,&nbsp;1))&nbsp;-&nbsp;1&nbsp; <BR>Char2&nbsp;=&nbsp;InStrb(sBASE_64_CHARACTERS,&nbsp;Midb(lsGroup64,&nbsp;2,&nbsp;1))&nbsp;-&nbsp;1&nbsp; <BR>Char3&nbsp;=&nbsp;InStrb(sBASE_64_CHARACTERS,&nbsp;Midb(lsGroup64,&nbsp;3,&nbsp;1))&nbsp;-&nbsp;1&nbsp; <BR>Char4&nbsp;=&nbsp;InStrb(sBASE_64_CHARACTERS,&nbsp;Midb(lsGroup64,&nbsp;4,&nbsp;1))&nbsp;-&nbsp;1&nbsp; <BR>Byte1&nbsp;=&nbsp;Chrb(((Char2&nbsp;And&nbsp;48)&nbsp;\&nbsp;16)&nbsp;Or&nbsp;(Char1&nbsp;*&nbsp;4)&nbsp;And&nbsp;&amp;HFF)&nbsp; <BR>Byte2&nbsp;=&nbsp;lsGroupBinary&nbsp;&amp;&nbsp;Chrb(((Char3&nbsp;And&nbsp;60)&nbsp;\&nbsp;4)&nbsp;Or&nbsp;(Char2&nbsp;*&nbsp;16)&nbsp;And&nbsp;&amp;HFF)&nbsp; <BR>Byte3&nbsp;=&nbsp;Chrb((((Char3&nbsp;And&nbsp; 3)&nbsp;*&nbsp;64)&nbsp;And&nbsp;&amp;HFF)&nbsp;Or&nbsp;(Char4&nbsp;And&nbsp;63))&nbsp; <BR><BR>if&nbsp;M4=2&nbsp;then <BR>lsGroupBinary&nbsp;=&nbsp;Byte1 <BR>elseif&nbsp;M4=3&nbsp;then <BR>lsGroupBinary&nbsp;=&nbsp;Byte1&nbsp;&amp;&nbsp;Byte2 <BR>end&nbsp;if <BR><BR>lsResult&nbsp;=&nbsp;lsResult&nbsp;&amp;&nbsp;lsGroupBinary&nbsp; <BR>end&nbsp;if <BR><BR>Base64decode&nbsp;=&nbsp;lsResult&nbsp; <BR><BR>End&nbsp;Function <BR><BR>%&gt;</P> [常见工具应用]迅雷、快车、旋风专用链接原理及转换 http://www.yici.net/content/text_all/text_0/639_1.html 佚名 常见工具应用 2010-8-17 17:40:19 对于迅雷专用链接不用我去解释相信大家都明白（别告诉我你不懂~汗），现在就链接的编码原理及转换详细说明一下，明白以后就可以用迅雷下载快车、旋风专用地址的软件啦。&nbsp; <BR><BR>首先要明白Base64编码是怎么一回事，不懂的先去百度一下再回来。&nbsp; <BR>Base64编码是一种加密算法，Email的原始信息就是由Base64编码构成的。&nbsp; <BR>而这些专用链接都是通过Base64编码加工转换而成的。&nbsp; <BR><BR>迅雷专用地址例子：thunder://QUFodHRwOi8vd3d3LnlpY2kubmV0L2NvbnRlbnQvZG93bmluZm8vMC8xNjkuaHRtbFpa&nbsp; <BR>真实文件下载链接：<A href="http://www.yici.net/content/downinfo/0/169.html">http://www.yici.net/content/downinfo/0/169.html</A>&nbsp; <BR><BR>附转换工具下载：<A href="http://www.yici.net/content/downinfo/0/169.html">http://www.yici.net/content/downinfo/0/169.html</A><BR><BR>搞懂了Base64编码之后，一切都变的得心应手了：&nbsp; <BR><BR>实例原始地址：http://im.baidu.com/install/BaiduHi.exe&nbsp; <BR><BR>1、迅雷专用链接编码&nbsp; <BR><BR>在原地址前面加"AA"，后面加"ZZ"(不包括引号)，地址变为&nbsp; <BR><BR>AAhttp://im.baidu.com/install/BaiduHi.exeZZ&nbsp; <BR><BR>此地址base64编码为&nbsp; <BR><BR>QUFodHRwOi8vaW0uYmFpZHUuY29tL2luc3RhbGwvQmFpZHVIaS5leGVaWg==&nbsp; <BR><BR>迅雷专链即在上地址前加thunder://，即&nbsp; <BR><BR>Thunder://QUFodHRwOi8vaW0uYmFpZHUuY29tL2luc3RhbGwvQmFpZHVIaS5leGVaWg==&nbsp; <BR>2、快车专用链接编码&nbsp; <BR><BR>在原地址前后都加上"[FLASHGET]"(不包括引号)，地址变为&nbsp; <BR><BR>[FLASHGET]http://im.baidu.com/install/BaiduHi.exe[FLASHGET]&nbsp; <BR><BR>此地址base64编码为&nbsp; <BR><BR>W0ZMQVNIR0VUXWh0dHA6Ly9pbS5iYWlkdS5jb20vaW5zdGFsbC9CYWlkdUhpLmV4ZVtGTEFTSEdFVF0=&amp;yinbing1986&nbsp; <BR><BR>快车专链即在上地址前加flashget://，注意后面还要加上"&amp;符号"，符号怎么得出不清楚，在最后后面加的是好好爱的个人信息，至今未有人报告转换错误，即&nbsp; <BR><BR>Flashget://W0ZMQVNIR0VUXWh0dHA6Ly9pbS5iYWlkdS5jb20vaW5zdGFsbC9CYWlkdUhpLmV4ZVtGTEFTSEdFVF0=&amp;yinbing1986&nbsp; <BR><BR>3、旋风专用链接编码&nbsp; <BR><BR>旋风相对就简单多了，将原地址直接base64编码为&nbsp; <BR><BR>aHR0cDovL2ltLmJhaWR1LmNvbS9pbnN0YWxsL0JhaWR1SGkuZXhl&nbsp; <BR><BR>旋风专链即在上地址前加qqdl://，即&nbsp; <BR><BR>qqdl://aHR0cDovL2ltLmJhaWR1LmNvbS9pbnN0YWxsL0JhaWR1SGkuZXhl&nbsp; [ASP/shtml]ASP采集攻防战：网站数据采集代码、反采集代码 http://www.yici.net/content/text_all/text_0/632_1.html 佚名 ASP/shtml 2010-6-7 21:09:59 <P><STRONG>网站数据采集代码-存成asp文件即可</STRONG></P> <P>&lt;% <BR>Dim&nbsp;Html,myThief,url_tittle <BR><BR>set&nbsp;myThief=new&nbsp;clsThief&nbsp; <BR>GetUrl="http:www.jsj360.net" <BR>myThief.src=GetUrl <BR>myThief.steal&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;'抓取远程GetUrl整个网页，并将该网页二进制代码转换成字符 <BR>url_tittle=myThief.value&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;'抓取的网页存在url_tittle中 <BR>Html=""&amp;url_tittle&amp;""&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;'最后结果存在Html中 <BR>Response.write&nbsp;Html&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;'显示结果 <BR>Response.write&nbsp;"&lt;br&gt;"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <BR>set&nbsp;myThief=nothing&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;'释放对象 <BR><BR>Class&nbsp;clsThief&nbsp;&nbsp;&nbsp;&nbsp;'定义一个clsThief类 <BR>Private&nbsp;value_&nbsp;&nbsp;&nbsp;&nbsp;'窃取到的内容 <BR>Private&nbsp;src_&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;'要偷的目标URL地址 <BR>Private&nbsp;isGet_&nbsp;&nbsp;&nbsp;&nbsp;'判断是否已经偷过 <BR><BR>public&nbsp;property&nbsp;let&nbsp;src(str)&nbsp;'赋值—要偷的目标URL地址/属性 <BR>src_=str <BR>end&nbsp;property <BR><BR>public&nbsp;property&nbsp;get&nbsp;value&nbsp;'返回值—最终窃取并应用类方法加工过的内容/属性 <BR>value=value_ <BR>end&nbsp;property <BR><BR>private&nbsp;sub&nbsp;class_initialize()&nbsp;'初始化clsThief类 <BR>value_="" <BR>src_="" <BR>isGet_=&nbsp;false <BR>end&nbsp;sub <BR><BR>public&nbsp;sub&nbsp;steal()&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;'窃取目标URL地址的HTML代码/方法 <BR>if&nbsp;src_&lt;&gt;""&nbsp;then <BR>dim&nbsp;Http <BR>set&nbsp;Http=server.createobject("MSXML2.XMLHTTP") <BR>Http.open&nbsp;"GET",src_&nbsp;,false <BR>Http.send() <BR>if&nbsp;Http.readystate&lt;&gt;4&nbsp;then&nbsp; <BR>exit&nbsp;sub <BR>end&nbsp;if <BR>value_=BytesToBSTR(Http.responseBody,"GB2312")&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;'将网页二进制转换成字符 <BR>if&nbsp;len(value_)&lt;100&nbsp;then <BR>response.write&nbsp;"获取远程文件&nbsp;&lt;a&nbsp;href="&amp;url&amp;"&nbsp;target=_blank&gt;"&amp;url&amp;"&lt;/a&gt;&nbsp;失败。" <BR>response.end <BR>end&nbsp;if <BR>isGet_=&nbsp;True <BR>set&nbsp;http=nothing <BR>if&nbsp;err.number&lt;&gt;0&nbsp;then&nbsp;err.Clear <BR>else&nbsp; <BR>response.Write("&lt;script&gt;alert(""请先设置src属性！"")&lt;/script&gt;") <BR>end&nbsp;if <BR>end&nbsp;sub <BR><BR>private&nbsp;Function&nbsp;BytesToBstr(body,Cset)&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;'二进制转换成字符 <BR>dim&nbsp;objstream <BR>set&nbsp;objstream&nbsp;=&nbsp;Server.CreateObject("adodb.stream") <BR>objstream.Type&nbsp;=&nbsp;1 <BR>objstream.Mode&nbsp;=3 <BR>objstream.Open <BR>objstream.Write&nbsp;body <BR>objstream.Position&nbsp;=&nbsp;0 <BR>objstream.Type&nbsp;=&nbsp;2 <BR>objstream.Charset&nbsp;=&nbsp;Cset <BR>BytesToBstr&nbsp;=&nbsp;objstream.ReadText&nbsp; <BR>objstream.Close <BR>set&nbsp;objstream&nbsp;=&nbsp;nothing <BR>End&nbsp;Function <BR><BR>end&nbsp;class <BR>%&gt; <BR><BR><BR><BR>********************************************************************************************** <BR><BR>介绍完采集器的祥细原理后，就开始说一下防采集的策略。&nbsp; <BR><BR>目前防采集的方法有很多种，先介绍一下常见防采集策略方法和它的弊端及采集对策：&nbsp; <BR><BR>一、判断一个IP在一定时间内对本站页面的访问次数，如果明显超过了正常人浏览速度，就拒绝此IP访问&nbsp; <BR>弊端：&nbsp; <BR>1、此方法只适用于动态页面，如：asp\jsp\php等...静态页面无法判断某个IP一定时间访问本站页面的次数&nbsp; <BR>2、此方法会严重影响搜索引擎蜘蛛对其收录，因为搜索引擎蜘蛛收录时，浏览速度都会比较快而且是多线程。此方法也会拒绝搜索引擎蜘蛛收录站内文件&nbsp; <BR>采集对策：只能放慢采集速度，或者不采&nbsp; <BR>建议：做个搜索引擎蜘蛛的IP库，只允许搜索引擎蜘蛛快速浏览站内内容。搜索引擎蜘蛛的IP库的收集，也不太容易，一个搜索引擎蜘蛛，也不一定只有一个固定的IP地址。&nbsp; <BR>评论：此方法对防采集比较有效，但却会影响搜索引擎对其收录。&nbsp; <BR><BR>二、用javascript加密内容页面&nbsp; <BR><BR>弊端：此方法适用于静态页面，但会严重影响搜索引擎对其收录情况，搜索引擎收到到的内容，也都是加密后的内容&nbsp; <BR>采集对策：建议不采，如非要采，就把解密码的JS脚本也采下来。&nbsp; <BR>建议：目前没有好的改良建议&nbsp; <BR>评论：建议指望搜索引擎带流量的站长不要使用此方法。&nbsp; <BR><BR>三、把内容页面里的特定标记替换为”特定标记+隐藏版权文字“&nbsp; <BR><BR>弊端：此方法弊端不大，仅仅会增加一点点的页面文件大小，但容易反采集&nbsp; <BR>采集对策：把采集来的含有隐藏版权文字内容的版权文字替掉，或替换成自己的版权。&nbsp; <BR>建议：目前没有好的改良建议&nbsp; <BR>评论：自己感觉实用价值不大，就算是加上随机的隐藏文字，也等于画蛇添足。&nbsp; <BR><BR><BR>四、只允许用户登陆后才可以浏览&nbsp; <BR>弊端：此方法会严重影响搜索引擎蜘蛛对其收录&nbsp; <BR>采集对策：目前落伍已经有人发了对策文章&nbsp;，具体对策就看这个吧《ASP小偷程序如何利用XMLHTTP实现表单的提交以及cookies或session的发送》&nbsp; <BR>建议：目前没有好的改良建议&nbsp; <BR>评论：建议指望搜索引擎带流量的站长不要使用此方法。不过此方法防一般的采集程序，还是有点效果的。&nbsp; <BR><BR>五、用javascript、vbscript脚本做分页&nbsp; <BR>弊端：影响搜索引擎对其收录&nbsp; <BR>采集对策：分析javascript、vbscript脚本，找出其分页规则，自己做个对应此站的分页集合页即可。&nbsp; <BR>建议：目前没有好的改良建议&nbsp; <BR>评论：感觉懂点脚本语言的人都能找出其分页规则&nbsp; <BR><BR>六、只允许通过本站页面连接查看，如：Request.ServerVariables("HTTP_REFERER")&nbsp; <BR>弊端：影响搜索引擎对其收录&nbsp; <BR>采集对策：不知道能不能模拟网页来源。。。。目前我没有对应此方法的采集对策&nbsp; <BR>建议：目前没有好的改良建议&nbsp; <BR>评论：建议指望搜索引擎带流量的站长不要使用此方法。不过此方法防一般的采集程序，还是有点效果的。&nbsp; <BR><BR>从以上可以看出，目前常用的防采集方法，要么会对搜索引擎收录有较大影响，要么防采集效果不好，起不到防采集的效果。那么，还有没有一种有效防采集，而又不影响搜索引擎收录的方法呢？那就请继续往下看吧，精彩的地方马上呈献给大家。 <BR><BR>下面就是我的防采集策略，防采集而又不防搜索引擎&nbsp; <BR><BR>从前面的我讲的采集原理大家可以看出，绝大多数采集程序都是靠分析规则来进行采集的，如分析分页文件名规则、分析页面代码规则。&nbsp; <BR><BR>一、分页文件名规则防采集对策&nbsp; <BR><BR>大部分采集器都是靠分析分页文件名规则，进行批量、多页采集的。如果别人找不出你的分页文件的文件名规则，那么别人就无法对你的网站进行批量多页采集。&nbsp; <BR>实现方法：&nbsp; <BR>我认为用MD5加密分页文件名是一个比较好的方法，说到这里，有人会说，你用MD5加密分页文件名，别人根据此规则也可以模拟你的加密规则得到你的分页文件名。&nbsp; <BR><BR>我要指出的是我们加密分页文件名时，不要只加密文件名变化的部分&nbsp; <BR>如果I代表分页的页码，那么我们不要这样加密&nbsp; <BR>page_name=Md5(I,16)&amp;".htm"&nbsp; <BR><BR>最好给要加密的页码上再跟进一个或多个字符，如：page_name=Md5(I&amp;"任意一个或几个字母",16)&amp;".htm"&nbsp; <BR><BR>因为MD5是无法反解密的，别人看到的会页字母是MD5加密后的结果，所以加人也无法知道你在&nbsp;I&nbsp;后面跟进的字母是什么，除非他用暴力****MD5，不过不太现实。&nbsp; <BR><BR>二、页面代码规则防采集对策&nbsp; <BR><BR>如果说我们的内容页面无代码规则，那么别人就无法从你的代码中提取他们所需要的一条条内容。&nbsp; <BR>所以我们要的这一步做到防采集，就要使代码无规则。&nbsp; <BR>实现方法：&nbsp; <BR>使对方需要提取的标记随机化&nbsp; <BR>1、定制多个网页模板，每个网页模板里的重要HTML标记不同，呈现页面内容时，随机选取网页模板，有的页面用CSS+DIV布局，有的页面用table布局，此方法是麻烦了点，一个内容页面，要多做几个模板页面，不过防采集本身就是一件很烦琐的事情，多做一个模板，能起到防采集的作用，对很多人来说，都是值得的。&nbsp; <BR>2、如果嫌上面的方法太麻烦，把网页里的重要HTML标记随机化，也可以。&nbsp; <BR><BR>做的网页模板越多，html代码越是随机化，对方分析起内容代码时，就越麻烦，对方针对你的网站专门写采集策略时，难度就更大，在这个时候，绝大部分人，都会知难而退，因为这此人就是因为懒，才会采集别人网站数据嘛~~~再说一下，目前大部分人都是拿别人开发的采集程序去采集数据，自己开发采集程序去采集数据的人毕竟是少数。&nbsp; <BR><BR>还有些简单的思路提供给大家：&nbsp; <BR>1、把对数据采集者重要，而对搜索引擎不重要的内容用客户端脚本显示&nbsp; <BR>2、把一页数据，分为N个页面显示，也是加大采集难度的方法&nbsp; <BR>3、用更深层的连接，因为目前大部分采集程序只能采集到网站内容的前3层，如果内容所在的连接层更深，也可以避免被采集。不过这样可能会给客户造成浏览上的不便。&nbsp; <BR>如：&nbsp; <BR>大多网站都是&nbsp;首页----内容索引分页----内容页&nbsp; <BR>如果改成：&nbsp; <BR>首页----内容索引分页----内容页入口----内容页&nbsp; <BR>注：内容页入口最好能加上自动转入内容页的代码&nbsp; <BR><BR>&lt;meta&nbsp;http-equiv="refresh"&nbsp;content="6;url=内容页(http://www.xiaoqi.net)"&gt;&nbsp; <BR>其实，只要做好防采集的第一步(加密分页文件名规则)，防采集的效果就已经不错了，还是建议两条反采集方法同时使用，给采集者增加采集难度，使得他们知难页退。 <BR></P> [ASP/shtml]ASP保存远程文件到本地（增强版） http://www.yici.net/content/text_all/text_0/631_1.html 佚名 ASP/shtml 2010-6-7 21:09:10 <P><STRONG>将下面代码保存成asp文件即可！</STRONG> </P> <P><BR>&lt;%&nbsp;@&nbsp;LANGUAGE="VBSCRIPT"&nbsp;CODEPAGE="936"%&gt; <BR>&lt;% <BR>Option&nbsp;Explicit <BR>'图象上传和上传信息获取类 <BR>Class&nbsp;BoxInfoImg <BR>'使用方法: <BR>'dim&nbsp;imgUp <BR>'set&nbsp;imgUp=new&nbsp;BoxInfoImg <BR><BR>'属性: <BR>'imgUp.width&nbsp;&nbsp;&nbsp;'宽 <BR>'imgUp.height&nbsp;&nbsp;&nbsp;'高 <BR>'imgUp.imgSize&nbsp;&nbsp;&nbsp;'大小 <BR>'imgUp.imgType&nbsp;&nbsp;&nbsp;'类型 <BR>'imgUp.imgName&nbsp;&nbsp;&nbsp;'文件名 <BR>'imgUp.imgName&nbsp;&nbsp;&nbsp;'图像文件名:"&amp; <BR>'imgUp.filename&nbsp;&nbsp;&nbsp;'文件名"&amp; <BR>'imgUp.extName&nbsp;&nbsp;&nbsp;'扩展名" <BR>'imgUp.DiskPath&nbsp;&nbsp;&nbsp;'保存位置" <BR>'imgUp.XuPath&nbsp;&nbsp;&nbsp;'虚拟路径" <BR>'imgUp.NewUrl&nbsp;&nbsp;&nbsp;'保存后url" <BR>'imgUp.SaveMode&nbsp;&nbsp;&nbsp;'保存后url" <BR><BR>'方法: <BR>'imgUp.saveImg(fullpath)&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;'保存图像文件 <BR><BR>dim&nbsp;ADOS <BR>dim&nbsp;width,height,imgSize,imgType,imgName,fileName <BR>dim&nbsp;preName,extName <BR>dim&nbsp;SavePath,SaveName,SaveMode <BR>dim&nbsp;DiskPath,XuPath,NewUrl <BR>dim&nbsp;textStr <BR>dim&nbsp;i <BR><BR>Private&nbsp;Sub&nbsp;Class_Initialize <BR>&nbsp;&nbsp;&nbsp;Set&nbsp;ADOS=Server.CreateObject("Adodb.Stream") <BR>&nbsp;&nbsp;&nbsp;ADOS.Type=1&nbsp; <BR>&nbsp;&nbsp;&nbsp;ADOS.Mode=3&nbsp; <BR>&nbsp;&nbsp;&nbsp;ADOS.Open&nbsp; <BR>&nbsp;&nbsp;&nbsp;getImageSize <BR>End&nbsp;Sub <BR><BR>Private&nbsp;Sub&nbsp;Class_Terminate <BR>&nbsp;&nbsp;&nbsp;ADOS.close <BR>&nbsp;&nbsp;&nbsp;set&nbsp;ADOS=nothing <BR>End&nbsp;Sub <BR><BR>Public&nbsp;Function&nbsp;getImageSize()&nbsp; <BR>&nbsp;&nbsp;&nbsp;dim&nbsp;ret(3),bFlag,fdata,fsize <BR>&nbsp;&nbsp;&nbsp;fdata=GetWebData(GetStrUrl)&nbsp;'取得XmlHttp数据 <BR>&nbsp;&nbsp;&nbsp;fsize=clng(lenb(fdata))&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;'取得数据尺寸 <BR>&nbsp;&nbsp;&nbsp;if&nbsp;fsize=0&nbsp;then&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp;exit&nbsp;function&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp;R_write&nbsp;"无有效数据保存",0 <BR>&nbsp;&nbsp;&nbsp;end&nbsp;if <BR>&nbsp;&nbsp;&nbsp;ADOS.Write&nbsp;fdata&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <BR>&nbsp;&nbsp;&nbsp;ADOS.Position=0 <BR>&nbsp;&nbsp;&nbsp;SaveName=iSaveName <BR>&nbsp;&nbsp;&nbsp;SavePath=iSavePath <BR>&nbsp;&nbsp;&nbsp;SaveMode=iSaveMode <BR>&nbsp;&nbsp;&nbsp;'写文本对象读取图像长宽和类型 <BR>&nbsp;&nbsp;&nbsp;ADOS.Position=0&nbsp;'重置数据开始位置&nbsp; <BR>&nbsp;&nbsp;&nbsp;bFlag=ADOS.read(3) <BR>&nbsp;&nbsp;&nbsp;if&nbsp;isNull(bFlag)&nbsp;then&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp;width=0 <BR>&nbsp;&nbsp;&nbsp;&nbsp;height=0 <BR>&nbsp;&nbsp;&nbsp;&nbsp;imgSize=0 <BR>&nbsp;&nbsp;&nbsp;&nbsp;imgType="unknow" <BR>&nbsp;&nbsp;&nbsp;&nbsp;ret(0)=imgType:ret(1)=width:ret(2)=height:ret(3)="" <BR>&nbsp;&nbsp;&nbsp;&nbsp;getimagesize=ret <BR>&nbsp;&nbsp;&nbsp;&nbsp;exit&nbsp;function <BR>&nbsp;&nbsp;&nbsp;end&nbsp;if <BR>&nbsp;&nbsp;&nbsp;'取文件类型和长宽 <BR>&nbsp;&nbsp;&nbsp;select&nbsp;case&nbsp;hex(binVal(bFlag)) <BR>&nbsp;&nbsp;&nbsp;case&nbsp;"4E5089": <BR>&nbsp;&nbsp;&nbsp;&nbsp;ADOS.read(15) <BR>&nbsp;&nbsp;&nbsp;&nbsp;ret(0)="png" <BR>&nbsp;&nbsp;&nbsp;&nbsp;ret(1)=BinVal2(ADOS.read(2)) <BR>&nbsp;&nbsp;&nbsp;&nbsp;ADOS.read(2) <BR>&nbsp;&nbsp;&nbsp;&nbsp;ret(2)=BinVal2(ADOS.read(2)) <BR>&nbsp;&nbsp;&nbsp;case&nbsp;"464947": <BR>&nbsp;&nbsp;&nbsp;&nbsp;ADOS.read(3) <BR>&nbsp;&nbsp;&nbsp;&nbsp;ret(0)="gif" <BR>&nbsp;&nbsp;&nbsp;&nbsp;ret(1)=BinVal(ADOS.read(2)) <BR>&nbsp;&nbsp;&nbsp;&nbsp;ret(2)=BinVal(ADOS.read(2)) <BR>&nbsp;&nbsp;&nbsp;case&nbsp;"FFD8FF": <BR>&nbsp;&nbsp;&nbsp;&nbsp;dim&nbsp;p1 <BR>&nbsp;&nbsp;&nbsp;&nbsp;do&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp;do:&nbsp;p1=binVal(ADOS.Read(1)):&nbsp;loop&nbsp;while&nbsp;p1=255&nbsp;and&nbsp;not&nbsp;ADOS.EOS <BR>&nbsp;&nbsp;&nbsp;&nbsp;if&nbsp;p1&gt;191&nbsp;and&nbsp;p1&lt;196&nbsp;then&nbsp;exit&nbsp;do&nbsp;else&nbsp;ADOS.read(binval2(ADOS.Read(2))-2) <BR>&nbsp;&nbsp;&nbsp;&nbsp;do:p1=binVal(ADOS.Read(1)):loop&nbsp;while&nbsp;p1&lt;255&nbsp;and&nbsp;not&nbsp;ADOS.EOS <BR>&nbsp;&nbsp;&nbsp;loop&nbsp;while&nbsp;true <BR>&nbsp;&nbsp;&nbsp;&nbsp;ADOS.Read(3) <BR>&nbsp;&nbsp;&nbsp;&nbsp;ret(0)="jpg" <BR>&nbsp;&nbsp;&nbsp;&nbsp;ret(2)=binval2(ADOS.Read(2)) <BR>&nbsp;&nbsp;&nbsp;&nbsp;ret(1)=binval2(ADOS.Read(2)) <BR>&nbsp;&nbsp;&nbsp;case&nbsp;else: <BR>&nbsp;&nbsp;&nbsp;&nbsp;if&nbsp;left(Bin2Str(bFlag),2)="BM"&nbsp;then <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;ADOS.Read(15) <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;ret(0)="bmp" <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;ret(1)=binval(ADOS.Read(4)) <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;ret(2)=binval(ADOS.Read(4)) <BR>&nbsp;&nbsp;&nbsp;&nbsp;else <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;ret(0)="" <BR>&nbsp;&nbsp;&nbsp;&nbsp;end&nbsp;if <BR>&nbsp;&nbsp;&nbsp;end&nbsp;select <BR>&nbsp;&nbsp;&nbsp;dim&nbsp;tempStr <BR>&nbsp;&nbsp;&nbsp;dim&nbsp;nameStr <BR>&nbsp;&nbsp;&nbsp;dim&nbsp;defaultName <BR>&nbsp;&nbsp;&nbsp;dim&nbsp;ln <BR>&nbsp;&nbsp;&nbsp;tempStr=split(GetStrUrl,"/") <BR>&nbsp;&nbsp;&nbsp;nameStr=tempStr(ubound(tempStr)) <BR>&nbsp;&nbsp;&nbsp;if&nbsp;nameStr=""&nbsp;then <BR>&nbsp;&nbsp;&nbsp;&nbsp;r_write&nbsp;"错误的URL,请输入可访问的URL",0 <BR>&nbsp;&nbsp;&nbsp;&nbsp;exit&nbsp;function <BR>&nbsp;&nbsp;&nbsp;end&nbsp;if <BR>&nbsp;&nbsp;&nbsp;fileName=split(nameStr,"?")(0) <BR>&nbsp;&nbsp;&nbsp;ln=inStrRev(fileName,".") <BR>&nbsp;&nbsp;&nbsp;if&nbsp;ln&gt;0&nbsp;then&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp;preName=left(fileName,inStrRev(fileName,".")-1) <BR>&nbsp;&nbsp;&nbsp;else <BR>&nbsp;&nbsp;&nbsp;&nbsp;preName=fileName <BR>&nbsp;&nbsp;&nbsp;end&nbsp;if <BR>&nbsp;&nbsp;&nbsp;'R_write&nbsp;fileName,1 <BR>&nbsp;&nbsp;&nbsp;'R_write&nbsp;inStrRev(fileName,"."),1 <BR>&nbsp;&nbsp;&nbsp;'R_write&nbsp;fileName,0 <BR>&nbsp;&nbsp;&nbsp;extName=right(fileName,len(fileName)-inStrRev(fileName,".")) <BR>&nbsp;&nbsp;&nbsp;Select&nbsp;case&nbsp;ret(0) <BR>&nbsp;&nbsp;&nbsp;case&nbsp;"png","jpg","bmp","gif","swf" <BR>&nbsp;&nbsp;&nbsp;&nbsp;width=ret(1) <BR>&nbsp;&nbsp;&nbsp;&nbsp;height=ret(2) <BR>&nbsp;&nbsp;&nbsp;&nbsp;imgSize=fsize <BR>&nbsp;&nbsp;&nbsp;&nbsp;imgType=ret(0) <BR>&nbsp;&nbsp;&nbsp;&nbsp;imgName=preName&amp;"."&amp;ret(0) <BR>&nbsp;&nbsp;&nbsp;case&nbsp;else <BR>&nbsp;&nbsp;&nbsp;&nbsp;width=0 <BR>&nbsp;&nbsp;&nbsp;&nbsp;height=0 <BR>&nbsp;&nbsp;&nbsp;&nbsp;imgSize=fsize <BR>&nbsp;&nbsp;&nbsp;&nbsp;imgName="unknow" <BR>&nbsp;&nbsp;&nbsp;&nbsp;imgType=".unknow" <BR>&nbsp;&nbsp;&nbsp;end&nbsp;select <BR>&nbsp;&nbsp;&nbsp;if&nbsp;SaveMode="1"&nbsp;then <BR>&nbsp;&nbsp;&nbsp;&nbsp;defaultName=imgName <BR>&nbsp;&nbsp;&nbsp;&nbsp;if&nbsp;SaveName=""&nbsp;then&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;SaveName=defaultName <BR>&nbsp;&nbsp;&nbsp;&nbsp;else <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;if&nbsp;lcase(right(SaveName,4))&lt;&gt;"."&amp;imgType&nbsp;then <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;SaveName=SaveName&amp;"."&amp;imgType <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;end&nbsp;if <BR>&nbsp;&nbsp;&nbsp;&nbsp;end&nbsp;if <BR>&nbsp;&nbsp;&nbsp;else <BR>&nbsp;&nbsp;&nbsp;&nbsp;defaultName=filename <BR>&nbsp;&nbsp;&nbsp;end&nbsp;if <BR>&nbsp;&nbsp;&nbsp;if&nbsp;SaveName=""&nbsp;then&nbsp;SaveName=defaultName <BR>&nbsp;&nbsp;&nbsp;SavePath=replace(SavePath,"//","/") <BR>&nbsp;&nbsp;&nbsp;if&nbsp;right(SavePath,1)&lt;&gt;"/"&nbsp;then&nbsp;SavePath=SavePath&amp;"/" <BR>&nbsp;&nbsp;&nbsp;if&nbsp;SavePath=""&nbsp;then&nbsp;SavePath="./" <BR>&nbsp;&nbsp;&nbsp;DiskPath=server.mappath(SavePath&amp;SaveName) <BR>&nbsp;&nbsp;&nbsp;XuPath=replace(replace(DiskPath,server.mappath("/"),""),"\","/") <BR>&nbsp;&nbsp;&nbsp;NewUrl="http://"&amp;Request.ServerVariables("SERVER_NAME")&amp;XuPath <BR>&nbsp;&nbsp;&nbsp;getimagesize=ret <BR>End&nbsp;Function <BR><BR>Public&nbsp;function&nbsp;SaveImg(FullPath) <BR>&nbsp;&nbsp;&nbsp;SaveImg=false <BR>&nbsp;&nbsp;&nbsp;if&nbsp;SaveMode="1"&nbsp;then <BR>&nbsp;&nbsp;&nbsp;&nbsp;if&nbsp;trim(fullpath)=""&nbsp;or&nbsp;_ <BR>&nbsp;&nbsp;&nbsp;&nbsp;width=0&nbsp;or&nbsp;_&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp;height=0&nbsp;or&nbsp;_ <BR>&nbsp;&nbsp;&nbsp;&nbsp;imgSize=0&nbsp;or&nbsp;_ <BR>&nbsp;&nbsp;&nbsp;&nbsp;imgType=".unknow"&nbsp;then&nbsp;exit&nbsp;function&nbsp;end&nbsp;if <BR>&nbsp;&nbsp;&nbsp;end&nbsp;if <BR>&nbsp;&nbsp;&nbsp;ADOS.Position=0 <BR>&nbsp;&nbsp;&nbsp;if&nbsp;SaveMode="2"&nbsp;then <BR>&nbsp;&nbsp;&nbsp;&nbsp;ADOS.Type=2 <BR>&nbsp;&nbsp;&nbsp;&nbsp;ADOS.Charset&nbsp;="gb2312" <BR>&nbsp;&nbsp;&nbsp;&nbsp;ADOS.SaveToFile&nbsp;FullPath,2 <BR>&nbsp;&nbsp;&nbsp;&nbsp;textStr=ADOS.readtext() <BR>&nbsp;&nbsp;&nbsp;else <BR>&nbsp;&nbsp;&nbsp;&nbsp;ADOS.SaveToFile&nbsp;FullPath,2 <BR>&nbsp;&nbsp;&nbsp;end&nbsp;if <BR>&nbsp;&nbsp;&nbsp;SaveImg=true <BR>End&nbsp;function <BR><BR>Private&nbsp;Function&nbsp;Bin2Str(Bin) <BR>&nbsp;&nbsp;&nbsp;Dim&nbsp;I,Str,clow <BR>&nbsp;&nbsp;&nbsp;For&nbsp;I=1&nbsp;to&nbsp;LenB(Bin) <BR>&nbsp;&nbsp;&nbsp;&nbsp;clow=MidB(Bin,I,1) <BR>&nbsp;&nbsp;&nbsp;&nbsp;if&nbsp;ASCB(clow)&lt;128&nbsp;then <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Str&nbsp;=&nbsp;Str&nbsp;&amp;&nbsp;Chr(ASCB(clow)) <BR>&nbsp;&nbsp;&nbsp;&nbsp;else <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;I=I+1 <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;if&nbsp;I&nbsp;&lt;=&nbsp;LenB(Bin)&nbsp;then&nbsp;Str&nbsp;=&nbsp;Str&nbsp;&amp;&nbsp;Chr(ASCW(MidB(Bin,I,1)&amp;clow)) <BR>&nbsp;&nbsp;&nbsp;&nbsp;end&nbsp;if <BR>&nbsp;&nbsp;&nbsp;Next&nbsp; <BR>&nbsp;&nbsp;&nbsp;Bin2Str&nbsp;=&nbsp;Str <BR>End&nbsp;Function <BR><BR>Private&nbsp;Function&nbsp;Num2Str(num,base,lens) <BR>&nbsp;&nbsp;&nbsp;dim&nbsp;ret:ret&nbsp;=&nbsp;"" <BR>&nbsp;&nbsp;&nbsp;while(num&gt;=base) <BR>&nbsp;&nbsp;&nbsp;&nbsp;ret=(num&nbsp;mod&nbsp;base)&nbsp;&amp;&nbsp;ret <BR>&nbsp;&nbsp;&nbsp;&nbsp;num=(num&nbsp;-&nbsp;num&nbsp;mod&nbsp;base)/base <BR>&nbsp;&nbsp;&nbsp;wend <BR>&nbsp;&nbsp;&nbsp;Num2Str&nbsp;=&nbsp;right(string(lens,"0")&nbsp;&amp;&nbsp;num&nbsp;&amp;&nbsp;ret,lens) <BR>End&nbsp;Function <BR><BR>Private&nbsp;Function&nbsp;Str2Num(str,base) <BR>&nbsp;&nbsp;&nbsp;dim&nbsp;ret:ret&nbsp;=&nbsp;0 <BR>&nbsp;&nbsp;&nbsp;for&nbsp;i=1&nbsp;to&nbsp;len(str) <BR>&nbsp;&nbsp;&nbsp;&nbsp;ret&nbsp;=&nbsp;ret&nbsp;*base&nbsp;+&nbsp;cint(mid(str,i,1)) <BR>&nbsp;&nbsp;&nbsp;next <BR>&nbsp;&nbsp;&nbsp;Str2Num=ret <BR>End&nbsp;Function <BR><BR>Private&nbsp;Function&nbsp;BinVal(bin) <BR>&nbsp;&nbsp;&nbsp;dim&nbsp;ret:ret&nbsp;=&nbsp;0 <BR>&nbsp;&nbsp;&nbsp;for&nbsp;i&nbsp;=&nbsp;lenb(bin)&nbsp;to&nbsp;1&nbsp;step&nbsp;-1 <BR>&nbsp;&nbsp;&nbsp;&nbsp;ret&nbsp;=&nbsp;ret&nbsp;*256&nbsp;+&nbsp;ascb(midb(bin,i,1)) <BR>&nbsp;&nbsp;&nbsp;next <BR>&nbsp;&nbsp;&nbsp;BinVal=ret <BR>End&nbsp;Function <BR><BR>Private&nbsp;Function&nbsp;BinVal2(bin) <BR>&nbsp;&nbsp;&nbsp;dim&nbsp;ret:ret&nbsp;=&nbsp;0 <BR>&nbsp;&nbsp;&nbsp;for&nbsp;i&nbsp;=&nbsp;1&nbsp;to&nbsp;lenb(bin) <BR>&nbsp;&nbsp;&nbsp;&nbsp;ret&nbsp;=&nbsp;ret&nbsp;*256&nbsp;+&nbsp;ascb(midb(bin,i,1)) <BR>&nbsp;&nbsp;&nbsp;next <BR>&nbsp;&nbsp;&nbsp;BinVal2=ret <BR>End&nbsp;Function <BR><BR>Private&nbsp;Function&nbsp;GetWebData(byval&nbsp;StrUrl) <BR>&nbsp;&nbsp;&nbsp;if&nbsp;StrUrl=""&nbsp;then&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp;r_write&nbsp;"无效",1 <BR>&nbsp;&nbsp;&nbsp;&nbsp;exit&nbsp;function <BR>&nbsp;&nbsp;&nbsp;end&nbsp;if <BR>&nbsp;&nbsp;&nbsp;dim&nbsp;tempStr <BR>&nbsp;&nbsp;&nbsp;tempStr=split(GetStrUrl,"/") <BR>&nbsp;&nbsp;&nbsp;if&nbsp;tempStr(ubound(tempStr))=""&nbsp;or&nbsp;inStr(StrUrl,"/")=0&nbsp;then <BR>&nbsp;&nbsp;&nbsp;&nbsp;R_Write&nbsp;"未指定有效的URL",0 <BR>&nbsp;&nbsp;&nbsp;&nbsp;exit&nbsp;function <BR>&nbsp;&nbsp;&nbsp;end&nbsp;if <BR>&nbsp;&nbsp;&nbsp;dim&nbsp;Retrieval <BR>&nbsp;&nbsp;&nbsp;Set&nbsp;Retrieval&nbsp;=&nbsp;Server.CreateObject("Microsoft.XMLHTTP") <BR>&nbsp;&nbsp;&nbsp;With&nbsp;Retrieval <BR>&nbsp;&nbsp;&nbsp;&nbsp;.Open&nbsp;"Get",&nbsp;StrUrl,&nbsp;False,&nbsp;"",&nbsp;"" <BR>&nbsp;&nbsp;&nbsp;&nbsp;.Send <BR>&nbsp;&nbsp;&nbsp;&nbsp;GetWebData&nbsp;=.ResponseBody <BR>&nbsp;&nbsp;&nbsp;End&nbsp;With <BR>&nbsp;&nbsp;&nbsp;Set&nbsp;Retrieval&nbsp;=&nbsp;Nothing <BR>End&nbsp;Function&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <BR>End&nbsp;Class <BR>%&gt; <BR>&lt;% <BR>SUB&nbsp;saveUpload(GetUrl,SavePath,SaveName,mode) <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;dim&nbsp;chkInfo <BR><BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;if&nbsp;GetUrl=""&nbsp;then&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;call&nbsp;tform() <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;R_Write&nbsp;"&lt;br&gt;传输文件栏没有填写!",0 <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;end&nbsp;if <BR><BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;set&nbsp;imgUp=new&nbsp;BoxInfoImg <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;if&nbsp;mode="1"&nbsp;and&nbsp;imgUp.imgName="unknow"&nbsp;then <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;call&nbsp;tform() <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;set&nbsp;imgUp=nothing <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;R_Write&nbsp;"&lt;br&gt;传输文件栏没有填写有效的图像URL!",0 <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;end&nbsp;if <BR><BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;chkInfo="" <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;dim&nbsp;i,testStr,showStr <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;'限定格式 <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;select&nbsp;case&nbsp;imgUp.imgType <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;case&nbsp;"png","jpg","bmp","gif" <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;if&nbsp;imgUp.width=0&nbsp;or&nbsp;imgUp.height=0&nbsp;or&nbsp;imgUp.imgSize=0&nbsp;then&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;chkInfo="&lt;li&gt;"+"传输图像数据不存在,请确定你的URL是否正确" <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;end&nbsp;if <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;case&nbsp;else&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;chkInfo="&lt;li&gt;无效的传输格式,允许图像数据格式为&nbsp;""png"",""jpg"",""bmp"",""gif""&lt;/li&gt;" <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;end&nbsp;select <BR><BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;'R_Write&nbsp;SavePath,1 <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;'R_Write&nbsp;mode,1 <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;'R_Write&nbsp;imgUp.imgName,1 <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;'R_Write&nbsp;imgUp.filename,1 <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;'R_Write&nbsp;"SaveName="&amp;SaveName,1 <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;if&nbsp;mode="1"&nbsp;and&nbsp;chkInfo&lt;&gt;""&nbsp;then&nbsp;'检查上传图像数据合格后,则保存之 <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;call&nbsp;tform() <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;R_Write&nbsp;chkInfo,0 <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;else <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Server.ScriptTimeOut=5000 <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;imgUp.saveImg&nbsp;imgUp.DiskPath&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;end&nbsp;if <BR>'------------- <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;R_write&nbsp;"&lt;b&gt;===处理结果部分资料===&lt;/b&gt;&lt;br&gt;",1 <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;R_write&nbsp;"　　宽:"&amp;imgUp.width&amp;"&nbsp;pix",1 <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;R_write&nbsp;"　　高:"&amp;imgUp.height&amp;"&nbsp;pix",1 <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;R_write&nbsp;"　大小:"&amp;formatnumber(imgUp.imgSize/1024,2,-1)&amp;"&nbsp;KB",1 <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;R_write&nbsp;"　格式:"&amp;imgUp.imgType,1 <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;R_write&nbsp;"图像文件名:"&amp;imgUp.imgName,1 <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;R_write&nbsp;"文件名:"&amp;imgUp.filename,1 <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;R_write&nbsp;"扩展名:"&amp;imgUp.extName,1 <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;R_write&nbsp;"保存位置:"&amp;imgUp.DiskPath,1 <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;R_write&nbsp;"虚拟路径:"&amp;imgUp.XuPath,1 <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;R_write&nbsp;"保存后url:"&amp;imgUp.NewUrl,1 <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;call&nbsp;tform() <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;set&nbsp;imgUp=nothing&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;R_write&nbsp;"------------------------&lt;br&gt;保存完毕",0 <BR>End&nbsp;SUB <BR><BR>SUB&nbsp;tform() <BR>%&gt; <BR>&lt;FORM&nbsp;METHOD=POST&nbsp;name=form2&nbsp;style="margin:0px;"&gt; <BR>　获取&nbsp;URL：&lt;INPUT&nbsp;TYPE="text"&nbsp;size=50&nbsp;NAME="GetStrUrl"&nbsp;value="/content/uploadfiles/2010-06/20100607210954734.jpg"&gt;&lt;br&gt; <BR>　保存路径：&lt;INPUT&nbsp;TYPE="text"&nbsp;size=50&nbsp;NAME="SavePath"&nbsp;value=""&gt;&lt;br&gt; <BR>保存文件名：&lt;INPUT&nbsp;TYPE="text"&nbsp;size=50&nbsp;NAME="SaveName"&nbsp;value=""&gt;&lt;br&gt; <BR>　保存类型： <BR>&lt;INPUT&nbsp;TYPE="radio"&nbsp;NAME="SaveMode"&nbsp;value=1&nbsp;&lt;%if&nbsp;iSaveMode="1"&nbsp;or&nbsp;iSaveMode=""&nbsp;then&nbsp;response.write&nbsp;"checked"&nbsp;end&nbsp;if%&gt;&gt;&nbsp;Web图像&nbsp; <BR>&lt;INPUT&nbsp;TYPE="radio"&nbsp;NAME="SaveMode"&nbsp;value=2&nbsp;&lt;%if&nbsp;iSaveMode="2"&nbsp;then&nbsp;response.write&nbsp;"checked"&nbsp;end&nbsp;if%&gt;&gt;&nbsp;文本文件 <BR>&lt;INPUT&nbsp;TYPE="radio"&nbsp;NAME="SaveMode"&nbsp;value=0&nbsp;&lt;%if&nbsp;iSaveMode="0"&nbsp;then&nbsp;response.write&nbsp;"checked"&nbsp;end&nbsp;if%&gt;&gt;&nbsp;二进制数据 <BR>&amp;nbsp;&amp;nbsp;&amp;nbsp;&lt;INPUT&nbsp;TYPE="submit"&nbsp;value="确定提交"&gt; <BR><BR>&lt;hr&nbsp;size=1&gt; <BR>&lt;% <BR>if&nbsp;GetStrUrl&lt;&gt;""&nbsp;then <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;if&nbsp;iSaveMode="2"&nbsp;then <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;R_write&nbsp;"&lt;button&nbsp;name=""Previews""&nbsp;title=""页面快照""&nbsp;onclick=""runCode(0);""&gt;Run&nbsp;this&nbsp;code&lt;/button&gt;",1 <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;R_write&nbsp;"&lt;textarea&nbsp;cols=100&nbsp;name=content&nbsp;rows=10&nbsp;style=""&nbsp;width:90%;fixed;word-break:break-all;""&gt;"&amp;server.htmlencode(imgUp.textStr)&amp;"&lt;/textarea&gt;",1 <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;else <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;R_write&nbsp;"&lt;img&nbsp;src="""&amp;imgUp.XuPath&amp;"?"&amp;timer()&amp;"""&nbsp;width="&amp;imgUp.width&amp;"&nbsp;height="&amp;imgUp.height&amp;"&nbsp;alt="&amp;imgUp.imgName&amp;"&gt;",1 <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;end&nbsp;if <BR>end&nbsp;if <BR>%&gt; <BR>&lt;/FORM&gt; <BR>&lt;!--&lt;hr&nbsp;size=1&gt; <BR>&lt;br&gt;如果保存为图像，不要加扩展名，自动识别加上，如果加的扩展名不合也回自动加上 <BR>&lt;br&gt;保存文件路径为空则保存在当前路径 <BR>&lt;br&gt;保存文件名为空则使用自动识别取得的文件名 <BR>&lt;br&gt;保存为其他任意方式，对asp&nbsp;html&nbsp;等为取得发送结果的Html--&gt; <BR>&lt;%End&nbsp;SUB <BR><BR>Sub&nbsp;R_write(str,num) <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;dim&nbsp;istr:istr=str <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;dim&nbsp;inum:inum=num <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;response.write&nbsp;str&amp;"&lt;br&gt;" <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;if&nbsp;inum=0&nbsp;then&nbsp;response.end <BR>end&nbsp;sub <BR><BR>'=================调用过程&nbsp;Execute======================== <BR>%&gt; <BR>&lt;!DOCTYPE&nbsp;HTML&nbsp;PUBLIC&nbsp;"-//W3C//DTD&nbsp;HTML&nbsp;4.0&nbsp;Transitional//EN"&gt; <BR>&lt;HTML&gt; <BR>&lt;HEAD&gt; <BR>&lt;TITLE&gt;www.zhaobus.net&lt;/TITLE&gt; <BR>&lt;META&nbsp;NAME="Generator"&nbsp;CONTENT="EditPlus"&gt; <BR>&lt;META&nbsp;NAME="Keywords"&nbsp;CONTENT="www.zhaobus.net"&gt; <BR>&lt;META&nbsp;NAME="Description"&nbsp;CONTENT="www.zhaobus.net"&gt; <BR>&lt;SCRIPT&nbsp;LANGUAGE="JavaScript"&gt; <BR>&lt;!-- <BR>/*function&nbsp;runCode()&nbsp; <BR>{ <BR>var&nbsp;code=event.srcElement.parentElement.children[0].value; <BR>var&nbsp;newwin=window.open('','','');&nbsp; <BR>newwin.opener&nbsp;=&nbsp;null&nbsp; <BR>newwin.document.write(code); <BR>newwin.document.close(); <BR>} <BR>function&nbsp;setsmiley(what)&nbsp; <BR>{&nbsp; <BR>document.PostForm.comment.value&nbsp;+=&nbsp;"&nbsp;"+what;&nbsp; <BR>document.PostForm.comment.focus();&nbsp; <BR>}&nbsp;*/ <BR>function&nbsp;runCode(num)&nbsp;//运行代码HTML <BR>{ <BR>//&nbsp;var&nbsp;code=event.srcElement.parentElement.children[0].value; <BR>if(num==1){var&nbsp;code=window.form2.code.innerText;} <BR>if(num==0){var&nbsp;code=window.form2.content.innerText;} <BR>var&nbsp;newwin=window.open('','',''); <BR>newwin.opener&nbsp;=&nbsp;null <BR>newwin.document.write(code); <BR>newwin.document.close(); <BR>} <BR>//--&gt; <BR>&lt;/SCRIPT&gt; <BR>&lt;/HEAD&gt; <BR>&lt;BODY&gt; <BR>&lt;% <BR>dim&nbsp;imgUp&nbsp;&nbsp;&nbsp;&nbsp;'传输对象 <BR>dim&nbsp;GetStrUrl&nbsp;&nbsp;&nbsp;'要获取的图像或网页URL <BR>dim&nbsp;iSaveName&nbsp;&nbsp;&nbsp;'要保存的名字 <BR>dim&nbsp;iSavePath&nbsp;&nbsp;&nbsp;'要保存的虚拟路径 <BR>dim&nbsp;iSaveMode&nbsp;&nbsp;&nbsp;'保存的模式&nbsp;1&nbsp;为图像&nbsp;0&nbsp;为任意文件 <BR>iSavePath=trim(request.form("SavePath")) <BR>iSaveName=trim(request.form("SaveName")) <BR>GetStrUrl=trim(request.form("GetStrUrl")) <BR>iSaveMode=trim(request.form("SaveMode")) <BR>if&nbsp;GetStrUrl&lt;&gt;""&nbsp;then <BR>CALL&nbsp;saveUpload(GetStrUrl,iSavePath,iSaveName,iSaveMode) <BR>call&nbsp;tform() <BR>else <BR>call&nbsp;tform() <BR>end&nbsp;if <BR>%&gt; <BR>&lt;/BODY&gt; <BR>&lt;/HTML&gt; <BR></P> [常见工具应用]添加UltraEdit到鼠标右键 http://www.yici.net/content/text_all/text_0/627_1.html 佚名 常见工具应用 2010-4-5 17:11:15 <P>不知道怎么回事，家里的台式机上鼠标右键时，没有了“UltraEDIT打开”的选项。</P> <P>这样在编辑ASP等文件时极不习惯～</P> <P>总不能每次先打开UE，再把文件拖进来吧？</P> <P>&nbsp;</P> <P>后来总算找到了解决办法，</P> <P>编辑个内容如下的1.reg文件，双击执行即可,UltraEdit所在目录（红色部分，注意路径中的斜杠“\”都要改为双斜杠“\\”）需写正确。</P> <P>&nbsp;</P> <P><FONT face="Times New Roman">REGEDIT4</FONT></P> <P><FONT face="Times New Roman">[HKEY_LOCAL_MACHINE\Software\CLASSES\*\shellex\ContextMenuHandlers\UltraEdit-32]<BR>@="{b5eedee0-c06e-11cf-8c56-444553540000}"</FONT></P> <P><FONT face="Times New Roman">[HKEY_LOCAL_MACHINE\Software\CLASSES\CLSID\{b5eedee0-c06e-11cf-8c56-444553540000}\InProcServer32]<BR>@="<FONT color=#ff0000>C:\\Program Files\\UltraEdit\\ue32ctmn.dll</FONT>"<BR>"ThreadingModel"="Apartment"</FONT></P> [ASP/shtml]IIS真正能用的ISAPI-Rewrite防盗链规则写法 http://www.yici.net/content/text_all/text_0/626_1.html menilui ASP/shtml 2010-3-23 9:10:55 <P>本规则支持白名单排除式防盗链，搜索引擎友好不屏蔽，被盗链后的错误提示转向，支持各种文件类型，经作者亲验真的能用，第一时间在chinaz.com原创发表，请继续往下阅读。</P> <P>近来小站遇到了盗链问题，至使网站的流量枉费流失，于是被迫准备为服务器安装防盗链机制以挽救本就不宽裕的带宽。通过G.CN和B.CN搜索后得出了几种不同的方案，例如网站程序的URL伪装法、服务器端的收费插件法和ISAPI-REWRITE的规则过滤法等，考虑自身网站结构和钱包的困难问题，最终选择了后者，即现在流行用来做伪静态的ISAPI Rewrite书写规则来实现我的防盗链“梦想”。</P> <P>为什么说是梦想呢？首先表示惋惜，懒人我搜来了一大票经过无数次转载而来的文章，把现呈的代码应用后发现要么根本不起作用，要么就是效果达不到我想要的，几经周折后终于把这原本认为可以轻易借鉴照搬的防盗链给完成了，恨那些只会转载和伪原创的站长们，自己也不试试就拿来填充，害了多少人浪费了大把的时间。</P> <P>经过恶补正则表达式相关教程并对前辈们留下的规则进行修改后，以下ISAPI Rewrite已经在我的服务器上正常运作。</P> <P>经测试四种情况正常，即站内链接正常，白名单里的链接正常，盗链者链接屏蔽，搜索引擎链接正常。</P> <P>详细如下；</P> <P><STRONG>一、完全屏蔽所有盗链来源的写法（如已有其它规则，则置于已有规则的上面）</STRONG></P> <P> <TABLE style="BORDER-RIGHT: #0099cc 1px solid; TABLE-LAYOUT: fixed; BORDER-TOP: #0099cc 1px solid; BORDER-LEFT: #0099cc 1px solid; BORDER-BOTTOM: #0099cc 1px solid" cellSpacing=0 cellPadding=6 width="95%" align=center border=0> <TBODY> <TR> <TD style="WORD-WRAP: break-word" bgColor=#ddedfb>RewriteCond Host: (.+)<BR>RewriteCond Referer: (?!http://\1.*).*<BR>RewriteRule .*\.(?:gif|jpg|jpeg|png|bmp) /block.gif [I,O,N]</TD></TR></TBODY></TABLE></P> <P>老板，来个小解：</P> <P>第一行通过RewriteCond的HOST定义其下的规则所适用的请求主机范围。</P> <P>第二行通过RewriteCond的Referer定义规则适用的请求来源地址，我们都知道任何通过互联网方式访问网站都会留下Referer的痕迹，就好像我们在IIS日志里看到的一样。这里的(?!http://\1.*).*意思就是判断所有通过http协义发来的请求，都要应用规则。</P> <P>第三行通过RewriteRule定义防盗链文件的后缀，这里仅是图片后缀，需要的可以添加mp3,rar等其它所有后缀。后面的/block.gif表示如果遇上这些后缀的文件被盗链后的转向，这里转向/根目录的block.gif，可以是HTML等任何文件。如果只想某个文件夹下面的文件不被盗链，只需要加上路径就可以。例如不想images和pic目录下的文件被盗，但其它可以。就要改写成：</P> <P>RewriteRule (/images/|/pic/).*\.(?:gif|jpg|jpeg|png|bmp) /block.gif [I,O,N]</P> <P>这种情况主要是有些站长在别人友情链接里的图片地址是在自己这的。</P> <P>最后面的[I,O,N]，I表示不区分大小写，O表示对URL进行标准化，可能是用来处理Unicode编码的地址（例如包含中文的URL）以及QueryString的内容，N表示重新从站点请求文件而不是从本地缓存读取文件，目的是防止当用户访问了盗你链的网站后，再回到你的网站也出现盗链提示。</P> <P><FONT color=#ff0000>提示，由于此规则是通过Referer来获取带有http://字样的地址进行过滤，<STRONG>因此它无法防范其它协议的盗链，比如迅雷下载。</STRONG>但通过任何浏览器直接访问，只要是HTTP协义的，通杀。</FONT></P> <P><FONT color=#ff0000>以上关于RewriteCond和RewriteRule的作用仅是本人的土法理解，欢迎在这方面有专业研究的朋友在评论中指正，以免误导，另外如果遇到isapi-rewrite版本问题，只要保证后面的正则式写法正确就行。</FONT></P> <P><STRONG>二、排除性防盗链写法</STRONG></P> <P> <TABLE style="BORDER-RIGHT: #0099cc 1px solid; TABLE-LAYOUT: fixed; BORDER-TOP: #0099cc 1px solid; BORDER-LEFT: #0099cc 1px solid; BORDER-BOTTOM: #0099cc 1px solid" cellSpacing=0 cellPadding=6 width="95%" align=center border=0> <TBODY> <TR> <TD style="WORD-WRAP: break-word" bgColor=#ddedfb>RewriteCond Host: (.+)<BR>RewriteCond Referer: (?!http://\1.*).*<BR>RewriteCond Referer: (?!http://(.*)(\.baidu\.com|\.google\.com|\.google\.cn|\.g\.cn|\.gougou\.com|\.soso\.com|\.sogou\.com|\.youdao\.com|\.bing\.com|\.yahoo\.com|\.yahoo\.cn|\.eojoo\.com)).*<BR>RewriteRule .*\.(?:gif|jpg|jpeg|png|bmp) /block.gif [I,O,N]</TD></TR></TBODY></TABLE></P> <P>老板，来个小解：</P> <P>第一行同上</P> <P>第二行同上</P> <P>第三行通过正则表达式对第二行中的请求协义地址进行过滤，这里按上面的写法，过滤了所有流行的搜索引擎，当然也包括你自己的站，或是你同台服务器其它的站。每个不同的域名写法是\.baidu\.com，多个有|号相隔。如果是IP则这样写100\.100\.100\.100</P> <P>第四行同上</P> <P>这样说明应该不难理解吧，直接拿去用，按着原有格式改。</P> <P><STRONG>规则中出现的正则表达式符号小解：</STRONG></P> <P>.　表示匹配除换行符以外的任意字符</P> <P>+　表示前面的字符可以出现一到任意多次</P> <P>*　表示前面的字符可以出现零到任意多次</P> <P>() 表示一个表达组，可以拿它和加减乘除法一起理解</P> <P>?! 表示断言这个符号后面的字符如果出现则不再进行接下去的匹配</P> <P>\　表示转义符号，比如网址中的.是规则内置的运算符号，要把它通过\转义成字符。</P> <P>|　表示或者，用于连接多种可能</P> <P>通过以上这“乱七八糟”的符号，竟然组成了如此强大的规则，感叹！</P> <P>全文完，本文由<A href="http://www.eojoo.com">www.eojoo.com</A>在第一时间提供</P> [JavaScript]IE6解决下Png透明的最佳方法，仅1kb的JS文件 http://www.yici.net/content/text_all/text_0/622_1.html [VIA] JavaScript 2009-12-8 9:03:26 <P>因为它的确是太出众了。</P> <P>1.非常小的javascript文件：1kb！</P> <P>2.解决因为IE的滤镜属性所带来的影响。</P> <P>3.无论是img元素或background-image属性，都能有效果。</P> <P>4.在加载页面之前就能自动运行。或者就一丁点的元素。</P> <P>5.允许自动高宽。</P> <P>6.使用起来超级简单。</P> <P align=center><IMG class=aligncenter style="WIDTH: 496px; HEIGHT: 176px" height=180 alt="新勺网| 专注于引进国外设计资源和设计酷站" src="/content/uploadfiles/2009-12/20091208090447734.png" width=510></P> <P><STRONG>如何使用：</STRONG></P> <P>1）。下载zip 然后，添加下面的代码到你页面的头部。（一定要确保路径的正确）</P> <P> <TABLE style="BORDER-RIGHT: #0099cc 1px solid; TABLE-LAYOUT: fixed; BORDER-TOP: #0099cc 1px solid; BORDER-LEFT: #0099cc 1px solid; BORDER-BOTTOM: #0099cc 1px solid" cellSpacing=0 cellPadding=6 width="95%" align=center border=0> <TBODY> <TR> <TD style="WORD-WRAP: break-word" bgColor=#ddedfb><FONT color=#ff0000> <P><SPAN style="COLOR: #0000ff"><CODE><FONT face=NSimsun>&lt;!--[if lt IE 7]&gt;<BR>&lt;script type="text/javascript" src="</FONT><FONT face=NSimsun color=#999999>unit</FONT><FONT face=NSimsun>pngfix.js"&gt;&lt;/script&gt;<BR>&lt;![endif]--&gt;</FONT></CODE></SPAN></P></FONT></TD></TR></TBODY></TABLE></P> <P>2）。添加clear.gif到你的images 文件夹中。在js文件中，修改”var clear=”images/clear.gif” 路径，为你存放clear.gif的文件路径。</P> <P>3）。 你的整个项目的png图片都实现了透明效果。的确非常简单吧？就2个步骤，就实现了整个站点所有png的透明效果。</P> <P><STRONG>一些注意事项：</STRONG></P> <P>Unit PNG Fix能够让 background-repeat在ie6下工作，不过这种工作方式不是像正常的repeat图片重复的效果，而是采用了拉伸的效果。但是，仍然是效果 的，所以这也是非常不错的。因为没有任何一个解决方案能够实现ie6下透明滤镜重复图片这个功能.</P> <P>&nbsp;</P> <P><IMG src="/content/webeditor/sysimage/file/zip.gif" border=0><A href="/content/uploadfiles/2009-12/20091208_090600.zip" target=_blank>unitpngfix.zip</A></P> [常见工具应用]Google 自定义搜索结果页面的宽度控制方法 http://www.yici.net/content/text_all/text_0/615_1.html 园子 常见工具应用 2009-11-14 8:25:33 <P>今天园子在把博客的搜索改为&nbsp;Google&nbsp;自定义搜索之后，发现在搜索结果输出页面出现了点问题，就是使用&nbsp;Google&nbsp;自定义搜索提供的更改宽度的代码时，无论怎样去修改，其显示搜索结果页面宽度始终为795px。园子使用的是&nbsp;iframe&nbsp;嵌入使搜索结果位于我的博客上，下面就说下针对此问题的解决方法。 <BR><BR>我们知道更改搜索结果&nbsp;iframe&nbsp;的宽度是根据&nbsp;var&nbsp;googleSearchFrameWidth&nbsp;=&nbsp;600;这段代码后面的600来进行更改的，网上有文章提到这种修改宽度无效的直接原因是我们在使用&nbsp;Google&nbsp;自定义搜索时在选择广告位置的时候选择成了“顶部和右侧”，如果想通过上述代码控制宽度正确的做法是选择“顶部和底部”，据园子测试此方法现在也没有效果。 <BR><BR>更新于2009-09-16：园子发现现在已经可以通过&nbsp;var&nbsp;googleSearchFrameWidth&nbsp;=&nbsp;600;&nbsp;这个属性来控制搜索结果页面宽度了，如果你发现仍有问题可以尝试下面的方法去试下。 <BR><BR>我的解决方法是使用css来控制搜索结果页面&nbsp;iframe&nbsp;的宽度，具体做法很简单，直接在您的主题CSS里面加入下面的代码： <BR><BR><BR> <TABLE style="BORDER-RIGHT: #cccccc 1px dotted; TABLE-LAYOUT: fixed; BORDER-TOP: #cccccc 1px dotted; BORDER-LEFT: #cccccc 1px dotted; BORDER-BOTTOM: #cccccc 1px dotted" cellSpacing=0 cellPadding=6 width="95%" align=center border=0> <TBODY> <TR> <TD style="WORD-WRAP: break-word" bgColor=#f3f3f3>#cse-search-results&nbsp;iframe&nbsp;{width:640px;} </TD></TR></TBODY></TABLE></P> <P><BR>你只需要把后面的宽度更改为你想要显示的宽度即可，如果你想要显示成自适应的，只需要把数值改为100%即可，使用这种方法可以很好的控制&nbsp;Google&nbsp;自定义搜索结果页面的宽度，希望本文的方法可以为遇到此问题的朋友提供帮助，具体的显示效果你可以使用园子的博客搜索功能搜索一下相关的关键字即可看到。 <BR></P> [JavaScript]在一个form中一个submit 打开新窗口,另一个submit 在本页面提交 http://www.yici.net/content/text_all/text_0/614_1.html 佚名 JavaScript 2009-11-12 20:30:46 <FONT color=#ff0000>&lt;form name="Form" method="post"&gt; <BR></FONT>&lt;input type="text" name="textfield2"&gt; <BR><BR><FONT color=#ff6600>&lt;input type=submit name="preview" value="提交" onclick=document.Form.target="";document.Form.action="submit.asp"}&gt;</FONT> <BR><BR><FONT color=#ff6600>&lt;input type=submit name="preview" value="预览" onclick=document.Form.target="_blank";document.Form.action="preview.asp"}&gt;</FONT> <BR><FONT color=#ff0000>&lt;/form&gt;</FONT> [ASP/shtml]ASP用instr函数加上compare参数忽略大小写时，搜索带日文的字符时提示溢出 http://www.yici.net/content/text_all/text_0/605_1.html Joker ASP/shtml 2009-10-8 20:19:10 <P>我用instr函数搜索一段日本字符时出现实时错误：内存溢出&nbsp; <BR>我试过删除instr函数的compare参数就不会出现此错误，但我需要这个compare参数去忽略大小写的检查。&nbsp; <BR><BR>第一反应：唯有用instr函数去处理，有没有其他直接用instr函数的方法，或者其他函数可以代替？<BR><BR>经过上网搜索大量资料，发现应该是VB脚本的解释问题。<BR><BR>如果出现这个问题的是VB5之类的VB编程软件，那很好办，只需要打上sp6的补丁，之前版本的vb instr函数都有这个问题。<BR><BR>但是对于IIS，就没有太好的解决办法了，唯有进行编码和反编码～</P> <P>解决办法: <BR>当字段内包含了这26个日文字符任意一个多个时,就会导致在执行SQL语句中包含了 <BR>[字段]&nbsp;like&nbsp;'%aaaaa%'&nbsp;或&nbsp;inStr(1,[字段],'aaaaa',1)&gt;0 <BR>这样的查询时,毫无道理的出现了 <BR>"Microsoft&nbsp;JET&nbsp;Database&nbsp;Engine&nbsp;错误&nbsp;'80040e14'&nbsp;内存溢出"的错误 <BR>其他Jet&nbsp;SQL函数命令未作测试，大概与字符搜索定位匹配相关的都可能出错 <BR>搜索相关资料得知被微软工程师证实是Access的bug,可能是语法关系都是微软的东东 <BR>在vbs中&nbsp;执行inStr(1,日文平假名变量,"aaaaa",1)依然要出现错误 <BR>Microsoft&nbsp;VBScript&nbsp;运行时错误&nbsp;错误&nbsp;'800a0005'&nbsp;无效的过程调用或参数:&nbsp;'instr'&nbsp; <BR>没有搜索,因这几个字符出现Access的论坛网站搜索无法进行,何等痛苦 <BR>昨天一朋友大叫怪事,他的音乐数据库无法搜索了,只有30000条记录时是好的 <BR>毫无疑问,日文片假名是祸根,花几分钟把有包含上面的日文替换成"?"搜索顺利恢复 <BR>找来论坛程序用户群最大的动网dvBBS&nbsp;AC版本&nbsp;7.0SP2&nbsp;版测试,同样有这个日文发帖后&nbsp;导致无法搜索并且运行时出错的问题 <BR>线上去搜索&nbsp;'80040e14'&nbsp;内存溢出"&nbsp;的错误&nbsp;多的是! <BR>一简单有效的解决办法: <BR>对这26个字符进行编码和解码,可能效率感觉不理想,测试下来问题不大,速度影响不是太大 <BR>编码: <BR>Function&nbsp;Jencode(byVal&nbsp;iStr) <BR>if&nbsp;isnull(iStr)&nbsp;or&nbsp;isEmpty(iStr)&nbsp;then <BR>&nbsp;&nbsp;Jencode="" <BR>&nbsp;&nbsp;Exit&nbsp;function <BR>end&nbsp;if <BR>dim&nbsp;F,i,E <BR>'&nbsp;F=array("ゴ","ガ","ギ","グ","ゲ","ザ","ジ","ズ","ヅ","デ",_ <BR>'&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;"ド","ポ","ベ","プ","ビ","パ","ヴ","ボ","ペ","ブ","ピ","バ",_ <BR>'&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;"ヂ","ダ","ゾ","ゼ") <BR>&nbsp;&nbsp;E=array("Jn0;","Jn1;","Jn2;","Jn3;","Jn4;","Jn5;","Jn6;","Jn7;","Jn8;","Jn9;","Jn10;","Jn11;","Jn12;","Jn13;","Jn14;","Jn15;","Jn16;","Jn17;","Jn18;","Jn19;","Jn20;","Jn21;","Jn22;","Jn23;","Jn24;","Jn25;") <BR>&nbsp;&nbsp;F=array(chr(-23116),chr(-23124),chr(-23122),chr(-23120),_ <BR>&nbsp;&nbsp;&nbsp;&nbsp;chr(-23118),chr(-23114),chr(-23112),chr(-23110),_ <BR>&nbsp;&nbsp;&nbsp;&nbsp;chr(-23099),chr(-23097),chr(-23095),chr(-23075),_ <BR>&nbsp;&nbsp;&nbsp;&nbsp;chr(-23079),chr(-23081),chr(-23085),chr(-23087),_ <BR>&nbsp;&nbsp;&nbsp;&nbsp;chr(-23052),chr(-23076),chr(-23078),chr(-23082),_ <BR>&nbsp;&nbsp;&nbsp;&nbsp;chr(-23084),chr(-23088),chr(-23102),chr(-23104),_ <BR>&nbsp;&nbsp;&nbsp;&nbsp;chr(-23106),chr(-23108)) <BR>&nbsp;&nbsp;Jencode=iStr <BR>&nbsp;&nbsp;for&nbsp;i=0&nbsp;to&nbsp;25 <BR>&nbsp;&nbsp;&nbsp;Jencode=replace(Jencode,F(i),E(i)) <BR>&nbsp;&nbsp;next <BR>End&nbsp;Function <BR>解码: <BR>Function&nbsp;Juncode(byVal&nbsp;iStr) <BR>if&nbsp;isnull(iStr)&nbsp;or&nbsp;isEmpty(iStr)&nbsp;then <BR>&nbsp;&nbsp;Juncode="" <BR>&nbsp;&nbsp;Exit&nbsp;function <BR>end&nbsp;if <BR>dim&nbsp;F,i,E <BR>'&nbsp;F=array("ゴ","ガ","ギ","グ","ゲ","ザ","ジ","ズ","ヅ","デ",_ <BR>'&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;"ド","ポ","ベ","プ","ビ","パ","ヴ","ボ","ペ","ブ","ピ","バ",_ <BR>'&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;"ヂ","ダ","ゾ","ゼ") <BR>E=array("Jn0;","Jn1;","Jn2;","Jn3;","Jn4;","Jn5;","Jn6;","Jn7;","Jn8;","Jn9;","Jn10;","Jn11;","Jn12;","Jn13;","Jn14;","Jn15;","Jn16;","Jn17;","Jn18;","Jn19;","Jn20;","Jn21;","Jn22;","Jn23;","Jn24;","Jn25;") <BR>&nbsp;&nbsp;F=array(chr(-23116),chr(-23124),chr(-23122),chr(-23120),_ <BR>&nbsp;&nbsp;&nbsp;&nbsp;chr(-23118),chr(-23114),chr(-23112),chr(-23110),_ <BR>&nbsp;&nbsp;&nbsp;&nbsp;chr(-23099),chr(-23097),chr(-23095),chr(-23075),_ <BR>&nbsp;&nbsp;&nbsp;&nbsp;chr(-23079),chr(-23081),chr(-23085),chr(-23087),_ <BR>&nbsp;&nbsp;&nbsp;&nbsp;chr(-23052),chr(-23076),chr(-23078),chr(-23082),_ <BR>&nbsp;&nbsp;&nbsp;&nbsp;chr(-23084),chr(-23088),chr(-23102),chr(-23104),_ <BR>&nbsp;&nbsp;&nbsp;&nbsp;chr(-23106),chr(-23108)) <BR>&nbsp;&nbsp;Juncode=iStr <BR>for&nbsp;i=0&nbsp;to&nbsp;25 <BR>&nbsp;&nbsp;Juncode=replace(Juncode,E(i),F(i))'□ <BR>next <BR>End&nbsp;Function <BR>注意,如果直接使用字符不方便(windows还没装日文支持),注释掉的部分提供有&nbsp;chr(-23804)&nbsp;..这样的定义 <BR>这样 <BR>1. <BR>表单输入保存时,使用Jencode()将这26个字符先编码再保存(为什么是这26个字符,经过全部测试87个平假名89个片假名最终认定的) <BR>如 <BR>ゴ&nbsp;即&nbsp;chr(-23116)&nbsp;编码为&nbsp;Jn1; <BR>2. <BR>显示时,则使用&nbsp;Juncode()&nbsp;函数进行解码,还原日文片假名显示 <BR>3. <BR>搜索关键字,也要使用&nbsp;Jencode()&nbsp;进行编码后再放入&nbsp;like里 <BR>where&nbsp;[Topic]&nbsp;like&nbsp;'%Jencode(kewwords)%'&nbsp;使用 <BR>才能保证搜索的值和编码过的数据库字段内容匹配。</P> [ASP.net]如何实现小型WEB搜索引擎(C#+SQL Server全文检索+Asp.net) http://www.yici.net/content/text_all/text_0/592_1.html 佚名 ASP.net 2009-9-2 8:42:05 华中师范大学信息技术系&nbsp;SunJoy&nbsp;&nbsp;&nbsp; <BR><BR>1&nbsp;引言 <BR><BR>21世纪，中国互联网搜索引擎领域可谓群雄逐鹿，百度、Yahoo、中搜、搜狗等等都使出浑身解数吸引着网民的眼球。这些大网站可谓是各有所长，总的来说虽然他们搜索功能都很强，但是搜索得到的结果基本上是千篇一律，信息的冗余量很大，网民不得不在一次又一次的翻页中浪费时间，或者为了想出一个好的关键词而绞尽脑汁。要是有一个有针对性的搜索引擎就好了，并且这个针对性应该是可以控制的。 <BR><BR>2&nbsp;SOSO的由来 <BR><BR>笔者在上网搜索的过程中曾有这样痛苦的经历。由于笔者爱好编程，经常需要上网查找技术资料。但是搜到的结果往往是来自一些不起眼的小网站，它们主要是转载CSDN，赛迪网等一些技术大站上的文档，可恶的是，这些小网站常常转载不全，广告成堆，乱弹窗口，更有甚者还有病毒、木马等防不胜防。笔者当时想，如果有一个“IT技术文档搜索引擎”就好了，可惜没有，于是就自己动手做吧。我把CSDN、IT168、赛迪网等IT技术网站存储在“被搜网站库”中，按一定的周期启动Spider（蜘蛛）程序（Spider的原理后面讲），Spider搜到的结果按一定格式暂时存在硬盘上，然后由Carrier（搬运工）程序异步转存到数据库中，再利用SQL&nbsp;Server强大的全文检索（不是用Like语句J）结合Asp.net做出查询界面，这便有了SOSO的原型。由于SOSO只搜特定的网站，数量少，因此数据更新的速度更快，而且由于事先对网站就有了筛选，搜到的结果质量也比较高，比用大型搜索引擎有更好的用户体验。后来笔者想起校网络中心的老师曾提议做一个专门搜索华师校内所有网站信息的搜索引擎，便做了Scanner程序，它的功能是检索出给定的IP范围内所有的网站，并把这些网站的主要信息存入“被搜网站库”。于是便有了“华师人自己的WEB搜索引擎------MySOSO”,网址http://it.ccnu.edu.cn/mysoso。网站推出后受到了同学们的好评，校领导也曾在校网络建设工作会议上点名表扬。有个同学说：“以前想查一下校学生会主席的资料，用Google和Baidu搜到的结果都不理想，因为重名的太多了。有了MySOSO就好多了，搜到网页也都是来源于校内各大网站，真实可靠。” <BR><BR>3&nbsp;SOSO的技术说明 <BR><BR>3.1&nbsp;SOSO的工作环境 <BR><BR>软件环境：Windows平台（推荐Win2000,Win2003&nbsp;Server）＋.NET1.1&nbsp;Framework&nbsp;＋&nbsp;SQL&nbsp;Server&nbsp;2000。硬件环境：服务器一台，配置越高越好。当然有多台服务器更好，这样Spider可以并行地在多台机器上跑。 <BR><BR>3.2&nbsp;SOSO的基本原理 <BR><BR>SOSO主要由五部分组成，数据库＋WebScanner＋WebSpider+Carrier＋Asp.net网站。 <BR><BR>数据库主要有三张表：被搜网站表，网页表，关键词表。被搜网站表存放着Spider要去访问的网站的网址及其他基本信息，网页表存放搜到的网页的基本信息，关键词表记录用户检索过的关键词及其频率。数据库里还存放着一些存储过程，以供其它模块调用。此外，因为用到了SQL&nbsp;Server的全文检索功能，还要创建索引文件。 <BR><BR>WebScanner是一个用C#编写的基于Console的应用程序，它的作用是扫描一定IP范围的所有网站的基本信息，并将其存入数据库。由于采用了多线程技术，扫描是比较快的。经测试，扫描华师的IP范围202.114.32.1~202.114.47.255，得到89个网站只用了45秒。 <BR><BR>WebSpider是一个用C#编写的基于Console的应用程序，它的作用是访问数据库中给出的网站，并把网站的网页抓取下来，抓取的原理是利用正则表达式（可以适应各种网页），笔记经心设计了一个WebPage类，它可获取给定网址的网页的所有链接、站内链接，链接文字、纯文本、网页大小、标题等等一系列信息。获得的网页信息数据放入内存中的一个全局数据队列结构，而全局数据队列每隔一定周期被序列化后以文件的形式存于硬盘上，并将自身清空。WebSpider的内部采用了多线程技术，每个线程维护自己的广度优先遍历队列，因此速度非常快，经华师校内测试，每分钟平均抓取1,050张网页。此外，还可以在配置文件中设定Spider的同时最大并发线程、线程生存周期、搜索深度、数据序列化周期、特定网站过滤等参数。 <BR><BR>Carrier是个批处理文件，它的作用是把WebSpider输出的序列化的数据从硬盘“搬”到数据库中。那么为什么WebSpider不直接把数据插到数据库里面呢？因为SQL&nbsp;Server在接收大量数据插入请求时，效率会下降，前台Asp.net网站的查询效率就会下降，查询时间变长。因此笔者在设计时采用了异步模式，WebSpider只负责收集数据，Carrier来负责数据插入数据库，这样通过合理的时间调度就可以避免瓶颈的出现。这种异步工作模式在有多台计算机运行WebSpider时优势将更加明显。 <BR><BR>搜索网站是用Asp.net开发的，基本原理相信做过网站的人都知道。SOSO的亮点体现在三个地方。首先是对关键词分词的处理。由于笔者对这方面的算法研究不深，因此用了Split()加上SQL&nbsp;Server的FreeText功能实现了模糊查询。基本原理是这样的，比如说，当用户查询“刘德华天王&nbsp;&nbsp;mp3”时，首先以与逻辑即contains“刘德华天王&nbsp;and&nbsp;mp3”进行查询，如果无记录，则用或逻辑查询即contains“刘德华天王&nbsp;or&nbsp;&nbsp;mp3”。如果还是无记录，则用SQL&nbsp;Server的FreeText进行分词，可能返回匹配“刘德华”,“天王”,”mp3”当中任意一个词的记录，并且按照相关度的高低排序。其次，此网站的分页算法采用了“按需索取”的原则，即每次只从数据库中读取第m条到第m+pagesize-1条数据，因此查询速度还是比较可观的。关键词着色上也做了一些小技巧，以前被搜过的关键词的着色正则式会被预编译存在Application全局变量中，因此其它人再搜这个词时速度就很快了。最后要提一下网页右边那一栏，目前放的是校内新闻，它本质上是读取了一个RSS源并显示出来。这个RSS源是我做个另一个系统，它收集本校五大门户网站的新闻并以xml的形式显示。 <BR><BR> [ASP/shtml]ASP Randomize http://www.yici.net/content/text_all/text_0/586_1.html 佚名 ASP/shtml 2009-8-16 11:20:30 <STRONG>Randomize</STRONG><BR>初始化随机数生成器。<BR><BR>Randomize [number]<BR><BR>number 参数可以是任何有效的数值表达式。<BR><BR>说明<BR>Randomize 使用 number 参数初始化 Rnd 函数的随机数生成器，赋给它新的种子值。如果省略 number，则使用系统计时器返回的值作为新的种子值。<BR><BR>如果不使用 Randomize，则第一次调用 Rnd 函数（无参数）时，它将使用相同的数字作为种子值，随后使用最后生成的数值作为种子值。<BR><BR>注意 要重复随机数的序列，请在使用数值参数调用 Randomize 之前，立即用负值参数调用 Rnd。使用相同的 number 值的 Randomize 不能重复先前的随机数序列。<BR><BR>下面例子举例说明如何使用 Randomize 语句: <BR><BR> <DIV class=UBBPanel> <DIV class=UBBTitle><STRONG>例如：</STRONG></DIV> <DIV class=UBBContent>Dim MyValue, Response<BR>Randomize '初始化随机数生成器。<BR>Do Until Response = vbNo<BR>&nbsp;&nbsp; MyValue = Int((6 * Rnd) + 1)' 产生 1 到 6 之间的随机数。<BR>&nbsp;&nbsp; MsgBox MyValue<BR>&nbsp;&nbsp; Response = MsgBox ("Roll again? ", vbYesNo)<BR>Loop</DIV></DIV><BR><BR><BR><STRONG>Rnd 函数</STRONG><BR>返回一个随机数。<BR><BR>Rnd[(number)]<BR><BR>number 参数可以是任意有效的数值表达式。<BR><BR>说明<BR>Rnd 函数返回一个小于 1 但大于或等于 0 的值。number 的值决定了 Rnd 生成随机数的方式：<BR><BR>如果 number 为 Rnd 生成 <BR>小于零 每次都相同的值，使用 number 作为种子。 <BR>大于零 序列中的下一个随机数。 <BR>等于零 最近生成的数。 <BR>省略 序列中的下一个随机数。 <BR><BR>因每一次连续调用 Rnd 函数时都用序列中的前一个数作为下一个数的种子，所以对于任何最初给定的种子都会生成相同的数列。<BR><BR>在调用 Rnd 之前，先使用无参数的 Randomize 语句初始化随机数生成器，该生成器具有基于系统计时器的种子。<BR><BR>要产生指定范围的随机整数，请使用以下公式： <BR><BR><FONT color=#ff0000><STRONG>Int((upperbound - lowerbound + 1) * Rnd + lowerbound)</STRONG></FONT><BR><STRONG>这里， upperbound 是此范围的上界，而 lowerbound 是此范围内的下界。</STRONG><BR><BR>注意 要重复随机数的序列，请在使用数值参数调用 Randomize 之前，立即用负值参数调用 Rnd。使用同样 number 值的 Randomize 不能重复先前的随机数序列。<BR><BR>以前看过这方面的内容，今天又一次见到了，所以就总结一下，以后还要用呢！<BR><BR>下面给出一个实例来说明Randomize的用途：<BR> <H1><FONT size=3><STRONG>解决防止表单重复提交的方法</STRONG></FONT></H1>表单文件formtest.asp<BR><BR>&lt;%<BR>Randomize　'初始代随机数种子<BR>num1=rnd() '产生随机数num1<BR>num1=int(26*num1)+65　'修改num1的范围以使其是A-Z范围的Ascii码，以防表单名出错<BR>session("antry")="test"&amp;chr(num1)　'产生随机字符串<BR>%&gt;<BR>&lt;form name="test" action="testact.asp" method="post"&gt;<BR>你的名字：&lt;input type='text' name='' size=30&gt;　 '注意本行中使用了随机表单项名<BR>&lt;input type='submit' value='提交'&gt;<BR>&lt;/form&gt;<BR><BR>表单处理程序testact.asp<BR><BR>&nbsp;&nbsp; &lt;%<BR>teststr=request.form(session("antry"))<BR>if teststr="" then<BR>response.write "没有填写姓名或重复提交"<BR>'由于用户没有填写名字，或表单被重复提交(标志为session("antry")为空)引起<BR>else<BR>response.write teststr<BR>session("antry")=""　　'提交成功，清空session("antry")，以防重复提交！！<BR>end if<BR>%&gt;<BR><BR>在这里，你只需随机化一个必填项目的表单项名即可，不必随机化所有的表单项目。 [ASP/shtml]无需模板 ASP+FSO生成静态HTML页 http://www.yici.net/content/text_all/text_0/561_1.html 佚名 ASP/shtml 2009-3-6 22:09:33 FSO生成静态HTML文件的时候替换模板标签一直是一个很麻烦的问题，至少我是这么认为的，还要别外做一个模板，麻烦！，我今天看见有一个方法可以解决这个问题 <BR><BR>如一个正常的index.asp页面，并且用ASP代码调出数据库中的内容，另建一个makehtml.asp的页面，加入一个textarea域，假设为name="body"，将index.asp在textarea里调出来，如：&nbsp;<BR><BR> <TABLE style="BORDER-RIGHT: #cccccc 1px dotted; TABLE-LAYOUT: fixed; BORDER-TOP: #cccccc 1px dotted; BORDER-LEFT: #cccccc 1px dotted; BORDER-BOTTOM: #cccccc 1px dotted" cellSpacing=0 cellPadding=6 width="95%" align=center border=0> <TBODY> <TR> <TD style="WORD-WRAP: break-word" bgColor=#f3f3f3><FONT style="FONT-WEIGHT: bold; COLOR: #990000">以下是引用片段：</FONT><BR><BR>&lt;textarea&nbsp;name="body"&gt;&lt;!--#include&nbsp;file="index.asp"--&gt;&lt;/textarea&gt;，将这个textarea包含在表单中，在接收表单页用创建FSO对象，如下生成index.html文件！ </TD></TR></TBODY></TABLE>&nbsp;&nbsp;<BR><BR> <TABLE style="BORDER-RIGHT: #cccccc 1px dotted; TABLE-LAYOUT: fixed; BORDER-TOP: #cccccc 1px dotted; BORDER-LEFT: #cccccc 1px dotted; BORDER-BOTTOM: #cccccc 1px dotted" cellSpacing=0 cellPadding=6 width="95%" align=center border=0> <TBODY> <TR> <TD style="WORD-WRAP: break-word" bgColor=#f3f3f3><FONT style="FONT-WEIGHT: bold; COLOR: #990000">以下是引用片段：</FONT><BR><BR>&lt;% <BR>filename="../index.html" <BR>if&nbsp;request("body")&lt;&gt;""&nbsp;then <BR>set&nbsp;fso&nbsp;=&nbsp;Server.CreateObject("Scripting.FileSystemObject") <BR>set&nbsp;fout&nbsp;=&nbsp;fso.CreateTextFile(server.mappath(""&amp;filename&amp;"")) <BR>fout.write&nbsp;request.form("body") <BR>fout.close <BR>set&nbsp;fout=nothing <BR>set&nbsp;fso=nothing <BR>end&nbsp;if <BR>%&gt; </TD></TR></TBODY></TABLE><BR>&nbsp;这样index.html文件就生成了，连模板都用不着，只要将正常情况下使用的ASP文件读取到textarea里就可以了，目前尚未发现问题！当然前提是服务器要支持FSO. <BR><BR> [ASP.net]ASP.Net是什么 兼容ASP但是性能更加优越 http://www.yici.net/content/text_all/text_0/559_1.html 佚名 ASP.net 2009-3-6 9:13:44 <P><STRONG>1 ASP.Net是什么？</STRONG></P> <P>ASP.Net是建立在微软新一代.Net平台架构上，利用普通语言运行时（Common Language Runtime）在服务器后端为用户提供建立强大的企业级Web应用服务的编程框架。</P> <P><STRONG>2．ASP.Net与ASP的联系和主要区别是什么？</STRONG></P> <P>ASP.Net与现存的ASP保持语法兼容，实际上我们可将现有的ASP源码文件扩展名“.asp”改为“.aspx”，然后配置在支持ASP.Net运行时的IIS服务器的Web目录下，即可获得ASP.Net运行时的全部优越性能。</P> <P>ASP.Net 与ASP的主要区别在于前者是编译（Compile）执行，而后者是解释（Interpret）执行，前者比后者有更高的效率。实际上我们可以把 ASP.Net的执行过程看做是编译后的普通语言运行时代码充当一个和前端浏览器和中间件用户交互的应用程序，它接受用户的请求，输出HTML流到客户端显示。除此之外，ASP.Net还可以利用.Net平台架构的诸多优越性能，如类型安全，对XML，SOAP， WSDL等Internet标准的强健支持。</P> <P><STRONG>3．目前ASP.Net的开发语言有那些？</STRONG></P> <P>目前ASP.Net的开发语言有三种语言，C#，Visual Basic.Net和JScrip.</P> <P><STRONG>4.ASP.Net的主要优点有哪些？</STRONG></P> <P>ASP.Net 可完全利用.Net架构的强大，安全，高效的平台特性。ASP.Net是运行在服务器后端编译后的普通语言运行时代码，运行时早绑定（Early Binding），即时编译，本地优化，缓存服务，零安装配置，基于运行时代码受管与验证的安全机制等都为ASP.Net带来卓越的性能。</P> <P>对XML，SOAP，WSDL等Internet标准的强健支持为ASP.Net在异构网络里提供了强大的扩展性。</P> <P><STRONG>5．ASP.Net主要包括哪些内容？</STRONG></P> <P>ASP.Net主要包括WebForm和WebService两种编程模型。前者为用户提供建立功能强大，外观丰富的基于表单（Form）的可编程</P> <P>Web页面。后者通过对HTTP，XML，SOAP，WSDL等Internet标准的支持提供在异构网络环境下获取远程服务，连接远程设备，交互远程应用的编程界面。</P> <P><STRONG>6．HTML Server Control和Web Server Control有什么联系和区别？</STRONG></P> <P>HTML Server Control是为了和传统ASP保持兼容而开发的一类基于HTML静态页面的控件（如文本框，按钮），它们与这些控件一一对应，它们位于命名空间System.Web.UI.HtmlControls里。</P> <P>Web Server Control 是专为下一代基于组件开发的.Net平台架构而量身定做的，它不仅包括具有传统HTML静态页面的控件等Web Server Control，它还包括有AdRotator，XML等功能强大的组件，更重要的是它为用户开发Web Server Control组件提供了强大，易用的技术底层支持。这将成为下一阶段ASP.Net开发的热点。它们位于命名空间 System.Web.UI.WebControls里。</P> [ASP/shtml]XMLHTTP使用方法参考资料 http://www.yici.net/content/text_all/text_0/558_1.html 佚名 ASP/shtml 2009-3-4 22:40:00 <P>XMLHTTP对象及其方法<BR>－－－－－－－－－－－－－－－－－－<BR>MSXML中提供了Microsoft.XMLHTTP对象，能够完成从数据包到Request对象的转换以及发送任务。 <BR>创建XMLHTTP对象的语句如下： <BR>Set objXML = CreateObject("Msxml2.XMLHTTP") 或<BR>Set objXML = CreateObject(“Microsoft.XMLHTTP”)<BR>' Or, for version 3.0 of XMLHTTP, use:<BR>' Set xml = Server.CreateObject("MSXML2.ServerXMLHTTP")<BR>对象创建后调用Open方法对Request对象进行初始化，语法格式为： <BR>poster.open http-method, url, async, userID, password <BR>Open方法中包含了5个参数，前三个是必要的，后两个是可选的(在服务器需要进行身份验证时提供)。参数的含义如下所示：&nbsp; <BR>http-method： HTTP的通信方式，比如GET或是 POST <BR>url： 接收XML数据的服务器的URL地址。通常在URL中要指明 ASP或CGI程序 <BR>async： 一个布尔标识，说明请求是否为异步的。如果是异步通信方式(true)，客户机就不等待服务器的响应；如果是同步方式(false)，客户机就要等到服务器返回消息后才去执行其他操作 <BR>userID 用户ID，用于服务器身份验证 <BR>password 用户密码，用于服务器身份验证 <BR>XMLHTTP对象的Send方法 <BR>用Open方法对Request对象进行初始化后，调用Send方法发送XML数据： <BR>poster.send XML-data <BR>Send方法的参数类型是Variant，可以是字符串、DOM树或任意数据流。发送数据的方式分为同步和异步两种。在异步方式下，数据包一旦发送完毕，就结束Send进程，客户机执行其他的操作；而在同步方式下，客户机要等到服务器返回确认消息后才结束Send进程。 <BR>XMLHTTP对象中的readyState属性能够反映出服务器在处理请求时的进展状况。客户机的程序可以根据这个状态信息设置相应的事件处理方法。属性值及其含义如下表所示： <BR>值 说明 <BR>0 Response对象已经创建，但XML文档上载过程尚未结束 <BR>1 XML文档已经装载完毕 <BR>2 XML文档已经装载完毕，正在处理中 <BR>3 部分XML文档已经解析 <BR>4 文档已经解析完毕，客户端可以接受返回消息<BR>客户机处理响应信息 <BR>客户机接收到返回消息后，进行简单的处理，基本上就完成了C/S之间的一个交互周期。客户机接收响应是通过XMLHTTP对象的属性实现的： <BR>● responseTxt：将返回消息作为文本字符串； <BR>● responseXML：将返回消息视为XML文档，在服务器响应消息中含有XML数据时使用； <BR>● responseStream：将返回消息视为Stream对象。<BR>&nbsp;</P> <P>下面的xml文件是动态生成的最后用xmlHTTP传送出去，这是一个在客户端JavaScript脚本里的内容，当然你也可以写在服务器，但是要相应的改一些东西：（仅供大家参考，了解它的用法）<BR>var xmlDoc=new ActiveXObject("MSXML2.DOMDocument");<BR>flag=xmlDoc.loadXML("");</P> <P>&nbsp; newNode =xmlDoc.createElement("编码")<BR>&nbsp; MarkNode=xmlDoc.documentElement.appendChild(newNode);<BR>&nbsp; newNode =xmlDoc.createElement("StartMark")<BR>&nbsp; newNode.text=StartMark;<BR>&nbsp; MarkNode.appendChild(newNode)<BR>&nbsp; newNode =xmlDoc.createElement("EndMark")<BR>&nbsp; newNode.text=EndMark;<BR>&nbsp; MarkNode.appendChild(newNode)<BR>&nbsp; <BR>&nbsp; newNode =xmlDoc.createElement("日期")<BR>&nbsp; DateNode=xmlDoc.documentElement.appendChild(newNode);<BR>&nbsp; newNode =xmlDoc.createElement("StartDate");<BR>&nbsp; newNode.text=StartDate;<BR>&nbsp; DateNode.appendChild(newNode)<BR>&nbsp; newNode =xmlDoc.createElement("EndDate")<BR>&nbsp; newNode.text=EndDate;<BR>&nbsp; DateNode.appendChild(newNode);<BR>&nbsp; <BR>&nbsp; newNode =xmlDoc.createElement("数量")<BR>&nbsp; SLNode =xmlDoc.documentElement.appendChild(newNode);<BR>&nbsp; newNode =xmlDoc.createElement("StartSL")<BR>&nbsp; newNode.text=StartShuL <BR>&nbsp; SLNode.appendChild(newNode)<BR>&nbsp; newNode =xmlDoc.createElement("EndSL");<BR>&nbsp; newNode.text=EndShuL<BR>&nbsp; SLNode.appendChild(newNode);<BR>&nbsp; <BR>&nbsp; newNode =xmlDoc.createElement("单价")<BR>&nbsp; DJNode =xmlDoc.documentElement.appendChild(newNode)<BR>&nbsp; newNode =xmlDoc.createElement("StartDJ")<BR>&nbsp; newNode.text=StartDanJ;<BR>&nbsp; DJNode.appendChild(newNode);<BR>&nbsp; newNode =xmlDoc.createElement("EndDJ")<BR>&nbsp; newNode.text=EndDanJ;<BR>&nbsp; DJNode.appendChild(newNode);<BR>&nbsp; <BR>&nbsp; newNode =xmlDoc.createElement("金额")<BR>&nbsp; JENode =xmlDoc.documentElement.appendChild(newNode)<BR>&nbsp; newNode =xmlDoc.createElement("StartJE")<BR>&nbsp; newNode.text=StartJinE<BR>&nbsp; JENode.appendChild(newNode)<BR>&nbsp; newNode =xmlDoc.createElement("EndJE")<BR>&nbsp; newNode.text=EndJinE<BR>&nbsp; JENode.appendChild(newNode)<BR>&nbsp; <BR>&nbsp; newNode =xmlDoc.createElement("仓库代码")<BR>&nbsp; newNode.text=CK;<BR>&nbsp; xmlDoc.documentElement.appendChild(newNode)<BR>&nbsp; <BR>&nbsp; newNode =xmlDoc.createElement("票号")<BR>&nbsp; newNode.text=RKPH;<BR>&nbsp; xmlDoc.documentElement.appendChild(newNode)<BR>&nbsp; <BR>&nbsp; newNode =xmlDoc.createElement("单位代码")<BR>&nbsp; newNode.text=CorpName;<BR>&nbsp; xmlDoc.documentElement.appendChild(newNode)<BR>&nbsp; <BR>&nbsp; newNode =xmlDoc.createElement("BiaoShi")<BR>&nbsp; newNode.text=Biaoshi<BR>&nbsp; xmlDoc.documentElement.appendChild(newNode)<BR>&nbsp; <BR>&nbsp; newNode =xmlDoc.createElement("FindCate")<BR>&nbsp; newNode.text=FindCate<BR>&nbsp; xmlDoc.documentElement.appendChild(newNode)<BR>&nbsp; <BR>&nbsp; var xh =new ActiveXObject("MSXML2.XMLHTTP")<BR>&nbsp; xh.open("POST","Find.asp",false)<BR>&nbsp; xh.setRequestHeader("Content-Type","text/xml")<BR>&nbsp; xh.setRequestHeader("Content-Type","gb2312")<BR>&nbsp; xh.send(xmlDoc);<BR>我的每一个newNode的text值是一个变量，也就是我客户端form 中input的值．</P> [ASP/shtml]Win2003下Microsoft.XMLHTTP出错，无法执行、无提示的解决 http://www.yici.net/content/text_all/text_0/555_1.html 佚名 ASP/shtml 2009-3-4 18:18:50 <TABLE style="BORDER-RIGHT: #cccccc 1px dotted; TABLE-LAYOUT: fixed; BORDER-TOP: #cccccc 1px dotted; BORDER-LEFT: #cccccc 1px dotted; BORDER-BOTTOM: #cccccc 1px dotted" cellSpacing=0 cellPadding=6 width="95%" align=center border=0> <TBODY> <TR> <TD style="WORD-WRAP: break-word" bgColor=#f3f3f3>报如下错误: &nbsp; <BR>&nbsp; msxml3.dll &nbsp; 错误 &nbsp; '800c0005' &nbsp; &nbsp; <BR>&nbsp; &nbsp; <BR>&nbsp; 系统未找到指定的资源。 &nbsp; &nbsp; <BR>&nbsp; &nbsp; <BR>&nbsp; /student/asp/CheckID_jg.asp，行 &nbsp; 53 &nbsp; &nbsp; <BR>&nbsp; &nbsp; <BR>&nbsp; 代码是: &nbsp; <BR>&nbsp; Url= &nbsp; "http://127.0.0.1/hfut/save_confirm.php?id=" &nbsp; &amp;Id&amp; &nbsp; "&amp;zjhm=" &nbsp; &amp;zjhm&amp; &nbsp; "&amp;zjlx=0 &nbsp; &amp;changepass=" &nbsp; &amp;changepass &nbsp; <BR>&nbsp; set &nbsp; oSend=Server.CreateObject("Microsoft.XMLHTTP") &nbsp; <BR>&nbsp; SourceCode &nbsp; = &nbsp; oSend.open &nbsp; ("GET",Url,false) &nbsp; <BR>&nbsp; oSend.send() &nbsp; <BR>&nbsp; SourceCode &nbsp; = &nbsp; bytes2BSTR(oSend.responseBody) &nbsp; <BR>&nbsp; Response.Write &nbsp; SourceCode &nbsp; <BR>&nbsp; &nbsp; <BR>&nbsp; 报第四行错 &nbsp; oSend.send() &nbsp; <BR>&nbsp; 原来在win2000下正常,现在用win2003,请问是什么错,如何解决? </TD></TR></TBODY></TABLE> <P>&nbsp;&nbsp;在运用xmlhttp组件编写程序中，会碰到&nbsp;&nbsp;&nbsp;"msxml3.dll&nbsp;&nbsp;&nbsp;错误&nbsp;&nbsp;&nbsp;‘800c0005’&nbsp;&nbsp;&nbsp;系统未找到指定的资源。"&nbsp;&nbsp;&nbsp;这种错误，网上对这种错误的产生原因有很多钟解释，大体说是因为防火墙或UDP站口权限造成了，也说了相应的解决办法。其它有时候也未必。其实错误的描述中就说出了主要的原因&nbsp;&nbsp;&nbsp;"系统未找到指定的资源"&nbsp;&nbsp;&nbsp;。这种错误都是出现在调用了&nbsp;&nbsp;&nbsp;xmlhttp&nbsp;&nbsp;&nbsp;组件的&nbsp;&nbsp;&nbsp;Open方法，接着再用Send方法后造成的。当open方法的的&nbsp;&nbsp;&nbsp;url&nbsp;&nbsp;&nbsp;参数无法访问时，就会造成&nbsp;&nbsp;&nbsp;8000005&nbsp;&nbsp;&nbsp;错误。并且一旦产生这种错误，就会导致应用程序终止，无法继续操作。大多说的程序是这样写的:&nbsp;&nbsp;&nbsp; <BR>&nbsp;&nbsp;Function&nbsp;&nbsp;&nbsp;functionName(pararm&nbsp;&nbsp;&nbsp;...)&nbsp;&nbsp;&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Dim&nbsp;&nbsp;&nbsp;Http&nbsp;&nbsp;&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Set&nbsp;&nbsp;&nbsp;Http=Server.CreateObject("MSXML2.XMLHTTP.4.0")&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;With&nbsp;&nbsp;&nbsp;Http&nbsp;&nbsp;&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;.open&nbsp;&nbsp;&nbsp;"GET",HttpUrl,False&nbsp;&nbsp;&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;.Send&nbsp;&nbsp;&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;End&nbsp;&nbsp;&nbsp;With&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;If&nbsp;&nbsp;&nbsp;Http.Readystate&lt;&gt;4&nbsp;&nbsp;&nbsp;then&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Set&nbsp;&nbsp;&nbsp;Http=Nothing&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;......&nbsp;&nbsp;&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Exit&nbsp;&nbsp;&nbsp;function&nbsp;&nbsp;&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;End&nbsp;&nbsp;&nbsp;if&nbsp;&nbsp;&nbsp; <BR>&nbsp;&nbsp;End&nbsp;&nbsp;&nbsp;Function&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <BR>&nbsp;&nbsp;大多数的程序都是运用xmlhttp的&nbsp;&nbsp;&nbsp;Readystate&nbsp;&nbsp;&nbsp;属性判断从服务器的返回状态。其实这样未必适合，很多时候用ReadyState&nbsp;&nbsp;&nbsp;属性判断并不能真正检测到程序流程中的错误。当遇到错误的时候，仍然会致使程序终止。其实修改一下上面的代码，完全可以实现跳过程序执行过程中遇到的错误，使程序继续运行。修改代码如下:&nbsp;&nbsp;&nbsp; <BR>&nbsp;&nbsp;Function&nbsp;&nbsp;&nbsp;functionName(pararm&nbsp;&nbsp;&nbsp;...)&nbsp;&nbsp;&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Dim&nbsp;&nbsp;&nbsp;Http&nbsp;&nbsp;&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Set&nbsp;&nbsp;&nbsp;Http=Server.CreateObject("MSXML2.XMLHTTP.4.0")&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;With&nbsp;&nbsp;&nbsp;Http&nbsp;&nbsp;&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;.open&nbsp;&nbsp;&nbsp;"GET",HttpUrl,False&nbsp;&nbsp;&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;.Send&nbsp;&nbsp;&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;End&nbsp;&nbsp;&nbsp;With&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;On&nbsp;&nbsp;&nbsp;Error&nbsp;&nbsp;&nbsp;Resume&nbsp;&nbsp;&nbsp;Next&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;If&nbsp;&nbsp;&nbsp;Http.Status&lt;&gt;200&nbsp;&nbsp;&nbsp;then&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Set&nbsp;&nbsp;&nbsp;Http=Nothing&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;......&nbsp;&nbsp;&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Exit&nbsp;&nbsp;&nbsp;function&nbsp;&nbsp;&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;End&nbsp;&nbsp;&nbsp;if&nbsp;&nbsp;&nbsp; <BR>&nbsp;&nbsp;End&nbsp;&nbsp;&nbsp;Function&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <BR>&nbsp;&nbsp;Send&nbsp;&nbsp;&nbsp;方法产生错误的时候，ReadyState的值或许为4，但Status的返回值就一定不是200的。呵呵，我经过多次跟踪ReadyState和Status的值得到以前结果。可能会有差错，目前我还没有发现。&nbsp;&nbsp;&nbsp; <BR>&nbsp;&nbsp;希望以上程序解决方案能够帮到你!!如果朋友你有更好的解决方法，请一定告诉我哟。&nbsp;&nbsp;&nbsp; <BR>&nbsp;&nbsp;我是以MSXML2.XMLHTTP.4.0为例说明的程序，也适合其它版本的XMLHTTP组件。想检查的你系统中已经安装了哪些版本的XMLHTTP组件，请到注册表的&nbsp;&nbsp;&nbsp;HKEY_CLASSES_ROOT&nbsp;&nbsp;&nbsp;下查找。</P> [ASP/shtml]asp中将字符转换成变量使用 http://www.yici.net/content/text_all/text_0/547_1.html 佚名 ASP/shtml 2009-2-22 11:07:06 <FONT face=Verdana><FONT face=Verdana>asp中将字符转换成变量使用<BR></FONT>&lt;%<BR>&nbsp;abc=1&nbsp;'变量abc<BR>&nbsp;aaa=2 '变量aaa<BR>&nbsp;response.write eval("abc")+eval("aaa") '这里的abc，aaa分别是两个字符串<BR>%&gt;<BR><BR>运行得到的结果是3</FONT> [ASP/shtml]在ASP编程中使用数组 http://www.yici.net/content/text_all/text_0/546_1.html 佚名 ASP/shtml 2009-2-22 11:06:33 在ASP编程中使用数组&nbsp; <BR>数组的定义 <BR>Dim&nbsp;MyArray <BR>MyArray&nbsp;=&nbsp;Array(1,5,123,12,98) <BR><BR>可扩展数组 <BR>Dim&nbsp;MyArray() <BR>for&nbsp;i&nbsp;=&nbsp;0&nbsp;to&nbsp;10 <BR>ReDim&nbsp;Preserve&nbsp;MyArray(i) <BR>MyArray(i)=i <BR>next <BR><BR>将一个字符串分割并返回分割结果的数组 <BR>Dim&nbsp;MyArray <BR>MyArray&nbsp;=&nbsp;Split(tempcnt,chr(13)&amp;chr(10)) <BR>For&nbsp;I&nbsp;=&nbsp;Lbound(MyArray)&nbsp;to&nbsp;Ubound(MyArray)&nbsp; <BR>Response.Write&nbsp;MyArray(I)&nbsp;&amp;&nbsp;"&lt;br&gt;" <BR>Next <BR><BR>数组排序函数 <BR>function..Sort(ary)&nbsp; <BR>KeepChecking&nbsp;=&nbsp;TRUE&nbsp; <BR>Do&nbsp;Until&nbsp;KeepChecking&nbsp;=&nbsp;FALSE&nbsp; <BR>KeepChecking&nbsp;=&nbsp;FALSE&nbsp; <BR>For&nbsp;I&nbsp;=&nbsp;0&nbsp;to&nbsp;UBound(ary)&nbsp; <BR>If&nbsp;I&nbsp;=&nbsp;UBound(ary)&nbsp;Then&nbsp;Exit&nbsp;For&nbsp; <BR>If&nbsp;ary(I)&nbsp;&gt;&nbsp;ary(I+1)&nbsp;Then&nbsp; <BR>FirstValue&nbsp;=&nbsp;ary(I)&nbsp; <BR>SecondValue&nbsp;=&nbsp;ary(I+1)&nbsp; <BR>ary(I)&nbsp;=&nbsp;SecondValue&nbsp; <BR>ary(I+1)&nbsp;=&nbsp;FirstValue&nbsp; <BR>KeepChecking&nbsp;=&nbsp;TRUE&nbsp; <BR>End&nbsp;If&nbsp; <BR>Next&nbsp; <BR>Loop&nbsp; <BR>Sort&nbsp;=&nbsp;ary&nbsp; <BR>End&nbsp;function.. <BR><BR>数组排序函数应用例子 <BR>Dim&nbsp;MyArray&nbsp; <BR>MyArray&nbsp;=&nbsp;Array(1,5,123,12,98) <BR>MyArray&nbsp;=&nbsp;Sort(MyArray)&nbsp; <BR>For&nbsp;I&nbsp;=&nbsp;Lbound(MyArray)&nbsp;to&nbsp;Ubound(MyArray)&nbsp; <BR>Response.Write&nbsp;MyArray(I)&nbsp;&amp;&nbsp;"&lt;br&gt;" <BR>Next <BR><BR>在Application和Session中使用数组 <BR>Application.Lock <BR>Application("StoredArray")&nbsp;=&nbsp;MyArray <BR>Application.Unlock <BR><BR>LocalArray&nbsp;=&nbsp;Application("StoredArray") <BR><BR>覆盖Application中的数组 <BR>Application.Lock <BR>Application("StoredArray")&nbsp;=&nbsp;LocalArray <BR>Application.Unlock <BR><BR>Session使用方法与Application相同 <BR><BR>从数据库中把数据导入数组中 <BR>Dim&nbsp;MyArray <BR>取出全部记录 <BR>MyArray&nbsp;=&nbsp;RS.GetRows <BR>取出前10项记录 <BR>MyArray&nbsp;=&nbsp;RS.GetRows(10) <BR><BR>For&nbsp;row&nbsp;=&nbsp;0&nbsp;To&nbsp;UBound(MyArray,&nbsp;2) <BR>For&nbsp;col&nbsp;=&nbsp;0&nbsp;To&nbsp;UBound(MyArray,&nbsp;1) <BR>Response.Write&nbsp;(col,&nbsp;row)&nbsp;&amp;&nbsp;"&lt;br&gt;" <BR>Next <BR>Next <BR><BR><BR><BR>回复 <BR>-------------------------------------------------------------------------------- <BR><BR><BR>.2.&nbsp;有效的在asp中利用数组 <BR>admin(2006-3-22&nbsp;7:57:28)&nbsp;IP: <BR>一个数组是一个基本的数据结构，它是由跟随若干数字的变量组成，代替了声明10个变量来代表10个值的过程，你可以声明一个数组，并且把10个元素存入到这个数组中。 <BR><BR>就像声明其他变量一样，数组需要与其大小相同大的内存，因此他们非常高效。在数组中为了获得一个特殊的变量，你需要参考它的索引。一个数组中正确的索引值是从0到(下标-1)，如果一个数组的大小是10，我们可以从0到9来索引元素。数组不是复杂的结构，记住，你可以像应用其他变量一样来应用数组中的变量，规则是一样的。 <BR><BR>现在让我们看看如何定义一个数组，如何动态的更改数组的大小，一些有用的asp数组函数，在数组中如何查找元素和我们怎样在页面和页面之间传递数组。 <BR><BR>............................................. <BR><BR>定义一个简单的数组 <BR><BR>有两种方法在asp中定义数组，让我们看看每种的例子： <BR><BR>方法一： <BR>MyArray&nbsp;=&nbsp;Array("Jan","Feb","Mar","Apr","May","Jun","Jul","Aug","Sep","Oct",&nbsp;"Nov","Dec") <BR><BR>方法二： <BR>Dim&nbsp;myArray(2) <BR><BR>myArray(0)="Jan" <BR>myArray(1)="Feb" <BR><BR>在方法一中，我们用一行定义整个数组，这种方法在数组中有特殊的用途，如上面那样只存储一年中的12个月。 <BR>在方法二中，我们在多行中用单独的元素定义值，如果你想从纪录中将不同的值存入数组元素中，或者在一个循环中定义每一个元素的值，就要用到这种方法，例如： <BR>Dim&nbsp;myArray(20) <BR>Dim&nbsp;I <BR><BR>For&nbsp;I=0&nbsp;to&nbsp;20 <BR>Myarray(I)="This&nbsp;is&nbsp;message&nbsp;"&nbsp;&amp;&nbsp;I <BR>Next <BR><BR>................................................................................................. <BR><BR>动态改变数组的大小 <BR><BR>现在让我们看看动态改变数组的大小。为什么你要做这个？举例说如果你不知道一个查询中有多少项目，但是你又想把这些数据存入到数组中，这时你将不能用上面的方法，除非你获得了数据的总数然后声明数组。为了避免这些，我们看看其中的方法： <BR><BR>DIM&nbsp;myArray() <BR>Dim&nbsp;I <BR><BR>REDIM&nbsp;myArray(20)&nbsp;'将数组重新定义为20维 <BR><BR>For&nbsp;I=0&nbsp;to&nbsp;20 <BR>MyArray(I)="This&nbsp;is&nbsp;item&nbsp;"&nbsp;&amp;&nbsp;I <BR>Next <BR><BR>在上面的例子中，声明数组没有包含任何的数字项目，它的作用是告诉asp有一个数组被声明了，然后我们用REDIM语句来重新定义数组有20维，并且向其中存入数据。 <BR><BR>................................................................................................. <BR><BR>有用的数组函数 <BR><BR>Ubound(arrayName)函数 <BR><BR>这个函数是返回数组的下标，也就是数组最后一个元素的标记。 <BR><BR>Dim&nbsp;myArray(10) <BR>Dim&nbsp;I <BR><BR>For&nbsp;I=0&nbsp;to&nbsp;10 <BR>MyArray(I)="Item&nbsp;"&nbsp;&amp;&nbsp;I <BR>Next <BR>Response.write&nbsp;"ubound(myArray)&nbsp;=&nbsp;"&nbsp;&amp;&nbsp;ubound(myArray) <BR><BR><BR>Lbound(arrayName)函数 <BR><BR>这个函数是返回数组的上标，也就是数组第一个元素的标记。可以用上面的例子进行试验，不过不要忘了把Ubound换成Lbound哟！ <BR><BR><BR>Split(string,&nbsp;splitby)函数 <BR><BR>这个函数返回基于0的一维数组，其中包含指定数目的子字符串。这里有两个参数，string是一个字符串，sqlitby是分隔符，让我们看一个例子来理解这个函数的功能： <BR><BR>Dim&nbsp;myString <BR>Dim&nbsp;myArray <BR>Dim&nbsp;I <BR><BR>MyString&nbsp;=&nbsp;"a,b,c,d" <BR>MyArray&nbsp;=&nbsp;split(MyString,",") <BR><BR>For&nbsp;I=0&nbsp;to&nbsp;Ubound(MyArray) <BR>Response.write&nbsp;MyArray(I)&nbsp;&amp;&nbsp;"&lt;br&gt;" <BR>Next <BR><BR>这个例子的意思是：将字符串"a,b,c,d"转换成一个有四个元素一维数组，其中字符串中的","是分隔符。最后我们用循环将这个数组显示出来。如果大家觉得不容易懂，可以自己上机调试一下就明白了，其实很简单。 <BR><BR><BR>................................................................................................. <BR><BR>在数组中查找元素 <BR>这有一个函数，它能返回数组中的元素索引。这个索引是数组元素的基本位置，如：0代表myArray(0)。 <BR><BR>function&nbsp;findArray(arrName,srcStr) <BR>dim&nbsp;I <BR>dim&nbsp;pint,cnt <BR><BR>cnt=0 <BR><BR>for&nbsp;i=0&nbsp;to&nbsp;ubound(arrName) <BR>if&nbsp;cnt=0&nbsp;then <BR>if&nbsp;srcStr=arrName(i)&nbsp;then <BR>pint=i <BR>cnt=1 <BR>end&nbsp;if <BR>end&nbsp;if <BR>next <BR>findArray=pint+1 <BR>end&nbsp;function <BR><BR>现在我们来用一用这个函数： <BR><BR>Dim&nbsp;myArray(20) <BR>Dim&nbsp;k <BR><BR>For&nbsp;k=0&nbsp;to&nbsp;20 <BR>MyArray(k)="Item&nbsp;"&nbsp;&amp;&nbsp;k <BR>Next <BR><BR>Response.write&nbsp;findArray(myArray,"Item&nbsp;8")&nbsp;&amp;&nbsp;"&lt;p&gt;" <BR>Response.write&nbsp;myArray(findArray(myArray,"Item&nbsp;8")) <BR><BR>赶紧在本机上调试一下，看看这个函数的功能。 <BR><BR>................................................................................................. <BR><BR>向另一个页面传递数组 <BR><BR>现在有很多种方法向另一页面传递数组，目前有三种方法： <BR><BR>定义一个又逗号分隔的字符串，然后再下一页中用Split函数重新建立数组。 <BR>将数组存储在一个Session变量中，然后在下一个页面中调用。 <BR>通过表单的隐含区域来传递数组，他们都是自动用逗号分开，然后再用Split函数重新建立数组。 <BR><BR>前两种方法很好，但是都比第三中复杂。在这里我们将只介绍第三种，因为它是最简单最有效的。 <BR><BR>1.asp： <BR>&lt;% <BR>dim&nbsp;I <BR>dim&nbsp;myArray(20) <BR><BR>for&nbsp;I=0&nbsp;to&nbsp;20 <BR>myArray(I)="Item&nbsp;"&nbsp;&amp;&nbsp;I <BR>next <BR>%&gt; <BR>&lt;html&gt; <BR>&lt;body&gt; <BR>&lt;form&nbsp;name="testform"&nbsp;method="post"&nbsp;action="2.asp"&gt; <BR>&lt;% <BR>for&nbsp;I=0&nbsp;to&nbsp;ubound(myArray) <BR>response.write&nbsp;"&lt;input&nbsp;type=hidden&nbsp;name=myArray&nbsp;value='"&nbsp;&amp;&nbsp;myArray(I)&nbsp;&amp;&nbsp;"'&gt;" <BR>next <BR>%&gt; <BR>&lt;p&gt; <BR>&lt;input&nbsp;type="submit"&gt; <BR>&lt;/form&gt; <BR>&lt;/body&gt; <BR>&lt;/html&gt; <BR><BR>以上我们做的是在一个表单中用单独的隐含域存储数组中的每个元素，我们再看看下一页： <BR><BR>2.asp <BR>&lt;html&gt; <BR>&lt;body&gt; <BR>&lt;% <BR>dim&nbsp;arrString <BR>dim&nbsp;myArray <BR>dim&nbsp;I <BR><BR>arrString=request("myArray") <BR>myArray&nbsp;=&nbsp;split(arrString,",") <BR><BR>for&nbsp;I=0&nbsp;to&nbsp;ubound(myArray)&nbsp; <BR>response.write&nbsp;"Item&nbsp;"&amp;I&amp;"&nbsp;=&nbsp;"&nbsp;&amp;&nbsp;myArray(I)&nbsp;&amp;&nbsp;"&lt;br&gt;"&nbsp;&amp;&nbsp;vbCrLf <BR>next <BR>%&gt; <BR>&lt;/body&gt; <BR>&lt;/html&gt; <BR><BR>调试了吗？怎么样，简单吧！数组就这么传递过去了。 <BR>好了，通过以上的讲解，我想初学者一定对asp中的数组有了一定的了解，当然这里将的都只是最基本的，其实数组的功能远远不只这些，如果大家肯钻研，它能使在asp的程序运行效率大大提高。 <BR> [ASP/shtml]asp中用fso读写文本文件实例 http://www.yici.net/content/text_all/text_0/545_1.html 佚名 ASP/shtml 2009-2-21 23:24:02 <P><FONT face=Verdana>&lt;%<BR>if request.Form("action")="edit" then<BR>Set FSO = Server.CreateObject("Scripting.FileSystemObject") <!--DVNEWS_AD_BEGIN-->powered by 25175.<A title=25175.net分网站 href="http://www.25175.net/" target=_blank><U><FONT color=#0240a3>net</FONT></U></A><!--DVNEWS_AD_END--><BR>File = Server.MapPath("config.asp")</FONT></P> <P><FONT face=Verdana>If FSO.FileExists(File) = True Then '判断该文件是否存在<BR>fso.DeleteFile (File)<BR>End If<BR>Set CTF = FSO.CreateTextFile(File,true, False) '新建文件</FONT></P> <P><FONT face=Verdana>CTF.Writeline "&lt;%"</FONT></P> <P><FONT face=Verdana>CTF.WriteLine "OnliveUrl="""&amp;request.Form("OnliveUrl")&amp;""" '直播地址"<BR>CTF.WriteLine "Url="""&amp;request.Form("Url")&amp;""" '直播地址"<BR>CTF.WriteLine "jm="""&amp;request.Form("jm")&amp;""" '节目名称"<BR>CTF.WriteLine "jmstr="""&amp;request.Form("jmstr")&amp;""" '节目介绍"<BR>CTF.WriteLine "dbqq="""&amp;request.Form("dbqq")&amp;""" '导播qq"<BR>CTF.WriteLine "jmlink="""&amp;request.Form("jmlink")&amp;""" '讨论连接"<BR>CTF.WriteLine "live="&amp;request.Form("live") '直播" <BR>CTF.WriteLine "showmes="""&amp;request.Form("showmes")&amp;""" '非直播时信息" <BR>CTF.WriteLine "%"&amp;"&gt;"</FONT></P> <P><FONT face=Verdana>Set ctf = Nothing<BR>Set FSO = Nothing<BR>response.Redirect("admin_manage.asp")<BR>end if<BR>%&gt;<BR></FONT></P> [ASP/shtml]ASP生成静态页面的方法详解 http://www.yici.net/content/text_all/text_0/544_1.html 佚名 ASP/shtml 2009-2-21 23:23:07 ASP生成静态页面方法 <BR>Currently&nbsp;1.00/5&nbsp;1&nbsp; <BR><BR>页面分类:&nbsp;编程 <BR>天下维客，你可以修改的网络知识库 <BR>跳转到:&nbsp;导航,&nbsp;搜索 <BR>1、WITH&nbsp;TEMPLET意思是，生成的页面架构将采用某个已设定的模板，在此之前我的一篇教程中介绍过，希望各位在看本教程之前对ASP <BR><BR>采用模板应熟悉下。 <BR><BR>2、ASP转变为HTML。不要我再说ASP转变成HTML的好处了吧，其中最值得知道的就是：静态HTML页和动态页对服务器的要求承受能力小 <BR><BR>得多，同样，静态HTML搜索几率远比动态页面的多得多。 <BR><BR>那么，我现在需要处理的技术问题就是： <BR><BR>1、如何实现模板技术？ <BR><BR>2、如何实现2HTML技术？ <BR><BR>3、如何让模板技术与2HTML技术结合？ <BR><BR>目录 <BR>[隐藏] <BR>1&nbsp;先进行技术原理分析&nbsp; <BR>2&nbsp;再进行数据库设计&nbsp; <BR>3&nbsp;页面需求设计&nbsp; <BR>4&nbsp;其它功能&nbsp; <BR>5&nbsp;参考资料&nbsp; <BR>&nbsp; <BR>[编辑]先进行技术原理分析 <BR>1、模板技术参看 <BR><BR>2、如何使得ASP页面转变为HTML？一般都会想到FSO组件，因为该组件能新建任何文件格式。 <BR><BR>那么其整个运行过程是怎么样的呢？ <BR><BR>a、提供信息输入页面进行信息收集； <BR><BR>b、接受信息值先保存数据库，再FSO生成文件； <BR><BR>c、技术性完成任务，显示刚被创建的HTML文件的路径地址。&nbsp;该技术的实现过程中有如下几个难点： <BR><BR>i、FSO生成的文件是直接放在一个大文件夹下，还是单独放在某个每日更新的子文件夹中？可能表述不准确，这样理解吧：相信通过 <BR><BR>FSO生成的文件随着时间的推移，文件会越来越多，管理也会越来越乱……通常你可能看到一些地址诸如&nbsp;www.xxx.com/a/2004-5- <BR><BR>20/200405201111.html&nbsp;可以分析得出应该是建立了当前日期的文件夹。这样，一天就是一个文件夹的页面内容，查看管理也就显得比较合 <BR><BR>理。 <BR><BR>ii、我在试图通过以上方法建立文件夹的时候，又发现了第二个问题。第一次通过FSO建立以当前日期命名的文件夹，没有问题。当我 <BR><BR>有新的文件需要生成时，因为是同一个程序，所以，其又将会执行建立同样的文件夹。此时，FSO组件会发现该路径已存在……卡壳-_-! <BR><BR>继续处理，在首行添加代码： <BR><BR>引用: <BR><BR>On&nbsp;Error&nbsp;Resume&nbsp;Next&nbsp;达到自欺欺人、掩耳盗铃的效果。 <BR><BR>当然规矩的用法是判断文件夹的有无 <BR><BR>引用: <BR><BR>&lt;% <BR>Set&nbsp;fso&nbsp;=&nbsp;Server.CreateObject("Scripting.FileSystemObject") <BR>if&nbsp;(fso.FolderExists(Server.MapPath(folder)))&nbsp;then <BR>'判断如果存在就不做处理 <BR>else <BR>'判断如果不存在则建立新文件夹 <BR>fso.CreateFolder(Server.MapPath(folder)) <BR>end&nbsp;if <BR>%&gt; <BR>iii、文件夹是建立了，文件该如何建立呢？主要也就是文件名的生成。当然这个就需要自己来写个函数，功能就是如何生成文件名： <BR><BR>引用: <BR><BR>&lt;% <BR>function&nbsp;makefilename(fname) <BR>fname&nbsp;=&nbsp;fname&nbsp;'前fname为变量，后fname为函数参数引用 <BR>fname&nbsp;=&nbsp;replace(fname,"-","") <BR>fname&nbsp;=&nbsp;replace(fname,"&nbsp;","")&nbsp; <BR>fname&nbsp;=&nbsp;replace(fname,":","") <BR>fname&nbsp;=&nbsp;replace(fname,"PM","") <BR>fname&nbsp;=&nbsp;replace(fname,"AM","") <BR>fname&nbsp;=&nbsp;replace(fname,"上午","") <BR>fname&nbsp;=&nbsp;replace(fname,"下午","") <BR>makefilename&nbsp;=&nbsp;fname&nbsp;&amp;&nbsp;".html" <BR>end&nbsp;function&nbsp; <BR>%&gt; <BR>引用函数则： <BR><BR>&lt;%fname&nbsp;=&nbsp;makefilename(now())%&gt; <BR>其实嘛，就是以年月日时分秒命名的文件。 <BR><BR>iv、最后，生成的文件该如何查看到？当然需要把生成文件的路径保存的数据库中，并且添加到相对应的记录集中了。当然，这在下 <BR><BR>面的数据库设计时会提及到。 <BR><BR>3、模板技术和2HTML技术的结合：将模板中特殊代码的值替换为从表单接受过来的值，完成模板功能；将最终替换过的所有模板代码 <BR><BR>生成HTML文件。需要注意的是：替换应能将输入数据的格式或者支持UBB的代码彻底改变。 <BR><BR>[编辑]再进行数据库设计 <BR>目前数据库的设计需要两个表：一个是存放模板数据的；一个是存放信息内容的。 <BR><BR>1，建立新数据库asp2html.mdb <BR><BR>2、设计新数据库表c_moban <BR><BR>字段m_id（自动编号，主关键字）；字段m_html（备注类型）。 <BR><BR>并将下列完整的代码拷贝至m_html字段 <BR><BR>引用: <BR><BR>&lt;html&gt; <BR>&lt;head&gt; <BR>&lt;meta&nbsp;http-equiv="Content-Type"&nbsp;content="text/html;&nbsp;charset=hz"&gt; <BR>&lt;title&gt;Cnbruce.Com&nbsp;|&nbsp;ASP2HTML&nbsp;TEST&lt;/title&gt; <BR>&lt;/head&gt; <BR>&lt;body&nbsp;leftmargin="0"&nbsp;topmargin="0"&gt; <BR>&nbsp; <BR>&lt;/body&gt; <BR>&lt;/html&gt; <BR>3、设计新数据库表c_news <BR><BR>字段c_id：自动编号，主关键字 <BR>字段c_title：文本类型，保存文章标题 <BR>字段c_content：备注类型，保存文章内容 <BR>字段c_filepath：文本类型，保持生成文件的路径地址 <BR>字段c_time：日期/时间类型，默认值：Now() <BR>[编辑]页面需求设计 <BR>1、首先建立一个存放HTML页的文件夹 <BR><BR>在文件同一目录下，建立文件夹newsfile，夹子内部主要存放生成的HTML页面，当然内部还会采用程序方式建立以日期命名的子文件夹，以方便浏览以及管理。 <BR><BR>2、功能函数页面lib.asp <BR><BR>引用: <BR><BR>&lt;% <BR>&nbsp;'生成文件名的函数 <BR>&nbsp;function&nbsp;makefilename(fname) <BR>&nbsp;fname&nbsp;=&nbsp;fname <BR>&nbsp;fname&nbsp;=&nbsp;replace(fname,"-","") <BR>&nbsp;fname&nbsp;=&nbsp;replace(fname,"&nbsp;","")&nbsp; <BR>&nbsp;fname&nbsp;=&nbsp;replace(fname,":","") <BR>&nbsp;fname&nbsp;=&nbsp;replace(fname,"PM","") <BR>&nbsp;fname&nbsp;=&nbsp;replace(fname,"AM","") <BR>&nbsp;fname&nbsp;=&nbsp;replace(fname,"上午","") <BR>&nbsp;fname&nbsp;=&nbsp;replace(fname,"下午","") <BR>&nbsp;makefilename=fname&nbsp;&amp;&nbsp;".shtml" <BR>&nbsp;end&nbsp;function&nbsp; <BR><BR>'保持数据格式不变的函数 <BR><BR>&nbsp;function&nbsp;HTMLEncode(fString) <BR>&nbsp;fString&nbsp;=&nbsp;replace(fString,&nbsp;"&gt;",&nbsp;"&gt;") <BR>&nbsp;fString&nbsp;=&nbsp;replace(fString,&nbsp;"&lt;",&nbsp;"&lt;") <BR>&nbsp;fString&nbsp;=&nbsp;Replace(fString,&nbsp;CHR(32),&nbsp;"&nbsp;") <BR>&nbsp;fString&nbsp;=&nbsp;Replace(fString,&nbsp;CHR(13),&nbsp;"") <BR>&nbsp;fString&nbsp;=&nbsp;Replace(fString,&nbsp;CHR(10)&nbsp;&amp;&nbsp;CHR(10),&nbsp;"&lt;br&gt;") <BR>&nbsp;fString&nbsp;=&nbsp;Replace(fString,&nbsp;CHR(10),&nbsp;"&lt;br&gt;") <BR>&nbsp;HTMLEncode&nbsp;=&nbsp;fString <BR>&nbsp;end&nbsp;function <BR>&nbsp;%&gt; <BR><BR>3、数据库连接页面conn.asp <BR><BR>完成数据库的字符串连接方法 <BR><BR>&nbsp;&lt;% <BR>&nbsp;set&nbsp;conn&nbsp;=&nbsp;Server.CreateObject("ADODB.Connection") <BR>&nbsp;connstr&nbsp;=&nbsp;"Provider=Microsoft.Jet.OLEDB.4.0;Data&nbsp;Source="&amp;Server.MapPath("asp2html.mdb") <BR>&nbsp;conn.Open&nbsp;connstr <BR>&nbsp;%&gt; <BR>4、信息输入页面add.html <BR><BR>其实很简单，就是表单嘛。注意action是跳转到addit.asp <BR><BR>引用:&nbsp; <BR><BR>&nbsp;&lt;form&nbsp;action="addit.asp"&nbsp;method="post"&gt; <BR>&nbsp;Title:&lt;input&nbsp;type="text"&nbsp;name="c_title"&gt;&lt;br&gt; <BR>&nbsp;Content:&lt;br&gt; <BR>&nbsp;&lt;textarea&nbsp;name="c_content"&nbsp;rows="8"&nbsp;cols="30"&gt;&lt;/textarea&gt;&lt;br&gt; <BR>&nbsp;&lt;input&nbsp;type="submit"&nbsp;value="Add"&gt; <BR>&nbsp;&lt;input&nbsp;type="reset"&nbsp;value="Reset"&gt; <BR>&nbsp;&lt;/form&gt; <BR><BR>5、处理数据功能显示页面addit.asp <BR><BR>首先是处理接受过来的数据，并将值写入数据库；接着将模板代码进行引用，并将其中特殊代码转换为接受值，最终通过FSO生成HTML页面。其中需要注意的还有，生成文件的路径地址保存至数据库表。 <BR><BR>引用:&nbsp; <BR><BR>&nbsp;&lt;%'容错处理 <BR>&nbsp;On&nbsp;Error&nbsp;Resume&nbsp;Next <BR>&nbsp;%&gt; <BR><BR>&nbsp;&lt;!--#include&nbsp;file="conn.asp"&nbsp;--&gt; <BR>&nbsp;&lt;!--#include&nbsp;file="lib.asp"&nbsp;--&gt; <BR><BR>&nbsp;&lt;%'接受传递值 <BR>&nbsp;c_title=request.form("c_title") <BR>&nbsp;c_content=request.form("c_content") <BR>&nbsp;%&gt; <BR><BR>&nbsp;&lt;%'生成HTML文件名，建立文件夹，指定文件路径 <BR>&nbsp;fname&nbsp;=&nbsp;makefilename(now())&nbsp;'makefilename为自定义函数&nbsp; <BR>&nbsp;folder&nbsp;=&nbsp;"newsfile/"&amp;date()&amp;"/" <BR>&nbsp;filepath&nbsp;=&nbsp;folder&amp;fname <BR>&nbsp;%&gt; <BR><BR>&nbsp;&lt;%'将接受值及路径保持至数据库表 <BR>&nbsp;sql&nbsp;=&nbsp;"Select&nbsp;*&nbsp;from&nbsp;c_news" <BR>&nbsp;Set&nbsp;rs&nbsp;=&nbsp;Server.CreateObject&nbsp;("ADODB.Recordset") <BR>&nbsp;rs.Open&nbsp;sql,conn,3,2 <BR>&nbsp;rs.addnew <BR>&nbsp;rs("c_title")=c_title <BR>&nbsp;rs("c_content")=c_content <BR>&nbsp;rs("c_filepath")=filepath <BR>&nbsp;rs.update <BR>&nbsp;rs.close&nbsp; <BR>&nbsp;Set&nbsp;rs&nbsp;=&nbsp;Nothing <BR>&nbsp;%&gt; <BR><BR>&nbsp;&lt;%'打开模板代码，并将其中特殊代码转变为接受值 <BR>&nbsp;sql1="select&nbsp;m_id,m_html&nbsp;from&nbsp;c_moban&nbsp;where&nbsp;m_id=1" <BR>&nbsp;set&nbsp;rs1=Server.CreateObject("adodb.recordset") <BR>&nbsp;rs1.open&nbsp;sql1,conn,1,1 <BR>&nbsp;mb_code=rs1("m_html") <BR>&nbsp;rs1.close <BR>&nbsp;set&nbsp;rs1=nothing <BR>&nbsp;conn.close <BR>&nbsp;set&nbsp;conn=nothing <BR>&nbsp;c_title=htmlencode(c_title) <BR>&nbsp;c_content=htmlencode(c_content) <BR>&nbsp;mb_code=replace(mb_code,"$cntop{LogContent}quot;,now()) <BR>&nbsp;mb_code=replace(mb_code,"$cnleft{LogContent}quot;,c_title) <BR>&nbsp;mb_code=replace(mb_code,"$cnright{LogContent}quot;,c_content) <BR>&nbsp;%&gt; <BR><BR>&nbsp;&lt;%'生成HTML页面 <BR>&nbsp;Set&nbsp;fso&nbsp;=&nbsp;Server.CreateObject("Scripting.FileSystemObject") <BR>&nbsp;fso.CreateFolder(Server.MapPath(folder)) <BR>&nbsp;Set&nbsp;fout&nbsp;=&nbsp;fso.CreateTextFile(Server.MapPath(filepath)) <BR>&nbsp;fout.WriteLine&nbsp;mb_code <BR>&nbsp;fout.close <BR>&nbsp;%&gt; <BR>&nbsp;文章添加成功，&lt;a&nbsp;href="showit.asp"&gt;浏览&lt;/a&gt;&nbsp; <BR><BR>6、显示数据库表记录，并做指向HTML页的链接：showit.asp <BR><BR>引用:&nbsp; <BR><BR>&nbsp;&lt;!--#include&nbsp;file="conn.asp"&nbsp;--&gt; <BR>&nbsp;&lt;!--#include&nbsp;file="lib.asp"&nbsp;--&gt; <BR>&nbsp;&lt;% <BR>&nbsp;Set&nbsp;rs&nbsp;=&nbsp;Server.CreateObject&nbsp;("ADODB.Recordset") <BR>&nbsp;sql&nbsp;=&nbsp;"Select&nbsp;*&nbsp;from&nbsp;c_news&nbsp;order&nbsp;by&nbsp;c_id&nbsp;desc" <BR>&nbsp;rs.Open&nbsp;sql,conn,1,1 <BR>&nbsp;%&gt; <BR><BR>&nbsp;&lt;% <BR>&nbsp;if&nbsp;rs.EOF&nbsp;and&nbsp;rs.BOF&nbsp;then <BR>&nbsp;response.write&nbsp;("暂时还没有文章，&lt;a&nbsp;href=add.html&gt;添加&lt;/a&gt;") <BR>&nbsp;else <BR>&nbsp;Do&nbsp;Until&nbsp;rs.EOF <BR>&nbsp;%&gt; <BR>&nbsp;&lt;table&nbsp;width="758"&nbsp;border="0"&nbsp;align="center"&nbsp;cellpadding="3"&nbsp;cellspacing="1"&nbsp;bgcolor="#000000"&gt; <BR>&nbsp;&lt;tr&gt;&nbsp; <BR>&nbsp;&lt;td&nbsp;width="159"&nbsp;align="right"&nbsp;bordercolor="#CCCCCC"&nbsp;bgcolor="#CCCCCC"&gt;&lt;%=rs("c_time")%&gt;&lt;/td&gt; <BR>&nbsp;&lt;td&nbsp;width="591"&nbsp;bordercolor="#f3f3f3"&nbsp;bgcolor="#f3f3f3"&gt;&lt;a&nbsp;href=&lt;%=rs("c_filepath")%&gt;&nbsp;target="a_blank"&gt;&lt;%=rs("c_title")%&gt;&lt;/a&gt;&lt;/td&gt; <BR>&nbsp;&lt;/tr&gt; <BR>&nbsp;&lt;tr&gt;&nbsp; <BR>&nbsp;&lt;td&nbsp;valign="top"&nbsp;align="right"&nbsp;bordercolor="#ececec"&nbsp;bgcolor="#ececec"&gt;[&lt;a&nbsp;href=del.asp?c_id=&lt;%=rs("c_id")%&gt;&gt;Dell&lt;/a&gt;][&lt;a&nbsp;href=change.asp?c_id=&lt;%=rs("c_id")%&gt;&gt;Edit&lt;/a&gt;][&lt;a&nbsp;href="add.html"&gt;Add&lt;/a&gt;]&lt;/td&gt; <BR>&nbsp;&lt;td&nbsp;valign="top"&nbsp;bordercolor="#FFFFFF"&nbsp;bgcolor="#FFFFFF"&gt;&lt;%=htmlencode(rs("c_content"))%&gt;&lt;/td&gt; <BR>&nbsp;&lt;/tr&gt; <BR>&nbsp;&lt;/table&gt;&lt;br&gt; <BR>&nbsp;&lt;% <BR>&nbsp;rs.MoveNext <BR>&nbsp;Loop <BR>&nbsp;end&nbsp;if <BR>&nbsp;%&gt; <BR><BR>&nbsp;&lt;% <BR>&nbsp;rs.close&nbsp; <BR>&nbsp;Set&nbsp;rs&nbsp;=&nbsp;Nothing <BR>&nbsp;conn.close&nbsp; <BR>&nbsp;set&nbsp;conn=Nothing <BR>&nbsp;%&gt; <BR><BR>7、修改数据内容页change.asp <BR><BR>修改数据内容，同时也需要修改更新对应的HTML页面。修改其实就是重新生成文件，且文件名和之前一样，类似文件的覆盖。 <BR><BR>引用:&nbsp; <BR><BR>&nbsp;&lt;!--#include&nbsp;file="conn.asp"&nbsp;--&gt; <BR>&nbsp;&lt;!--#include&nbsp;file="lib.asp"&nbsp;--&gt; <BR><BR>&nbsp;&lt;%id=request.querystring("c_id")%&gt; <BR><BR>&nbsp;&lt;% <BR>&nbsp;if&nbsp;request.form("submit")="change"&nbsp;then <BR>&nbsp;c_title=request.form("c_title") <BR>&nbsp;c_content=request.form("c_content") <BR>&nbsp;c_id=request.form("c_id") <BR>&nbsp;c_filepath=request.form("c_filepath") <BR><BR>&nbsp;Set&nbsp;rs&nbsp;=&nbsp;Server.CreateObject&nbsp;("ADODB.Recordset") <BR>&nbsp;sql&nbsp;=&nbsp;"Select&nbsp;*&nbsp;from&nbsp;c_news&nbsp;where&nbsp;c_id="&amp;c_id <BR>&nbsp;rs.Open&nbsp;sql,conn,3,2 <BR>&nbsp;rs("c_title")=c_title <BR>&nbsp;rs("c_content")=c_content <BR>&nbsp;rs("c_time")=now() <BR>&nbsp;rs.update <BR>&nbsp;rs.close&nbsp; <BR>&nbsp;Set&nbsp;rs&nbsp;=&nbsp;Nothing <BR>&nbsp;%&gt; <BR><BR>&nbsp;&lt;%'打开模板代码，并将其中特殊代码转变为接受值 <BR>&nbsp;sql1="select&nbsp;m_id,m_html&nbsp;from&nbsp;c_moban&nbsp;where&nbsp;m_id=1" <BR>&nbsp;set&nbsp;rs1=Server.CreateObject("adodb.recordset") <BR>&nbsp;rs1.open&nbsp;sql1,conn,1,1 <BR>&nbsp;mb_code=rs1("m_html") <BR>&nbsp;rs1.close <BR>&nbsp;set&nbsp;rs1=nothing <BR>&nbsp;conn.close <BR>&nbsp;set&nbsp;conn=nothing <BR>&nbsp;c_title=htmlencode(c_title) <BR>&nbsp;c_content=htmlencode(c_content) <BR>&nbsp;mb_code=replace(mb_code,"$cntop{LogContent}quot;,now()) <BR>&nbsp;mb_code=replace(mb_code,"$cnleft{LogContent}quot;,c_title) <BR>&nbsp;mb_code=replace(mb_code,"$cnright{LogContent}quot;,c_content) <BR>&nbsp;%&gt; <BR><BR>&nbsp;&lt;%'生成HTML页面 <BR>&nbsp;Set&nbsp;fso&nbsp;=&nbsp;Server.CreateObject("Scripting.FileSystemObject") <BR>&nbsp;Set&nbsp;fout&nbsp;=&nbsp;fso.CreateTextFile(Server.MapPath(c_filepath)) <BR>&nbsp;fout.WriteLine&nbsp;mb_code <BR>&nbsp;fout.close <BR>&nbsp;%&gt; <BR>&nbsp;&lt;%response.redirect("showit.asp")%&gt; <BR>&nbsp;&lt;%end&nbsp;if%&gt; <BR><BR>&nbsp;&lt;% <BR>&nbsp;if&nbsp;id&lt;&gt;""&nbsp;then <BR>&nbsp;Set&nbsp;rs&nbsp;=&nbsp;Server.CreateObject&nbsp;("ADODB.Recordset") <BR>&nbsp;sql="select&nbsp;*&nbsp;from&nbsp;c_news&nbsp;where&nbsp;c_id="&amp;id <BR>&nbsp;rs.Open&nbsp;sql,conn,1,1 <BR>&nbsp;c_id=rs("c_id") <BR>&nbsp;c_filepath=rs("c_filepath") <BR>&nbsp;c_title=rs("c_title") <BR>&nbsp;c_content=rs("c_content") <BR>&nbsp;end&nbsp;if <BR>&nbsp;%&gt; <BR><BR>&nbsp;&lt;form&nbsp;action="change.asp"&nbsp;method="post"&gt; <BR>&nbsp;Title:&lt;input&nbsp;type="text"&nbsp;name="c_title"&nbsp;value=&lt;%=c_title%&gt;&gt;&lt;br&gt; <BR>&nbsp;Content:&lt;br&gt; <BR>&nbsp;&lt;textarea&nbsp;name="c_content"&nbsp;rows="8"&nbsp;cols="30"&gt;&lt;%=c_content%&gt;&lt;/textarea&gt;&lt;br&gt; <BR>&nbsp;&lt;input&nbsp;type="submit"&nbsp;value="change"&nbsp;name="submit"&gt; <BR>&nbsp;&lt;input&nbsp;type="reset"&nbsp;value="Reset"&gt; <BR>&nbsp;&lt;input&nbsp;name="c_id"&nbsp;type="hidden"&nbsp;value="&lt;%=id%&gt;"&gt; <BR>&nbsp;&lt;input&nbsp;name="c_filepath"&nbsp;type="hidden"&nbsp;value="&lt;%=c_filepath%&gt;"&gt; <BR>&nbsp;&lt;/form&gt; <BR><BR>8、删除记录页del.asp <BR><BR>同样！删除，除了删除数据库表中的记录，与其对应的HTML页面也需删除。代码如下： <BR><BR>引用:&nbsp; <BR><BR>&nbsp;&lt;!--#include&nbsp;file="conn.asp"&nbsp;--&gt; <BR><BR>&nbsp;&lt;% <BR>&nbsp;c_id&nbsp;=&nbsp;request.querystring("c_id") <BR>&nbsp;sql&nbsp;=&nbsp;"Select&nbsp;*&nbsp;from&nbsp;c_news&nbsp;where&nbsp;c_id="&amp;c_id <BR>&nbsp;Set&nbsp;rs&nbsp;=&nbsp;Server.CreateObject&nbsp;("ADODB.Recordset") <BR>&nbsp;rs.Open&nbsp;sql,conn,2,3 <BR><BR>&nbsp;filepath=rs("c_filepath") <BR>&nbsp;Set&nbsp;fso&nbsp;=&nbsp;CreateObject("Scripting.FileSystemObject") <BR>&nbsp;fso.DeleteFile(Server.mappath(filepath)) <BR>&nbsp;Set&nbsp;fso&nbsp;=&nbsp;nothing <BR><BR>&nbsp;rs.delete <BR>&nbsp;rs.close&nbsp; <BR>&nbsp;Set&nbsp;rs&nbsp;=&nbsp;Nothing <BR>&nbsp;conn.close <BR>&nbsp;set&nbsp;conn=nothing <BR>&nbsp;%&gt; <BR><BR>&nbsp;&lt;%response.redirect("showit.asp")%&gt; <BR>[编辑]其它功能 <BR>模板管理页面： <BR><BR>不会每次都是打开数据库表进行增加或者修改模板代码吧，所以，管理代码的页面程序不能少了，自己捣鼓下应该很简单的。当然，之前管理员的登录认证程序就不在书中交代了：）还有，如果设计了多个模板，那么在发表信息的时候应添加模板选择单选框，同样在执行转换HTML时，SQL选择的不同m_id了。 <BR><BR>不管怎么说，先把这些技术自己调试感受下。多多操作，相信“读书千遍，其意自见”。 <BR> [ASP/shtml]asp动态include文件 http://www.yici.net/content/text_all/text_0/543_1.html 佚名 ASP/shtml 2009-2-21 22:18:19 <P>经常有这样的要求，根据不同的需求要求include不同的文件如各个人的不同设置，所以要求能动态include文件。</P> <P>代码如下：</P> <P>Function include(filename)<BR>Dim re,content,fso,f,aspStart,aspEnd<BR><BR>set fso=CreateObject("Scripting.FileSystemObject")<BR>set f=fso.OpenTextFile(server.mappath(filename))<BR>content=f.ReadAll<BR>f.close<BR>set f=nothing<BR>set fso=nothing<BR><BR>set re=new RegExp<BR>re.pattern="^\s*="<BR>aspEnd=1<BR>aspStart=inStr(aspEnd,content,"&lt;%") 2<BR>do while aspStart&gt;aspEnd 1 <BR>Response.write Mid(content,aspEnd,aspStart-aspEnd-2)<BR>aspEnd=inStr(aspStart,content,"%\&gt;") 2<BR>Execute(re.replace(Mid(content,aspStart,aspEnd-aspStart-2),"Response.Write "))<BR>aspStart=inStr(aspEnd,content,"&lt;%") 2<BR>loop<BR>Response.write Mid(content,aspEnd) <BR>set re=nothing<BR>End Function</P> <P>使用范例：</P> <P>include("youinc.asp")</P> <P>**************************************************************</P> <P>可以动态Include文件吗？ <BR>什么是动态Include? </P> <P></P> <P>解答</P> <P>我们从一个案例谈起： <BR>&lt;% <BR>'得到用户所在的省份 <BR>Dim Province <BR>Province = Request.form("Province") <BR>'下面显示这个省份相关的信息 <BR>%&gt; <BR>&lt;!--＃i nclude virtual="/ Province/&lt;%= Province%&gt;"--&gt; <BR>你觉得上面的代码可以工作吗？不！简单地使用ASP来达到动态包含，你不能达到你想要的效果。为什么？因为：Include命令先于ASP代码而得到执行，所以，上面的代码并没有按照作者的意愿，先得到用户所在的省份，再包含这个省份的信息！ </P> <P>如果你确实需要动态包含，你可以这样做：<BR>&lt;%<BR>Select Case Province<BR>Case 1: %&gt;<BR>&lt;!--＃i nclude file="1.asp"à<BR>&lt;% Case 2: %&gt;<BR>&lt;!--＃i nclude file="2.asp"à<BR>&lt;% Case 3: %&gt;<BR>&lt;!--＃i nclude file="3.asp"à<BR>&lt;% End Select %&gt;</P> <P>应该说，这段代码可以得到你想要的结果。但是，由于你的用户可能来自于33个省，你难道包含33个文件？特别要说明的是，SSInc.dll是不知道你究竟需要哪个包含文件的（事实上，这时候Province还没有值），所以，她把所有的文件都包含进来了！你可以想象，这时候的文件有多大！然后，ASP.DLL会去扫描这个文件中的ASP代码，然后执行！<BR>所以，每当这样的时候，你应该考虑其他的思路，比如数据库，或者采用FileSystemObject。</P> <P>怎样动态Include文件？</P> <P>解答 <BR>ASP程序员经常面临的最大挑战之一是动态Include文件。由于＃i nclude 在ASP代码执行之前处理，所以，看起来，动if/else的脑筋是不可能的。<BR>真是这样吗？<BR>根据你使用Include的目的，以及你将Include的文件数目，使用if/else也许可以解决问题。但这绝对不是任何时候可以奏效的，而且也不是一种有效的解决办法，因为你需要做许多的手工工作。<BR>假设有两个样本HTM文件，1.htm和2.htm，为简化起见，假设文件的内容如下：<BR>&lt;!-- 1.HTM: --&gt; <BR>&lt;font color=#ff0000&gt;This is 1.htm&lt;/font&gt; <BR>&lt;!-- 2.HTM: --&gt; <BR>&lt;font color=#0000ff&gt;This is 2.htm&lt;/font&gt;<BR>现在我们来试试动态Include：<BR>&lt;% <BR>if request.querystring(‘param‘)=‘2‘ then <BR>%&gt; <BR>&lt;!--＃i nclude file=‘2.htm‘--&gt; <BR>&lt;% <BR>else <BR>%&gt; <BR>&lt;!--＃i nclude file=‘1.htm‘--&gt; <BR>&lt;% <BR>end if <BR>%&gt;<BR>请注意：上面的两个＃i nclude 实际上都得到了处理。你可以实际运行一下，看看效果：http://localhost/Test.asp?param=1<BR>http://localhost/Test.asp?param=2<BR>http://localhost/Test.asp<BR>上面我们是把一个querystring作为条件。你还可以把时间、日期、浏览器版本等作为条件。但是，条件越复杂，这种方法的效率越差。下面提供了另外一种思路：<BR>&lt;% <BR>if request(‘param‘)=‘2‘ then <BR>filespec = ‘2.htm‘ <BR>else <BR>filespec = ‘1.htm‘ <BR>end if <BR>filespec = server.mapPath(filespec) <BR>scr = ‘scripting.fileSystemObject‘ <BR>set fs = server.createobject(scr) <BR>set f = fs.openTextFile(filespec) <BR>content = f.readall <BR>set f = nothing <BR>set fs = nothing <BR>response.write(content) <BR>%&gt;<BR>在IIS5.0/ASP3.0中，有两种新的方法来支持“动态包含”：<BR>&lt;% <BR>server.transfer filename <BR>server.execute filename <BR>%&gt;<BR>如果正好使用的是IIS5.0和ASP3.0，那么Ok! 但是IIS5.0需要运行在Windows 2000上。</P> [JavaScript]js:限制页面必须在框架内·完美版：保证父框架启动的后，自动打开原来页面！ http://www.yici.net/content/text_all/text_0/542_1.html 佚名 JavaScript 2009-2-17 22:00:04 <P>asp.net支持母板页了，这是一个相当强大而实用的功能，不过iframe框架页面还有它的生存空间。比如说网站的后台管理界面，比如说应用软件。</P> <P>&nbsp;</P> <P>使用框架页有一个事情需要注意，那就是打开子页面的时候需要保存子页面始终被嵌套在父页面的里面。解决这个问题有一个简单的办法，就是在子页面里面加上一段js:</P> <P>&nbsp;</P> <P>&nbsp;&nbsp;&nbsp; if (top.location == self.location) {&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; top.location='index.htm';<BR>&nbsp;&nbsp;&nbsp; } <BR><BR>这段代码的意思就是，现在整个浏览器窗口中，最上面层次的页面是不是当前页面？如果是的话，那就打开父框架页面。</P> <P>&nbsp;这段代码很简单，也很简陋，之前网络上的介绍都是只给出了这样的“半个解决方案”，实际的效果是：你要打开a.htm页面（我们称之为原始请求），a.htm页面运行上面的代码，启动了index.htm。这个时候，index.htm里面有一个框架，框架却默认打开另一个页面w.htm。当然，通常情况下，在index.htm里面，我们可能会加上一个指向a的链接。进入index.htm之后点击链接，重新打开A页面。</P> <P><STRONG>但是这样子不好，打断了用户体验。</STRONG></P> <P>就有用户提出：我想看a.htm，打开之后却跳了w.htm，然后我还得去找到a.htm链接再打开。</P> <P>所以，我最后决定，要找到一个比较完善的方案：请求a.htm，启动index.htm，index.htm再通过框架启动a.htm。页面虽然有一些切换，但是能保证，用户想看到a.htm结果看到的也就是a.htm，并且a.htm还被index.htm的框架包着。&nbsp;</P> <P>我曾经想过一个解决办法：向index.htm传递url参数。比如：top.location='index.htm?url=a.html'&nbsp;&nbsp; 这个办法用了一段时间，后来发现这个办法也有缺陷。出现问题的状况是这样的：a.html放在admin/下面，index.htm也放在admin/下面。在地址栏里输入admin/a.html，结果打开admin/index.htm?url =http://localhost/xxxx/admin/a.html</P> <P>而且在index.htm也正常显示了A页面。</P> <P>&nbsp;</P> <P>但是，admin这个目录是需要用户权限的。当admin/index.htm?url =http://localhost/xxxx/admin/a.html超时之后，asp.net把页面跳转到了/user_login.aspx。这时候的地址栏是<A href="http://localhostxxxxx/">http://localhost:xxxxx/xxxx/user_login.aspx?return</A>=admin/index.htm?url =http://localhost/xxxx/admin/a.html！并且报错！</P> <P>&nbsp;</P> <P>于是我就想到了用cookies。并且，基本上已经成功了。</P> <P><BR>下面是主要功能说明： </P> <UL> <LI>主要用于框架（iframe）程序 <LI>现在演示的是htm页面，也适用于asp/asp.net，当然jsp或者php也应该能用，不过我本人不感兴趣，没有测试过。 <LI>打开目标页面（a.html）之后，目标页面后自动启动父框架文件(index.htm)。 <LI>目标页面启动父框架之前，会把目标页面的地址存入cookies，父框架启动后读取cookies，并且用目标页面替换掉，默认页面。 <LI>容错一：父框架读取cookies之后设置cookies失效。 <LI>容错二：存入cookies时，指定了path（也可以指定domain），防止进入不合适的路径下读取cookies错误。 <LI>可以通过UrlRegEx()函数动态获取路径和域名。 </LI></UL> <P>a.html里的主要代码：</P> <P><FONT color=#ff0000>&nbsp;&nbsp;&nbsp;if&nbsp;(top.location&nbsp;==&nbsp;self.location)&nbsp;{&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;addCookie('adminGoto',self.location.href,2,getPath());&nbsp;&nbsp;&nbsp;&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;//alert('all&nbsp;cookie:\n'&nbsp;+&nbsp;document.cookie&nbsp;+&nbsp;'\n\n&nbsp;adminGoto'&nbsp;+&nbsp;getCookie('adminGoto'));&nbsp;&nbsp;&nbsp;&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;top.location='index.htm';&nbsp;&nbsp;&nbsp;&nbsp; <BR>&nbsp;&nbsp;&nbsp;}&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <BR>function&nbsp;getPath()&nbsp;&nbsp;&nbsp;&nbsp; <BR>{&nbsp;&nbsp;&nbsp;&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp;return&nbsp;UrlRegEx(location.href)[4];&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <BR>}</FONT>&nbsp;&nbsp;&nbsp;</P> <P>index.htm的主要代码（里面保留了，通过url跳转的代码） </P> <DIV class=dp-highlighter> <DIV class=bar> <DIV class=tools><FONT color=#ff0000>&nbsp;function&nbsp;getRequestQueryString(key)&nbsp;&nbsp;&nbsp;&nbsp; <BR>&nbsp;{&nbsp;&nbsp;&nbsp;&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;var&nbsp;QueryString&nbsp;=&nbsp;location.search;&nbsp;&nbsp;&nbsp;&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;if(QueryString.indexOf("?")!=&nbsp;-1)&nbsp;&nbsp;&nbsp;&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;{&nbsp;&nbsp;&nbsp;&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;var&nbsp;str&nbsp;=&nbsp;QueryString.substr(1);&nbsp;&nbsp;&nbsp;&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;var&nbsp;arr&nbsp;=&nbsp;str.split("&amp;");&nbsp;&nbsp;&nbsp;&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;for(var&nbsp;i&nbsp;=&nbsp;0&nbsp;;&nbsp;i&lt;arr.length;&nbsp;i++)&nbsp;&nbsp;&nbsp;&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;{&nbsp;&nbsp;&nbsp;&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;if(key&nbsp;==&nbsp;arr[i].split("=")[0])&nbsp;&nbsp;&nbsp;&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;{&nbsp;&nbsp;&nbsp;&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;return&nbsp;arr[i].split("=")[1];&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;}&nbsp;&nbsp;&nbsp;&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;}&nbsp;&nbsp;&nbsp;&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;}&nbsp;&nbsp;&nbsp;&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;return&nbsp;null;&nbsp;&nbsp;&nbsp;&nbsp; <BR>&nbsp;}&nbsp;&nbsp;&nbsp;&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;if(getRequestQueryString("url")){&nbsp;&nbsp;&nbsp;&nbsp; <BR>location.href&nbsp;=&nbsp;'index.aspx';&nbsp;&nbsp;&nbsp;&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;mainFrame.src&nbsp;=&nbsp;getRequestQueryString("url");&nbsp;&nbsp;&nbsp;&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;}&nbsp;&nbsp;&nbsp;&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;if(getCookie('adminGoto')&nbsp;!=&nbsp;'')&nbsp;&nbsp;&nbsp;&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;{&nbsp;&nbsp;&nbsp;&nbsp; <BR>var&nbsp;mainFrame&nbsp;=&nbsp;$('mainFrame');&nbsp;&nbsp;&nbsp;&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;mainFrame.src&nbsp;=&nbsp;getCookie('adminGoto');&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;delCookie('adminGoto');&nbsp;&nbsp;&nbsp;&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;}</FONT>&nbsp;&nbsp;&nbsp;</DIV></DIV></DIV> <P>comm.js是分离出来的js代码，主要包含两部分内容：操作cookie，通过url获取域名、路径、文件名等。</P> <P>示例下载（csdn）</P> <P>注意：一个网友来信说代码不能正常运行，结果我检查发现“C:\MxDownload\xpnew_code\xpnew_code\a.html”这种方式测试肯定是不行的，因为我的正则里面不能解析这种地址。</P> <P><A href="http://download.csdn.net/source/564196">http://download.csdn.net/source/564196</A></P> <P>关于更新：</P> <P>程序不断完善中，最新版本请留意我的博客<A href="http://blog.csdn.net/xpnew/">http://blog.csdn.net/xpnew/</A>或者<A href="http://xpnew.cnblogs.com/">http://xpnew.cnblogs.com/</A>。</P> <P>欢迎提出批评和建议，那是我的荣幸，来信请寄：xpnew#126.com(请替换#为@)。<BR>特别感谢：无忧脚本、csdn、博客园（排名不分先后）</P> <P>&nbsp;</P> <P><FONT face=Verdana>http://www.cnblogs.com/xpnew/archive/2008/07/31/1257452.html</FONT></P> [ASP/shtml]参数类型不正确，或不在可以接受的范围之内，或与其他参数冲突 http://www.yici.net/content/text_all/text_0/540_1.html 佚名 ASP/shtml 2009-2-2 19:25:21 <P>通常ASP的错误主要有语法错误，业务流程和数据库错误等多方面。</P> <P>如果你在ASP的VBScript出现<SPAN style="COLOR: #800000">，“参数类型不正确，或不在可以接受的范围之内，或与其他参数冲突”</SPAN></P> <P><SPAN style="COLOR: #800000">假设次错误出现在Rs.open Sql,Conn,1,1</SPAN></P> <P>那么请检查：1.是否在运行此句之前创建Conn链接。（是运行流程上，不是代码上）</P> <P>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 2.是否在此句之前创建RS对象。</P> <P>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 3.是否写错了SQL语句。</P> <P>&nbsp;</P> <P>例子--正确的流程语句：</P> <P><SPAN style="COLOR: #800000">Dim Conn<BR>Set Conn = Server.CreateObject("Adodb.Connection")<BR>&nbsp;&nbsp;&nbsp; Conn.Open ConnStr</SPAN><BR>Select Case sType<BR>&nbsp;&nbsp;Case "Hot"<BR>&nbsp;&nbsp;&nbsp;Call GetHotNews()<BR>&nbsp;&nbsp;Case "Latest"<BR>&nbsp;&nbsp;&nbsp;Call GetLatestNews()<BR>End Select</P> <P>Set Rs=Server.CreateObject("ADODB.Recordset")<BR>&nbsp;Sql="Select Top 5 Title,FilePath From view_AllNewsInfo Where [Count]&gt;100 order by id desc"<BR>&nbsp;Rs.Open Sql,Conn,1,1</P> <P>例子--错误的流程语句：</P> <P><BR>Select Case sType<BR>&nbsp;&nbsp;Case "Hot"<BR>&nbsp;&nbsp;&nbsp;Call GetHotNews()<BR>&nbsp;&nbsp;Case "Latest"<BR>&nbsp;&nbsp;&nbsp;Call GetLatestNews()<BR>End Select</P> <P><SPAN style="COLOR: #800000">SDim Conn<BR>Set Conn = Server.CreateObject("Adodb.Connection")<BR>&nbsp;&nbsp;&nbsp; Conn.Open ConnStr</SPAN></P> <P>Set Rs=Server.CreateObject("ADODB.Recordset")<BR>&nbsp;Sql="Select Top 5 Title,FilePath From view_AllNewsInfo Where [Count]&gt;100 order by id desc"<BR>&nbsp;Rs.Open Sql,Conn,1,1</P> [JavaScript]js实现图片不能显示时替换图片显示 http://www.yici.net/content/text_all/text_0/539_1.html 佚名 JavaScript 2009-1-31 21:21:50 <P>很久以前在做jsp时，经常要在代码中加入if图片不存在时把url地址换成默认图片，呵呵到前不久看到某个网站的客户端代码中用了onerror来处理默认图片，我在茅塞顿开，知道dom中有这个事件，但是却一直没想到把默认图片处理交给客户端来做。</P> <P>&nbsp;</P> <P>&lt;html&gt;<BR>&lt;head&gt;<BR>&lt;meta http-equiv="Content-Type" content="text/html; charset=gb2312" /&gt;<BR>&lt;title&gt;替换示例&lt;/title&gt;<BR>&lt;/head&gt;<BR><BR>&lt;body&gt;<BR>&lt;img id="img" src="001.jpg" onerror="showerrimg(this);" &gt;<BR>&lt;script language="JavaScript"&gt;<BR>function showerrimg(obj){<BR>&nbsp;&nbsp;&nbsp;&nbsp; var errorimg = "error.jpg";//替换图片地址<BR>&nbsp;&nbsp;&nbsp;&nbsp; obj.src = errorimg;<BR>}<BR>&lt;/script&gt;<BR>&lt;/body&gt;<BR>&lt;/html&gt; </P> [JavaScript]window.location window URL window.location方法获取URL http://www.yici.net/content/text_all/text_0/538_1.html 佚名 JavaScript 2009-1-29 21:50:08 <DIV>window.location方法获取URL</DIV> <DIV> <DIV>统一资源定位符<FONT face="Times New Roman"> (Uniform Resource Locator, URL) </FONT></DIV> <DIV>完整的<FONT face="Times New Roman">URL</FONT>由这几个部分构成：</DIV> <DIV><FONT face="Times New Roman">scheme://host:port/path?query#fragment </FONT></DIV> <DIV><FONT face="Times New Roman">scheme:</FONT>通信协议</DIV> <DIV>常用的<FONT face="Times New Roman">http,ftp,maito</FONT>等</DIV> <DIV><FONT face="Times New Roman">host:</FONT>主机</DIV> <DIV>服务器<FONT face="Times New Roman">(</FONT>计算机<FONT face="Times New Roman">)</FONT>域名系统<FONT face="Times New Roman"> (DNS) </FONT>主机名或<FONT face="Times New Roman"> IP </FONT>地址。</DIV> <DIV><FONT face="Times New Roman">port:</FONT>端口号</DIV> <DIV>整数，可选，省略时使用方案的默认端口，如<FONT face="Times New Roman">http</FONT>的默认端口为<FONT face="Times New Roman">80</FONT>。</DIV> <DIV><FONT face="Times New Roman">path:</FONT>路径</DIV> <DIV>由零或多个<FONT face="Times New Roman">"/"</FONT>符号隔开的字符串，一般用来表示主机上的一个目录或文件地址。</DIV> <DIV><FONT face="Times New Roman">query:</FONT>查询</DIV> <DIV>可选，用于给动态网页（如使用<FONT face="Times New Roman">CGI</FONT>、<FONT face="Times New Roman">ISAPI</FONT>、<FONT face="Times New Roman">PHP/JSP/ASP/ASP.NET</FONT>等技术制作的网页）传递参数，可有多个参数，用<FONT face="Times New Roman">"&amp;"</FONT>符号隔开，每个参数的名和值用<FONT face="Times New Roman">"="</FONT>符号隔开。</DIV> <DIV><FONT face="Times New Roman">fragment:</FONT>信息片断</DIV> <DIV>字符串，用于指定网络资源中的片断。例如一个网页中有多个名词解释，可使用<FONT face="Times New Roman">fragment</FONT>直接定位到某一名词解释。<FONT face="Times New Roman">(</FONT>也称为锚点<FONT face="Times New Roman">.)</FONT></DIV> <DIV></DIV> <DIV><STRONG>示例：</STRONG></DIV> <DIV><FONT face="Times New Roman">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; http://www.home.com:8080/windows/location/page.html?ver=1.0&amp;id=timlq#love</FONT></DIV> <DIV><FONT face="Times New Roman">1, window.location.href</FONT></DIV> <DIV>整个<FONT face="Times New Roman">URl</FONT>字符串<FONT face="Times New Roman">(</FONT>在浏览器中就是完整的地址栏<FONT face="Times New Roman">)</FONT></DIV> <DIV>返回值：<FONT face="Times New Roman">http://www.home.com:8080/windows/location/page.html?ver=1.0&amp;id=timlq#love <BR></FONT><FONT face="Times New Roman">2,window.location.protocol</FONT></DIV> <DIV><FONT face="Times New Roman">URL </FONT>的协议部分</DIV> <DIV>返回值：<FONT face="Times New Roman">http:</FONT></DIV> <DIV><FONT face="Times New Roman">3,window.location.host</FONT></DIV> <DIV><FONT face="Times New Roman">URL </FONT>的主机部分，</DIV> <DIV>返回值：<FONT face="Times New Roman">www.home.com</FONT></DIV> <DIV><FONT face="Times New Roman">4,window.location.port</FONT></DIV> <DIV><FONT face="Times New Roman">URL </FONT>的端口部分。如果采用默认的<FONT face="Times New Roman">80</FONT>端口<FONT face="Times New Roman">(update:</FONT>即使添加了<FONT face="Times New Roman">:80)</FONT>，那么返回值并不是默认的<FONT face="Times New Roman">80</FONT>而是空字符。</DIV> <DIV>本例返回值<FONT face="Times New Roman">:8080</FONT></DIV> <DIV></DIV> <DIV><FONT face="Times New Roman">5,window.location.pathname</FONT></DIV> <DIV><FONT face="Times New Roman">URL </FONT>的路径部分<FONT face="Times New Roman">(</FONT>就是文件地址<FONT face="Times New Roman">)</FONT></DIV> <DIV>返回值：<FONT face="Times New Roman">/windows/location/page.html</FONT></DIV> <DIV><FONT face="Times New Roman">6,window.location.search</FONT></DIV> <DIV>查询<FONT face="Times New Roman">(</FONT>参数<FONT face="Times New Roman">)</FONT>部分。除了给动态语言赋值以外，我们同样可以给静态页面<FONT face="Times New Roman">,</FONT>并使用<FONT face="Times New Roman">javascript</FONT>来获得相信应的参数值</DIV> <DIV>返回值：<FONT face="Times New Roman">?ver=1.0&amp;id=timlq</FONT></DIV> <DIV><FONT face="Times New Roman">7,window.location.hash</FONT></DIV> <DIV>锚点</DIV> <DIV>返回值：<FONT face="Times New Roman">#love</FONT></DIV></DIV> [ASP/shtml]asp利用aspjpeg给图片生成PNG透明水印 http://www.yici.net/content/text_all/text_0/536_1.html 佚名 ASP/shtml 2009-1-3 18:49:44 <P>'aspjpeg<FONT face=Verdana>版本:v1.801<BR></FONT>'将pic.jpg打上logo.png,可根据图片大小对水印图做适当调整<BR><BR>filename="pic.jpg"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '原始图片<BR>Set Jpeg1 = Server.CreateObject("Persits.Jpeg")<BR>Jpeg1.Open Server.MapPath(filename)&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<BR>iWidth=Jpeg1.OriginalWidth&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;'图片的宽度<BR>iHeight=Jpeg1.OriginalHeight&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;'图片的高度<BR>iiwidth=204&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;'水印图片的宽度<BR>iiheight=32&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '水印图片的高度<BR><BR>'水印图居左上<BR>jpeg1.Canvas.DrawPNG 5, 5,Server.MapPath("logo.png")&nbsp;<BR><BR>'水印图居右上<BR><FONT face=Verdana>'jpeg1.Canvas.DrawPNG iWidth-iiWidth-5, 5, Server.MapPath("logo.png")&nbsp;&nbsp;<BR><BR>'水印图居左下&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<BR>'jpeg1.Canvas.DrawPNG 5, iHeight-iiHeight-5, Server.MapPath("logo.png")&nbsp;<BR><BR>'水印图居右下<BR>'jpeg1.Canvas.DrawPNG iWidth-iiWidth-5, iHeight-iiHeight-5,Server.MapPath("logo.png")<BR><BR>'水印图居中<BR>'jpeg1.Canvas.DrawPNG iWidth/2-iiWidth/2, iHeight/2-iiHeight/2, Server.MapPath("logo.png")<BR></FONT><BR>jpeg1.save Server.mappath(filename)&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;'保存打上水印的图片将覆盖原图,亦可另存<BR>Set Jpeg1 = Nothing<BR><BR>效果:<BR></P> <P><IMG src="/content/uploadfiles/2009-01/20090103_185012.jpg" border=0></P> [ASP/shtml]Aspjpeg添加文字水印、图片LOGO水印完整方法 http://www.yici.net/content/text_all/text_0/535_1.html 佚名 ASP/shtml 2009-1-3 18:23:46 ASPJPEG是Persits出品的共享软件，试用期为30天，您可以在这里下载：http://www.persits.com/aspjpeg.exe。最新版本号是1.3 <BR>ASPJPEG是一款功能相当强大的图象处理组件，用它可以轻松地做出图片的缩略图和为图片加上水印功能。下面简单介绍一下使用方法： <BR>您先要执行下载得到的exe文件，安装该组件 <BR>1、为图片制作缩略图&nbsp; <BR>&lt;%&nbsp;\\\'&nbsp;建立实例 <BR>Dim&nbsp;Jpeg,Path <BR>Set&nbsp;Jpeg&nbsp;=&nbsp;Server.CreateObject("Persits.Jpeg") <BR>\\\'&nbsp;图片所在位置 <BR>Path&nbsp;=&nbsp;Server.MapPath("images")&nbsp;&amp;&nbsp;"\\\\clock.jpg" <BR><BR><BR>\\\'&nbsp;打开 <BR>Jpeg.Open&nbsp;Path <BR><BR>\\\'&nbsp;设置缩略图大小（这里比例设定为50%） <BR>Jpeg.Width&nbsp;=&nbsp;Jpeg.OriginalWidth&nbsp;/&nbsp;2 <BR>Jpeg.Height&nbsp;=&nbsp;Jpeg.OriginalHeight&nbsp;/&nbsp;2 <BR><BR>\\\'&nbsp;保存缩略图到指定文件夹下 <BR>Jpeg.Save&nbsp;Server.MapPath("images")&nbsp;&amp;&nbsp;"\\\\clock_small.jpg" <BR><BR>\\\'&nbsp;注销实例 <BR>Set&nbsp;Jpeg&nbsp;=&nbsp;Nothing <BR>%&gt; <BR><BR>&lt;IMG&nbsp;SRC="images/clock.jpg"&gt;&lt;P&gt; <BR>&lt;IMG&nbsp;SRC="images/clock_small.jpg"&gt;&nbsp; <BR><BR><BR>2、为图片加入水印功能 <BR>&lt;% <BR>Dim&nbsp;Jpeg <BR>\\\'&nbsp;建立实例 <BR>Set&nbsp;Jpeg&nbsp;=&nbsp;Server.CreateObject("Persits.Jpeg") <BR>\\\'&nbsp;打开目标图片 <BR>Jpeg.Open&nbsp;Server.MapPath("images/dodge_viper.jpg") <BR><BR>\\\'&nbsp;添加文字水印 <BR>Jpeg.Canvas.Font.Color&nbsp;=&nbsp;&amp;HFF0000\\\'&nbsp;红色 <BR>Jpeg.Canvas.Font.Family&nbsp;=&nbsp;"宋体" <BR>Jpeg.Canvas.Font.Bold&nbsp;=&nbsp;True&nbsp;&nbsp; <BR>Jpeg.Canvas.Print&nbsp;10,&nbsp;10,&nbsp;"Copyright&nbsp;(c)&nbsp;Cnmaya.org" <BR><BR>\\\'&nbsp;保存文件 <BR>Jpeg.Save&nbsp;Server.MapPath("images/dodge_viper_framed.jpg") <BR><BR>\\\'&nbsp;注销对象 <BR>Set&nbsp;Jpeg&nbsp;=&nbsp;Nothing <BR>%&gt;&nbsp; <BR><BR><BR>上次做过图片水印，效果很差，没办法把图片弄成背景透明的，用背景透明gif会自动填充成白色。用去掉某种颜色的功能，图片颜色总是不纯，出来的效果斑斑点点。今天灵机一动，把这两个结合起来，用背景透明的gif，并且抽取水印底色，果然成功了！ <BR><BR>&nbsp;&nbsp;&nbsp;&nbsp;ogvbox.Canvas.Pen.Color&nbsp;&nbsp;=&nbsp;&amp;H000000&nbsp;&nbsp;\\\'//&nbsp;边框的颜色 <BR>&nbsp;&nbsp;&nbsp;&nbsp;ogvbox.Canvas.Pen.Width&nbsp;&nbsp;=&nbsp;1&nbsp;&nbsp;&nbsp;&nbsp;\\\'//&nbsp;边框的粗细 <BR>&nbsp;&nbsp;&nbsp;&nbsp;ogvbox.Canvas.Brush.Solid&nbsp;=&nbsp;False&nbsp;&nbsp;&nbsp;\\\'//&nbsp;图片边框内是否填充颜色 <BR>&nbsp;&nbsp;&nbsp;&nbsp;ogvbox.DrawImage&nbsp;ogvbox.Width-210,&nbsp;ogvbox.Height-74,&nbsp;Logobox&nbsp;&nbsp;,0.3,&amp;HFFFFFF&nbsp;&nbsp;&nbsp;&nbsp;\\\'//&nbsp;加入图片的位置坐标（添加水印图片），我用图片大小减去水印大小，把水印加在右下角。参数顺序为：水平坐标，垂直坐标，水印图片地址，水银透明度，抽取颜色（&amp;H表示16进制） <BR>&nbsp;&nbsp;&nbsp;&nbsp;ogvbox.Canvas.Bar&nbsp;0,&nbsp;0,&nbsp;ogvbox.Width,&nbsp;ogvbox.Height&nbsp;\\\'//&nbsp;图片边框线的位置坐标和大小 <BR>&nbsp;&nbsp;&nbsp;&nbsp;ogvbox.Save&nbsp;Server.MapPath(imagename)&nbsp;&nbsp;\\\'//&nbsp;生成文件 <BR>\'//------Pollener.com&nbsp;AspJpeg组件的预览和水印生成------开始------ <BR>\'创建预览图片:call&nbsp;CreateView(原始文件的路径,预览文件名及路径) <BR>Sub&nbsp;CreateView(imagename,tempFilename) <BR>\'定义变量。 <BR>Dim&nbsp;PreviewImageFolderName <BR>Dim&nbsp;ogvbox,objFont <BR>Dim&nbsp;Logobox,LogoPath <BR>LogoPath&nbsp;=&nbsp;Server.MapPath("images")&nbsp;&amp;&nbsp;"\\shuiyin.gif"&nbsp;&nbsp;\'//加入图片所在路径及文件名(我的是论坛\\images\\shuiyin.gif)。 <BR><BR>Select&nbsp;Case&nbsp;upload_ViewType <BR>Case&nbsp;0 <BR>\'---------------------CreatePreviewImage--------------- <BR>set&nbsp;ogvbox&nbsp;=&nbsp;Server.CreateObject("CreatePreviewImage.cGvbox") <BR>ogvbox.SetSavePreviewImagePath=Server.MapPath(tempFilename)&nbsp;&nbsp;&nbsp;\'预览图存放路径。 <BR>ogvbox.SetPreviewImageSize&nbsp;=SetPreviewImageSize&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;\'预览图宽度。 <BR>ogvbox.SetImageFile&nbsp;=&nbsp;trim(Server.MapPath(imagename))&nbsp;&nbsp;&nbsp;&nbsp;\'imagename原始文件的物理路径。 <BR>\'创建预览图的文件。 <BR>If&nbsp;ogvbox.DoImageProcess=false&nbsp;Then <BR>Response.write&nbsp;"生成预览图错误:"&amp;&nbsp;ogvbox.GetErrString <BR>End&nbsp;If <BR>Case&nbsp;1 <BR>\'---------------------AspJpegV1.2--------------- <BR>Set&nbsp;Logobox&nbsp;=&nbsp;Server.CreateObject("Persits.Jpeg") <BR>\'//建议不要图片和文字水印同时使用，本代码为使用图片水印。 <BR>Logobox.Open&nbsp;LogoPath&nbsp;&nbsp;\'//读取添加的图片。 <BR><BR>\'//重新设置图片的大小。 <BR>Logobox.Width&nbsp;=&nbsp;186&nbsp;&nbsp;\'//用做水印的图片的宽度值（像素）。 <BR>Logobox.Height&nbsp;=&nbsp;52&nbsp;&nbsp;\'//用做水印的图片的高度值（像素）。 <BR>\'//添加水印。 <BR>Set&nbsp;ogvbox&nbsp;=&nbsp;Server.CreateObject("Persits.Jpeg") <BR>\'//读取要处理的原文件。 <BR>ogvbox.Open&nbsp;Trim(Server.MapPath(imagename)) <BR>If&nbsp;ogvbox.OriginalWidth&lt;Cint(ImageWidth)&nbsp;or&nbsp;ogvbox.Originalheight&lt;Cint(ImageHeight)&nbsp;Then <BR>&nbsp;&nbsp;F_Viewname="" <BR>&nbsp;&nbsp;Set&nbsp;ogvbox&nbsp;=&nbsp;Nothing <BR>&nbsp;&nbsp;Exit&nbsp;Sub <BR>Else <BR>IF&nbsp;ImageMode&lt;&gt;""&nbsp;and&nbsp;FileExt&lt;&gt;"gif"&nbsp;Then&nbsp;&nbsp;\'//如果将这行改为IF&nbsp;ImageMode&lt;&gt;""&nbsp;Then则可给上传的GIF图片也加上水印，但是那些动画的GIF在加了水印以后就只剩第一桢了，根据你的需求酌情处理吧。 <BR><BR>\'//关于修改字体及文字颜色的。 <BR>\'//ogvbox.Canvas.Font.Color&nbsp;=&nbsp;&amp;H0000FF&nbsp;&nbsp;\'//水印文字的颜色，&amp;H后面输入色彩值。 <BR>\'//ogvbox.Canvas.Font.Size&nbsp;=&nbsp;18&nbsp;&nbsp;\'//水印文字的大小。 <BR>\'//ogvbox.Canvas.Font.Family&nbsp;=&nbsp;"Arial"&nbsp;&nbsp;\'//水印文字的字体名称。 <BR>\'//ogvbox.Canvas.Font.ShadowColor&nbsp;=&nbsp;&amp;H000000&nbsp;&nbsp;\'//水印文字的阴影色彩。 <BR>\'//ogvbox.Canvas.Font.ShadowXoffset&nbsp;=&nbsp;1&nbsp;&nbsp;\'//水印文字阴影向右偏移的像素值，输入负值则向左偏移。 <BR>\'//ogvbox.Canvas.Font.ShadowYoffset&nbsp;=&nbsp;1&nbsp;&nbsp;\'//水印文字阴影向下偏移的像素值，输入负值则向右偏移。 <BR>\'//ogvbox.Canvas.Font.Quality&nbsp;=&nbsp;3&nbsp;&nbsp;\'//水印文字的清晰度，从0～4，变换不是很大，建议用2或3。 <BR>\'//ogvbox.Canvas.Font.Bold&nbsp;=&nbsp;True&nbsp;&nbsp;\'//水印文字是否为粗体，True=粗体&nbsp;False=正常。 <BR><BR>\'ogvbox.Canvas.Print&nbsp;10,&nbsp;10,&nbsp;ImageMode&nbsp;&nbsp;\'//水印文字的起始坐标（像素）。 <BR>ogvbox.Canvas.Pen.Color&nbsp;&nbsp;=&nbsp;&amp;H000000&nbsp;&nbsp;\'//增加水印后图片的边框色彩。 <BR>ogvbox.Canvas.Pen.Width&nbsp;&nbsp;=&nbsp;1&nbsp;&nbsp;&nbsp;\'//增加水印后图片的边框宽度。 <BR>ogvbox.Canvas.Brush.Solid&nbsp;=&nbsp;False&nbsp;&nbsp;\'//边框内是否填充颜色，你可以试试看值为True时的效果^o^ <BR>ogvbox.DrawImage&nbsp;ogvbox.width-186,&nbsp;ogvbox.height-52,&nbsp;Logobox,&nbsp;0.5&nbsp;&nbsp;\'//水印图片的起始坐标，我这里ogvbox.width-186,&nbsp;ogvbox.height-52,表示图片在右下角，因为我的图片宽是186，高是52，所以这样写，你可以根据自己的图片进行调整。0.5是透明度，我这里是半透明，1表示不透明，你也可以试试看0.7或者0.8的效果。 <BR>ogvbox.Canvas.Bar&nbsp;0,&nbsp;0,&nbsp;ogvbox.Width,&nbsp;ogvbox.Height&nbsp;&nbsp;\'//水印可用的范围。我这里表示左上角至右下角，即整张图片的任意为止都可加水印。 <BR>ogvbox.Save&nbsp;Server.MapPath(imagename)&nbsp;&nbsp;\'//根据以上参数生成增加水印后的图片文件。 <BR>&nbsp;&nbsp;&nbsp;End&nbsp;If <BR>&nbsp;&nbsp;&nbsp;ogvbox.Width&nbsp;=&nbsp;ImageWidth <BR>&nbsp;&nbsp;&nbsp;ogvbox.height&nbsp;=&nbsp;ImageHeight <BR>&nbsp;&nbsp;&nbsp;\'ogvbox.height&nbsp;=&nbsp;ogvbox.Originalheight*ImageWidth\\ogvbox.OriginalWidth <BR>&nbsp;&nbsp;&nbsp;ogvbox.Sharpen&nbsp;1,&nbsp;120 <BR>&nbsp;&nbsp;&nbsp;ogvbox.Save&nbsp;Server.MapPath(tempFilename)&nbsp;&nbsp;\'//生成增加水印后的图片的预览图片。 <BR>&nbsp;&nbsp;End&nbsp;If <BR>&nbsp;&nbsp;Set&nbsp;Logobox=Nothing <BR>\'//------Pollener.com&nbsp;AspJpeg组件的预览和水印生成------结束------ <BR><BR><BR> [ASP/shtml]一个蛮BT的防SQL注入过滤函数 http://www.yici.net/content/text_all/text_0/534_1.html 佚名 ASP/shtml 2009-1-3 0:33:04 &lt;%<BR>'SQL防注入过滤函数<BR>Function ChkStr(Str)<BR>&nbsp;&nbsp; If Isnull(Str) Then<BR>&nbsp;&nbsp;&nbsp; CheckStr = ""<BR>&nbsp;&nbsp;&nbsp; Exit Function <BR>&nbsp;&nbsp; End If<BR>&nbsp;&nbsp; Str = Replace(Str,Chr(0),"", 1, -1, 1)<BR>&nbsp;&nbsp; Str = Replace(Str, """", "&amp;quot;", 1, -1, 1)<BR>&nbsp;&nbsp; Str = Replace(Str,"&lt;","&amp;lt;", 1, -1, 1)<BR>&nbsp;&nbsp; Str = Replace(Str,"&gt;","&amp;gt;", 1, -1, 1) <BR>&nbsp;&nbsp; Str = Replace(Str, "script", "&amp;#115;cript", 1, -1, 0)<BR>&nbsp;&nbsp; Str = Replace(Str, "SCRIPT", "&amp;#083;CRIPT", 1, -1, 0)<BR>&nbsp;&nbsp; Str = Replace(Str, "Script", "&amp;#083;cript", 1, -1, 0)<BR>&nbsp;&nbsp; Str = Replace(Str, "script", "&amp;#083;cript", 1, -1, 1)<BR>&nbsp;&nbsp; Str = Replace(Str, "object", "&amp;#111;bject", 1, -1, 0)<BR>&nbsp;&nbsp; Str = Replace(Str, "OBJECT", "&amp;#079;BJECT", 1, -1, 0)<BR>&nbsp;&nbsp; Str = Replace(Str, "Object", "&amp;#079;bject", 1, -1, 0)<BR>&nbsp;&nbsp; Str = Replace(Str, "object", "&amp;#079;bject", 1, -1, 1)<BR>&nbsp;&nbsp; Str = Replace(Str, "applet", "&amp;#097;pplet", 1, -1, 0)<BR>&nbsp;&nbsp; Str = Replace(Str, "APPLET", "&amp;#065;PPLET", 1, -1, 0)<BR>&nbsp;&nbsp; Str = Replace(Str, "Applet", "&amp;#065;pplet", 1, -1, 0)<BR>&nbsp;&nbsp; Str = Replace(Str, "applet", "&amp;#065;pplet", 1, -1, 1)<BR>&nbsp;&nbsp; Str = Replace(Str, "[", "&amp;#091;")<BR>&nbsp;&nbsp; Str = Replace(Str, "]", "&amp;#093;")<BR>&nbsp;&nbsp; Str = Replace(Str, """", "", 1, -1, 1)<BR>&nbsp;&nbsp; Str = Replace(Str, "=", "&amp;#061;", 1, -1, 1)<BR>&nbsp;&nbsp; Str = Replace(Str, "'", "''", 1, -1, 1)<BR>&nbsp;&nbsp; Str = Replace(Str, "select", "sel&amp;#101;ct", 1, -1, 1)<BR>&nbsp;&nbsp; Str = Replace(Str, "execute", "&amp;#101xecute", 1, -1, 1)<BR>&nbsp;&nbsp; Str = Replace(Str, "exec", "&amp;#101xec", 1, -1, 1)<BR>&nbsp;&nbsp; Str = Replace(Str, "join", "jo&amp;#105;n", 1, -1, 1)<BR>&nbsp;&nbsp; Str = Replace(Str, "union", "un&amp;#105;on", 1, -1, 1)<BR>&nbsp;&nbsp; Str = Replace(Str, "where", "wh&amp;#101;re", 1, -1, 1)<BR>&nbsp;&nbsp; Str = Replace(Str, "insert", "ins&amp;#101;rt", 1, -1, 1)<BR>&nbsp;&nbsp; Str = Replace(Str, "delete", "del&amp;#101;te", 1, -1, 1)<BR>&nbsp;&nbsp; Str = Replace(Str, "update", "up&amp;#100;ate", 1, -1, 1)<BR>&nbsp;&nbsp; Str = Replace(Str, "like", "lik&amp;#101;", 1, -1, 1)<BR>&nbsp;&nbsp; Str = Replace(Str, "drop", "dro&amp;#112;", 1, -1, 1)<BR>&nbsp;&nbsp; Str = Replace(Str, "create", "cr&amp;#101;ate", 1, -1, 1)<BR>&nbsp;&nbsp; Str = Replace(Str, "rename", "ren&amp;#097;me", 1, -1, 1)<BR>&nbsp;&nbsp; Str = Replace(Str, "count", "co&amp;#117;nt", 1, -1, 1)<BR>&nbsp;&nbsp; Str = Replace(Str, "chr", "c&amp;#104;r", 1, -1, 1)<BR>&nbsp;&nbsp; Str = Replace(Str, "mid", "m&amp;#105;d", 1, -1, 1)<BR>&nbsp;&nbsp; Str = Replace(Str, "truncate", "trunc&amp;#097;te", 1, -1, 1)<BR>&nbsp;&nbsp; Str = Replace(Str, "nchar", "nch&amp;#097;r", 1, -1, 1)<BR>&nbsp;&nbsp; Str = Replace(Str, "char", "ch&amp;#097;r", 1, -1, 1)<BR>&nbsp;&nbsp; Str = Replace(Str, "alter", "alt&amp;#101;r", 1, -1, 1)<BR>&nbsp;&nbsp; Str = Replace(Str, "cast", "ca&amp;#115;t", 1, -1, 1)<BR>&nbsp;&nbsp; Str = Replace(Str, "exists", "e&amp;#120;ists", 1, -1, 1)<BR>&nbsp;&nbsp; Str = Replace(Str,Chr(13),"&lt;br&gt;", 1, -1, 1)<BR>&nbsp;&nbsp; ChkStr = Replace(Str,"'","''", 1, -1, 1)<BR>End Function<BR>%&gt; [ASP/shtml]aspjpeg组件安装、使用常见问题 http://www.yici.net/content/text_all/text_0/533_1.html 佚名 ASP/shtml 2009-1-2 16:31:43 <P><SPAN style="FONT-SIZE: 12px">检测是否注册成功&lt;% </SPAN><SPAN style="FONT-SIZE: 12px">Set Jpeg =Server.CreateObject("Persits.Jpeg")<BR>Response.Write Jpeg.Expires<BR>%&gt; 如果显示为 99999 则表明 注册安装成功</SPAN></P> <P><SPAN style="FONT-SIZE: 12px">如果未成功 可尝试以下方法</SPAN></P> <P><SPAN style="FONT-SIZE: 12px">更改 注册表 序列号<SPAN style="FONT-SIZE: 12px"><BR>HKEY_LOCAL_MA CHINE&nbsp;&nbsp;\Software\ Persits Software\AspJpeg\RegKey&nbsp;&nbsp;RegKey值填入序列号</SPAN></SPAN></P> <P><SPAN style="FONT-SIZE: 12px"><SPAN style="FONT-SIZE: 12px"></SPAN></SPAN>&nbsp;以下详细说明</P> <DIV class=content_main>Persits&nbsp;AspJpeg1.6简明教程<BR><BR><STRONG>1、什么是AspJpeg？</STRONG><BR>　　AspJpeg是一款功能强大的基于Microsoft&nbsp;IIS环境的图片处理组件，网络上对其进行详细和深入介绍的中文文章并不多，即使有一般也只是牵涉到图片缩略图和图片水印，这与其为英文版本有着密切的关系。<BR>　　AspJpeg可以使用很少的代码在您的ASP/ASP.Net应用程序上动态的创建高质量的缩略图象，支持的图象格式有：JPEG,&nbsp;GIF,&nbsp;BMP,&nbsp;TIFF,&nbsp;PNG<BR><BR>AspJpeg主要可以做到：<BR><BR>生成缩略图片<BR>生成水印图片<BR>图片合并<BR>图片切割<BR>数据库支持<BR>安全码技术<BR><BR><STRONG>2、AspJpeg功能摘要</STRONG><BR>支持JPEG,&nbsp;GIF,&nbsp;BMP,&nbsp;TIFF&nbsp;和&nbsp;PNG&nbsp;格式图片.&nbsp;输出格式始终为&nbsp;JPEG<BR>源图片可以来源于磁盘、内存、或者记录集（数据库）<BR>缩略图片可以保存到磁盘、内存、或者HTTP流<BR>支持三种更改大小方式:&nbsp;nearest-neighbor,&nbsp;bilinear,&nbsp;and&nbsp;bicubic.&nbsp;<BR>可以在图片之上添加图片或者文字.&nbsp;<BR>支持画中画<BR>支持复制，反转，旋转，锐化，灰度调节.<BR>可以调节压缩比率，以得到最佳输出效果和大小.&nbsp;<BR>从Jpeg图片中抽取EXIF&nbsp;和&nbsp;IPTC数据.<BR>CMYK-RGB转换<BR>Read/write&nbsp;access&nbsp;to&nbsp;individual&nbsp;pixels&nbsp;of&nbsp;an&nbsp;image.&nbsp;（从图象中对任意象素进行读/写存取。）<BR><BR><STRONG>3、AspJpeg系统需求</STRONG><BR>Windows&nbsp;95/98/NT/2000/XP/2003,&nbsp;and&nbsp;<BR>IIS&nbsp;4.0+&nbsp;and&nbsp;ASP/ASP.NET,&nbsp;or<BR>Visual&nbsp;Basic&nbsp;5.0+,&nbsp;or<BR>Visual&nbsp;C++&nbsp;5.0+,&nbsp;or<BR>any&nbsp;development&nbsp;environment&nbsp;supporting&nbsp;COM.&nbsp;<BR><BR><STRONG>4、AspJpeg安装</STRONG><BR>全新安装：<BR>在AspJpeg安装过程中输入序列号即可，如果安装位置磁盘格式为NTFS，则可能出现访问权限问题，需手工设置安装目录对Everyone有访问权限。<BR><BR>更新安装：<BR>如果之前有装过其它版本的AspJpeg组件，则需要先卸载原来的组件，再进行新版本的安装。<BR>先停止IIS<BR>Net&nbsp;Stop&nbsp;iisadmin&nbsp;/y<BR>卸载旧版组件<BR>regsvr32&nbsp;/u&nbsp;Path/aspjpeg.dl（Path为安装路径）<BR>重启IIS<BR>Net&nbsp;Start&nbsp;w3svc<BR><BR>然后再进行全新安装或复制AspJpeg.dll文件到安装目录进行手工安装：<BR>regsvr32&nbsp;Path/aspjpeg.dll（Path为安装路径）<BR><BR>如果在正常安装过程中没有输入序列号或手工安装则必须在注册表中加入以下项，为方便起见您可以直接将以下代码保存为.reg文档并导入注册表：<BR> <DIV class=code_main>Windows&nbsp;Registry&nbsp;Editor&nbsp;Version&nbsp;5.00<BR><BR>[HKEY_LOCAL_MACHINE\SOFTWARE\Persits&nbsp;Software\AspUpload3\RegKey]<BR>@="21764-40765-60456"</DIV><BR><STRONG>5、如何创建一个AspJpeg实例？</STRONG><BR> <DIV class=code_main>Set&nbsp;Jpeg&nbsp;=&nbsp;Server.CreateObject("Persits.Jpeg")</DIV><BR><BR><STRONG>6、如何查看到期时间（是否注册成功）？</STRONG><BR> <DIV class=code_main>Set&nbsp;Jpeg&nbsp;=&nbsp;Server.CreateObject("Persits.Jpeg")<BR>Response.Write&nbsp;Jpeg.Expires</DIV><BR>注册成功则到期时间为：9999-9-9<BR>否则为：安装日期加1个月期限<BR><BR><STRONG>7、如何用AspJpeg组件生成图片缩略图？</STRONG><BR> <DIV class=code_main>&lt;%&nbsp;<BR>Set&nbsp;Jpeg&nbsp;=&nbsp;Server.CreateObject("Persits.Jpeg")&nbsp;&nbsp;&nbsp;&nbsp;'创建实例<BR>Path&nbsp;=&nbsp;Server.MapPath("../images/apple.jpg")&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;'处理图片路径<BR>Jpeg.Open&nbsp;Path&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;'打开图片<BR>'调整宽度和高度为原来的50%<BR>Jpeg.Width&nbsp;=&nbsp;Jpeg.OriginalWidth&nbsp;/&nbsp;2<BR>Jpeg.Height&nbsp;=&nbsp;Jpeg.OriginalHeight&nbsp;/&nbsp;2<BR>Jpeg.Save&nbsp;Server.MapPath("apple_small.jpg")&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;'保存图片到磁盘<BR>Jpeg.Close:Set&nbsp;Jpeg&nbsp;=&nbsp;Nothing<BR>%&gt;</DIV>&nbsp;<BR><STRONG>8、如何用AspJpeg组件生成图片水印？</STRONG><BR> <DIV class=code_main>&lt;%&nbsp;<BR>Set&nbsp;Jpeg&nbsp;=&nbsp;Server.CreateObject("Persits.Jpeg")&nbsp;<BR>Jpeg.Open&nbsp;Server.MapPath("images/dodge_viper.jpg")&nbsp;<BR>开始写文字&nbsp;<BR>Jpeg.Canvas.Font.Color&nbsp;=&nbsp;&amp;000000''&nbsp;red&nbsp;颜色&nbsp;<BR>Jpeg.Canvas.Font.Family&nbsp;=&nbsp;"Courier&nbsp;New"&nbsp;字体&nbsp;<BR>Jpeg.Canvas.Font.Bold&nbsp;=&nbsp;True&nbsp;是否加粗&nbsp;<BR>Jpeg.Canvas.Print&nbsp;10,&nbsp;10,&nbsp;"Copyright&nbsp;(c)&nbsp;XYZ,&nbsp;Inc."&nbsp;<BR>打印坐标x&nbsp;打印坐标y&nbsp;需要打印的字符&nbsp;<BR>以下是对图片进行边框处理&nbsp;<BR>Jpeg.Canvas.Pen.Color&nbsp;=&nbsp;&amp;H000000''&nbsp;black&nbsp;颜色&nbsp;<BR>Jpeg.Canvas.Pen.Width&nbsp;=&nbsp;2&nbsp;画笔宽度&nbsp;<BR>Jpeg.Canvas.Brush.Solid&nbsp;=&nbsp;False&nbsp;是否加粗处理&nbsp;<BR>Jpeg.Canvas.Bar&nbsp;1,&nbsp;1,&nbsp;Jpeg.Width,&nbsp;Jpeg.Height&nbsp;<BR>起始X坐标&nbsp;起始Y坐标&nbsp;输入长度&nbsp;输入高度&nbsp;<BR>Jpeg.Save&nbsp;Server.MapPath("images/dodge_viper_framed.jpg")&nbsp;保存&nbsp;<BR>%&gt;</DIV><BR><STRONG>9、如何用AspJpeg组件进行图片合并？</STRONG><BR>AspJpeg&nbsp;1.3+&nbsp;enables&nbsp;you&nbsp;to&nbsp;place&nbsp;images&nbsp;on&nbsp;top&nbsp;of&nbsp;each&nbsp;other&nbsp;via&nbsp;the&nbsp;method&nbsp;DrawImage.&nbsp;To&nbsp;use&nbsp;this&nbsp;method,&nbsp;you&nbsp;must&nbsp;create&nbsp;two&nbsp;instances&nbsp;of&nbsp;the&nbsp;AspJpeg&nbsp;objects&nbsp;and&nbsp;populate&nbsp;both&nbsp;of&nbsp;them&nbsp;with&nbsp;images&nbsp;via&nbsp;calls&nbsp;to&nbsp;Open&nbsp;(or&nbsp;OpenBinary).&nbsp;When&nbsp;calling&nbsp;Canvas.DrawImage,&nbsp;the&nbsp;2nd&nbsp;instance&nbsp;of&nbsp;AspJpeg&nbsp;is&nbsp;passed&nbsp;as&nbsp;an&nbsp;argument&nbsp;to&nbsp;this&nbsp;method,&nbsp;along&nbsp;with&nbsp;the&nbsp;X&nbsp;and&nbsp;Y&nbsp;offsets&nbsp;(in&nbsp;pixels):&nbsp;<BR>使用该方法，您必需创建两个AspJpeg实例对象<BR> <DIV class=code_main>&lt;%<BR>Set&nbsp;Jpeg1&nbsp;=&nbsp;Server.CreateObject("Persits.Jpeg")<BR>Set&nbsp;Jpeg2&nbsp;=&nbsp;Server.CreateObject("Persits.Jpeg")<BR>Jpeg1.Open&nbsp;Server.MapPath("t.jpg")<BR>Jpeg2.Open&nbsp;Server.MapPath("t1.jpg")<BR>Jpeg1.Canvas.DrawImage&nbsp;10,&nbsp;10,&nbsp;Jpeg2&nbsp;'&nbsp;optional&nbsp;arguments&nbsp;omitted<BR>jpeg1.save&nbsp;Server.mappath("tt.jpg")<BR>%&gt;</DIV><BR><STRONG>10、如何用AspJpeg组件进行图片切割？</STRONG><BR>AspJpeg&nbsp;1.1+&nbsp;is&nbsp;also&nbsp;capable&nbsp;of&nbsp;cutting&nbsp;off&nbsp;edges&nbsp;from,&nbsp;or&nbsp;cropping,&nbsp;the&nbsp;resultant&nbsp;thumbnails&nbsp;via&nbsp;the&nbsp;method&nbsp;Crop(x0,&nbsp;y0,&nbsp;x1,&nbsp;y1).&nbsp;The&nbsp;size&nbsp;of&nbsp;the&nbsp;cropped&nbsp;image&nbsp;is&nbsp;specified&nbsp;by&nbsp;the&nbsp;coordinates&nbsp;of&nbsp;the&nbsp;upper-left&nbsp;and&nbsp;lower-right&nbsp;corners&nbsp;within&nbsp;the&nbsp;resultant&nbsp;thumbnail,&nbsp;not&nbsp;the&nbsp;original&nbsp;large&nbsp;image.&nbsp;<BR> <DIV class=code_main>&lt;%<BR>Set&nbsp;Jpeg&nbsp;=&nbsp;Server.CreateObject("Persits.Jpeg")<BR>Jpeg.Open&nbsp;Server.MapPath("t.jpg")<BR>jpeg.Crop&nbsp;20,&nbsp;30,&nbsp;jpeg.Width&nbsp;-&nbsp;20,&nbsp;jpeg.Height&nbsp;-&nbsp;10&nbsp;<BR>jpeg.save&nbsp;Server.mappath("tt.jpg")<BR>Response.write("&lt;img&nbsp;src=tt.jpg&gt;")<BR>%&gt;</DIV><BR><STRONG>11、如何用AspJpeg组件创建安全码？</STRONG><BR>创建安全码原理上和创建水印差不多。<BR> <DIV class=code_main>&lt;%<BR>function&nbsp;make_randomize(max_len,w_n)&nbsp;'max_len&nbsp;生成长度，w_n：0&nbsp;可能包含字母，1：只为数字&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;randomize&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;for&nbsp;intcounter=1&nbsp;to&nbsp;max_len&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;whatnext=int((1-0+1)*rnd+w_n)&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;if&nbsp;whatnext=0&nbsp;then&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;upper=122&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;lower=97&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;else&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;upper=57&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;lower=48&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;end&nbsp;if&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;strnewpass=strnewpass&nbsp;&amp;&nbsp;chr(int((upper-lower+1)*rnd)+lower)&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;next&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;make_randomize=strnewpass&nbsp;<BR>end&nbsp;function&nbsp;<BR><BR>'生成安全码的图片。<BR>random_num=make_randomize(4,1)&nbsp;''生成4位数字的安全码&nbsp;<BR>session("random_num")=random_num&nbsp;'为么调用session，没有session的安全码是完全没有意义的。呵呵&nbsp;.<BR><BR>Set&nbsp;Jpeg&nbsp;=&nbsp;Server.CreateObject("Persits.Jpeg")&nbsp;'调用组件&nbsp;<BR>Jpeg.Open&nbsp;Server.MapPath("t.jpg")&nbsp;'打开准备的图片&nbsp;<BR>Jpeg.Canvas.Font.Color&nbsp;=&nbsp;&amp;HFFFFFF&nbsp;<BR>Jpeg.Canvas.Font.Family&nbsp;=&nbsp;"Arial&nbsp;Black"&nbsp;<BR>Jpeg.Canvas.Font.Bold&nbsp;=&nbsp;false&nbsp;<BR>Jpeg.Canvas.PrintText&nbsp;0,&nbsp;-2,&nbsp;random_num&nbsp;<BR>jpeg.save&nbsp;Server.MapPath("tt.jpg")&nbsp;'保存&nbsp;<BR>%&gt;&nbsp;<BR>&lt;img&nbsp;src="tt.jpg"&nbsp;border="0"&nbsp;align="absmiddle"&gt;</DIV>&nbsp;<BR><STRONG>12、如何让AspJpeg组件支援数据库？</STRONG><BR>图片存进数据库只能以二进制数据保存，这里即利用AspJpeg的Binary方法，下面以两个AspJpeg用户手册上的代码为例，具体请参考AspJpeg用户手册：<BR>Opening&nbsp;Images&nbsp;from&nbsp;Memory&nbsp;<BR> <DIV class=code_main>&lt;%&nbsp;'&nbsp;Using&nbsp;ADO,&nbsp;open&nbsp;database&nbsp;with&nbsp;an&nbsp;image&nbsp;blob<BR>strConnect&nbsp;=&nbsp;"DRIVER={Microsoft&nbsp;Access&nbsp;Driver&nbsp;(*.mdb)};DBQ="&nbsp;&amp;&nbsp;Server.MapPath("../db/aspjpeg.mdb")<BR>Set&nbsp;rs&nbsp;=&nbsp;Server.CreateObject("adodb.recordset")<BR>SQL&nbsp;=&nbsp;"select&nbsp;image_blob&nbsp;from&nbsp;images2&nbsp;where&nbsp;id&nbsp;=&nbsp;"&nbsp;&amp;&nbsp;Request("id")<BR>rs.Open&nbsp;SQL,&nbsp;strConnect,&nbsp;1,&nbsp;3<BR>Set&nbsp;Jpeg&nbsp;=&nbsp;Server.CreateObject("Persits.Jpeg")<BR>'&nbsp;Open&nbsp;image&nbsp;directly&nbsp;from&nbsp;recordset<BR>Jpeg.OpenBinary&nbsp;rs("image_blob").Value<BR>'&nbsp;Resize<BR>jpeg.Width&nbsp;=&nbsp;Request("Width")<BR>'&nbsp;Set&nbsp;new&nbsp;height,&nbsp;preserve&nbsp;original&nbsp;aspect&nbsp;ratio<BR>jpeg.Height&nbsp;=&nbsp;jpeg.OriginalHeight&nbsp;*&nbsp;jpeg.Width&nbsp;/&nbsp;jpeg.OriginalWidth<BR>Jpeg.SendBinary<BR>rs.Close<BR>%&gt;</DIV>&nbsp;<BR>Output&nbsp;to&nbsp;Memory&nbsp;&nbsp;<BR> <DIV class=code_main>&lt;%<BR>...<BR>Set&nbsp;rs&nbsp;=&nbsp;Server.CreateObject("adodb.recordset")<BR>rs.Open&nbsp;"images",&nbsp;strConnect,&nbsp;1,&nbsp;3<BR>rs.AddNew<BR>rs("image_blob").Value&nbsp;=&nbsp;Jpeg.Binary<BR>rs.Update<BR>...<BR>%&gt;</DIV></DIV>