Question

ASP分页出现错误，求如何传递参数！

这是分页代码
Sub makepagesserch(page,pagetotal,totals,sizes,act,lei)
'生成上一页下一页链接
if act="serch" then
urls="serch.asp?act=serch&page="
end if
if page=1 then
response.write "首页 "
else
response.write "<a href='/"&urls&"1'>首页</a> "
end if
if page-1<1 then
response.write "上一页 "
else
response.write "<a href='/"&urls&page-1&"'>上一页</a> "
end if
if page+1>cint(pagetotal) then
response.write "下一页 "
else
response.write "<a href='/"&urls&page+1&"'>下一页</a> "
end if
if cint(page)<cint(pagetotal) then
response.write "<a href='/"&urls&pagetotal&"'>尾页</a> "
else
response.write "尾页 "
end if
response.write "　　　共有"&totals&"记录　"&sizes&"条/页　当前"&page&"/"&pagetotal
End Sub

sub erro(num)
select case num
case 101
msg="参数错误"
end select
response.write "<script>alert('"&msg&"');window.history.go(-1);</script>"
end sub

这是调用的代码
call makepages(page,rs.pagecount,rs.recordcount,rs.pagesize,request("act"),ls)

这是搜索框的样式代码
<form id="serch" name="serch" method="post" action="serch.asp?act=serch&page=1">
<input name="keys" type="text" class="serch_txt"><div class="serch_but" onclick="submit();"></div><div class="serch_fb" onClick="location.href='vip.html'"></div></form>

这个是搜索的代码片段

elseif act="serch" then
if trim(request("keys"))<>"" then
rs.open "select * from info where title like '%"&trim(request("keys"))&"%' and lei<>'bb' and lei<>'00' and code=true order by istop asc , id desc",conn,1,2
else
response.write "<script>alert('关键词不能为空');window.history.go(-1);</script>"
response.End()
end if
else
ls=0
rs.open "select * from info where lei<>'bb' and lei<>'00' and code=true order by istop asc , id desc",conn,1,2
end if
if rs.eof and rs.bof then
response.write "<div style='width:100%;height:30px;line-height:30px;color:#ff0000'>暂无内容</div>"
else
if request("page")="" then
page=1
else
if cint(request("page"))>rs.pagecount then
page=rs.pagecount
else
page=request("page")
end if
end if
rs.pagesize=60
rs.absolutepage=page

搜索正常，但是一旦点击下一页就会提示输入为空！求指教分不多了

Answer 1

你的表单有误，你表单是用的post提交的，你点击搜搜之后，当然能接收到参数！但是你点击下一页，表单并未提交，参数从哪里来啊？
解决的方法是，一直用get传递参数，将表单的method="post"改成method="get"
然后在分页子程里获取这个参数并附加到分页链接中，这样，无论跳转到那一页，浏览器url里始终有这个参数，而子程每次都能获取到，这样不是不会丢失了？
比如，在分页子程里可以加上这么一句：
Sub makepagesserch(page,pagetotal,totals,sizes,act,lei)
'生成上一页下一页链接
act=Request.QueryString("act") '加上这句获取act变量以及其值

Answer 2

urls="serch.asp?act=serch&keys="&keys&"&page="

在这之前有一个变量声明
dim keys
keys = server.urlencode(request("keys"))

Answer 3

Sub makepagesserch(page,pagetotal,totals,sizes,act,lei)
加一个 地址参数 在这个里面 除了 搜索的时候赋值了 其他都没赋值