asp翻页代码

具体的链接？

答案
将以下代码另存为default.asp再在本地运行可得到效果

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>








<%
page=request("page")
if page="" then page=1
%>
上一页 <%pageset page,20,"http://localhost/default.asp"%> 下一页
<%
function pageset(cpage,tpage,link)
if cpage<10 then
startpage=1
if tpage<10 then
tpage=tpage
else
endpage=10
end if
else
startpage=cpage-4
endpage=cpage+5
if endpage>tpage then
endpage=tpage
startpage=endpage-10
end if
end if
for i=startpage to endpage
if i=clng(cpage) then
response.write ""&i&""
else
response.write ""&i&" "
end if
next
end function
%>