| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 539 人关注过本帖
标题:asp+access产品展示页面代码 显示问题
取消只看楼主 加入收藏
chaoxianbo
Rank: 1
等 级:新手上路
帖 子:4
专家分:0
注 册:2011-6-21
结帖率:0
收藏
已结贴  问题点数:20 回复次数:0 
asp+access产品展示页面代码 显示问题
asp+access产品展示页面代码 显示问题:我要显示成2行3列的,但是现在的代码有点问题谁能帮我修改一下,我是菜鸟,
<!--#include virtual="./DB.asp"-->
<%
Set rs = Server.CreateObject("ADODB.Recordset")
rs.open "select * from productinfo",conn,1,1
if not rs.eof and not rs.bof then

if request("page")<>"" then
page=cint(request("page"))
else
page=1
end if
if request("line")<>"" then
line=6
else
line=6
end if

if page>(rs.RecordCount-1)\line+1 then
response.Write "<script LANGUAGE='javascript'>alert('对不起,出现错误!');history.go(-1);</script>"
response.end
end if
rs.PageSize=2
rs.AbsolutePage=page
do while not rs.eof
%>

<table width="150" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td height="120" align="center" class="Tbl"><a href="/productDetail.asp?proid=<%=rs("proid")%>" target="_blank"><img src="/<%=rs("proimage")%>" width="200" height="160" border="0"></a></td>
  </tr>
  <tr>
    <td height="48" align="center" bgcolor="#FFFFFF"><a href="/productDetail.asp?proid<%=rs("proid")%>" target="_blank" class="Blue12"> <%=rs("proName")%></a> </td>
  </tr>
</table>
<br>
<%
rs.movenext
i=i+1                                                                     
if i>=rs.pagesize then exit do                                                           
loop
%>
<br>
<br>
<%if page<>1 then%>
<a href=search.asp?keyword=<%=request(keyword)%>&page=1&line=<%=line%>>第一页</a>
<%else%>
<font color="#C0C0C0">第一页</font>
<%end if%>
?
<%if page>1 then%>
<a href=search.asp?keyword=<%=request(keyword)%>&page=<%=page-1%>&line=<%=line%>>前一页</a>
<%else%>
<font color="#C0C0C0">前一页</font>
<%end if%>
?
<%if page<rs.PageCount then%>
<a href=search.asp?keyword=<%=request(proid)%>&page=<%=page+1%>&line=<%=line%>>下一页</a>
<%else%>
<font color="#C0C0C0">下一页</font>
<%end if%>
?
<%if page<>rs.PageCount then%>
<a href=search.asp?keyword=<%=request(keyword)%>&page=<%=rs.PageCount%>&line=<%=line%>>最后一页</a>
<%else%>
<font color="#C0C0C0">最后一页</font>
<%end if%>
?共 <font color=red><b><%=rs.PageCount%></b></font> 页,您现查看的是第 <font color=red><b><%=page%></b></font> 页
<%end if%>
搜索更多相关主题的帖子: 产品 展示 request include 
2011-11-03 17:03
快速回复:asp+access产品展示页面代码 显示问题
数据加载中...
 
   



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

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