startime = timer()
set rs = Server.CreateObject("adodb.recordset")
rs.Open "select * from test",conn,1,1
do while not rs.EOF
    Response.Write(rs(0) & " ")
rs.MoveNext
loop
rs.Close
set rs = nothing
endtime = timer()
Response.Write("<br />" & FormatNumber((endtime-startime)*1000,3))

执行时间：156.250毫秒

===========================================================================

startime = timer()
set rs = conn.Execute("select * from test",1,1)
do while not rs.EOF
    Response.Write(rs(0) & "&nbsp;")
rs.MoveNext
loop
endtime = timer()
Response.Write("<br />" & FormatNumber((endtime-startime)*1000,3))

执行时间：125.000毫秒

===========================================================================

startime = timer()
set rs = Server.CreateObject("adodb.recordset")
rs.Open "select * from test",conn,1,1
rsCount = rs.RecordCount
for i = 1 to rsCount
    Response.Write(rs(0) & "&nbsp;")
rs.MoveNext
next
rs.Close
set rs = nothing
endtime = timer()
Response.Write("<br />" & FormatNumber((endtime-startime)*1000,3))

执行时间：140.625毫秒

===========================================================================

startime = timer()
rsCount = conn.Execute ("select count(id) from test",0,1)(0)
set rs = conn.Execute("select * from test")
for i = 1 to rsCount
    Response.Write(rs(0) & "&nbsp;")
rs.MoveNext
next
endtime = timer()
Response.Write("<br />" & FormatNumber((endtime-startime)*1000,3))

执行时间：109.375毫秒

我是好人！

很长一段时间，我都使用12px作为网站的主要字体大小。10px太小，眼睛很容易疲劳，14px虽容易看清，却破坏页面的美感。唯独12px在审美和视力方面都恰到好处。

谁对我的网站字体大小有意见？
很多视力不佳的人是最先抱怨的。这使我们意识到12px，其实只是让我觉得很不错而已，而对于那些视力下降明显的中年以上的人来讲，几乎等于10px对于我的感觉。
于是我告诉他，在“查看”里调整“文字大小”就可以了。但是却发现这是徒劳的。在Firefox能轻易调整的字体大小，怎么在IE就变得如此”坚不可调“？

问题出在哪？
我又试着打开中国的三大门户—新浪，网易，搜狐。它们的字体无一例外的在IE里失去可调性。看来这不是我网站独有的毛病。再看看MSN，Google，A list apart，华盛顿邮报，在IE里却是可调的。难道IE在字体调整上也搞歧视不成？
困扰我的问题直到看到这篇大作：How to size text using ems，才得到彻底的解决。

关键点：
1. IE无法调整那些使用px作为单位的字体大小；
2. 国外的大部分网站能够调整的原因在于其使用了em作为字体单位；
3. Firefox能够调整px和em，但是96%以上的中国网民使用IE浏览器(或内核)。这意味这中国网站的字体大小可以被认为不可调。

95%的中国网站需要重写CSS
在我所观察的中国网站中，包括三大门户，以及“引领”中国网站设计潮流的蓝色理想，ChinaUI等都是使用了px作为字体单位。只有百度好歹做了个可调的表率。
而在大洋彼岸，几乎所有的主流站点都使用em作为字体单位，也就是可调的。
没错，px比em更加容易使用，我也敢打赌大部分读者不知道em为何物或者它相当于多少px。
国外人士如此重视网站易用性(Accessibility)，不仅因为其根生蒂固的人文精神，直接原因可能是因为有一部法律来约束他们—例如美国的Section 508，强制网站达到一定的易用性。所以没有哪个主流站点愿意被那些视力下降或是残缺的人告上法庭。
注: 在中国, 可能把微软告上法庭来的更简单点，为什么IE对于px那么死板。

如何重写你的网站CSS
在这里，我们说一下如何用em重写Font-szie的问题。

em vs. px

em是何物？
em指字体高，任意浏览器的默认字体高都是16px。所以未经调整的浏览器都符合: 1em=16px。那么12px=0.75em, 10px=0.625em。为了简化font -size的换算，需要在css中的body选择器中声明Font-size=62.5%，这就使em值变为16px*62.5%=10px, 这样12px=1.2em, 10px=1em, 也就是说只需要将你的原来的px数值除以10，然后换上em作为单位就行了。em有如下特点：
1. em的值并不是固定的；
2. em会继承父级元素的字体大小。

