ASP数字分页代码示例：自动生成上一页/下一页链接

<%
'epage:当前页  epage=cint(request("page"))
'endpage:显示页数的最后一页
'm:总页数=rs.pagecount
'filename:连接页面
function showpages(epage,endpage,m,filename)
response.Write("<div class=""pages lybheight""><dl><dd>")
if epage=1 then 
response.Write("<img src=""images/newes/updis.gif"" width=""73"" height=""41"" />")
else
response.Write("<a href="""&filename&"?page="&epage-1&"&MidCode="&trim(request("MidCode"))&"""><img src=""images/newes/up.gif"" width=""73"" height=""41""></a>")
end if
response.Write("</dd><dd style=""margin-top:8px;""><span>")
if epage>4 then response.Write("<a title=""首页"" href="""&filename&"?page=1&MidCode="&trim(request("MidCode"))&""">1</a>"&"...")
for p=epage-3 to endpage
if not p<1 then 
if p=epage then
if p=m then
response.write "&nbsp;<b style=""color:#f00;cursor:pointer;""  title=""末页"">"&p&"</b>"
elseif p=1 then
response.write "&nbsp;<b style=""color:#f00;cursor:pointer;"" title=""首页"">"&p&"</b>&nbsp;<font color=939393>-</font>"
else
response.write "&nbsp;<b style=""color:#f00;"">"&p&"</b>&nbsp;<font color=939393>-</font>"
end if
else
if p=m then
response.write "&nbsp;<a title=""末页"" href="""&filename&"?MidCode="&trim(request("MidCode"))&"&page="&p&""">"&p&"</a>"
elseif p=1 then
response.write "&nbsp;<a title=""首页"" href="""&filename&"?MidCode="&trim(request("MidCode"))&"&page="&p&""">"&p&"</a>&nbsp;<font color=939393>-</font>"
else