ASP高手请进，帮小弟解决一个自动链接问题

来源：百度知道 编辑：UC知道 时间：2024/06/30 05:23:46
目录下有1.asp--100.asp 100个文件，自动读入link.asp

编写link.asp，
插入网页使网页下方有两个链接“上一页”和“下一页”实现自动链接翻页功能.
当前页为n.asp
要求 点击“上一页”进入 n-1.asp
要求 点击“下一页”进入 n+1.asp
无需考虑页码范围，就是link.asp被插入任何页码都能实现 前后翻页

<%
sname=request.ServerVariables("SCRIPT_NAME")
arr=split(sname,"/")
truename=arr(ubound(arr))

pnext=split(truename,".")(0)+1
ppre=split(truename,".")(0)-1
%>
<a href="<%= ppre %>">上一页</a>
<a href="<%= pnext %>">下一页</a>

没有那么复杂 看我这个简单的
-----------------------------
把我这个文件存成 link.asp，样式自己定 就可以了

<%
Total=100 '文件总数
nPageSize=10 '每页显示数
PageNum=Cint(Total/nPageSize)
If Total Mod nPageSize > 0 Then
PageNum=PageNum+1
End If
If trim(request("page"))="" Then
page=1
elseif IsNumeric(trim(request("page")))=false then
page=1
elseif Clng(trim(request("page")))<1 then
page=1
elseif Clng(trim(request("page")))>PageNum then
page=PageNum
else
page = CLng(trim(request(&qu