<%

'分页条
sub Fy(tb_width,tb_bgcolor,text_align,tb_style)
  response.write"<br><table width="&tb_width&" border=0 align=center bgcolor="&tb_bgcolor&" cellpadding=0 cellspacing=0  "&tb_style&">"
  response.write"<tr> "
  response.write"<td align="&text_align&" valign=top style='color:#A5537B;'>"
response.write("<b>")
lan_pub(59)'共
response.Write("<font color=ff0000><b>"&rs.recordcount&"</b></font>")
lan_pub(60)'条记录
lan_pub(61)'每页
response.Write(" <select  onchange=window.location='?page=1&classID="&request("classID")&"&count_of_page='+this.value><option value=10 ")
	if count_of_page="10" then response.Write(" selected ")'看cookies里的每页显示条数
response.Write(">10</option>  <option value=20 ")
	if count_of_page="20" then response.Write(" selected ")
response.Write(">20</option><option value=30 ")
	if count_of_page="30" then response.Write(" selected ")
response.Write(">30</option><option value=60 ")
	if count_of_page="60" then response.Write(" selected ")
response.Write(">60</option> </select>")
lan_pub(62)'条


If page<>1 Then
  
response.Write"</a> <a href="&Request.ServerVariables("SCRIPT_NAME")&"?Page="&(page-1)&"&classid="&request("classid")&">"
lan_pub(67)'上一页
response.Write"</a> "
End If
ban=5'ban一半
page_from=page-ban
page_to =page+ban
if page_from<1 then
	page_from=1
	page_to=ban*2
end if

if page_to>rs.pagecount then
	page_to=rs.pagecount'最大页
	page_from=page_to-ban*2
	if page_from<1 then page_from=1
end if

if page_from>2 then response.write" <a href=?Page=1&classid="&request("classid")&">1</a> ... "
if page_from=2 then response.write" <a href=?Page=1&classid="&request("classid")&">1</a> "

for page_i=page_from to page_to
	if page_i<>page then
		a=" <a href=?page="&page_i&"&classID="&request("classID")&">"
	else
		a=" <a style='background:#0066CC; color:#FFFFFF'>"
	end if
	response.write(a&page_i&"</a>")
next
if rs.pageCount-page_to>2 then response.write" ... <a href=?Page="&rs.pageCount&"&classid="&request("classid")&">"&rs.pageCount&"</a> "
if rs.pageCount-page_to=2 then response.write" <a href=?Page="&rs.pageCount&"&classid="&request("classid")&">"&rs.pageCount&"</a> "


If page<>rs.pagecount Then
  response.write" <a href="&Request.ServerVariables("SCRIPT_NAME")&"?Page="&(page+1)&"&classid="&request("classid")&">"
  lan_pub(68)'下一页
  response.Write"</a>"
	End If
response.write("</b>")

 response.Write"&nbsp;</td></tr></table>"
end sub

%>


