您所在位置：主题：一个翻页功能，大家帮看看，（急啊）
小财神
[专家分：70] 发布于 2008-12-22 11:18:00
制作易想商务网翻页功能，大家帮看看，应该怎么写翻页功能的代码，
我这段写的有问题，只能显示前三个页码，显示不了第四个页码，还有一个问题是如果分到五页以上，往回翻页的时候就直接跳到了第一页，帮看看这应该怎么写，这就是易想商务网里的详细页面
'分页
Set fso = YXFSO
content=split(rs("content"),"||")
allPage=UBound(content)
HOPE_body=HOPE_body&"<script type='text/javascript' src='/check.js'></script><script language='vbscript'>sub window_onload() AjaxSearchmsg("&rs("newsid")&") end sub </script><input type='text' id='installurlmsg' style='display:none; width:12;height:1' value='/'/>"
HOPE_body=HOPE_body&"<table width=""100%"" border=""0"" cellspacing=""0"">"&VbCrLf
HOPE_body=HOPE_body&"<tr>"&VbCrLf
HOPE_body=HOPE_body&"<td colspan=""2"" align=""left"" class=""lh15"">"&VbCrLf
for m=0 to allPage
prepage=""&HOPE_InstallDir&"info/detail/"&typeid&"-"&ttid&".html"
nextpage=""&HOPE_InstallDir&"info/detail/"&typeid&"-"&ttid&"-"&m+1&".html"
IF allPage=0 THEN '无分页
yema=""
filename=HOPE_InstallDir&"info/detail/"&typeid&"-"&ttid&".html"
END IF
IF allPage=1 THEN '两页
if m=0 then
yema="<br><div style='width:500px; text-align:center'><a href='"&prepage&"'><font color='#FF0000'>[<strong>"&m+1&"</strong>]</font></a> <a href='"&nextpage&"'>["&m+2&"]</a> <a href='"&nextpage&"'>下一页</a></div>"
filename=HOPE_InstallDir&"info/detail/"&typeid&"-"&ttid&".html"
elseif m=1 then
yema="<br><div style='width:500px; text-align:center'><a href='"&prepage&"'>上一页</a> <a href='"&prepage&"'>["&m&"]</a> <a href='"&nextpage&"'><font color='#FF0000'>[<strong>"&m+1&"</strong>]</font></a></div>"
filename=HOPE_InstallDir&"info/detail/"&typeid&"-"&ttid&"-"&m&".html"
end if
END IF
IF allpage>1 THEN '两页以上
if m=0 then '第一页
yema="<br><div style='width:500px; text-align:center'><a href='"&prepage&"'><font color='#FF0000'>[<strong>"&m+1&"</strong>]</font></a> <a href='"&nextpage&"'>["&m+2&"]</a> <a href='"&HOPE_InstallDir&"info/detail/"&typeid&"-"&ttid&"-"&m+2&".html'>["&m+3&"]</a> <a href='"&nextpage&"'>下一页</a></div>"
filename=HOPE_InstallDir&"info/detail/"&typeid&"-"&ttid&".html"
elseif m=1 then '第二页
yema="<br><div style='width:500px; text-align:center'><a href='"&prepage&"'>上一页</a> <a href='"&prepage&"'>["&m&"]</a> <a href='"&HOPE_InstallDir&"info/detail/"&typeid&"-"&ttid&"-"&m&".html'><font color='#FF0000'>[<strong>"&m+1&"</strong>]</font></a> <a href='"&nextpage&"'>["&m+2&"]</a> <a href='"&nextpage&"'>下一页</a></div>"
filename=HOPE_InstallDir&"info/detail/"&typeid&"-"&ttid&"-"&m&".html"
elseif 1<m<allpage and m<>allpage then '中间
yema="<br><div style='width:500px; text-align:center'><a href='"&HOPE_InstallDir&"info/detail/"&typeid&"-"&ttid&"-"&m-1&".html'>上一页</a> <a href='"&prepage&"'>["&m&"]</a> <a href='"&HOPE_InstallDir&"info/detail/"&typeid&"-"&ttid&"-"&m&".html'><font color='#FF0000'>[<strong>"&m+1&"</strong>]</font></a> <a href='"&nextpage&"'>["&m+2&"]</a> <a href='"&nextpage&"'>下一页</a></div>"
filename=HOPE_InstallDir&"info/detail/"&typeid&"-"&ttid&"-"&m&".html"
elseif m=allpage then '最后一页
yema="<br><div style='width:500px; text-align:center'><a href='"&HOPE_InstallDir&"info/detail/"&typeid&"-"&ttid&"-"&m-1&".html'>上一页</a> <a href='"&prepage&"'>["&m-1&"]</a> <a href='"&HOPE_InstallDir&"info/detail/"&typeid&"-"&ttid&"-"&m-1&".html'>["&m&"]</a> <a href='"&HOPE_InstallDir&"info/detail/"&typeid&"-"&ttid&"-"&m&".html'><font color='#FF0000'>[<strong>"&m+1&"</strong>]</font></a></div>"
filename=HOPE_InstallDir&"info/detail/"&typeid&"-"&ttid&"-"&m&".html"
end if
END IF
yema=yema&"</td></tr></table>"
News_con=HOPE_body&content(m)&yema
pencatm=replace(pencat,"$Content$",News_con)
Set sort_save = fso.CreateTextFile(Server.Mappath(filename))
sort_save.Write pencatm
sort_save.Close
next
'分页结束
'Set fso = YXFSO
'Set sort_save = fso.CreateTextFile(Server.Mappath(HOPE_InstallDir&"info/detail/"&typeid&"-"&ttid&".html"))
'sort_save.Write pencat
'sort_save.Close
我这段写的有问题，只能显示前三个页码，显示不了第四个页码，还有一个问题是如果分到五页以上，往回翻页的时候就直接跳到了第一页，帮看看这应该怎么写，这就是易想商务网里的详细页面
'分页
Set fso = YXFSO
content=split(rs("content"),"||")
allPage=UBound(content)
HOPE_body=HOPE_body&"<script type='text/javascript' src='/check.js'></script><script language='vbscript'>sub window_onload() AjaxSearchmsg("&rs("newsid")&") end sub </script><input type='text' id='installurlmsg' style='display:none; width:12;height:1' value='/'/>"
HOPE_body=HOPE_body&"<table width=""100%"" border=""0"" cellspacing=""0"">"&VbCrLf
HOPE_body=HOPE_body&"<tr>"&VbCrLf
HOPE_body=HOPE_body&"<td colspan=""2"" align=""left"" class=""lh15"">"&VbCrLf
for m=0 to allPage
prepage=""&HOPE_InstallDir&"info/detail/"&typeid&"-"&ttid&".html"
nextpage=""&HOPE_InstallDir&"info/detail/"&typeid&"-"&ttid&"-"&m+1&".html"
IF allPage=0 THEN '无分页
yema=""
filename=HOPE_InstallDir&"info/detail/"&typeid&"-"&ttid&".html"
END IF
IF allPage=1 THEN '两页
if m=0 then
yema="<br><div style='width:500px; text-align:center'><a href='"&prepage&"'><font color='#FF0000'>[<strong>"&m+1&"</strong>]</font></a> <a href='"&nextpage&"'>["&m+2&"]</a> <a href='"&nextpage&"'>下一页</a></div>"
filename=HOPE_InstallDir&"info/detail/"&typeid&"-"&ttid&".html"
elseif m=1 then
yema="<br><div style='width:500px; text-align:center'><a href='"&prepage&"'>上一页</a> <a href='"&prepage&"'>["&m&"]</a> <a href='"&nextpage&"'><font color='#FF0000'>[<strong>"&m+1&"</strong>]</font></a></div>"
filename=HOPE_InstallDir&"info/detail/"&typeid&"-"&ttid&"-"&m&".html"
end if
END IF
IF allpage>1 THEN '两页以上
if m=0 then '第一页
yema="<br><div style='width:500px; text-align:center'><a href='"&prepage&"'><font color='#FF0000'>[<strong>"&m+1&"</strong>]</font></a> <a href='"&nextpage&"'>["&m+2&"]</a> <a href='"&HOPE_InstallDir&"info/detail/"&typeid&"-"&ttid&"-"&m+2&".html'>["&m+3&"]</a> <a href='"&nextpage&"'>下一页</a></div>"
filename=HOPE_InstallDir&"info/detail/"&typeid&"-"&ttid&".html"
elseif m=1 then '第二页
yema="<br><div style='width:500px; text-align:center'><a href='"&prepage&"'>上一页</a> <a href='"&prepage&"'>["&m&"]</a> <a href='"&HOPE_InstallDir&"info/detail/"&typeid&"-"&ttid&"-"&m&".html'><font color='#FF0000'>[<strong>"&m+1&"</strong>]</font></a> <a href='"&nextpage&"'>["&m+2&"]</a> <a href='"&nextpage&"'>下一页</a></div>"
filename=HOPE_InstallDir&"info/detail/"&typeid&"-"&ttid&"-"&m&".html"
elseif 1<m<allpage and m<>allpage then '中间
yema="<br><div style='width:500px; text-align:center'><a href='"&HOPE_InstallDir&"info/detail/"&typeid&"-"&ttid&"-"&m-1&".html'>上一页</a> <a href='"&prepage&"'>["&m&"]</a> <a href='"&HOPE_InstallDir&"info/detail/"&typeid&"-"&ttid&"-"&m&".html'><font color='#FF0000'>[<strong>"&m+1&"</strong>]</font></a> <a href='"&nextpage&"'>["&m+2&"]</a> <a href='"&nextpage&"'>下一页</a></div>"
filename=HOPE_InstallDir&"info/detail/"&typeid&"-"&ttid&"-"&m&".html"
elseif m=allpage then '最后一页
yema="<br><div style='width:500px; text-align:center'><a href='"&HOPE_InstallDir&"info/detail/"&typeid&"-"&ttid&"-"&m-1&".html'>上一页</a> <a href='"&prepage&"'>["&m-1&"]</a> <a href='"&HOPE_InstallDir&"info/detail/"&typeid&"-"&ttid&"-"&m-1&".html'>["&m&"]</a> <a href='"&HOPE_InstallDir&"info/detail/"&typeid&"-"&ttid&"-"&m&".html'><font color='#FF0000'>[<strong>"&m+1&"</strong>]</font></a></div>"
filename=HOPE_InstallDir&"info/detail/"&typeid&"-"&ttid&"-"&m&".html"
end if
END IF
yema=yema&"</td></tr></table>"
News_con=HOPE_body&content(m)&yema
pencatm=replace(pencat,"$Content$",News_con)
Set sort_save = fso.CreateTextFile(Server.Mappath(filename))
sort_save.Write pencatm
sort_save.Close
next
'分页结束
'Set fso = YXFSO
'Set sort_save = fso.CreateTextFile(Server.Mappath(HOPE_InstallDir&"info/detail/"&typeid&"-"&ttid&".html"))
'sort_save.Write pencat
'sort_save.Close