<%
     if lcase(right(filename,3))="asp" then
     	TheFH= "?"
     else 
     	TheFH= "&"
     end if  
PageStr="共 <b>"&rs.recordcount&"</b> 条记录 &nbsp;&nbsp;页次：<b><font color=red>"&PageCount&"</font>/"&rs.pagecount&"</b> "
if pagecount=1 and rs.pagecount<>pagecount and rs.pagecount<>0 then
 PageStr=PageStr & "<a href='"&filename&TheFH&"page="&cstr(pagecount+1)&"'>[下一页]</a> "
elseif rs.pagecount>1 and rs.pagecount=pagecount then
 PageStr=PageStr & "<a href='"&filename&TheFH&"page="&cstr(pagecount-1)&"'>[上一页]</a> "
elseif pagecount<>1 and rs.pagecount<>pagecount then
 PageStr=PageStr & "<a href='"&filename&TheFH&"page="&cstr(pagecount-1)&"'>[上一页]</a> <a href='"&filename&TheFH&"page="&cstr(pagecount+1)&"'>[下一页]</a>"
end if
 PageStr=PageStr & "&nbsp;&nbsp; 转到第<select name='page' onchange =""window.location.href('"&filename&TheFH&"page='+this.value)"" size=1>"
 PageStr=PageStr & "<option>go</option>"
 for iii=1 to rs.pagecount
 PageStr=PageStr & "<option value="""&iii&""">"&iii&"</option>"
 next
 PageStr=PageStr & "</select>页"
%>