自己常用的分页程序

<IFRAME name=google_ads_frame marginWidth=0 marginHeight=0 src="http://pagead2.googlesyndication.com/pagead/ads?client=ca-pub-4490194096475053&amp;dt=1226297185750&amp;lmt=1226285422&amp;prev_slotnames=1891601125&amp;output=html&amp;slotname=3685991503&amp;correlator=1226297185718&amp;url=http%3A%2F%2Fwww.corange.cn%2Farchives%2F2008%2F08%2F1465.html&amp;ea=0&amp;ref=http%3A%2F%2Fwww.corange.cn%2Fhtml%2Fcorange__78.html&amp;frm=0&amp;ga_vid=2044451421.1225934970&amp;ga_sid=1226297173&amp;ga_hid=1656447314&amp;ga_fc=true&amp;flash=9.0.124.0&amp;u_h=768&amp;u_w=1024&amp;u_ah=715&amp;u_aw=1024&amp;u_cd=32&amp;u_tz=480&amp;u_java=true" frameBorder=0 width=300 scrolling=no height=250 allowTransparency></IFRAME>

dim rs,sql,key,strsql,page,i,x
key=request("key") '搜索关键字
strsql="?key="&key
page=cint(request("page"))
if page="" or page<=0 or isnumeric(page)=false then page=1
set rs=.....
sql="..... where .. like'%"%key&"%' or ... like'%"&key&"%'...."
rs.open sql......
if not rs.eof then
rs.movefirst
.....
i=0
do while not rs.eof and i<rs.pagesize
i=i+1
.........
.......
.....
..
rs.movenext
loop
else
page=0
end if
response.Write("共计"&rs.recordcount&"条 ")
response.Write("每页"&rs.pagesize&"条 ")
response.Write("第"&page&"/"&rs.pagecount&"页 ")
if page>1 and page<=rs.pagecount then response.Write("<a href="&strurl&"&page="&page-1&" class=l9>上一页</a> ")
if page<rs.pagecount and rs.pagecount>1 then response.Write("<a href="&strurl&"&page="&page+1&" class=l9>下一页</a>")
if rs.pagecount>1 then
response.Write(" 转到第<select onchange='javascript:location.href=this.options[selectedIndex].value'>")
for x=1 to rs.pagecount
if cint(page)=x then
response.Write("<option value="&strurl&"&page="&x&" selected>"&x&"</option>")
else
response.Write("<option value="&strurl&"&page="&x&">"&x&"</option>")
end if
next
response.Write("</select>页")
end if
rs.close
set rs=nothing
conn.close
set conn=nothing