relife 重返17漫画:ASP如何实现网页跳转

来源:百度文库 编辑:杭州交通信息网 时间:2024/03/29 16:46:48
比如有N页记录,想要实现输入一个数字后页面跳转,ASP该如何实现呢?

<form name="frmPage" method="get" action="">
<input type="text" name="page" size="2">
<input type="submit" value="GO">
</form>

注意表单的method属性,如果页面是通过QueryString来传递参数,则应该设置为get,文本输入框的name属性这里设置为page,则表单提交后url后的内容为page=...

<input type=button name=button onclick="window.location=('hqwdqw.asp?no='+document.frm.no.value);">

这是ASP的分页技术,请学习“ASP分页技术”方面的知识解决.

下面是一个示例代码:

<%
Response.Expires = -1
Dim conn,oRS,Page
mdb="x.asp"'数据库地址
size=5'数据每页显示数
url="read.asp"'本页asp文件名
Set conn = Server.CreateObject("ADODB.Connection")
strcon="provider=microsoft.jet.oledb.4.0;data source="&server.mappath(mdb)
conn.Open strcon
Set oRS = Server.CreateObject ("ADODB.Recordset")
sql="select * from news order by id desc"
oRS.Open sql, conn, 1
'////////////数据分页////////////////////
'///////////////////////////////////////
Page=1
oRS.PageSize = size
if Request("Page")<>"" then
Page = Int(Request("Page"))
if Page > oRS.PageCount then
oRS.AbsolutePage = oRS.PageCount
elseif Page <= 0 then
Page = 1
else
oRS.AbsolutePage = Page
end if
End if
Page = oRS.AbsolutePage
For i = 1 to oRS.PageSize
response.write oRS("id")&"<br>"'添加的显示数据
oRS.MoveNext
if oRS.EOF then
Exit For
end if
Next
if Page>1 then
response.write "<a Href='"&url&"?Page=1'>首页</a> <a Href='"&url&"?Page="&Page-1&"'>上一页</a> "
else
response.write "首页 上一页 "
end if
if Page<>oRS.pagecount then
response.write "<a Href='"&url&"?Page="&Page+1&"'>下一页</a> <a Href='"&url&"?Page="&oRS.PageCount&"'>尾页</a>"
else
response.write "下一页 尾页"
end if
'////////////分页结束////////////////////
'///////////////////////////////////////
oRS.Close
Set oRS = Nothing
conn.Close
Set conn = Nothing
%>