asp翻页问题--搜索信息后的页面上有很多条内容的时候，页面拉的很长，我想分页，但 - ASP技术论坛

问题点数：0 回复次数：7

asp翻页问题--搜索信息后的页面上有很多条内容的时候，页面拉的很长，我想分页，但

希望朋友门帮帮忙代码如下：（search.asp）
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>


<%
keyword=request.form("keyword")
leibie=request.form("leibie")
weizhi=request.form("weizhi")
if leibie="0" then
leibie="%"
else
leibie=leibie
end if
keyword=htmlencode(keyword)
if keyword="" then
response.write("<script>alert('搜索内容不能为空！');history.go(-1)</script>")
else
if keyword="%" or keyword="*" then
response.write("<script>alert('不要输入非法字符！');history.go(-1)</script>")
else

set rs=server.createobject("adodb.recordset")
sql="select * from main where huifu=false and leibie like " & "'" & leibie & "' and " & weizhi & " like " & "'%" & keyword & "%' order by number DESC"
rs.open sql,conn,1,3
%>

<html >
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>无标题文档</title>
</head>

<body><table width="776" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="196" bgcolor="#FFCC00"><%if rs.eof then%>
<div align="center"><font color="#FF0000">抱歉，没有找到您需要的内容</font></div>
<%else%><strong>查询结果：</strong><%
rs.PageSize=10
Page=CLng(request("Page"))
if Page<1 then Page=1
if Page>rs.PageCount then Page=rs.PageCount
rs.movefirst
rs.absolutepage=Page

do while not rs.eof
%><table>
<tr><td width="668" bgcolor="#f7efef"><a href="result.asp?id=<%=rs("id")%>" target="_blank"><%=rs("title")%></a></a></td></tr></table><br><% rs.movenext
loop end if %>

<p>
<%
if page<>1 then
response.Write "<a href=search.asp?page=1>第一页</a>"
response.Write "<a href=search.asp?page=" & (page-1) & ">上一页</a>"
end if
if page<>rs.pagecount then
response.Write "<a href=search.asp?page=" & (page+1) & ">下一页</a>"
response.Write "<a href=search.asp?page=" & rs.pagecount & ">最后一页</a>"
end if
%>
第<%=page%>页共<%=rs.pagecount%>页</p> </td>
</tr>
</table>

</body>
</html>
<%end if
end if
%>

搜索更多相关主题的帖子: keyword　leibie　asp　form　

第 2 楼

得分:0

谢谢朋友，请问怎么转呀，这个页面搜索打开后就没有分页，信息多的时候还是拉的很长

第 3 楼

得分:0

谢谢楼上的，已经分页了，但点击下一页的时候，提示没有搜索内容，我这个页面是搜索后的页面，麻烦在帮看看

第 4 楼

得分:0

怎么加呀，朋友，我本来是做设计的，asp是刚学的，真是太感谢你了

第 5 楼

得分:0

朋友，我热切的等待你的回答，谢谢你了

第 6 楼

得分:0

现在代码是这样，但点击下一页的时候提示：搜索内容不能为空


<%
keyword=request.form("keyword")
leibie=request.form("leibie")
weizhi=request.form("weizhi")
if leibie="0" then
leibie="%"
else
leibie=leibie
end if
keyword=htmlencode(keyword)
if keyword="" then
response.write("<script>alert('搜索内容不能为空！');history.go(-1)</script>")
else
if keyword="%" or keyword="*" then
response.write("<script>alert('不要输入非法字符！');history.go(-1)</script>")
else

<html >
<head>
<title>0</title>
</head>
<body>
<table >
<tr>
<td > <% if rs.eof or rs.bof then
else %>
<% rs.pagesize=15 %>
<% if request("page")="" then
page=1
else
page=CLng(request("page"))
end if
%>
<%
IF page<1 Then
page=1
end if
If page>rs.pagecount Then
page=rs.pagecount
rs.absolutepage=page
end if
%>
<%
rs.absolutepage=cint(page)%>
<tr>
<%
i=1
do while i<=rs.pagesize %>
<table>
<tr><td ><a href="result.asp?id=<%=rs("id")%>" target="_blank"><%=rs("title")%></a></a></td></tr></table><br><%
if i mod 3 = 0 then
response.Write("</tr><tr>")
end if
Rs.MOVENEXT
IF RS.EOF OR RS.BOF THEN
EXIT DO
END IF
i=i+1
loop
END IF %>
<tr><%
IF page<>1 Then
Response.Write("<td><a href=search.asp?page=1"&s&"><font color=000000>第一页</font></a></td>")
Response.Write("<td><a href=search.asp?page="&(page-1)&s&"><font color=000000>上一页</font></a></td>")
Else
Response.Write("<td>第一页</td>")
Response.Write("<td>上一页</td>")
End IF
IF page<>rs.pagecount then
Response.Write("<td><a href=search.asp?page=" & (page+1) &s&"><font color=000000>下一页</font></a></td>")
Response.Write("<td><a href=search.asp?page=" & rs.pagecount &s& "><font color=000000>最后一页</font></a></td>")
Else
Response.Write("<td>下一页</td>")
Response.Write("<td>最后一页</td>")
End IF
%> 共<%=rs.pagecount%>页当前第<%=page%>页
</td>
</tr>
</table> <%rs.close%>
</body>
</html>
<%end if
end if
%>

[此贴子已经被guyer于2007-6-21 18:18:51编辑过]

第 7 楼

得分:0

谢谢一個漆黑的角落朋友，我太感谢你，我真的爱死你了，已经解决，

第 8 楼

得分:0

回复：（guyer）[em02]

能做个朋友吗，我是做设计的，asp 刚学没多长时间，能否把qq号码给我，平时可以聊聊