<?xml version="1.0" encoding="UTF-8"?>
  <feed xmlns="http://www.w3.org/2005/Atom">
  <title type="html"><![CDATA[KinJAVA日志 - 永远不要说绝对不会。]]></title>
  <subtitle type="html"><![CDATA[ASP真的是没钱途！靠，怎样才能当上IT业的财子呢？-ReallyDo.Com]]></subtitle>
  <id>http://Jorkin.Reallydo.Com/</id> 
  <link rel="alternate" type="text/html" href="http://Jorkin.Reallydo.Com/" /> 
  <link rel="self" type="application/atom+xml" href="http://Jorkin.Reallydo.Com/atom.asp" /> 
  <generator uri="http://www.pjhome.net/" version="2.4.1022">PJBlog2</generator> 
  <updated>2008-08-24T17:59:06+08:00</updated> 

  <entry>
	  <title type="html"><![CDATA[ASP常用函数:RemoveApplication()]]></title>
	  <author>
		 <name>Jorkin</name>
		 <uri>http://Jorkin.Reallydo.Com/</uri>
		 <email>Jorkin2000(AT)hotmail.com</email>
	  </author>
	  <category term="" scheme="http://Jorkin.Reallydo.Com/default.asp?cateID=19" label="敝帚自珍" /> 
	  <updated>2008-08-24T17:59:06+08:00</updated>
	  <published>2008-08-24T17:59:06+08:00</published>
		  <summary type="html"><![CDATA[<font color="#8000ff">&lt;%<br /></font><font color="#008000">'功能:可以按前缀清理Application的东东<br />'来源:http://jorkin.reallydo.com/article.asp?id=543<br /><br /></font><font color="#0000ff">Public </font>WriteRemoveApplication<br /><br /><font color="#0000ff">Function </font>RemoveApplication<font color="#000080">(</font>sString<font color="#000080">)<br />&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#0000ff">On Error Resume Next<br />&nbsp;&nbsp;&nbsp;&nbsp;</font>sString <font color="#000080">= </font>BStr<font color="#000080">(</font>sString<font color="#000080">)<br />&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#0000ff">Dim </font>aApplicationArray<font color="#000080">, </font>x<font color="#000080">, </font>i<font color="#000080">, </font>j<br />&nbsp;&nbsp;&nbsp;&nbsp;i <font color="#000080">= -</font><font color="#800080">1<br />&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#0000ff">ReDim </font>aApplicationArray<font color="#000080">(</font>i<font color="#000080">)<br />&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#0000ff">For Each </font>x <font color="#0000ff">in </font>Application<font color="#000080">.</font>Contents<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color="#0000ff">If </font>Left<font color="#000080">(</font>x<font color="#000080">, </font>Len<font color="#000080">(</font>sString<font color="#000080">)) = </font>sString <font color="#0000ff">Then<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font>i <font color="#000080">= </font>i <font color="#000080">+ </font><font color="#800080">1<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#0000ff">ReDim Preserve </font>aApplicationArray<font color="#000080">(</font>i<font color="#000080">)<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font>aApplicationArray<font color="#000080">(</font>i<font color="#000080">) = </font>x<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color="#0000ff">End If<br />&nbsp;&nbsp;&nbsp;&nbsp;Next<br />&nbsp;&nbsp;&nbsp;&nbsp;For </font>j <font color="#000080">= </font><font color="#800080">0 </font><font color="#0000ff">To </font>i<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Application<font color="#000080">.</font>Lock<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Application<font color="#000080">.</font>Contents<font color="#000080">.</font>Remove<font color="#000080">(</font>aApplicationArray<font color="#000080">(</font>j<font color="#000080">))<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#0000ff">If </font>WriteRemoveApplication <font color="#0000ff">Then </font>WriteLn <font color="#800000">&quot;&lt;br /&gt;释放 &lt;strong&gt;&quot; </font><font color="#000080">&amp; </font>aApplicationArray<font color="#000080">(</font>j<font color="#000080">) &amp; </font><font color="#800000">&quot;&lt;/strong&gt; 完成&lt;br /&gt;&quot;<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font>Application<font color="#000080">.</font>unLock<br />&nbsp;&nbsp;&nbsp;&nbsp;<font color="#0000ff">Next<br />&nbsp;&nbsp;&nbsp;&nbsp;If </font>WriteRemoveApplication <font color="#0000ff">Then </font>WriteLn <font color="#800000">&quot;&lt;br /&gt;所有对象已经更新,共释放了 &lt;strong&gt;&quot; </font><font color="#000080">&amp; </font>j <font color="#000080">&amp; </font><font color="#800000">&quot;&lt;/strong&gt; 个缓存对象.&lt;br /&gt;&quot;<br /></font><font color="#0000ff">End Function<br /></font><font color="#8000ff">%&gt;<br /></font>]]></summary>
	  <link rel="alternate" type="text/html" href="http://Jorkin.Reallydo.Com/default.asp?id=543" /> 
	  <id>http://Jorkin.Reallydo.Com/default.asp?id=543</id> 
  </entry>	
		
  <entry>
	  <title type="html"><![CDATA[[转载]很黄很暴力的幽默回复]]></title>
	  <author>
		 <name>Jorkin</name>
		 <uri>http://Jorkin.Reallydo.Com/</uri>
		 <email>Jorkin2000(AT)hotmail.com</email>
	  </author>
	  <category term="" scheme="http://Jorkin.Reallydo.Com/default.asp?cateID=8" label="其它转载" /> 
	  <updated>2008-08-24T10:06:05+08:00</updated>
	  <published>2008-08-24T10:06:05+08:00</published>
		  <summary type="html"><![CDATA[<p>1.楼主：提名大陆扮演黑社会老大最象的演员。<br />　　沙发：古月。</p>
<p>2.楼主：其实牛顿只是幸运地发现万有引力定律，要是早生三百年，我也可以！<br />　　回复：牛顿的确是幸运儿，因为砸到他脑袋上的是苹果，而砸到可怜楼主脑袋上的不是榴莲就椰子～ </p>
<p>3.楼主（男）：小时候被叔叔猥亵过屁屁，现在长大的我该如何摆脱这种心理阴影？<br />　　回复：犯我菊花者，虽远必诛！</p>
<p>4.楼主：我和女朋友的照片，天涯朋友轻砸～ <br />　　回复：植物的性器官插在长角偶蹄类动物的排泄物上&hellip;&hellip;</p>
<p>5.楼主：大家见过公鸡下蛋吗？<br />　　沙发：没有，不过我见过CCTV说真话。<br />　　楼主：哎呀，你太牛了，我好崇拜你！</p>
<p>6.楼主：我新买了一处庄园，有多大说出来吓死你&mdash;&mdash;我开车绕一圈足足用了两个半小时！！！<br />　　沙发：嗯，以前我也有这么一辆破车～</p>
<p>7.楼主：深圳南头一卖菠萝的女摊贩情急之下咬下城管叔叔的小JJ&hellip;&hellip;<br />　　沙发：哼！你不让我生活，我就不让你享受生活！！！</p>
<p>8.楼主：每天对着单位那群白痴讲话让我觉得前途很渺茫&hellip;&hellip;<br />　　沙发：幸福吧你～因为对牛弹琴并不可怕，可怕的是一群牛每天对着你弹琴！</p>
<p>9.楼主：你们女人大夏天的戴胸罩不热吗？<br />　　回复：我们不带你们会热&hellip;&hellip;</p>
<p>10.楼主：和女友ML时，女友好像喊了另外一个男人的名字&hellip;&hellip;<br />　　沙发：你日了别人的女人你还有什么不满意的！！！</p>
<p>11.楼主：为什么******访问日本，日本方面比较冷淡，甚至机场连欢迎标语都没挂？<br />　　沙发：怎么挂？热烈欢迎中国老朋友来日？</p>
<p>12.楼主：去年到黑龙江谈生意，晚上找了个俄罗斯小姐狂干俩钟头，你猜射完后她对我说什么？嘿嘿～<br />　　沙发：中国爷们真强？<br />　　板凳：Are～～～you～～～ready?</p>
<p>13.楼主：利用东西方信息不对称，很多国外地摊货到中国都变成了奢侈品，那中国有啥垃圾牌子在国外冒充高档货？<br />　　回复    ：章子怡。</p>
<p>14.楼主：征集骂人最狠且不露脏字的一句话。<br />　　回复31：你妈生你的时候是不是把人扔了，把胎盘养大了？<br />　　回复32：我电脑里有你妈300多张照片！</p>
<p>15.天*涯楼主：从来都觉得蝎子精是整部《西游记》里最美的女人，当她把唐僧逼到床上撩拨时，我心下不住地为唐僧鼓劲：从了，从了，咱就从了吧！但关键时刻，可恶的悟空又出现了&hellip;&hellip;<br />　　回复12：唉，要是换好色的八戒出现就好了～<br />　　回复13：嗯，八戒出现了，这次改蝎子精不从了&hellip;&hellip;</p>
<p>16.楼主：老爸送我老公一根鹿鞭，大家说这是啥意思？还有照片的说～<br />　　沙发：这是老一辈对青年一代的鞭策啊~~~</p>
<p>17.楼主：大家都来讲一个开头恐怖，中间好笑，结局悲惨的故事，譬如从前有个鬼，放了个屁，然后死了。<br />　　沙发：遇到芙蓉姐姐，爱上芙蓉姐姐，娶了芙蓉姐姐&hellip;&hellip; </p>
<p>18.楼主：怀疑老婆红杏出墙，但苦于没证据&hellip;&hellip;<br />　　回复：如果你没本事做陈冠希，那就做谢霆峰吧～</p>
<p>19.楼主：《神雕侠侣》里小龙女胳膊上的守宫砂是什么东西，干什么用的？<br />　　回复：守宫砂是处女的桌面快捷方式。</p>
<p>20.楼主：新闻说某人被蟒蛇吞了，请问在野外真的遇到蟒蛇怎么办？<br />　　回复11：掐七寸，捅肛门，两个很有效的方法，希望大家广为传播。<br />　　回复12：捅蛇的肛门还是自己的肛门？<br />　　&hellip;&hellip;<br />　　回复47：屁话，荒郊野外的拿什么捅！<br />　　回复48：许仙知道拿什么捅！</p>
<p>21.楼主：在村头发现个大坟，偷偷刨了一个月刨出个不知道值不值钱的碑，请天涯牛人们帮忙翻译下上面的字。<br />　　沙发：盗墓者请自重，本人是穷死滴！</p>
<p>22.楼主：夏天得刮腋毛，否则穿短袖会影响我淑女形象的。那再弱弱问一句，阴毛用刮吗？<br />　　沙发：不刮扎嘴！</p>
<p>23.楼主：脸和身上突然长出好多雀斑，请问这是怎么回事？（附图）<br />　　回复：哎呀妈呀，吓死我了！楼主一脸的美人痣，满身的守宫砂~~~</p>
<p>24.楼主：单位人都说我长得像韩国人，大家说像吗？（上照片）<br />　　沙发：因为你长得像个棒子，单位同事又不好意思明说，所以只好说你长得像韩国人！</p>
<p>25.楼主：帅有个屁用&mdash;&mdash;到头来还不是被卒吃掉！<br />　　回复：帅有士陪，有炮打，有马骑，有车坐，有相暗恋&hellip;&hellip;帅怎么不好？！！</p>
<p>26.楼主：为什么生下的孩子要跟父亲一个姓？<br />　　沙发：因为取款机里吐出的钱归插卡人所有。</p>
<p>27.楼主：是中国人就抵制《古惑仔》之类的烂片，因为这种烂片很容易就把小孩教坏！<br />　　沙发：晕～像楼主这样的看《鼹鼠的故事》都会去学盗墓&hellip;&hellip;</p>
<p>28.楼主：为什么金嗓子喉宝总请足球明星为其代言？ <br />　　回复：外国球星温馨提醒大家&mdash;&mdash;骂中国男足时请用金嗓子喉宝！</p>
<p>29.楼主：美国一位名叫乔治&amp;赫伯特的推销员成功地把一把斧头推销给小布什总统，因此他获得2005年布鲁金斯学会（世界上最权威、最有影响力的推销员组织）的&ldquo;金靴&rdquo;奖。假如给你一次机会向******推销东西，你会选择什么？<br />　　沙发：我要把俺娘推荐给他！！！</p>
<p>30.楼主：大家知道，从六教东侧往北的路是个下坡，刚才我来六教时突然看见一可爱MM骑车直冲而下，并高呼&ldquo;太爽了！&rdquo;引来不少行人侧目。现在回想起来，MM甜美的声音真是让人回味无穷啊～<br />　　她喊爽的原因似乎有以下理由：<br />　　1.   刚考完试，心情不错；<br />　　2.做完一天功课，我们尽情来欢乐！<br />　　3.由于是下坡，所以冲下去时清风迎面扑来，所以感觉很爽；<br />　　4.MM刚好看见我这个帅哥，一时激动得无法表白，只好大呼其爽；<br />　　5.大家补充&hellip;&hellip;：）<br />　　沙发：明天我就把这丫头的车座再装回去！</p>
<p>31.楼主：反腐真的就这么难吗？<br />　　沙发：你割割自己的JJ看难不难！！</p>
<p>32.楼主：请用一句话形容中国国家地震台。<br />　　回复：事后诸葛亮，事前猪一样！</p>
<p>33.楼主：美军在伊拉克不能抽身说明美国是个负责任的国家！！！<br />　　沙发：那我股票被套牢说明我是个负责任的中国股民？？？</p>
<p>34.楼主：为什么警察抓坏人时都要鸣警笛？难道不怕坏人老大远就听到跑了？<br />　　沙发：上级单位来检查之前一般都会事先通知下级单位的～</p>
<p>35.楼主：萨达姆就义前仍振臂高呼，虽听不懂他在喊什么，但还是由衷地敬佩这位领袖！ <br />　　沙发：萨达姆咒道：&ldquo;中国哪个狗日的说&lsquo;让领导先走&rsquo;的！！！&rdquo;</p>
<p>36.楼主：为什么近来冤假错案屡有发生，试问我们的国家到底是法制还是人治？<br />　　天*涯沙发：不是法治，也不是人治，而是治人，并且初级阶段一百年不变！</p>
<p>37.楼主：楼上正在做爱的夫妻被楼下执勤的警察打扰，气得他们把TT扔到警察身上，结果警察上楼就把两人带走了！<br />　　沙发：把液体扔下去，没过多久，固体就上来敲门了？</p>
<p>38.楼主：据香港翡翠台报道，今晨阿娇在其母亲陪同下到圣约翰女子医院做过检查，医院诊断报告证明其处女膜未见器质性损伤，不信大家可以浏览翡翠台网站（PS裸照的人可耻！）&mdash;&mdash;我永远的阿娇。 <br />　　沙发：妈的，你是在嘲笑陈冠希的JJ小吗？！！</p>
<p>39.楼主：网易做的新闻投票选项简直太不靠谱了！<br />　　沙发：嗯，我孩子最近就不爱学习，我就吓唬他说：&ldquo;你若再不好好学习，长大以后就只能到网易当个新闻编辑！&rdquo;这句话虽然对六岁的孩子来说有点残酷，但果然好用，今天他一直在学习&hellip;&hellip;</p>
<p>41.楼主：你小时候曾幻想长大以后什么样的场景会让你在众人面前出尽了风头？<br />　　板凳：挑一担粪上街，看谁不顺眼就迎面给他泼一瓢！</p>
<p>42.楼主：我得了健忘症怎么办？<br />　　回复：那岂不是很爽？每天早晨醒来发现睡在自己身旁的都是不同的女人～</p>
<p>43.楼主：我看了20遍的《还珠格格》，实在是太好看了！<br />　　沙发：难道LZ说的是那部《小蝌蚪找爸爸》？</p>
<p>44.楼主：刚才不小心摔了一跤，结果JJ插进水泥地里拔不出来了，大家说我该怎么办啊？<br />　　回复：老婆，快来看那，野生的JJ还能长出个人儿来！~</p>
<p>45.楼主：听到一特好听的歌，歌词只记得是&ldquo;一个芝麻糕，不如一针细&rdquo;，求歌名啊！<br />　　回复：你可知Macau，不是我真姓&hellip;&hellip;－_－!</p>
<p>46.楼主：该死的理发店把我头剪坏了！大家出点损招，要求破坏性越大越好，动静越小越好，因为是我一个人去。<br />　　地下室：半夜三更，月黑风高，静静地、轻轻地，一个人吊死在理发店门口&hellip;&hellip;</p>
<p>47.楼主：天涯装B的实在是太多了，讨厌死了！<br />　　沙发：LZ,Don&rsquo;t zhuangbility,zhuangbility leads to leipility!（注释：莫装B，装B被雷劈！）</p>
<p>48.楼主：老娘我简直太有钱了，我该给保姆买辆什么车呢？<br />　　回复：那就要看她跟你老公发展到什么关系了～</p>
<p>49.楼主：他今天山盟海誓说我是他生命中的一部分，我是他身体中的一部分，如果没了我，他就活不下去啦~<br />　　沙发：我的前男友也是这么说的，后来我才知道，我是他盲肠、阑尾、仔耳、六指这类可有可无的玩意儿！</p>
<p>50.楼主：香港（梁朝伟）最迷人，大陆（　　）最迷人。GF让把空填上，大家帮帮忙！<br />　　回复：香港（梁朝伟）最迷人，大陆（。）（。）最迷人。</p>
<p>51.楼主：唐国强在新拍的一部电视剧中对一女演员用强，结果害得人家漏点.<br />　　沙发：主席，使不得！主席～使不得！！</p>
<p>52.楼主：棒子因中国不归还其祖辈的长白山而杀猪示威！<br />　　沙发：本是同根生，相煎何太急！</p>
<p>53.楼主（日本人）：金庸阁下武侠小说里的点穴是否构想于我国的推拿按摩？<br />　　沙发：非也，鄙国的穴是用来点的，贵国的穴是用来日的。</p>
<p>54.楼主：假如我有一亿人民币，我就可以贷款在汤臣一品买房子了！ <br />　　回复：嗯，不过你还要先借钱交物业费～</p>
<p>55.楼主：股市的达人们啊，请告诉我北京奥运会开幕前一天满仓能否把钱赚暴了？<br />　　沙发：不能，因为8月是以往中国股市最最危险的月份之一，其他最最危险的月份分别是3月、7月、1月、9月、10月、11月、5月、6月、12月、4月和2月。</p>
<p>56.楼主：我月薪六位数，每月开销也在五位数以上，霍霍，爷我算不算有钱人？<br />　　沙发：真正有钱人怎么花钱都在自己手上。比如李嘉诚，在香港任何一个地方买东西，最后钱还是回到自己手里~</p>
<p>57.楼主：印度总统说要在2007年向月球发射宇宙飞船？不是我笑他，就这YY国家的航天技术水平能往哪发射？<br />　　板凳：墙上。</p>
<p>58.楼主：韩国怎么了？谁再拿说韩国说事小心我们跨过&ldquo;三八线&rdquo;与你们一战到底！<br />　　回复：CCTV天气预报至少要报三分钟，而贵国只有一句&mdash;&mdash;全国阴天或全国有雨，这样的一个民族也敢与中国一战？</p>
<p>59.楼主：什么叫暴发户？<br />　　沙发：昨天还在卖淫，今天就去嫖娼！</p>
<p>60.楼主：你最讨厌最鄙视的国家是哪个？<br />　　沙发：日本，妈的！<br />　　楼主：你说话就不能不带脏字吗？<br />　　沙发：好。<br />　　楼主：请重新回答，你最讨厌最鄙视的国家是哪个？<br />　　沙发：妈的！</p>
<p>61.楼主：大家聊聊双胞胎的事吧，随便什么都行。我爸就是双胞胎，但一个生下来就死了，一个不到四十也去世了。<br />　　沙发：你爸是哪个？</p>
<p>62.沙发：楼主和猪想的一样！<br />　　楼主：对，我和你想的一样！</p>
<p>63.楼主：小时候妈妈告诉我一个道理：如果你和某个人吵架，不一定是你的错；但如果你跟很多人吵架，那一定是你的原因！<br />　　回复：强盗逻辑！那你妈被很多人轮奸一定是你妈很淫荡的缘故？？？</p>
<p>64.楼主：总分不清楚赵本山和郭德纲模样，天涯的是怎么区分的？<br />　　沙发：晚上把灯一关，从额头往下摸，一晚上都摸不到下巴的是赵本山！</p>
<p>65.楼主：大家说说自己所在地的小姐常用拉客用语吧。我先来，江西小姐：要服务吗？<br />　　沙发：欧洲小姐：嘿！中国人，有发票！</p>
<p>66.楼主:胸大有错吗？为什么删我的帖子？ <br />　　回复（版主）：删你帖子不是因为色情，而是因为你下垂得太厉害了！</p>
<p>67.楼主：我和单位二十多个女人发生过关心，结果发现没有一个是处女，看来天下的女人都一样贱！<br />　　回复：自己生活在粪坑里就以为全世界都是厕所！</p>
<p>68.楼主：河利秀变性问题各位是怎么看的？<br />　　沙发：做人还真不能太贪心～看吧，从娘胎里多拿出来的东西还不是迟早要还给上帝。</p>
<p>69.楼主：哈哈，成功抢注&ldquo;功夫熊猫&rdquo;这个ID，大家说以后我用这个名字是不是很拉风啊？<br />　　沙发：你爸是鸭子！</p>
<p>70.楼主：MM发来&ldquo;想、恨、忍、真、我、爱、情、你、没、世、今、一、在、活、生、为、乐、有、好、快、过、不&rdquo;，让我用这22个字组成一句完整的话，请各位大哥帮帮忙！<br />　　沙发（标准答案）：在今生没有快乐过，真不想为情忍恨活一世，我好爱你！<br />　　回复：上联：忍恨活一生，你我不在；下联：为情过今世，快乐没有。横批：好想真爱！</p>
<p>71.楼主：昨晚遛狗时俺们家大藏獒和小树林边一秃毛野狗咬起来。干！没想到藏獒竟然大败！！！<br />　　沙发：妈的，爷秃之前，他们都叫我狮子！</p>
<p>72.楼主：我把我家的狗给揍了，地震它也不告诉我！平时叫得那么欢，刚才地震时竟像没事似的在窝里睡觉！<br />　　回复：唉～毕竟不是亲生的&hellip;&hellip;</p>
<p>73.楼主：大家说我长得像不像伍佰？<br />　　回复：只有一半像</p>
<p>74.楼主：乳即是小的意思，比如乳鸽、乳猪等。<br />　　回复：我被同事揍了！因为听了楼主的话，今天我叫办公室对桌的女同事&mdash;&mdash;乳王&hellip;&hellip;<br />　　<br />75.楼主：各位达人来说说《诛仙》里的经典语录吧。我先来：天地不仁，以万物为刍狗。<br />　　沙发：这是老子说的！鉴于楼主的文化程度，顺便解释一下，这个&ldquo;老子&rdquo;不是指本人，而是指古代一位著名思想家。</p>
<p>76.楼主：去东莞出差，晚上找了个鸡讨价还价才花一千，嘿嘿，怎么样，是不是连东莞本地的也羡慕啊？<br />　　沙发：楼主真有钱！我们这里价格是&mdash;&mdash;十元修得同船渡，百元修得共枕眠！</p>
<p>77.楼主：大便时如何防止便便溅起的水花弄到屁股上？<br />　　沙发：你可以向跳水运动员郭晶晶请教。<br />　　楼主：你骂郭晶晶姐姐是大便？？？</p>
<p>78.楼主：王小丫跟陈章良结婚，请用四个字评论。<br />　　回复：丫从良了！</p>
<p>79.楼主：少女惨遭轮奸，凶手逍遥法外！<br />　　沙发：我的妈呀，真不是人呀，太残忍了！<br />　　板凳：楼上别这么说，众所周知，您母亲是全天下最伟大的母亲！</p>
<p>80.楼主：818你收到过的最BH的礼物吧。<br />　　回复：当年有一个我感觉很不错的GG，他从未向我表白过，可又若有若无的和我玩着暧昧。有天深夜，他突然开车从几百里外的单位赶回来，直接开到我家楼下说想和出去我兜风，第二天一大早他还要赶回去上班。他把车开到僻静处突然停下来，偶紧张，他该不会要表白吧？安静了好久，忽然他说要给我看一样东西，说着去开尾箱，偶又一次紧张，心想该不是999朵玫瑰吧？正面红耳赤含羞带怯之际，他他他&hellip;&hellip;他居然拿出一根警棍深情地对偶说：&ldquo;你不是说你没看见过警棍吗？我特意带回来给你看的~&rdquo;555，从此一刀两断！！！因为偶一辈子都不会忘记&mdash;&mdash;一个大好月圆之夜，一对青年男女，在幽静的柳树下，共同欣赏一根警棍&hellip;&hellip;</p>
<p>81.楼主：大家为什么都另眼看待公务员，要知道没有我们公务员这个国家机器就玩不转。<br />　　回复：楼主别听楼上那些人乱说，我支持你，因为我孙子也是公务员！</p>
<p>82.楼主：某女遇一男尾随，行至荒凉处，该男遂起歹意，将女子强奸。事后，受害人觉得该男很行，就对他说再搞一次哈。问：这两次行为是否都属强奸？ <br />　　沙发：中国法律有很大两面性，本案亦然&mdash;&mdash;强奸要做就做最好，做不好就是犯罪！</p>
<p>87.楼主：科学社会主义是幻想还是科学？&rdquo; <br />　　沙发：当然是科学！&rdquo; <br />　　楼主：如果是科学的话，为什么他们不先拿狗去做试验？</p>
<p>90.楼主：冈比亚总统警告中国&mdash;&mdash;你攻台我就出兵！！！<br />　　冈比亚位于非洲西部，面积10380平方公里，人口150万，人类发展指数在世界173个国家中排名第160位。中国与冈比亚1974年12月14日建交。1995年7月13日，冈比亚和台湾当局决定恢复&ldquo;外交关系&rdquo;，同年7月25日，中国宣布中止同冈比亚的外交关系。【军事】1985年议会通过武装部队法，1996年宪法规定实行义务兵役制。冈国民军创建于1984年2月，2001年总兵力约800人。其中海军成立于1996年7月，原名国民卫队，1997年7月更为现名，共70人，2艘炮艇。警察部队成立于1992年2月，包括警察和国家宪兵，现有1000余人。冈比亚国家卫队成立于1997年8月，负责反贩毒、走私等，现有110人。<br />　　沙发：黑人大兵要来解救我们这些生活在独裁专制中的人们啦，这一刻，我泪流满面~今夜，我们都是冈比亚人</p>
<p>91.楼主：CPI让全国人民更让中央高层睡不着觉。<br />　　沙发：骗谁呢！会有睡不着觉的领导？？？那我倒要看看哪个小姐这么牛逼！！！</p>
<p>92.楼主：我们的政府最体贴最关心人民了！<br />　　沙发：楼主忘打&ldquo;币&rdquo;字了&hellip;&hellip;</p>]]></summary>
	  <link rel="alternate" type="text/html" href="http://Jorkin.Reallydo.Com/default.asp?id=542" /> 
	  <id>http://Jorkin.Reallydo.Com/default.asp?id=542</id> 
  </entry>	
		
  <entry>
	  <title type="html"><![CDATA[BOLT神一样的存在]]></title>
	  <author>
		 <name>Jorkin</name>
		 <uri>http://Jorkin.Reallydo.Com/</uri>
		 <email>Jorkin2000(AT)hotmail.com</email>
	  </author>
	  <category term="" scheme="http://Jorkin.Reallydo.Com/default.asp?cateID=9" label="胡诌乱侃" /> 
	  <updated>2008-08-20T22:22:22+08:00</updated>
	  <published>2008-08-20T22:22:22+08:00</published>
		  <summary type="html"><![CDATA[简直就是猎豹的速度。。。这才是真正的飞人。]]></summary>
	  <link rel="alternate" type="text/html" href="http://Jorkin.Reallydo.Com/default.asp?id=541" /> 
	  <id>http://Jorkin.Reallydo.Com/default.asp?id=541</id> 
  </entry>	
		
  <entry>
	  <title type="html"><![CDATA[时间过得真快]]></title>
	  <author>
		 <name>Jorkin</name>
		 <uri>http://Jorkin.Reallydo.Com/</uri>
		 <email>Jorkin2000(AT)hotmail.com</email>
	  </author>
	  <category term="" scheme="http://Jorkin.Reallydo.Com/default.asp?cateID=9" label="胡诌乱侃" /> 
	  <updated>2008-08-08T20:08:08+08:00</updated>
	  <published>2008-08-08T20:08:08+08:00</published>
		  <summary type="html"><![CDATA[<p>感觉北京申奥成功还是前不久的事呢.</p>
<p>一眨眼已经开幕了.还行,老谋子不愧大师级.</p>
<p>那个打长城牌麻将的节目很不错,而且还能连&ldquo;和(hu)&rdquo;三把.创意真是太棒了.</p>
<p>月光女神Sarah Brightman的风头也不小,估计很多中国人由不认识她到一下子喜欢上她.</p>
<p>不过网上到处都是 <a href="http://www.baidu.com/baidu?word=%D5%F0%BA%B3%B5%C4%BF%AA%C4%BB%CA%BD+%B5%E7%CA%D3%C9%CF%BF%B4%B2%BB%B5%BD%B5%C4%BE%B5%CD%B7&amp;tn=reallydo_pg" target="_blank">震撼的开幕式 电视上看不到的镜头</a>&nbsp;这个贴子.</p>]]></summary>
	  <link rel="alternate" type="text/html" href="http://Jorkin.Reallydo.Com/default.asp?id=540" /> 
	  <id>http://Jorkin.Reallydo.Com/default.asp?id=540</id> 
  </entry>	
		
  <entry>
	  <title type="html"><![CDATA[发现jQuery真的是够强大]]></title>
	  <author>
		 <name>Jorkin</name>
		 <uri>http://Jorkin.Reallydo.Com/</uri>
		 <email>Jorkin2000(AT)hotmail.com</email>
	  </author>
	  <category term="" scheme="http://Jorkin.Reallydo.Com/default.asp?cateID=9" label="胡诌乱侃" /> 
	  <updated>2008-08-06T07:29:41+08:00</updated>
	  <published>2008-08-06T07:29:41+08:00</published>
		  <summary type="html"><![CDATA[很多以前要写上N多行的代码,现在可能不到10行就搞定了.]]></summary>
	  <link rel="alternate" type="text/html" href="http://Jorkin.Reallydo.Com/default.asp?id=539" /> 
	  <id>http://Jorkin.Reallydo.Com/default.asp?id=539</id> 
  </entry>	
		
  <entry>
	  <title type="html"><![CDATA[[原创]基于jQuery的表格悬停变色/恢复,表格点击变色/恢复,点击行选Checkbox]]></title>
	  <author>
		 <name>Jorkin</name>
		 <uri>http://Jorkin.Reallydo.Com/</uri>
		 <email>Jorkin2000(AT)hotmail.com</email>
	  </author>
	  <category term="" scheme="http://Jorkin.Reallydo.Com/default.asp?cateID=19" label="敝帚自珍" /> 
	  <updated>2008-08-03T22:10:05+08:00</updated>
	  <published>2008-08-03T22:10:05+08:00</published>
		  <summary type="html"><![CDATA[<span style="COLOR: #008000">/*</span><span style="COLOR: #008000">******************************************************************************<br />&nbsp;&nbsp;&nbsp;&nbsp;Name:&nbsp;Kin_Table<br />&nbsp;&nbsp;&nbsp;&nbsp;Website:&nbsp;http://jorkin.reallydo.com/article.asp?id=538<br />&nbsp;&nbsp;&nbsp;&nbsp;Version:&nbsp;1.0<br />&nbsp;&nbsp;&nbsp;&nbsp;Update:&nbsp;2007/08/05<br />&nbsp;&nbsp;&nbsp;&nbsp;Introduction:&nbsp;toggle&nbsp;table&nbsp;row&nbsp;color&nbsp;by&nbsp;mouseover<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;and&nbsp;check&nbsp;checkbox&nbsp;by&nbsp;click&nbsp;table&nbsp;row<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;and&nbsp;toggle&nbsp;table&nbsp;row&nbsp;background-color&nbsp;by&nbsp;check&nbsp;checkbox<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;but&nbsp;can&nbsp;not&nbsp;exclude&nbsp;checkboxes&nbsp;(I&nbsp;dont&nbsp;need&nbsp;this.&nbsp;^_^&nbsp;)<br />&nbsp;&nbsp;&nbsp;&nbsp;Reference:&nbsp;Dodo&nbsp;(tableRowCheckboxToggle)<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Softcomplex&nbsp;(tigra_tables)<br />&nbsp;&nbsp;&nbsp;&nbsp;Others:Need&nbsp;jQuery<br />&nbsp;&nbsp;&nbsp;&nbsp;Example:http://jorkin.reallydo.com/post/538.html<br />&nbsp;*****************************************************************************</span><span style="COLOR: #008000">*/</span><span style="COLOR: #000000"><br /><br />&nbsp;&nbsp;&nbsp;&nbsp;</span><span style="COLOR: #0000ff">function</span><span style="COLOR: #000000">&nbsp;Kin_Tables(Kin_Table_GetTableMethod,&nbsp;</span><span style="COLOR: #008000">//</span><span style="COLOR: #008000">get&nbsp;your&nbsp;table</span><span style="COLOR: #008000"><br /></span><span style="COLOR: #000000">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Kin_Table_Header_Offset,&nbsp;</span><span style="COLOR: #008000">//</span><span style="COLOR: #008000">set&nbsp;the&nbsp;table&nbsp;header&nbsp;offset</span><span style="COLOR: #008000"><br /></span><span style="COLOR: #000000">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Kin_Table_Footer_Offset,&nbsp;</span><span style="COLOR: #008000">//</span><span style="COLOR: #008000">set&nbsp;the&nbsp;table&nbsp;footer&nbsp;offset</span><span style="COLOR: #008000"><br /></span><span style="COLOR: #000000">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Kin_Table_Odd_Style,&nbsp;</span><span style="COLOR: #008000">//</span><span style="COLOR: #008000">&nbsp;set&nbsp;the&nbsp;table&nbsp;odd&nbsp;row&nbsp;style&nbsp;name&nbsp;(Default:odd)</span><span style="COLOR: #008000"><br /></span><span style="COLOR: #000000">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Kin_Table_Even_Style,&nbsp;</span><span style="COLOR: #008000">//</span><span style="COLOR: #008000">&nbsp;set&nbsp;the&nbsp;table&nbsp;even&nbsp;row&nbsp;style&nbsp;name&nbsp;(Default:even)</span><span style="COLOR: #008000"><br /></span><span style="COLOR: #000000">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Kin_Table_Hover_Style,&nbsp;</span><span style="COLOR: #008000">//</span><span style="COLOR: #008000">&nbsp;set&nbsp;the&nbsp;table&nbsp;mouseover&nbsp;row&nbsp;style&nbsp;name&nbsp;(Default:over)</span><span style="COLOR: #008000"><br /></span><span style="COLOR: #000000">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Kin_Table_Click_Style&nbsp;</span><span style="COLOR: #008000">//</span><span style="COLOR: #008000">&nbsp;set&nbsp;the&nbsp;table&nbsp;odd&nbsp;row&nbsp;style&nbsp;name&nbsp;(Default:clicked)</span><span style="COLOR: #008000"><br /></span><span style="COLOR: #000000">&nbsp;&nbsp;&nbsp;&nbsp;){<br /><br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;$(</span><span style="COLOR: #0000ff">function</span><span style="COLOR: #000000">(){<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</span><span style="COLOR: #0000ff">var</span><span style="COLOR: #000000">&nbsp;Kin_Table_Config&nbsp;</span><span style="COLOR: #000000">=</span><span style="COLOR: #000000">&nbsp;[];<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Kin_Table_Config.GetTableMethod&nbsp;</span><span style="COLOR: #000000">=</span><span style="COLOR: #000000">&nbsp;(Kin_Table_GetTableMethod&nbsp;</span><span style="COLOR: #000000">?</span><span style="COLOR: #000000">&nbsp;Kin_Table_GetTableMethod&nbsp;:&nbsp;</span><span style="COLOR: #000000">&quot;</span><span style="COLOR: #000000">.Kin_Table</span><span style="COLOR: #000000">&quot;</span><span style="COLOR: #000000">);&nbsp;</span><span style="COLOR: #008000">//</span><span style="COLOR: #008000">得到Table的方法&nbsp;同$()&nbsp;必选</span><span style="COLOR: #008000"><br /></span><span style="COLOR: #000000">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Kin_Table_Config.Header_Offset&nbsp;</span><span style="COLOR: #000000">=</span><span style="COLOR: #000000">&nbsp;(</span><span style="COLOR: #000000">!</span><span style="COLOR: #000000">isNaN(Kin_Table_Header_Offset)&nbsp;</span><span style="COLOR: #000000">?</span><span style="COLOR: #000000">&nbsp;Kin_Table_Header_Offset&nbsp;:&nbsp;</span><span style="COLOR: #000000">0</span><span style="COLOR: #000000">);&nbsp;</span><span style="COLOR: #008000">//</span><span style="COLOR: #008000">从前起忽略多少行&nbsp;可选参数</span><span style="COLOR: #008000"><br /></span><span style="COLOR: #000000">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Kin_Table_Config.Footer_Offset&nbsp;</span><span style="COLOR: #000000">=</span><span style="COLOR: #000000">&nbsp;(</span><span style="COLOR: #000000">!</span><span style="COLOR: #000000">isNaN(Kin_Table_Footer_Offset)&nbsp;</span><span style="COLOR: #000000">?</span><span style="COLOR: #000000">&nbsp;Kin_Table_Footer_Offset&nbsp;:&nbsp;</span><span style="COLOR: #000000">0</span><span style="COLOR: #000000">);&nbsp;</span><span style="COLOR: #008000">//</span><span style="COLOR: #008000">从后起忽略多少行&nbsp;可选参数</span><span style="COLOR: #008000"><br /></span><span style="COLOR: #000000">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Kin_Table_Config.Odd_Style&nbsp;</span><span style="COLOR: #000000">=</span><span style="COLOR: #000000">&nbsp;(Kin_Table_Odd_Style&nbsp;</span><span style="COLOR: #000000">?</span><span style="COLOR: #000000">&nbsp;Kin_Table_Odd_Style&nbsp;:&nbsp;</span><span style="COLOR: #000000">&quot;</span><span style="COLOR: #000000">odd</span><span style="COLOR: #000000">&quot;</span><span style="COLOR: #000000">);&nbsp;</span><span style="COLOR: #008000">//</span><span style="COLOR: #008000">奇数行样式&nbsp;可选参数</span><span style="COLOR: #008000"><br /></span><span style="COLOR: #000000">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Kin_Table_Config.Even_Style&nbsp;</span><span style="COLOR: #000000">=</span><span style="COLOR: #000000">&nbsp;(Kin_Table_Even_Style&nbsp;</span><span style="COLOR: #000000">?</span><span style="COLOR: #000000">&nbsp;Kin_Table_Even_Style&nbsp;:&nbsp;</span><span style="COLOR: #000000">&quot;</span><span style="COLOR: #000000">even</span><span style="COLOR: #000000">&quot;</span><span style="COLOR: #000000">);&nbsp;</span><span style="COLOR: #008000">//</span><span style="COLOR: #008000">偶数行样式&nbsp;可选参数</span><span style="COLOR: #008000"><br /></span><span style="COLOR: #000000">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Kin_Table_Config.Hover_Style&nbsp;</span><span style="COLOR: #000000">=</span><span style="COLOR: #000000">&nbsp;(Kin_Table_Hover_Style&nbsp;</span><span style="COLOR: #000000">?</span><span style="COLOR: #000000">&nbsp;Kin_Table_Hover_Style&nbsp;:&nbsp;</span><span style="COLOR: #000000">&quot;</span><span style="COLOR: #000000">over</span><span style="COLOR: #000000">&quot;</span><span style="COLOR: #000000">);&nbsp;</span><span style="COLOR: #008000">//</span><span style="COLOR: #008000">鼠标悬停样式&nbsp;可选参数</span><span style="COLOR: #008000"><br /></span><span style="COLOR: #000000">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Kin_Table_Config.Click_Style&nbsp;</span><span style="COLOR: #000000">=</span><span style="COLOR: #000000">&nbsp;(Kin_Table_Click_Style&nbsp;</span><span style="COLOR: #000000">?</span><span style="COLOR: #000000">&nbsp;Kin_Table_Click_Style&nbsp;:&nbsp;</span><span style="COLOR: #000000">&quot;</span><span style="COLOR: #000000">clicked</span><span style="COLOR: #000000">&quot;</span><span style="COLOR: #000000">);&nbsp;</span><span style="COLOR: #008000">//</span><span style="COLOR: #008000">鼠标点击样式&nbsp;可选参数</span><span style="COLOR: #008000"><br /></span><span style="COLOR: #000000"><br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</span><span style="COLOR: #008000">//</span><span style="COLOR: #008000">var&nbsp;Kin_Table&nbsp;=&nbsp;$(Kin_Table_Config.GetTableMethod+&quot;&nbsp;tr:nth-child(n+&quot;+eval(Kin_Table_Config.Header_Offset+1)+&quot;)&quot;);&nbsp;//Old&nbsp;Method</span><span style="COLOR: #008000"><br /></span><span style="COLOR: #000000">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</span><span style="COLOR: #0000ff">var</span><span style="COLOR: #000000">&nbsp;Kin_Table&nbsp;</span><span style="COLOR: #000000">=</span><span style="COLOR: #000000">&nbsp;$(Kin_Table_Config.GetTableMethod&nbsp;</span><span style="COLOR: #000000">+</span><span style="COLOR: #000000">&nbsp;</span><span style="COLOR: #000000">&quot;</span><span style="COLOR: #000000">&nbsp;tr</span><span style="COLOR: #000000">&quot;</span><span style="COLOR: #000000">).slice(Kin_Table_Config.Header_Offset,</span><span style="COLOR: #000000">-</span><span style="COLOR: #000000">Kin_Table_Config.Footer_Offset);&nbsp;</span><span style="COLOR: #008000">//</span><span style="COLOR: #008000">New&nbsp;Method</span><span style="COLOR: #008000"><br /></span><span style="COLOR: #000000"><br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Kin_Table.each(</span><span style="COLOR: #0000ff">function</span><span style="COLOR: #000000">(i,&nbsp;row){<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</span><span style="COLOR: #0000ff">var</span><span style="COLOR: #000000">&nbsp;Kin_Table_Row_Checkbox&nbsp;</span><span style="COLOR: #000000">=</span><span style="COLOR: #000000">&nbsp;$(row).find(</span><span style="COLOR: #000000">&quot;</span><span style="COLOR: #000000">:checkbox</span><span style="COLOR: #000000">&quot;</span><span style="COLOR: #000000">);<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;bChecked&nbsp;</span><span style="COLOR: #000000">=</span><span style="COLOR: #000000">&nbsp;</span><span style="COLOR: #0000ff">false</span><span style="COLOR: #000000">;<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;$(row).addClass(i&nbsp;</span><span style="COLOR: #000000">%</span><span style="COLOR: #000000">&nbsp;</span><span style="COLOR: #000000">2</span><span style="COLOR: #000000">&nbsp;</span><span style="COLOR: #000000">==</span><span style="COLOR: #000000">&nbsp;</span><span style="COLOR: #000000">0</span><span style="COLOR: #000000">&nbsp;</span><span style="COLOR: #000000">?</span><span style="COLOR: #000000">&nbsp;Kin_Table_Config.Odd_Style&nbsp;:&nbsp;Kin_Table_Config.Even_Style)<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;$(row).hover(</span><span style="COLOR: #0000ff">function</span><span style="COLOR: #000000">(){<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;$(</span><span style="COLOR: #0000ff">this</span><span style="COLOR: #000000">).addClass(Kin_Table_Config.Hover_Style);<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;},&nbsp;</span><span style="COLOR: #0000ff">function</span><span style="COLOR: #000000">(){<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;$(</span><span style="COLOR: #0000ff">this</span><span style="COLOR: #000000">).removeClass(Kin_Table_Config.Hover_Style);<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;$(row).click(</span><span style="COLOR: #0000ff">function</span><span style="COLOR: #000000">(){<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;$(</span><span style="COLOR: #0000ff">this</span><span style="COLOR: #000000">).toggleClass(Kin_Table_Config.Click_Style);<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Kin_Table_Row_Checkbox.each(</span><span style="COLOR: #0000ff">function</span><span style="COLOR: #000000">(){<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;</span><span style="COLOR: #0000ff">this</span><span style="COLOR: #000000">.checked&nbsp;</span><span style="COLOR: #000000">=</span><span style="COLOR: #000000">&nbsp;$(row).hasClass(Kin_Table_Config.Click_Style);<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;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Kin_Table_Row_Checkbox.each(</span><span style="COLOR: #0000ff">function</span><span style="COLOR: #000000">(){<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&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">this</span><span style="COLOR: #000000">.checked)&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;bChecked&nbsp;</span><span style="COLOR: #000000">=</span><span style="COLOR: #000000">&nbsp;</span><span style="COLOR: #0000ff">true</span><span style="COLOR: #000000">;<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;</span><span style="COLOR: #0000ff">return</span><span style="COLOR: #000000">&nbsp;</span><span style="COLOR: #0000ff">false</span><span style="COLOR: #000000">;<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;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</span><span style="COLOR: #0000ff">if</span><span style="COLOR: #000000">&nbsp;(bChecked)&nbsp;{<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;$(row).addClass(Kin_Table_Config.Click_Style);<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Kin_Table_Row_Checkbox.each(</span><span style="COLOR: #0000ff">function</span><span style="COLOR: #000000">(){<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;</span><span style="COLOR: #0000ff">this</span><span style="COLOR: #000000">.checked&nbsp;</span><span style="COLOR: #000000">=</span><span style="COLOR: #000000">&nbsp;</span><span style="COLOR: #0000ff">true</span><span style="COLOR: #000000">;<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;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</span><span style="COLOR: #0000ff">else</span><span style="COLOR: #000000">&nbsp;{<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;$(row).removeClass(Kin_Table_Config.Click_Style);<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;}<br /></span>]]></summary>
	  <link rel="alternate" type="text/html" href="http://Jorkin.Reallydo.Com/default.asp?id=538" /> 
	  <id>http://Jorkin.Reallydo.Com/default.asp?id=538</id> 
  </entry>	
		
  <entry>
	  <title type="html"><![CDATA[ASP常用函数:GetRsRows()]]></title>
	  <author>
		 <name>Jorkin</name>
		 <uri>http://Jorkin.Reallydo.Com/</uri>
		 <email>Jorkin2000(AT)hotmail.com</email>
	  </author>
	  <category term="" scheme="http://Jorkin.Reallydo.Com/default.asp?cateID=19" label="敝帚自珍" /> 
	  <updated>2008-07-15T21:59:52+08:00</updated>
	  <published>2008-07-15T21:59:52+08:00</published>
		  <summary type="html"><![CDATA[<p><font color="#8000ff">&lt;%<br /></font><font color="#008000">'功能:就是把ADO的GetRows()封装了一下<br />'来源:http://jorkin.reallydo.com/article.asp?id=537<br /><br /></font><font color="#0000ff">Function </font>GetRsRows<font color="#000080">(</font>oRs<font color="#000080">)<br />&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#0000ff">Dim </font>aArray<br />&nbsp;&nbsp;&nbsp;&nbsp;<font color="#0000ff">ReDim </font>aArray<font color="#000080">(</font><font color="#800080">0</font><font color="#000080">, -</font><font color="#800080">1</font><font color="#000080">)<br />&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#0000ff">If </font>TypeName<font color="#000080">(</font>oRs<font color="#000080">) = </font><font color="#800000">&quot;Recordset&quot; </font><font color="#0000ff">Then<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;If Not </font>oRs<font color="#000080">.</font>BOF <font color="#0000ff">Then </font>oRs<font color="#000080">.</font>MoveFirst<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color="#0000ff">If Not </font>oRs<font color="#000080">.</font>EOF <font color="#0000ff">Then </font>aArray <font color="#000080">= </font>oRs<font color="#000080">.</font>GetRows<font color="#000080">()<br />&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#0000ff">End If<br />&nbsp;&nbsp;&nbsp;&nbsp;</font>GetRsRows <font color="#000080">= </font>aArray<br /><font color="#0000ff">End Function<br /></font><font color="#8000ff">%&gt;<br /></font></p>]]></summary>
	  <link rel="alternate" type="text/html" href="http://Jorkin.Reallydo.Com/default.asp?id=537" /> 
	  <id>http://Jorkin.Reallydo.Com/default.asp?id=537</id> 
  </entry>	
		
  <entry>
	  <title type="html"><![CDATA[中文 Windows 95 GBK 代码集字符定义表]]></title>
	  <author>
		 <name>Jorkin</name>
		 <uri>http://Jorkin.Reallydo.Com/</uri>
		 <email>Jorkin2000(AT)hotmail.com</email>
	  </author>
	  <category term="" scheme="http://Jorkin.Reallydo.Com/default.asp?cateID=1" label="技术天地" /> 
	  <updated>2008-07-14T23:54:38+08:00</updated>
	  <published>2008-07-14T23:54:38+08:00</published>
		  <summary type="html"><![CDATA[<p>现在不用Windows98了,想找这个东东还真不容易.偶尔会用到.</p>
<p><a href="http://jorkin.reallydo.com/upload/month_0807/q2008713235456.rar"><img style="MARGIN: 0px 2px -4px 0px" alt="" src="http://jorkin.reallydo.com/images/download.gif" border="0" />点击下载此文件&nbsp;GBK.TXT</a></p>]]></summary>
	  <link rel="alternate" type="text/html" href="http://Jorkin.Reallydo.Com/default.asp?id=536" /> 
	  <id>http://Jorkin.Reallydo.Com/default.asp?id=536</id> 
  </entry>	
		
  <entry>
	  <title type="html"><![CDATA[千万千万不要买宏图三胞的东西]]></title>
	  <author>
		 <name>Jorkin</name>
		 <uri>http://Jorkin.Reallydo.Com/</uri>
		 <email>Jorkin2000(AT)hotmail.com</email>
	  </author>
	  <category term="" scheme="http://Jorkin.Reallydo.Com/default.asp?cateID=9" label="胡诌乱侃" /> 
	  <updated>2008-07-13T23:51:16+08:00</updated>
	  <published>2008-07-13T23:51:16+08:00</published>
		  <summary type="html"><![CDATA[<p>卖你东西的时候一群售货员围着你，想消停看会儿东西都不行。</p>
<p>等出了问题找他们的时候就没有管你了，就当店里没这个人似的。</p>
<p>以后再也不去买东西了。</p>
<p>头一次上当上得这么彻底。</p>]]></summary>
	  <link rel="alternate" type="text/html" href="http://Jorkin.Reallydo.Com/default.asp?id=535" /> 
	  <id>http://Jorkin.Reallydo.Com/default.asp?id=535</id> 
  </entry>	
		
  <entry>
	  <title type="html"><![CDATA[[分页类]Jorkin 自定义类 翻页优化代码]]></title>
	  <author>
		 <name>Jorkin</name>
		 <uri>http://Jorkin.Reallydo.Com/</uri>
		 <email>Jorkin2000(AT)hotmail.com</email>
	  </author>
	  <category term="" scheme="http://Jorkin.Reallydo.Com/default.asp?cateID=19" label="敝帚自珍" /> 
	  <updated>2008-07-12T10:01:40+08:00</updated>
	  <published>2008-07-12T10:01:40+08:00</published>
		  <summary type="html"><![CDATA[<p>可以与网上流行的 <a href="http://jorkin.reallydo.com/article.asp?id=496" target="_blank">《24款超实用的Web 2.0风格翻页页码css代码》</a> 完美无缝连接。你所做的，就是改个div的名字而已。详细请看<a href="http://jorkin.reallydo.com/kin_db_pager/?page=10" target="_blank">http://jorkin.reallydo.com/kin_db_pager/?page=10</a></p>
<p><font color="#8000ff">&lt;%<br /></font><font color="#008000">'//-----------------------------------------------------------------------------<br />'// Jorkin 自定义类 翻页优化代码<br />'// 来源: KinJAVA日志 (http://jorkin.reallydo.com/)<br />'// 最后更新: 2008-07-12<br />'//-----------------------------------------------------------------------------<br />'// 改自COCOON Db_Pager 类 (Ver: 1.05)<br />'// 感谢以下大大的分页类思想及代码:<br />'// Sunrise_Chen (http://www.ccopus.com/)<br />'// 才子 (http://www.54caizi.com/)<br />'// 叶子 (http://www.ye.vg/)<br />'//-----------------------------------------------------------------------------<br />'// 可先用 Eg() 查看本类的使用方法<br />'//-----------------------------------------------------------------------------<br /><br /></font><font color="#0000ff">Class </font>Kin_db_Pager<br /><br />&nbsp;&nbsp;&nbsp;&nbsp;<font color="#008000">'//-------------------------------------------------------------------------<br />&nbsp;&nbsp;&nbsp;&nbsp;'// 定义变量 开始<br /><br />&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#0000ff">Private </font>oConn <font color="#008000">'//连接对象<br />&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#0000ff">Private </font>sDbType <font color="#008000">'//数据库类型<br />&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#0000ff">Private </font>sTableName <font color="#008000">'//表名<br />&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#0000ff">Private </font>sPKey <font color="#008000">'//主键<br />&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#0000ff">Private </font>sFields <font color="#008000">'//输出的字段名<br />&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#0000ff">Private </font>sOrderBy <font color="#008000">'//排序字符串<br />&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#0000ff">Private </font>sSql <font color="#008000">'//当前的查询语句<br />&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#0000ff">Private </font>sSqlString <font color="#008000">'//自定义Sql语句<br />&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#0000ff">Private </font>aCondition<font color="#000080">() </font><font color="#008000">'//查询条件(数组)<br />&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#0000ff">Private </font>sCondition <font color="#008000">'//查询条件(字符串)<br />&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#0000ff">Private </font>iPage <font color="#008000">'//当前页码<br />&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#0000ff">Private </font>iPageSize <font color="#008000">'//每页记录数<br />&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#0000ff">Private </font>iPageCount <font color="#008000">'//总页数<br />&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#0000ff">Private </font>iRecordCount <font color="#008000">'//当前查询条件下的记录数<br />&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#0000ff">Private </font>iTotalRecordCount <font color="#008000">'//总记录数<br />&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#0000ff">Private </font>sPage <font color="#008000">'//当前页 替换字符串<br />&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#0000ff">Private </font>sPageCount <font color="#008000">'//总页数 替换字符串<br />&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#0000ff">Private </font>sRecordCount <font color="#008000">'//当前查询条件下的记录数 替换字符串<br />&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#0000ff">Private </font>sProjectName <font color="#008000">'//项目名<br />&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#0000ff">Private </font>sVersion <font color="#008000">'//版本号<br />&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#0000ff">Private </font>bShowError <font color="#008000">'//是否显示错误信息<br />&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#0000ff">Private </font>bDistionct <font color="#008000">'//是否显示唯一记录<br />&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#0000ff">Private </font>sPageInfo <font color="#008000">'//记录数、页码等信息<br />&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#0000ff">Private </font>bDistinct <font color="#008000">'//是否Distinct<br />&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#0000ff">Private </font>sPageParam <font color="#008000">'//page参数名称<br />&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#0000ff">Private </font>iStyle <font color="#008000">'//翻页的样式<br />&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#0000ff">Private </font>iPagerSize <font color="#008000">'//翻页按钮的数值<br />&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#0000ff">Private </font>sPagerStyle <font color="#008000">'//翻页按钮的数值<br />&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#0000ff">Private </font>sPagerCSS <font color="#008000">'//翻页按钮的数值<br />&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#0000ff">Private </font>sReWrite <font color="#008000">'//用ISAP REWRITE做的路径<br />&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#0000ff">Private </font>iTableKind <font color="#008000">'//表的类型, 是不是需要加 [ ]<br />&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#0000ff">Private </font>sFirstPage <font color="#008000">'//首页 样式<br />&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#0000ff">Private </font>sPreviewPage <font color="#008000">'//上一页 样式<br />&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#0000ff">Private </font>sCurrentPage <font color="#008000">'//当前页 样式<br />&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#0000ff">Private </font>sListPage <font color="#008000">'//分页列表 样式<br />&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#0000ff">Private </font>sNextPage <font color="#008000">'//下一页 样式<br />&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#0000ff">Private </font>sLastPage <font color="#008000">'//末页 样式<br />&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#0000ff">Private </font>iPagerTop <font color="#008000">'//分页列表头尾数量<br />&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#0000ff">Private </font>sPagerClass <font color="#008000">'//分页列表头尾样式<br />&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#0000ff">Private </font>sJumpPage <font color="#008000">'//分页跳转功能<br />&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#0000ff">Private </font>sJumpPageType <font color="#008000">'//分页跳转类型<br />&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#0000ff">Private </font>sJumpPageStyle <font color="#008000">'//分页跳转样式 需要自己写style=&quot;&quot;和class=&quot;&quot;<br />&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#0000ff">Private </font>ss<font color="#000080">, </font>iStart<font color="#000080">, </font>iEnd<font color="#000080">, </font>PgStart<br /><br />&nbsp;&nbsp;&nbsp;&nbsp;<font color="#008000">'//定义变量 结束<br />&nbsp;&nbsp;&nbsp;&nbsp;'//-------------------------------------------------------------------------<br /><br />&nbsp;&nbsp;&nbsp;&nbsp;'//-------------------------------------------------------------------------<br />&nbsp;&nbsp;&nbsp;&nbsp;'//事件、方法: 类初始化事件 开始<br /><br />&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#0000ff">Private Sub </font>Class_Initialize<font color="#000080">()<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#0000ff">ReDim </font>aCondition<font color="#000080">( -</font><font color="#800080">1</font><font color="#000080">)<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font>sProjectName <font color="#000080">= </font><font color="#800000">&quot;Jorkin 类系列 数据库翻页优化类&quot;<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font>sDbType <font color="#000080">= </font><font color="#800000">&quot;MSSQL&quot;<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font>sVersion <font color="#000080">= </font><font color="#800000">&quot;1.3 Build: 080712&quot;<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font>sPKey <font color="#000080">= </font><font color="#800000">&quot;ID&quot;<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font>sFields <font color="#000080">= </font><font color="#800000">&quot;*&quot;<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font>sCondition <font color="#000080">= </font><font color="#800000">&quot;&quot;<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font>sOrderBy <font color="#000080">= </font><font color="#800000">&quot;&quot;<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font>sSqlString <font color="#000080">= </font><font color="#800000">&quot;&quot;<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font>iPageSize <font color="#000080">= </font><font color="#800080">20<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font>iPage <font color="#000080">= </font><font color="#800080">1<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font>iRecordCount <font color="#000080">= </font><font color="#0000ff">Null<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font>iTotalRecordCount <font color="#000080">= </font><font color="#0000ff">Null<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font>iPageCount <font color="#000080">= </font><font color="#0000ff">Null<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font>bShowError <font color="#000080">= </font><font color="#0000ff">True<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font>bDistionct <font color="#000080">= </font><font color="#0000ff">False<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font>iPagerTop <font color="#000080">= </font><font color="#800080">0<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font>sPage <font color="#000080">= </font><font color="#800000">&quot;{$Kin_Page}&quot;<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font>sPageCount <font color="#000080">= </font><font color="#800000">&quot;{$Kin_PageCount}&quot;<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font>sRecordCount <font color="#000080">= </font><font color="#800000">&quot;{$Kin_RecordCount}&quot;<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font>sPageInfo <font color="#000080">= </font><font color="#800000">&quot;共有 {$Kin_RecordCount} 条记录 页次: {$Kin_Page}/{$Kin_PageCount}&quot;<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font>sPageParam <font color="#000080">= </font><font color="#800000">&quot;page&quot;<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font>iStyle <font color="#000080">= -</font><font color="#800080">1<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font>iTableKind <font color="#000080">= </font><font color="#800080">0<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font>iPagerSize <font color="#000080">= </font><font color="#800080">7<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font>sFirstPage <font color="#000080">= </font><font color="#800000">&quot;[首页]&quot;<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font>sPreviewPage <font color="#000080">= </font><font color="#800000">&quot;[上一页]&quot;<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font>sCurrentPage <font color="#000080">= </font><font color="#800000">&quot;[{$CurrentPage}]&quot;<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font>sListPage <font color="#000080">= </font><font color="#800000">&quot;[{$ListPage}]&quot;<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font>sNextPage <font color="#000080">= </font><font color="#800000">&quot;[下一页]&quot;<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font>sLastPage <font color="#000080">= </font><font color="#800000">&quot;[末页]&quot;<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font>sJumpPage <font color="#000080">= </font><font color="#800000">&quot;&quot;<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font>sJumpPageType <font color="#000080">= </font><font color="#800000">&quot;Select&quot;<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font>sPagerClass <font color="#000080">= </font><font color="#800000">&quot;&quot;<br />&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#0000ff">End Sub<br /><br />&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#008000">'//类结束事件<br /><br />&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#0000ff">Private Sub </font>Class_Terminate<font color="#000080">()<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#0000ff">Set </font>oConn <font color="#000080">= </font><font color="#0000ff">Nothing<br />&nbsp;&nbsp;&nbsp;&nbsp;End Sub<br /><br />&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#008000">'//事件、方法: 类初始化事件 结束<br />&nbsp;&nbsp;&nbsp;&nbsp;'//-------------------------------------------------------------------------<br /><br />&nbsp;&nbsp;&nbsp;&nbsp;'//-------------------------------------------------------------------------<br />&nbsp;&nbsp;&nbsp;&nbsp;'//函数、方法 开始<br /><br />&nbsp;&nbsp;&nbsp;&nbsp;'功能:ASP里的IIF<br />&nbsp;&nbsp;&nbsp;&nbsp;'用法:IIF(条件表达式,为真时返回值,为假时返回值)<br />&nbsp;&nbsp;&nbsp;&nbsp;'来源:http://jorkin.reallydo.com/article.asp?id=26<br /><br />&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#0000ff">Private Function </font>IIf<font color="#000080">(</font>bExp1<font color="#000080">, </font>sVal1<font color="#000080">, </font>sVal2<font color="#000080">)<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#0000ff">If </font><font color="#000080">(</font>bExp1<font color="#000080">) </font><font color="#0000ff">Then<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font>IIf <font color="#000080">= </font>sVal1<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color="#0000ff">Else<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font>IIf <font color="#000080">= </font>sVal2<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color="#0000ff">End If<br />&nbsp;&nbsp;&nbsp;&nbsp;End Function<br /><br />&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#008000">'功能：返回字符串，其中指定数目的某子字符串 全部 被替换为另一个子字符串。<br />&nbsp;&nbsp;&nbsp;&nbsp;'来源：http://jorkin.reallydo.com/article.asp?id=406<br />&nbsp;&nbsp;&nbsp;&nbsp;'需要Bint函数:http://jorkin.reallydo.com/article.asp?id=395<br /><br />&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#0000ff">Private Function </font>ReplaceAll<font color="#000080">(</font>sExpression<font color="#000080">, </font>sFind<font color="#000080">, </font>sReplaceWith<font color="#000080">, </font>bAll<font color="#000080">)<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#0000ff">If </font>IsNull<font color="#000080">(</font>sExpression<font color="#000080">) </font><font color="#0000ff">Then<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font>ReplaceAll <font color="#000080">= </font><font color="#800000">&quot;&quot;<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#0000ff">Exit Function<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;End If<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;If </font><font color="#000080">(</font>StrComp<font color="#000080">(</font>bAll<font color="#000080">, </font><font color="#800000">&quot;True&quot;</font><font color="#000080">, </font><font color="#800080">1</font><font color="#000080">) = </font><font color="#800080">0</font><font color="#000080">) </font><font color="#0000ff">Or </font><font color="#000080">(</font>CBool<font color="#000080">(</font>Bint<font color="#000080">(</font>bAll<font color="#000080">)) = </font><font color="#0000ff">True</font><font color="#000080">) </font><font color="#0000ff">Then<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Do While </font>InStr<font color="#000080">( </font><font color="#800080">1</font><font color="#000080">, </font>sExpression<font color="#000080">, </font>sFind<font color="#000080">, </font><font color="#800080">1</font><font color="#000080">) &gt; </font><font color="#800080">0<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font>sExpression <font color="#000080">= </font>Replace<font color="#000080">(</font>sExpression<font color="#000080">, </font>sFind<font color="#000080">, </font>sReplaceWith<font color="#000080">, </font><font color="#800080">1</font><font color="#000080">, -</font><font color="#800080">1</font><font color="#000080">, </font><font color="#800080">1</font><font color="#000080">)<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#0000ff">If </font>InStr<font color="#000080">( </font><font color="#800080">1</font><font color="#000080">, </font>sReplaceWith <font color="#000080">, </font>sFind <font color="#000080">, </font><font color="#800080">1</font><font color="#000080">) &gt;</font><font color="#800080">0 </font><font color="#0000ff">Then Exit Do<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Loop<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Else<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Do While </font>InStr<font color="#000080">(</font>sExpression<font color="#000080">, </font>sFind<font color="#000080">) &gt; </font><font color="#800080">0<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font>sExpression <font color="#000080">= </font>Replace<font color="#000080">(</font>sExpression<font color="#000080">, </font>sFind<font color="#000080">, </font>sReplaceWith<font color="#000080">)<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#0000ff">If </font>InStr<font color="#000080">(</font>sReplaceWith<font color="#000080">, </font>sFind <font color="#000080">) &gt; </font><font color="#800080">0 </font><font color="#0000ff">Then Exit Do<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Loop<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;End If<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font>ReplaceAll <font color="#000080">= </font>sExpression<br />&nbsp;&nbsp;&nbsp;&nbsp;<font color="#0000ff">End Function<br /><br /><br />&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#008000">'功能:只取数字<br />&nbsp;&nbsp;&nbsp;&nbsp;'来源:http://jorkin.reallydo.com/article.asp?id=395<br /><br />&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#0000ff">Private Function </font>Bint<font color="#000080">(</font>sValue<font color="#000080">)<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#0000ff">On Error Resume Next<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font>Bint <font color="#000080">= </font><font color="#800080">0<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font>Bint <font color="#000080">= </font>Fix<font color="#000080">(</font>sValue<font color="#000080">)<br />&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#0000ff">End Function<br /><br /><br />&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#008000">'功能:判断是否是空值<br />&nbsp;&nbsp;&nbsp;&nbsp;'来源:http://jorkin.reallydo.com/article.asp?id=386<br /><br />&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#0000ff">Private Function </font>IsBlank<font color="#000080">(</font><font color="#0000ff">byref </font>TempVar<font color="#000080">)<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font>IsBlank <font color="#000080">= </font><font color="#0000ff">False<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Select Case </font>VarType<font color="#000080">(</font>TempVar<font color="#000080">)<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#0000ff">Case </font><font color="#800080">0</font><font color="#000080">, </font><font color="#800080">1 </font><font color="#008000">'--- Empty &amp; Null<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font>IsBlank <font color="#000080">= </font><font color="#0000ff">True<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Case </font><font color="#800080">8 </font><font color="#008000">'--- String<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#0000ff">If </font>Len<font color="#000080">(</font>TempVar<font color="#000080">) = </font><font color="#800080">0 </font><font color="#0000ff">Then<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font>IsBlank <font color="#000080">= </font><font color="#0000ff">True<br />&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;Case </font><font color="#800080">9 </font><font color="#008000">'--- Object<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font>tmpType <font color="#000080">= </font>TypeName<font color="#000080">(</font>TempVar<font color="#000080">)<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#0000ff">If </font><font color="#000080">(</font>tmpType <font color="#000080">= </font><font color="#800000">&quot;Nothing&quot;</font><font color="#000080">) </font><font color="#0000ff">Or </font><font color="#000080">(</font>tmpType <font color="#000080">= </font><font color="#800000">&quot;Empty&quot;</font><font color="#000080">) </font><font color="#0000ff">Then<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font>IsBlank <font color="#000080">= </font><font color="#0000ff">True<br />&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;Case </font><font color="#800080">8192</font><font color="#000080">, </font><font color="#800080">8204</font><font color="#000080">, </font><font color="#800080">8209 </font><font color="#008000">'--- Array<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#0000ff">If </font>UBound<font color="#000080">(</font>TempVar<font color="#000080">) = -</font><font color="#800080">1 </font><font color="#0000ff">Then<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font>IsBlank <font color="#000080">= </font><font color="#0000ff">True<br />&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;End Select<br />&nbsp;&nbsp;&nbsp;&nbsp;End Function<br /><br />&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#008000">'//处理错误信息<br /><br />&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#0000ff">Public Sub </font>doError<font color="#000080">(</font>s<font color="#000080">)<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#0000ff">On Error Resume Next<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Dim </font>objASPError<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color="#0000ff">Set </font>objASPError <font color="#000080">= </font>Server<font color="#000080">.</font>GetLastError<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color="#0000ff">Dim </font>nRnd<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color="#0000ff">Randomize</font><font color="#000080">()<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font>nRnd <font color="#000080">= </font>CLng<font color="#000080">(</font>Rnd<font color="#000080">() * </font><font color="#800080">2925</font><font color="#000080">)<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font>Response<font color="#000080">.</font>Clear<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Response<font color="#000080">.</font>Expires <font color="#000080">= </font><font color="#800080">0<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font>Response<font color="#000080">.</font>Write <font color="#800000">&quot;&lt;br /&gt;&quot; </font><font color="#000080">&amp; </font>vbCrLf<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Response<font color="#000080">.</font>Write <font color="#800000">&quot;&lt;div style=&quot;&quot;width:100%; font-size:12px; cursor:pointer;&quot;&quot;&gt;&quot; </font><font color="#000080">&amp; </font>vbCrLf<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Response<font color="#000080">.</font>Write <font color="#800000">&quot;&nbsp;&nbsp;&lt;label onClick=&quot;&quot;ERRORDIV&quot; </font><font color="#000080">&amp; </font>nRnd <font color="#000080">&amp; </font><font color="#800000">&quot;.style.display=(ERRORDIV&quot; </font><font color="#000080">&amp; </font>nRnd <font color="#000080">&amp; </font><font color="#800000">&quot;.style.display=='none'?'':'none')&quot;&quot;&gt;&quot;<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font>Response<font color="#000080">.</font>Write <font color="#800000">&quot;&nbsp;&nbsp;&lt;span style=&quot;&quot;background-color:820222; color:#FFFFFF;&quot;&quot;&gt;〖 Kin_db_Pager 提示信息 ERROR:&quot; </font><font color="#000080">&amp; </font>nRnd <font color="#000080">&amp; </font><font color="#800000">&quot; 〗&lt;/span&gt;&lt;br /&gt;&quot; </font><font color="#000080">&amp; </font>vbCrLf<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Response<font color="#000080">.</font>Write <font color="#800000">&quot;&nbsp;&nbsp;&lt;/label&gt;&quot; </font><font color="#000080">&amp; </font>vbCrLf<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Response<font color="#000080">.</font>Write <font color="#800000">&quot;&nbsp;&nbsp;&lt;div id=&quot;&quot;ERRORDIV&quot; </font><font color="#000080">&amp; </font>nRnd <font color="#000080">&amp; </font><font color="#800000">&quot;&quot;&quot; style=&quot;&quot;display:none;width:100%;border:1px solid #820222;padding:5px;overflow:hidden;&quot;&quot;&gt;&quot; </font><font color="#000080">&amp; </font>vbCrLf<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Response<font color="#000080">.</font>Write <font color="#800000">&quot; &lt;span style=&quot;&quot;color:#FF0000;&quot;&quot;&gt;Description&lt;/span&gt; &quot; </font><font color="#000080">&amp; </font>s <font color="#000080">&amp; </font><font color="#800000">&quot;&lt;br /&gt;&quot; </font><font color="#000080">&amp; </font>vbCrLf<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Response<font color="#000080">.</font>Write <font color="#800000">&quot; &lt;span style=&quot;&quot;color:#FF0000;&quot;&quot;&gt;Provider&lt;/span&gt; &quot; </font><font color="#000080">&amp; </font>sProjectName <font color="#000080">&amp; </font><font color="#800000">&quot;&lt;br /&gt;&quot; </font><font color="#000080">&amp; </font>vbCrLf<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Response<font color="#000080">.</font>Write <font color="#800000">&quot; &lt;span style=&quot;&quot;color:#FF0000;&quot;&quot;&gt;Version&lt;/span&gt; &quot; </font><font color="#000080">&amp; </font>sVersion <font color="#000080">&amp; </font><font color="#800000">&quot;&lt;br /&gt;&quot; </font><font color="#000080">&amp; </font>vbCrLf<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Response<font color="#000080">.</font>Write <font color="#800000">&quot;&nbsp;&nbsp;&lt;/div&gt;&quot; </font><font color="#000080">&amp; </font>vbCrLf<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Response<font color="#000080">.</font>Write <font color="#800000">&quot;&lt;/div&gt;&quot; </font><font color="#000080">&amp; </font>vbCrLf<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Response<font color="#000080">.</font>Write <font color="#800000">&quot;&lt;br /&gt;&quot; </font><font color="#000080">&amp; </font>vbCrLf<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Response<font color="#000080">.</font><font color="#0000ff">End</font><font color="#000080">()<br />&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#0000ff">End Sub<br /><br />&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#008000">'//产生分页的SQL语句<br /><br />&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#0000ff">Public Function </font>getSql<font color="#000080">()<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#0000ff">Dim </font>iStart<font color="#000080">, </font>iEnd<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color="#0000ff">Call </font>makeCondition<font color="#000080">()<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font>iStart <font color="#000080">= ( </font>iPage <font color="#000080">- </font><font color="#800080">1 </font><font color="#000080">) * </font>iPageSize<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;iEnd <font color="#000080">= </font>iStart <font color="#000080">+ </font>iPageSize<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color="#0000ff">Select Case </font>sDbType<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color="#0000ff">Case </font><font color="#800000">&quot;MSSQL&quot;</font><font color="#000080">, </font><font color="#800000">&quot;SQL&quot;<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font>getSql <font color="#000080">= </font><font color="#800000">&quot; Select &quot; </font><font color="#000080">&amp; </font>IIf<font color="#000080">(</font>bDistinct<font color="#000080">, </font><font color="#800000">&quot;DISTINCT&quot;</font><font color="#000080">, </font><font color="#800000">&quot;&quot;</font><font color="#000080">) &amp; </font><font color="#800000">&quot; &quot; </font><font color="#000080">&amp; </font>sFields <font color="#000080">&amp; </font><font color="#800000">&quot; FROM &quot; </font><font color="#000080">&amp; </font>TableFormat<font color="#000080">(</font>sTableName<font color="#000080">) &amp; </font><font color="#800000">&quot; &quot; </font>_<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; <font color="#000080">&amp; </font><font color="#800000">&quot; Where [&quot;</font><font color="#000080">&amp;</font>sPKey<font color="#000080">&amp;</font><font color="#800000">&quot;] IN ( &quot; </font>_<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; <font color="#000080">&amp; </font><font color="#800000">&quot;&nbsp;&nbsp; Select TOP &quot;</font><font color="#000080">&amp;</font>iEnd<font color="#000080">&amp;</font><font color="#800000">&quot; [&quot;</font><font color="#000080">&amp;</font>sPKey<font color="#000080">&amp;</font><font color="#800000">&quot;] FROM &quot; </font><font color="#000080">&amp; </font>TableFormat<font color="#000080">(</font>sTableName<font color="#000080">) &amp; </font><font color="#800000">&quot; &quot; </font><font color="#000080">&amp; </font>sCondition <font color="#000080">&amp; </font><font color="#800000">&quot; &quot; </font><font color="#000080">&amp; </font>sOrderBy <font color="#000080">&amp; </font><font color="#800000">&quot; &quot; </font>_<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; <font color="#000080">&amp; </font><font color="#800000">&quot; )&quot;<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#0000ff">If </font>iPage<font color="#000080">&gt;</font><font color="#800080">1 </font><font color="#0000ff">Then<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font>getSql <font color="#000080">= </font>getSql <font color="#000080">&amp; </font><font color="#800000">&quot; AND [&quot;</font><font color="#000080">&amp;</font>sPKey<font color="#000080">&amp;</font><font color="#800000">&quot;] NOT IN ( &quot; </font>_<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; <font color="#000080">&amp; </font><font color="#800000">&quot;&nbsp;&nbsp; Select TOP &quot;</font><font color="#000080">&amp;</font>iStart<font color="#000080">&amp;</font><font color="#800000">&quot; [&quot;</font><font color="#000080">&amp;</font>sPKey<font color="#000080">&amp;</font><font color="#800000">&quot;] FROM &quot; </font><font color="#000080">&amp; </font>TableFormat<font color="#000080">(</font>sTableName<font color="#000080">) &amp; </font><font color="#800000">&quot; &quot; </font><font color="#000080">&amp; </font>sCondition <font color="#000080">&amp; </font><font color="#800000">&quot; &quot; </font><font color="#000080">&amp; </font>sOrderBy <font color="#000080">&amp; </font><font color="#800000">&quot; &quot; </font>_<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; <font color="#000080">&amp; </font><font color="#800000">&quot; )&quot;<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#0000ff">End If<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font>getSql <font color="#000080">= </font>getSql <font color="#000080">&amp; </font><font color="#800000">&quot; &quot; </font><font color="#000080">&amp; </font>sOrderBy <font color="#000080">&amp; </font><font color="#800000">&quot; &quot;<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#0000ff">Case </font><font color="#800000">&quot;MYSQL&quot; </font><font color="#008000">'//这个不会...抄袭叶子分页类.<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font>getSql <font color="#000080">= </font><font color="#800000">&quot;Select &quot; </font><font color="#000080">&amp; </font>sFields <font color="#000080">&amp; </font><font color="#800000">&quot; FROM &quot; </font><font color="#000080">&amp; </font>TableFormat<font color="#000080">(</font>sTableName<font color="#000080">)&amp; </font><font color="#800000">&quot; &quot; </font><font color="#000080">&amp; </font>sCondition <font color="#000080">&amp; </font><font color="#800000">&quot; &quot; </font><font color="#000080">&amp; </font>sOrderBy <font color="#000080">&amp; </font><font color="#800000">&quot; LIMIT &quot;</font><font color="#000080">&amp;(</font>iPage <font color="#000080">-</font><font color="#800080">1</font><font color="#000080">) * </font>iPageSize<font color="#000080">&amp;</font><font color="#800000">&quot;,&quot; </font><font color="#000080">&amp; </font>iPageSize<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color="#0000ff">Case </font><font color="#800000">&quot;MSSQLPRODUCE&quot;</font><font color="#000080">, </font><font color="#800000">&quot;MSSQLPR&quot;</font><font color="#000080">, </font><font color="#800000">&quot;MSSQL_PR&quot; </font><font color="#008000">'//可能不用拼接SQL语句, 先放着<br /><br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#0000ff">Case </font><font color="#800000">&quot;ACCESS&quot;<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font>getSql <font color="#000080">= </font><font color="#800000">&quot; Select &quot; </font><font color="#000080">&amp; </font>IIf<font color="#000080">(</font>bDistinct<font color="#000080">, </font><font color="#800000">&quot;DISTINCT&quot;</font><font color="#000080">, </font><font color="#800000">&quot;&quot;</font><font color="#000080">) &amp; </font><font color="#800000">&quot; &quot; </font><font color="#000080">&amp; </font>sFields <font color="#000080">&amp; </font><font color="#800000">&quot; FROM &quot; </font><font color="#000080">&amp; </font>TableFormat<font color="#000080">(</font>sTableName<font color="#000080">) &amp; </font><font color="#800000">&quot; &quot; </font><font color="#000080">&amp; </font>sCondition <font color="#000080">&amp; </font><font color="#800000">&quot; &quot; </font><font color="#000080">&amp; </font>sOrderBy <font color="#000080">&amp; </font><font color="#800000">&quot; &quot;<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#0000ff">Case Else<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font>getSql <font color="#000080">= </font><font color="#800000">&quot;&quot;<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#0000ff">End Select<br />&nbsp;&nbsp;&nbsp;&nbsp;End Function<br /><br />&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#008000">'//产生条件字符串<br /><br />&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#0000ff">Private Sub </font>makeCondition<font color="#000080">()<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#0000ff">If Not </font>IsBlank<font color="#000080">(</font>sCondition<font color="#000080">) </font><font color="#0000ff">Then Exit Sub<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;If </font>UBound<font color="#000080">(</font>aCondition<font color="#000080">)&gt;= </font><font color="#800080">0 </font><font color="#0000ff">Then<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font>sCondition <font color="#000080">= </font><font color="#800000">&quot; Where &quot; </font><font color="#000080">&amp; </font>Join<font color="#000080">(</font>aCondition<font color="#000080">, </font><font color="#800000">&quot; AND &quot;</font><font color="#000080">)<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#0000ff">End If<br />&nbsp;&nbsp;&nbsp;&nbsp;End Sub<br /><br />&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#008000">'//计算记录数<br /><br />&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#0000ff">Private Sub </font>CaculateRecordCount<font color="#000080">()<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#0000ff">On Error Resume Next<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Dim </font>oRs<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color="#0000ff">Call </font>makeCondition<font color="#000080">()<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font>sSqlString <font color="#000080">= </font><font color="#800000">&quot;Select COUNT([&quot; </font><font color="#000080">&amp; </font>sPKey <font color="#000080">&amp; </font><font color="#800000">&quot;]) FROM &quot; </font><font color="#000080">&amp; </font>TableFormat<font color="#000080">(</font>sTableName<font color="#000080">) &amp; </font><font color="#800000">&quot; &quot; </font><font color="#000080">&amp; </font>IIf<font color="#000080">(</font>IsBlank<font color="#000080">(</font>sCondition<font color="#000080">), </font><font color="#800000">&quot;&quot;</font><font color="#000080">, </font>sCondition<font color="#000080">)<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#0000ff">Set </font>oRs <font color="#000080">= </font>oConn<font color="#000080">.</font>Execute<font color="#000080">( </font>sSqlString <font color="#000080">)<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#0000ff">If </font>Err <font color="#0000ff">Then<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font>doError Err<font color="#000080">.</font>Description<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Response<font color="#000080">.</font><font color="#0000ff">End</font><font color="#000080">()<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#0000ff">End If<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font>iRecordCount <font color="#000080">= </font>oRs<font color="#000080">.</font>Fields<font color="#000080">.</font>Item<font color="#000080">(</font><font color="#800080">0</font><font color="#000080">).</font>Value<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color="#0000ff">Set </font>oRs <font color="#000080">= </font><font color="#0000ff">Nothing<br />&nbsp;&nbsp;&nbsp;&nbsp;End Sub<br /><br />&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#008000">'//计算总记录数<br /><br />&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#0000ff">Private Sub </font>CaculateTotalRecordCount<font color="#000080">()<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#0000ff">Dim </font>oRs<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color="#0000ff">Set </font>oRs <font color="#000080">= </font>oConn<font color="#000080">.</font>Execute<font color="#000080">( </font><font color="#800000">&quot;Select COUNT(*) FROM &quot; </font><font color="#000080">&amp; </font>TableFormat<font color="#000080">(</font>sTableName<font color="#000080">) &amp; </font><font color="#800000">&quot;&quot; </font><font color="#000080">)<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font>iTotalRecordCount <font color="#000080">= </font>oRs<font color="#000080">.</font>Fields<font color="#000080">.</font>Item<font color="#000080">(</font><font color="#800080">0</font><font color="#000080">).</font>Value<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color="#0000ff">Set </font>oRs <font color="#000080">= </font><font color="#0000ff">Nothing<br />&nbsp;&nbsp;&nbsp;&nbsp;End Sub<br /><br />&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#008000">'//计算页数<br /><br />&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#0000ff">Private Sub </font>CaculatePageCount<font color="#000080">()<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#0000ff">If </font>IsNull<font color="#000080">(</font>iRecordCount<font color="#000080">) </font><font color="#0000ff">Then </font>CaculateRecordCount<font color="#000080">()<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#0000ff">If </font>iRecordCount <font color="#000080">= </font><font color="#800080">0 </font><font color="#0000ff">Then<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font>iPageCount <font color="#000080">= </font><font color="#800080">0<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#0000ff">Exit Sub<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;End If<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font>iPageCount <font color="#000080">= </font>Abs<font color="#000080">( </font>Int<font color="#000080">( </font><font color="#800080">0 </font><font color="#000080">- (</font>iRecordCount <font color="#000080">/ </font>iPageSize<font color="#000080">) ) )<br />&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#0000ff">End Sub<br /><br />&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#008000">'//设置页码<br /><br />&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#0000ff">Private Function </font>setPage<font color="#000080">(</font>n<font color="#000080">)<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font>iPage <font color="#000080">= </font>Bint<font color="#000080">(</font>n<font color="#000080">)<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#0000ff">If </font>iPage <font color="#000080">&lt; </font><font color="#800080">1 </font><font color="#0000ff">Then </font>iPage <font color="#000080">= </font><font color="#800080">1<br />&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#0000ff">End Function<br /><br />&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#008000">'//增加条件<br /><br />&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#0000ff">Public Sub </font>AddCondition<font color="#000080">(</font>s<font color="#000080">)<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#0000ff">If </font>IsBlank<font color="#000080">(</font>s<font color="#000080">) </font><font color="#0000ff">Then Exit Sub<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;ReDim Preserve </font>aCondition<font color="#000080">(</font>UBound<font color="#000080">(</font>aCondition<font color="#000080">) + </font><font color="#800080">1</font><font color="#000080">)<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font>aCondition<font color="#000080">(</font>UBound<font color="#000080">(</font>aCondition<font color="#000080">)) = </font>s<br />&nbsp;&nbsp;&nbsp;&nbsp;<font color="#0000ff">End Sub<br /><br />&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#008000">'//版本信息<br /><br />&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#0000ff">Public Function </font>Information<font color="#000080">()<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font>doError <font color="#800000">&quot;Coding By &lt;a href=&quot;&quot;http://jorkin.reallydo.com&quot;&quot;&gt;Jorkin&lt;/a&gt;.&lt;a href=&quot;&quot;http://www.reallydo.com&quot;&quot;&gt;ReallyDo.Com&lt;/a&gt; .&quot;<br />&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#0000ff">End Function<br /><br />&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#008000">'//判断页面连接<br /><br />&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#0000ff">Private Function </font>ReWrite<font color="#000080">(</font>n<font color="#000080">)<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font>n <font color="#000080">= </font>Bint<font color="#000080">(</font>n<font color="#000080">)<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#0000ff">If Not </font>IsBlank<font color="#000080">(</font>sRewrite<font color="#000080">) </font><font color="#0000ff">Then<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font>ReWrite <font color="#000080">= </font>Replace<font color="#000080">(</font>sReWrite<font color="#000080">, </font><font color="#800000">&quot;*&quot;</font><font color="#000080">, </font>n<font color="#000080">)<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#0000ff">Else<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Dim </font>sUrl<font color="#000080">, </font>sQueryString<font color="#000080">, </font>x<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;sUrl <font color="#000080">= </font>Request<font color="#000080">.</font>ServerVariables<font color="#000080">(</font><font color="#800000">&quot;URL&quot;</font><font color="#000080">)<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font>sQueryString <font color="#000080">= </font><font color="#800000">&quot;&quot;<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#0000ff">For Each </font>x <font color="#0000ff">In </font>Request<font color="#000080">.</font>QueryString<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color="#0000ff">If </font>x <font color="#000080">&lt;&gt; </font>sPageParam <font color="#0000ff">Then </font>sQueryString <font color="#000080">= </font><font color="#800000">&quot;&amp;&quot; </font><font color="#000080">&amp; </font>x <font color="#000080">&amp; </font><font color="#800000">&quot;=&quot; </font><font color="#000080">&amp; </font>Server<font color="#000080">.</font>UrlEncode<font color="#000080">(</font>Request<font color="#000080">.</font>QueryString<font color="#000080">(</font>x<font color="#000080">)) &amp; </font>sQueryString<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color="#0000ff">Next<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font>sQueryString <font color="#000080">= </font>Mid<font color="#000080">(</font>sQueryString<font color="#000080">, </font><font color="#800080">2</font><font color="#000080">)<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font>ReWrite <font color="#000080">= </font>sUrl <font color="#000080">&amp; </font><font color="#800000">&quot;?&quot; </font><font color="#000080">&amp; </font>sQueryString<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color="#0000ff">If </font>n <font color="#000080">&gt; </font><font color="#800080">0 </font><font color="#0000ff">Then<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;If </font>IsBlank<font color="#000080">(</font>sQueryString<font color="#000080">) </font><font color="#0000ff">Then<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font>ReWrite <font color="#000080">= </font>ReWrite <font color="#000080">&amp; </font>sPageParam <font color="#000080">&amp; </font><font color="#800000">&quot;=&quot; </font><font color="#000080">&amp; </font>n<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color="#0000ff">Else<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font>ReWrite <font color="#000080">= </font>ReWrite <font color="#000080">&amp; </font><font color="#800000">&quot;&amp;&quot; </font><font color="#000080">&amp; </font>sPageParam <font color="#000080">&amp; </font><font color="#800000">&quot;=&quot; </font><font color="#000080">&amp; </font>n<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color="#0000ff">End If<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;If </font>IsBlank<font color="#000080">(</font>sQueryString<font color="#000080">) </font><font color="#0000ff">Then<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font>ReWrite <font color="#000080">= </font>ReWrite <font color="#000080">&amp; </font>sPageParam <font color="#000080">&amp; </font><font color="#800000">&quot;=&quot;<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#0000ff">Else<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font>ReWrite <font color="#000080">= </font>ReWrite <font color="#000080">&amp; </font><font color="#800000">&quot;&amp;&quot; </font><font color="#000080">&amp; </font>sPageParam <font color="#000080">&amp; </font><font color="#800000">&quot;=&quot;<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#0000ff">End If<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;End If<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;End If<br />&nbsp;&nbsp;&nbsp;&nbsp;End Function<br /><br />&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#008000">'//数据库表加 []<br /><br />&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#0000ff">Private Function </font>TableFormat<font color="#000080">(</font>s<font color="#000080">)<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#0000ff">Select Case </font>iTableKind<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color="#0000ff">Case </font><font color="#800080">0<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font>TableFormat <font color="#000080">= </font><font color="#800000">&quot;[&quot; </font><font color="#000080">&amp; </font>s <font color="#000080">&amp; </font><font color="#800000">&quot;]&quot;<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#0000ff">Case </font><font color="#800080">1<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font>TableFormat <font color="#000080">= </font><font color="#800000">&quot; &quot; </font><font color="#000080">&amp; </font>s <font color="#000080">&amp; </font><font color="#800000">&quot; &quot;<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#0000ff">End Select<br />&nbsp;&nbsp;&nbsp;&nbsp;End Function<br /><br />&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#008000">'//函数、方法 结束<br />&nbsp;&nbsp;&nbsp;&nbsp;'//-------------------------------------------------------------------------<br /><br />&nbsp;&nbsp;&nbsp;&nbsp;'//-------------------------------------------------------------------------<br />&nbsp;&nbsp;&nbsp;&nbsp;'//输入属性 开始<br /><br />&nbsp;&nbsp;&nbsp;&nbsp;'//定义连接对象<br /><br />&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#0000ff">Public Property Set </font>ActiveConnection<font color="#000080">(</font>o<font color="#000080">)<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#0000ff">Set </font>oConn <font color="#000080">= </font>o<br />&nbsp;&nbsp;&nbsp;&nbsp;<font color="#0000ff">End Property<br /><br />&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#008000">'//连接字符串<br /><br />&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#0000ff">Public Property Let </font>ConnectionString<font color="#000080">(</font>s<font color="#000080">)<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#0000ff">Set </font>oConn <font color="#000080">= </font>Server<font color="#000080">.</font>CreateObject<font color="#000080">(</font><font color="#800000">&quot;ADODB.Connection&quot;</font><font color="#000080">)<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font>oConn<font color="#000080">.</font>ConnectionString <font color="#000080">= </font>s<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;oConn<font color="#000080">.</font>Open<font color="#000080">()<br />&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#0000ff">End Property<br /><br />&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#008000">'//定义数据库类型<br /><br />&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#0000ff">Public Property Let </font>DBType<font color="#000080">(</font>s<font color="#000080">)<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font>sDBType <font color="#000080">= </font>UCase<font color="#000080">(</font>s<font color="#000080">)<br />&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#0000ff">End Property<br /><br />&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#008000">'//定义 首页 样式<br /><br />&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#0000ff">Public Property Let </font>FirstPage<font color="#000080">(</font>s<font color="#000080">)<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font>sFirstPage <font color="#000080">= </font>s<br />&nbsp;&nbsp;&nbsp;&nbsp;<font color="#0000ff">End Property<br /><br />&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#008000">'//定义 上一页 样式<br /><br />&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#0000ff">Public Property Let </font>PreviewPage<font color="#000080">(</font>s<font color="#000080">)<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font>sPreviewPage <font color="#000080">= </font>s<br />&nbsp;&nbsp;&nbsp;&nbsp;<font color="#0000ff">End Property<br /><br />&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#008000">'//定义 当前页 样式<br /><br />&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#0000ff">Public Property Let </font>CurrentPage<font color="#000080">(</font>s<font color="#000080">)<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font>sCurrentPage <font color="#000080">= </font>s<br />&nbsp;&nbsp;&nbsp;&nbsp;<font color="#0000ff">End Property<br /><br />&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#008000">'//定义 分页列表页 样式<br /><br />&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#0000ff">Public Property Let </font>ListPage<font color="#000080">(</font>s<font color="#000080">)<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font>sListPage <font color="#000080">= </font>s<br />&nbsp;&nbsp;&nbsp;&nbsp;<font color="#0000ff">End Property<br /><br />&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#008000">'//定义 下一页 样式<br /><br />&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#0000ff">Public Property Let </font>NextPage<font color="#000080">(</font>s<font color="#000080">)<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font>sNextPage <font color="#000080">= </font>s<br />&nbsp;&nbsp;&nbsp;&nbsp;<font color="#0000ff">End Property<br /><br />&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#008000">'//定义 末页 样式<br /><br />&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#0000ff">Public Property Let </font>LastPage<font color="#000080">(</font>s<font color="#000080">)<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font>sLastPage <font color="#000080">= </font>s<br />&nbsp;&nbsp;&nbsp;&nbsp;<font color="#0000ff">End Property<br /><br />&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#008000">'//定义 列表前后多加几页<br /><br />&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#0000ff">Public Property Let </font>PagerTop<font color="#000080">(</font>i<font color="#000080">)<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font>iPagerTop <font color="#000080">= </font>Bint<font color="#000080">(</font>i<font color="#000080">)<br />&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#0000ff">End Property<br /><br />&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#008000">'//定义 分页链接 样式<br /><br />&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#0000ff">Public Property Let </font>PagerClass<font color="#000080">(</font>s<font color="#000080">)<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font>sPagerClass <font color="#000080">= </font>s<br />&nbsp;&nbsp;&nbsp;&nbsp;<font color="#0000ff">End Property<br /><br />&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#008000">'//定义查询表名<br /><br />&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#0000ff">Public Property Let </font>TableName<font color="#000080">(</font>s<font color="#000080">)<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font>sTableName <font color="#000080">= </font>s<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color="#008000">'//如果发现表名包含 ([. ，那么就不要用 []<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#0000ff">If </font>InStr<font color="#000080">(</font>s<font color="#000080">, </font><font color="#800000">&quot;(&quot;</font><font color="#000080">)&gt;</font><font color="#800080">0 </font><font color="#0000ff">Then </font>iTableKind <font color="#000080">= </font><font color="#800080">1<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#0000ff">If </font>InStr<font color="#000080">(</font>s<font color="#000080">, </font><font color="#800000">&quot;[&quot;</font><font color="#000080">)&gt;</font><font color="#800080">0 </font><font color="#0000ff">Then </font>iTableKind <font color="#000080">= </font><font color="#800080">1<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#0000ff">If </font>InStr<font color="#000080">(</font>s<font color="#000080">, </font><font color="#800000">&quot;.&quot;</font><font color="#000080">)&gt;</font><font color="#800080">0 </font><font color="#0000ff">Then </font>iTableKind <font color="#000080">= </font><font color="#800080">1<br />&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#0000ff">End Property<br /><br />&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#008000">'//定义需要输出的字段名<br /><br />&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#0000ff">Public Property Let </font>Fields<font color="#000080">(</font>s<font color="#000080">)<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font>sFields <font color="#000080">= </font>s<br />&nbsp;&nbsp;&nbsp;&nbsp;<font color="#0000ff">End Property<br /><br />&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#008000">'//定义主键<br /><br />&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#0000ff">Public Property Let </font>PKey<font color="#000080">(</font>s<font color="#000080">)<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#0000ff">If Not </font>IsBlank<font color="#000080">(</font>s<font color="#000080">) </font><font color="#0000ff">Then </font>sPKey <font color="#000080">= </font>s<br />&nbsp;&nbsp;&nbsp;&nbsp;<font color="#0000ff">End Property<br /><br />&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#008000">'//定义排序规则<br /><br />&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#0000ff">Public Property Let </font>OrderBy<font color="#000080">(</font>s<font color="#000080">)<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#0000ff">If Not </font>IsBlank<font color="#000080">(</font>s<font color="#000080">) </font><font color="#0000ff">Then </font>sOrderBy <font color="#000080">= </font><font color="#800000">&quot; orDER BY &quot; </font><font color="#000080">&amp; </font>s <font color="#000080">&amp; </font><font color="#800000">&quot; &quot;<br />&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#0000ff">End Property<br /><br />&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#008000">'//定义每页的记录条数<br /><br />&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#0000ff">Public Property Let </font>PageSize<font color="#000080">(</font>s<font color="#000080">)<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font>iPageSize <font color="#000080">= </font>Bint<font color="#000080">(</font>s<font color="#000080">)<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font>iPageSize <font color="#000080">= </font>IIf<font color="#000080">(</font>iPageSize<font color="#000080">&lt;</font><font color="#800080">1</font><font color="#000080">, </font><font color="#800080">1</font><font color="#000080">, </font>iPageSize<font color="#000080">)<br />&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#0000ff">End Property<br /><br />&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#008000">'//定义当前页码<br /><br />&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#0000ff">Public Property Let </font>Page<font color="#000080">(</font>i<font color="#000080">)<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font>setPage Bint<font color="#000080">(</font>i<font color="#000080">)<br />&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#0000ff">End Property<br /><br />&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#008000">'//定义当前页码(同Property Page)<br /><br />&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#0000ff">Public Property Let </font>AbsolutePage<font color="#000080">(</font>s<font color="#000080">)<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font>setPage s<br />&nbsp;&nbsp;&nbsp;&nbsp;<font color="#0000ff">End Property<br /><br />&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#008000">'//自定义查询语句<br /><br />&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#0000ff">Public Property Let </font>Sql<font color="#000080">(</font>s<font color="#000080">)<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font>sSqlString <font color="#000080">= </font>s<br />&nbsp;&nbsp;&nbsp;&nbsp;<font color="#0000ff">End Property<br /><br />&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#008000">'//是否DISTINCT<br /><br />&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#0000ff">Public Property Let </font>Distinct<font color="#000080">(</font>b<font color="#000080">)<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font>bDistinct <font color="#000080">= </font>b<br />&nbsp;&nbsp;&nbsp;&nbsp;<font color="#0000ff">End Property<br /><br />&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#008000">'//设定分页变量的名称<br /><br />&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#0000ff">Public Property Let </font>PageParam<font color="#000080">(</font>s<font color="#000080">)<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font>sPageParam <font color="#000080">= </font>LCase<font color="#000080">(</font>s<font color="#000080">)<br />&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#0000ff">End Property<br /><br />&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#008000">'//选择分页的样式,可以后面自己添加新的<br /><br />&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#0000ff">Public Property Let </font>Style<font color="#000080">(</font>s<font color="#000080">)<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font>iStyle <font color="#000080">= </font>s<br />&nbsp;&nbsp;&nbsp;&nbsp;<font color="#0000ff">End Property<br /><br />&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#008000">'//分页列表显示数量<br /><br />&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#0000ff">Public Property Let </font>PagerSize<font color="#000080">(</font>i<font color="#000080">)<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font>iPagerSize <font color="#000080">= </font>Bint<font color="#000080">(</font>i<font color="#000080">)<br />&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#0000ff">End Property<br /><br />&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#008000">'//自定义ISAPI_REWRITE路径 *将被替换为当前页数<br /><br />&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#0000ff">Public Property Let </font>ReWritePath<font color="#000080">(</font>s<font color="#000080">)<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font>sReWrite <font color="#000080">= </font>s<br />&nbsp;&nbsp;&nbsp;&nbsp;<font color="#0000ff">End Property<br /><br />&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#008000">'//强制TABLE类型<br /><br />&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#0000ff">Public Property Let </font>TableKind<font color="#000080">(</font>i<font color="#000080">)<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font>iTableKind <font color="#000080">= </font>i<br />&nbsp;&nbsp;&nbsp;&nbsp;<font color="#0000ff">End Property<br /><br />&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#008000">'//自定义分页信息<br /><br />&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#0000ff">Public Property Let </font>PageInfo<font color="#000080">(</font>s<font color="#000080">)<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font>sPageInfo <font color="#000080">= </font>s<br />&nbsp;&nbsp;&nbsp;&nbsp;<font color="#0000ff">End Property<br /><br />&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#008000">'//输入分页信息<br /><br />&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#0000ff">Public Property Let </font>JumpPageType<font color="#000080">(</font>s<font color="#000080">)<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font>sJumpPageType <font color="#000080">= </font>UCase<font color="#000080">(</font>s<font color="#000080">)<br />&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#0000ff">End Property<br /><br />&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#008000">'//输入分页信息<br /><br />&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#0000ff">Public Property Let </font>JumpPageStyle<font color="#000080">(</font>s<font color="#000080">)<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font>sJumpPageStyle <font color="#000080">= </font>s<br />&nbsp;&nbsp;&nbsp;&nbsp;<font color="#0000ff">End Property<br /><br /><br />&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#008000">'//输入属性 结束<br />&nbsp;&nbsp;&nbsp;&nbsp;'//-------------------------------------------------------------------------<br /><br /><br />&nbsp;&nbsp;&nbsp;&nbsp;'//-------------------------------------------------------------------------<br />&nbsp;&nbsp;&nbsp;&nbsp;'//输出属性 开始<br /><br />&nbsp;&nbsp;&nbsp;&nbsp;'//输出数据库类型<br /><br />&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#0000ff">Public Property Get </font>DBType<font color="#000080">()<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font>DBType <font color="#000080">= </font>sDBType<br />&nbsp;&nbsp;&nbsp;&nbsp;<font color="#0000ff">End Property<br /><br />&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#008000">'//输出查询表名<br /><br />&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#0000ff">Public Property Get </font>TableName<font color="#000080">()<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font>TableName <font color="#000080">= </font>sTableName<br />&nbsp;&nbsp;&nbsp;&nbsp;<font color="#0000ff">End Property<br /><br />&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#008000">'//输出需要输出的字段名<br /><br />&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#0000ff">Public Property Get </font>Fields<font color="#000080">()<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font>Fields <font color="#000080">= </font>sFields<br />&nbsp;&nbsp;&nbsp;&nbsp;<font color="#0000ff">End Property<br /><br />&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#008000">'//输出主键<br /><br />&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#0000ff">Public Property Get </font>PKey<font color="#000080">()<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font>PKey <font color="#000080">= </font>sPKey<br />&nbsp;&nbsp;&nbsp;&nbsp;<font color="#0000ff">End Property<br /><br />&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#008000">'//输出排序规则<br /><br />&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#0000ff">Public Property Get </font>OrderBy<font color="#000080">()<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font>OrderBy <font color="#000080">= </font>sOrderBy<br />&nbsp;&nbsp;&nbsp;&nbsp;<font color="#0000ff">End Property<br /><br />&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#008000">'//取得当前条件下的记录数<br /><br />&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#0000ff">Public Property Get </font>RecordCount<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color="#0000ff">If </font>IsNull<font color="#000080">(</font>iRecordCount<font color="#000080">) </font><font color="#0000ff">Then </font>CaculateRecordCount<font color="#000080">()<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font>RecordCount <font color="#000080">= </font>iRecordCount<br />&nbsp;&nbsp;&nbsp;&nbsp;<font color="#0000ff">End Property<br /><br />&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#008000">'//取得每页记录数<br /><br />&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#0000ff">Public Property Get </font>PageSize<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;PageSize <font color="#000080">= </font>iPageSize<br />&nbsp;&nbsp;&nbsp;&nbsp;<font color="#0000ff">End Property<br /><br />&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#008000">'//取得当前查询的条件<br /><br />&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#0000ff">Public Property Get </font>Condition<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color="#0000ff">If </font>IsBlank<font color="#000080">(</font>sCondition<font color="#000080">) </font><font color="#0000ff">Then </font>makeCondition<font color="#000080">()<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font>Condition <font color="#000080">= </font>sCondition<br />&nbsp;&nbsp;&nbsp;&nbsp;<font color="#0000ff">End Property<br /><br />&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#008000">'//取得当前页码<br /><br />&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#0000ff">Public Property Get </font>Page<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Page <font color="#000080">= </font>iPage<br />&nbsp;&nbsp;&nbsp;&nbsp;<font color="#0000ff">End Property<br /><br />&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#008000">'//取得当前页码<br /><br />&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#0000ff">Public Property Get </font>AbsolutePage<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;AbsolutePage <font color="#000080">= </font>iPage<br />&nbsp;&nbsp;&nbsp;&nbsp;<font color="#0000ff">End Property<br /><br />&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#008000">'//取得总的记录数<br /><br />&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#0000ff">Public Property Get </font>TotalRecordCount<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color="#0000ff">If </font>IsNull<font color="#000080">(</font>iTotalRecordCount<font color="#000080">) </font><font color="#0000ff">Then </font>CaculateTotalRecordCount<font color="#000080">()<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font>TotalRecordCount <font color="#000080">= </font>iTotalRecordCount<br />&nbsp;&nbsp;&nbsp;&nbsp;<font color="#0000ff">End Property<br /><br />&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#008000">'//取得总页数<br /><br />&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#0000ff">Public Property Get </font>PageCount<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color="#0000ff">If </font>IsNull<font color="#000080">(</font>iPageCount<font color="#000080">) </font><font color="#0000ff">Then </font>CaculatePageCount<font color="#000080">()<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font>PageCount <font color="#000080">= </font>iPageCount<br />&nbsp;&nbsp;&nbsp;&nbsp;<font color="#0000ff">End Property<br /><br />&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#008000">'//得到分页后的记录集<br /><br />&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#0000ff">Public Property Get </font>RecordSet<font color="#000080">()<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#0000ff">On Error Resume Next<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Select Case </font>sDbType<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color="#0000ff">Case </font><font color="#800000">&quot;ACCESS&quot;</font><font color="#000080">, </font><font color="#800000">&quot;AC&quot; </font><font color="#008000">'//ACCESS<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font>sSql <font color="#000080">= </font>getSql<font color="#000080">()<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#0000ff">Set </font>RecordSet <font color="#000080">= </font>Server<font color="#000080">.</font>CreateObject <font color="#000080">(</font><font color="#800000">&quot;ADODB.RecordSet&quot;</font><font color="#000080">)<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font>RecordSet<font color="#000080">.</font>Open sSql<font color="#000080">, </font>oConn<font color="#000080">, </font><font color="#800080">1</font><font color="#000080">, </font><font color="#800080">1</font><font color="#000080">, &amp;</font>H0001<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;RecordSet<font color="#000080">.</font>PageSize <font color="#000080">= </font>iPageSize<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;iPage <font color="#000080">= </font>IIf<font color="#000080">(</font>iPage <font color="#000080">&gt; </font>RecordSet<font color="#000080">.</font>PageCount<font color="#000080">, </font>RecordSet<font color="#000080">.</font>PageCount<font color="#000080">, </font>iPage<font color="#000080">)<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#0000ff">If </font>iPage <font color="#000080">&gt; </font><font color="#800080">0 </font><font color="#0000ff">Then </font>RecordSet<font color="#000080">.</font>AbsolutePage <font color="#000080">= </font>iPage<br /><font color="#008000">'&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If iPage &gt; 0 Then RecordSet.AbsolutePosition=(iPage-1)*iPageSize+1<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#0000ff">Case </font><font color="#800000">&quot;MSSQL&quot;</font><font color="#000080">, </font><font color="#800000">&quot;SQL&quot; </font><font color="#008000">'// MSSQL2000<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font>sSql <font color="#000080">= </font>getSql<font color="#000080">()<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#0000ff">Set </font>RecordSet <font color="#000080">= </font>oConn<font color="#000080">.</font>Execute<font color="#000080">( </font>sSql <font color="#000080">)<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#0000ff">Case </font><font color="#800000">&quot;MSSQLProduce&quot;</font><font color="#000080">, </font><font color="#800000">&quot;MSSQL_PR&quot; </font><font color="#008000">'// SqlServer2000数据库存储过程版, 暂时不支持.请用叶子分页类<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#0000ff">Set </font>oRs <font color="#000080">= </font>Server<font color="#000080">.</font>CreateObject<font color="#000080">(</font><font color="#800000">&quot;ADODB.RecordSet&quot;</font><font color="#000080">)<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#0000ff">Set </font>oCommand <font color="#000080">= </font>Server<font color="#000080">.</font>CreateObject<font color="#000080">(</font><font color="#800000">&quot;ADODB.Command&quot;</font><font color="#000080">)<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font>oCommand<font color="#000080">.</font>CommandType <font color="#000080">= </font><font color="#800080">4<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font>oCommand<font color="#000080">.</font>ActiveConnection <font color="#000080">= </font>oConn<br />&nbsp;&nbsp;&