谁有好看点的ASP分页代码？

谁有好看点的ASP分页代码？

function FunPage(Intpagecount,Intmypage,Intrecordcount,Intpagesize,StrValue)
on error resume next
dim Intfor,Intlist,intlist_b
if intmypage>1 then
funpage=funpage & "<a class=he href='?page=1" & StrValue & "' title='最前页' >最前页</a>"
funpage=funpage&"<a class=he href='?page="&Intmypage-1 & StrValue & "' title='上一页' >上一页</a>"
else
funpage=funpage &""
funpage=funpage&""
end if
if Intlist<>0 then
if cintmypage= Intlist then
Intlist=Intlist+5
end if
else
Intlist=Intmypage+5
end if
if intlist-9<1 then
intlist_b=1
else
intlist_b=intlist-9
end if
for Intfor=intlist_b to Intlist
if intfor<=Intpagecount then
if intfor=Intmypage then '-------使当前页文字为红色，并不可点击
funpage =funpage & strMode&"<font color='#FF0000' class=reds><b>"&Intfor& "</b></font>"
else
funpage=funpage & strMode &"<b><a class=he href='?page=" & Intfor & StrValue & "' >" & Intfor & "</a></b>"
end if
end if
strMode=""
next
if intmypage<intpagecount then
funpage=funpage&"<a class=he href='?page="& Intmypage+1 & StrValue & "' title='后一页'>后一页</a>"
funpage=funpage &"<a class=he href='?page="& Intpagecount & StrValue & "' title='最后页' >最后页</a>"
else
funpage=funpage&" "
funpage=funpage &""
end if
funpage="<div id=""function"" class='Apage'>"&_
vbcrlf&"<br/>"&funpage&"<br/><br/>"&_
vbcrlf&"共 <strong>"&Intrecordcount&"</strong> 条记录, "&"当前显示第 <strong>"&Intmypage&"</strong> 页, <strong>"&Intpagesize&"</strong> 条/页, 共 <strong>"&Intpagecount&"</strong> 页"&_
vbcrlf&"</div>"
if err.number<>0 then
err.clear
response.redirect("Error.asp?err=分页函数出错，请与管理员联系！|")
end if
end function

你用的是DW CS3的话有个最简单的方法,

第一行是靠这个来实现

第二行是靠来实现