您所在位置：主题：翻页时,我这样传递参数,不知为什么还是不行???在线等???
sldd
[专家分：0] 发布于 2007-04-09 14:03:00
请参考我发的上一个帖子
http://www.programfan.com/club/showbbs.asp?id=225104
我编写了一个简单的设备浏览查询程序，进入页面后如下图所示，会分页显示所有设备，
如果在搜索框内填入关键字搜索后，如果得到的记录少于每页显示的个数18个，程序是没有问题的，
如果大于18个，只要点击下一页，则显示的记录立即变为所有记录的第二页
我的acton 是文件本身,根据提示,(那是因为你在翻页的时候，没把关键字这个参数传过去。)我重新修改了,可以翻页时,故障依旧
keyword=Trim(Request("key"))
...............
if trim(request.form("sss"))<>"" then
select case request.form("sss")
case "设备名称"
strSql ="select * from jhtdata where (设备名称 like '%"&keyword&"%') and (部门='"&myUpart&"') order by id Desc"
........................
function showpage(totalnumber,maxperpage,filename)
dim n
if totalnumber mod maxperpage=0 then
n= totalnumber \ maxperpage
else
n= totalnumber \ maxperpage+1
end if
response.write "<p align='center'> "
if CurrentPage<2 then
response.write "<font color='#000080'><a href="&filename&"?key="&keyword&"&page=1>首页</a> 上一页</font> "
else
response.write "<a href="&filename&"?key="&keyword&"&page=1>首页</a> "
response.write "<a href="&filename&"?key="&keyword&"&page="&CurrentPage-1&">上一页</a> "
end if
if n-currentpage<1 then
response.write "<font color='#000080'>下一页 尾页</font>"
else
response.write [b]"<a href="&filename&"?key="&keyword&"&page="&(CurrentPage+1)&">"
response.write "下一页</a> <a href="&filename&"?keyword="&keyword&"&page="&n&">尾页</a>"[/b]end if
response.write "<font color='#000080'> 页次：</font><strong><font color=red>"&CurrentPage&"</font><font color='#000080'>/"&n&"</strong>页</font> "
response.write "<font color='#000080'> 共<b>"&totalnumber&"</b>个记录 <b>"&maxperpage&"</b>个记录/页</font> "
response.write "<font color='#000080'>转到：</font><input type='text' name='page' size=4 maxlength=4 class=smallInput value="&Currentpage&"> "
response.write "<input class=buttonface type='submit' value='Go' name='cndok' > "
end function
http://www.programfan.com/club/showbbs.asp?id=225104
我编写了一个简单的设备浏览查询程序，进入页面后如下图所示，会分页显示所有设备，
如果在搜索框内填入关键字搜索后，如果得到的记录少于每页显示的个数18个，程序是没有问题的，
如果大于18个，只要点击下一页，则显示的记录立即变为所有记录的第二页
我的acton 是文件本身,根据提示,(那是因为你在翻页的时候，没把关键字这个参数传过去。)我重新修改了,可以翻页时,故障依旧
keyword=Trim(Request("key"))
...............
if trim(request.form("sss"))<>"" then
select case request.form("sss")
case "设备名称"
strSql ="select * from jhtdata where (设备名称 like '%"&keyword&"%') and (部门='"&myUpart&"') order by id Desc"
........................
function showpage(totalnumber,maxperpage,filename)
dim n
if totalnumber mod maxperpage=0 then
n= totalnumber \ maxperpage
else
n= totalnumber \ maxperpage+1
end if
response.write "<p align='center'> "
if CurrentPage<2 then
response.write "<font color='#000080'><a href="&filename&"?key="&keyword&"&page=1>首页</a> 上一页</font> "
else
response.write "<a href="&filename&"?key="&keyword&"&page=1>首页</a> "
response.write "<a href="&filename&"?key="&keyword&"&page="&CurrentPage-1&">上一页</a> "
end if
if n-currentpage<1 then
response.write "<font color='#000080'>下一页 尾页</font>"
else
response.write [b]"<a href="&filename&"?key="&keyword&"&page="&(CurrentPage+1)&">"
response.write "下一页</a> <a href="&filename&"?keyword="&keyword&"&page="&n&">尾页</a>"[/b]end if
response.write "<font color='#000080'> 页次：</font><strong><font color=red>"&CurrentPage&"</font><font color='#000080'>/"&n&"</strong>页</font> "
response.write "<font color='#000080'> 共<b>"&totalnumber&"</b>个记录 <b>"&maxperpage&"</b>个记录/页</font> "
response.write "<font color='#000080'>转到：</font><input type='text' name='page' size=4 maxlength=4 class=smallInput value="&Currentpage&"> "
response.write "<input class=buttonface type='submit' value='Go' name='cndok' > "
end function
