Question

asp分页和上一页下一页都弄好了，但是填数字跳转总是不行，不知道怎么写了，求指导！代码在下面

curpage=Request.QueryString("curpage") '将URL参数curpage传给curpage变量
pagego=Request.QueryString("pagego")'定义pagego
if curpage="" then curpage=1
rs.absolutepage=curpage '将本页设为curpage设置的页数
%>
<div>

当前第 <%=curpage%> 页，共有 <%=rs.pagecount%> 页，共有：<%=rs.recordcount%> 条记录
<label>第
<input name="pagego" type="text" id="pagego" size="2" maxlength="3" />
</label>
页 <a href="index.asp?curpage=<%=pagego%>">GO</a> </div>
<%if curpage=1 then%>
我要asp定向跳转，分页我分好了

Answer 1

pagego=Request.QueryString("pagego")'定义pagego
这里的pagego，无论何时输出来都是空值，原因很简单，你没有进行表单的提交，Request.QueryString只能取得表单的提交
所以
<form name="form1" method="post" action="">
<label>第
<input name="pagego" type="text" id="pagego" size="2" maxlength="3" />
</label>
页 <a href="#" onClick="{form1.submit();}">GO</a>

</form>
这样加个表单，GO弄成表单的提交，即可实现

Answer 2

给你个分页函数用吧
function page_split(pagesize,currentpage,filename,rss,svar)
dim splitStr
if currentpage<>"" then
currentpage=cint(currentpage)
else
currentpage=1
end if
rss.pagesize=pagesize
rss.AbsolutePage=currentpage

splitStr=splitStr& "共有 "&rss.recordcount&" 条记录 "
for i=1 to rss.PageCount
if i=currentpage then
splitStr=splitStr& "[<font class=red>"&i&"</font>]"
else

splitStr=splitStr& "[" &"<a href="&fileName&"?page=" &i &svar&">" &i &"</a>" &"]"
end if
next
page_split=splitStr

end function

使用方法：
<%
pagesize=16
page=request("page")
if page="" then
page=1
else
page=cint(page)
end if
%>
<%
set rs=server.createobject("adodb.recordset")
rs.open "select * from MB_news order by f_id desc",conn,1,1
if not rs.eof then
page_i=page_split(pagesize,page,"news.asp",rs,"")
num=0
do while not rs.eof and num<pagesize
response.write "<a hrf='#'>"&rs("title")&"</a><br>"
num=num+1
rs.movenext
loop
end if
rs.close
set rs=nothing
%>

追问

我要asp定向跳转，分页我分好了

Answer 3

f curpage="" then curpage=1

if pagego<>"" then
curpage=pagego
end if