| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 589 人关注过本帖
标题:求助 万分感谢!
只看楼主 加入收藏
zhuguang668
Rank: 1
等 级:新手上路
帖 子:1
专家分:0
注 册:2006-7-17
收藏
 问题点数:0 回复次数:4 
求助 万分感谢!

当我点搜索后 翻页时候就显示数据库里所有的数据 麻烦大家帮我看看代码错在哪里 谢谢
<%@ LANGUAGE="VBSCRIPT" %>
<!--#include file="conn.asp" -->
<%
spxl=request("spxl")
set rs=server.createobject("adodb.recordset")

sqltext="select * from learning"

if request("Name")<>"" then
sqltext=sqltext &" where Name like '%"& request("Name") &"%' "
else
sqltext=sqltext &" where Name like '%"& "" &"%' "
end if
if request("Product_Class")<>"" then
sqltext=sqltext &" and Class_1 like '%"& request("Product_Class") &"%' "
end if
rs.open sqltext,conn,1,1

dim MaxPerPage
MaxPerPage=9

'取得页数,并判断用户输入的是否数字类型的数据,如不是将以第一页显示
dim text,checkpage
text="0123456789"
Rs.PageSize=MaxPerPage
for i=1 to len(request("page"))
checkpage=instr(1,text,mid(request("page"),i,1))
if checkpage=0 then
exit for
end if
next

If checkpage<>0 then
If NOT IsEmpty(request("page")) Then
CurrentPage=Cint(request("page"))
If CurrentPage < 1 Then CurrentPage = 1
If CurrentPage > Rs.PageCount Then CurrentPage = Rs.PageCount
Else
CurrentPage= 1
End If
If not Rs.eof Then Rs.AbsolutePage = CurrentPage end if
Else
CurrentPage=1
End if

%>

<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<script>
function openbag(id) { window.open("eshop.asp?cpbm="+id,"","height=200,width=700,left=190,top=0,resizable=yes,scrollbars=yes,status=no,toolbar=no,menubar=no,location=no");}
</script>
<title>产品分类<%= request("Name")%><%= request("Name")%></title>
<href="style.css">
<link rel="stylesheet" type="text/css" href="style.css">
</head>

<body>

<center>
<div align="center">
<table border="0" cellpadding="0" cellspacing="0" width="600" height="92" >
<tr>
<td width="100%" height="70">
<div align="center">
<table border="0" cellpadding="0" cellspacing="0" width="100%" height="148" >
<tr><td valign="top">

<div align="center">
<%
'假如没有商品时
If rs.eof and rs.bof then
response.write "<td><p align='center'><font color='#ff0000'>没有找到符合条件的商品资料</font></p></td>"
response.end
End if %>
<table border="0" cellspacing="1" width="100%" bordercolorlight="#006699" bordercolordark="#FFFFFF" height="57" bgcolor="#000000">
<tr>
<td width="16%" align="center" bgcolor="#006699">Id</td>
<td width="16%" align="center" bgcolor="#006699" height="14"><font color="#FFFFFF">商品编号</font></td>
<td width="34%" align="center" bgcolor="#006699" height="14"><font color="#FFFFFF">商品名称</font></td>
<td width="18%" align="center" bgcolor="#006699">pic</td>
<td width="18%" align="center" bgcolor="#006699" height="14"><font color="#FFFFFF">会员价</font></td>
<td width="15%" align="center" bgcolor="#006699" height="14"><font color="#FFFFFF">购买</font></td>
</tr>

<%row_count=1
'显示帖子的子程序
Sub list()%>
<%i=0
Do While Not rs.EOF%>
<tr>
<td width="16%" align="center" bgcolor="#EEEEEE"><%=rs("Id")%></td>
<td width="16%" align="center" height="39" bgcolor="#EEEEEE"><%=rs("articleid")%></td>
<td width="34%" align="center" height="39" bgcolor="#EEEEEE" ><%=rs("Name")%></td>
<td width="18%" align="center" bgcolor="#EEEEEE"><img border="0" src="<%=rs("picture")%>">&nbsp;</td>
<td width="18%" align="center" height="39" bgcolor="#EEEEEE"><%=rs("Price")%></td>
<td width="15%" align="center" height="39" bgcolor="#EEEEEE"><a href='javascript:openbag(<%=rs("articleid")%>)'><img style="CURSOR: hand" src="images/mybuy.gif" align="absMiddle" border="0"></a></td>
</tr>
<%
i=i+1
if i >= MaxPerpage then exit do
rs.MoveNext
Loop
end Sub
%>
<% call list
If Rs.recordcount > MaxPerPage then
call showpages
end if%>
</table>
</div>
</td></tr>
</table>

