For I=1 To f.PageCount If I=page_no Then Response.Write "<font size=5 color=red>"&I& "</font> " Else Response.Write "<a href='index.asp?page_no=" &I& "'><font size=4>"&I& "</font></a> " End If Next response.write("  共"&f.pagecount&"页,"&f.recordcount&"条记录,") response.write("当前页码:<font color=red>"&page_no&"</font>/"&f.pagecount)