重写步骤：
1. body选择器中声明Font-size=62.5%；
2. 将你的原来的px数值除以10，然后换上em作为单位；
简单吧，如果只需要以上两步就能解决问题的话，可能就没人用px了。经过以上两步，你会发现你的网站字体大得出乎想象。因为em的值不固定，又会继承父级元素的大小，你可能会在content这个div里把字体大小设为1.2em, 也就是12px。然后你又把选择器p的字体大小也设为1.2em，但如果p属于content的子级的话，p的字体大小就不是12px，而是1.2em= 1.2 * 12px=14.4px。这是因为content的字体大小被设为1.2em，这个em值继承其父级元素body的大小，也就是16px * 62.5% * 1.2=12px, 而p作为其子级，em则继承content的字体高，也就是12px。所以p的1.2em就不再是12px，而是14.4px。
3. 重新计算那些被放大的字体的em数值。避免字体大小的重复声明，也就是避免以上提到的1.2 * 1.2= 1.44的现象。比如说你在#content中声明了字体大小为1.2em，那么在声明p的字体大小时就只能是1em，而不是1.2em, 因为此em非彼em，它因继承#content的字体高而变为了1em=12px。

诡异的12px汉字(原因待查)
在完成em转换时我们还发现了一个诡异的现象，就是由以上方法得到的12px(1.2em)大小的汉字在IE中并不等于直接用12px定义的字体大小，而是稍大一点。这个问题我已经解决，你只需在body选择器中把62.5%换成63%就能正常显示了。原因可能是IE处理汉字时，对于浮点的取值精确度有限。阅读本篇的读者还有其他解释吗？
本现象只发生在12px的汉字，英文不存在此现象。

id COUNTER CONSTRAINT PrimaryKey PRIMARY KEY

设置id为主键

记得以前，我只感动过两次，第一次是在06年（或是05年，记不清了），一男孩在新街口大众书局那，右手全肿了，水泡一样，他爸、他奶奶左在他旁边抚着他，他呻吟着，可以想象他有多痛多难受。他妈妈在前面不停地叩着头，哭着。当时的场面真的很感人，很多人感动了，奉献了爱心。可是我当时兜里没钱，所以这爱心没有机会奉献出来。第二次是去年冬天，我从新街口回去，晚上，很晚了。经过招商银行门口时，看见一个瞎子，男性，大概三十几岁，前面一个老太牵着她，背有点驼，手里拿着一个瓷碗。当时第一个感觉他们是母子。或许他们的母子情触动了我的心，在往前走出100多米的时候，我终于忍不住想回头给点钱他们，可当我掉头的时候，发现他们也掉头了。我没有追上去，为此我也郁闷了许久。

两次都没有奉献我的爱心，心里有点疙瘩。其实我也给过别的这些人钱，只是不是感动的而已，次数不多，因为骗子太多了。

我写的这个函数，显示效果有两种。第一种就是5页内，页码左右有“上一页”和“下一页”；第二种是超过5页，页码左右是“前5页”和“后5页”。效果图如下图：

< %
Function pagination(pagecount)
dim myPage,myPageCount,PageNum
  if Len(Request.QueryString("page"))<>0 then
    myPage = clng(Request.QueryString("page"))
  else
    myPage =1
  End if
  if myPage <= 0 then myPage =1
  PageNum = (myPage \ 5)*5+1
  if myPage mod 5 = 0 then PageNum = (myPage \ 5)*5-4

  if myPage <= pagecount then
    if myPage > 5 then
      Response.Write ("< a href="http://www.ygblog.com/"?page=1"">首页")
      Response.Write (" < a href="http://www.ygblog.com/"?page="& PageNum-1 &""">前5页")
    elseif myPage > 1 and pagecount <= 5 then
      Response.Write ("< a href="http://www.ygblog.com/"?page="& myPage-1 &""">上一页")
    End if

    for PageNum = PageNum To PageNum + 4
    if PageNum = myPage then
      Response.Write (" < strong>["& PageNum &"]< /strong>")
    else
      Response.Write (" < a href="http://www.ygblog.com/"?page="& PageNum &""">")
      Response.Write ("["& PageNum &"]")
      Response.Write ("")
    End if
    if PageNum >= pagecount then Exit for
    Next
  End if

  if myPage <= (pagecount - (pagecount mod 5)) and pagecount > 5 then
    Response.Write (" < a href="http://www.ygblog.com/"?page="& PageNum &""">后5页")
    Response.Write (" < a href="http://www.ygblog.com/"?page="& pagecount &""">末页")
  elseif myPage < pagecount and pagecount <= 5 then
    Response.Write (" < a href="http://www.ygblog.com/"?page="& myPage+1 &""">下一页")
  End if
End Function
% >

有需要的朋友可以联系我免费索取