UC知道asp图片分页显示
来源：百度知道 编辑：UC知道 时间：2024/05/06 09:27:13
读出来的图片要分页显示，每页显示25个，每行5个
一列里显示的内容如下（就是一个td里有图片，名称，价格）
<td width="114" align="center" valign="middle" class="style1">
<a href="proshow.asp?id=<%=rs("id")%>" target="_blank">
<img src=images/image/<%=(rs.fields.Item("picmath").value)%> width="70" height="70"></a><br>
<hr color="#CCCCCC">
<font color="#CC0066">
<%response.write rs("name")%>
</font><br>
本站 <font color="#CC0066">
<%response.write rs("jiage")%>
</font> 元
<hr color="#CCCCCC"></td>
谁能给我一个详细的分页代码，能实现以上功能
我要vbscript的
一列里显示的内容如下（就是一个td里有图片，名称，价格）
<td width="114" align="center" valign="middle" class="style1">
<a href="proshow.asp?id=<%=rs("id")%>" target="_blank">
<img src=images/image/<%=(rs.fields.Item("picmath").value)%> width="70" height="70"></a><br>
<hr color="#CCCCCC">
<font color="#CC0066">
<%response.write rs("name")%>
</font><br>
本站 <font color="#CC0066">
<%response.write rs("jiage")%>
</font> 元
<hr color="#CCCCCC"></td>
谁能给我一个详细的分页代码，能实现以上功能
我要vbscript的
＜% sql = "select……………………省略了sql语句
Set rs=Server.Createobject("ADODB.RECORDSET")
rs.Open sql, conn, 1, 1
if not rs.eof then
pages = 30 ’定义每页显示的记录数
rs.pageSize = pages ’定义每页显示的记录数
allPages = rs.pageCount’计算一共能分多少页
page = Request.QueryString("page")’通过浏览器传递的页数
’if语句属于基本的排错处理
if isEmpty(page) or Cint(page) ＜ 1 then
page = 1
elseif Cint(page) ＞ allPages then
page = allPages
end if
rs.AbsolutePage = page
Do while not rs.eof and pages ＞ 0 %＞
这里输出你要的内容………………
＜% pages = pages - 1
rs.MoveNext
Loop
else
Response.Write("数据库暂无内容！")
End if
rs.Close
Set rs = Nothing %＞
系统已经为数据分页了，下面就看看这次探讨的关键问题分页函数的定义
＜% SUB pageUrl(pUrl)
Dim eUrl
txts = Request.ServerVariables("URL")
txts = left(txts,instrrev(txts,"/",len(txts))-1)
eUrl = "htt