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)