</div>
</td>
</tr>
</table>
</div>
<%
'显示翻页的子程序
sub showpages()%>
<table bgColor="#f8e8a0" border="0" cellPadding="0" cellSpacing="0" width="400" >
<tr><td >

<form method="POST" action="spss.asp">
<INPUT type=hidden value=<%=spxl%> name=spxl>
<table bgColor="#006699" border="0" cellPadding="0" cellSpacing="0" width="583" height="30">
<tr>
<td bgcolor="#eeeeee" width="510">
<font color="#000000">
<p align="center">
<%
Response.write "<font color='#000000'>页面-> </font>"
If currentpage > 1 Then
response.write "<a href='spss.asp?&page="+cstr(1)+"&spxl="+Cstr(spxl)+"'><font color='#000000'>首页</font></a><font color='#000000'><b>-</b></font>"
Response.write "<a href='spss.asp?page="+Cstr(currentpage-1)+"&spxl="+Cstr(spxl)+"'><font color='#000000'>前页</font></a><font color='#000000'><b>-</b></font>"
Else
Response.write "<font color='#000000'>首页-</font>"
Response.write "<font color='#000000'>前页-</font>"
End if

If currentpage < Rs.PageCount Then
Response.write "<a href='spss.asp?page="+Cstr(currentPage+1)+"&spxl="+Cstr(spxl)+"'><font color='#000000'>后页</font></a><font color='#000000'><b>-</b></font>"
Response.write "<a href='spss.asp?page="+Cstr(Rs.PageCount)+"&spxl="+Cstr(spxl)+"'><font color='#000000'>尾页</font></a>&nbsp;&nbsp;"
Else
Response.write "<font color='#000000'>后页-</font>"
Response.write "<font color='#000000'>尾页</font>&nbsp;&nbsp;"
End if
Response.write "<font color='#000000'>页次:</font>" & "<font color=#FF0000>" & Cstr(CurrentPage) & "</font>" & "<font color='#000000'>/" & Cstr(rs.pagecount) & "</font>&nbsp;"
Response.write "<font color=#ff0000>" & Cstr(MaxPerPage) & "</font>" & "<font color='#000000'>种商品/页&nbsp" & "共</font>" & "<font color=#FF0000>" & Cstr(Rs.RecordCount) & "</font>" & "<font color='#000000'>种商品</font>&nbsp;&nbsp;"

response.write "</td><td align='right'>"
response.write "<font color='#000000' >到:</font><input type='text' name='page' size=2 maxlength=3 class=smallInput value="&Currentpage&">&nbsp;"
response.write "<input class=buttonface type='submit' value='Go' name='cndok' style='background-color: #eeeeee'></span>"
%>
</font>
</td>
</tr>
</table>
</center>
</td></tr>
</table>
</form>
<%end sub%>
</body>

</html>

搜索更多相关主题的帖子: 感谢 
2006-07-17 09:33
wallie1206
Rank: 1
等 级:新手上路
帖 子:74
专家分:0
注 册:2006-7-26
收藏
得分:0 

怎么没人回帖啊,我也在等这个问题呀!!!


2006-07-28 14:08
hangxj
Rank: 6Rank: 6
等 级:贵宾
威 望:29
帖 子:2045
专家分:0
注 册:2006-4-10
收藏
得分:0 
这种问题前面的人都问了很多很多次了,麻烦下次问问题前,搜索一下本版的相关贴子!!!

"<a href='spss.asp?page="+Cstr(currentPage+1)+"&spxl="+Cstr(spxl)+"&Name="&Name&"&Product_Class="&Product_Class&"'><font color='#000000'>后页</font></a>

在分页中需要将搜索条件传到下一个页面
&spxl="+Cstr(spxl)+"这个是什么意思?做什么用的?

http://www./
2006-07-28 17:42
hugeannex
Rank: 8Rank: 8
等 级:蝙蝠侠
威 望:6
帖 子:483
专家分:911
注 册:2005-3-20
收藏
得分:0 

这个并不难,可是你的代码粘这么多,我看不完,简化一下嘛.


世事如潮我如水,只叹江湖几人回。
2006-07-29 16:00
yichen
Rank: 1
等 级:新手上路
帖 子:303
专家分:0
注 册:2005-3-9
收藏
得分:0 
其实很简单么,你后面的翻页的连接有page 参数,你只要在前面判断一下,page传过来的值 是多少,对应的在recordcount里的是第几条

衣带渐宽终不悔, 为伊消得人憔悴。 纸上得来终觉浅, 绝知此事要躬行。
2006-07-30 04:43
快速回复:求助 万分感谢!
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.027502 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved