28,406
社区成员
发帖
与我相关
我的任务
分享
<%
set rs=server.createobject("adodb.recordset")
'===查询展示页小图
sql="select a.产品编号,a.图片A,a.图片C,b.o_price from AF网络展示 a,product b where b.s_no=a.产品编号 order by a.id "
rs.open sql,conn,1,1
'====分页
If Not rs.eof Then
rs.pagesize=6
page=request("page")
if page="" then page=0
if not isnumeric(page) then page=0
page=cint(page)
pgcount=rs.PageCount'总的页数
proCount=rs.recordcount'总图片数
If page>rs.PageCount Then
rs.absolutepage=page
intCurPage=rs.PageCount'当前页
ElseIf page<=0 Then
rs.absolutepage=1
intCurPage=1
Else
rs.absolutepage=page
intCurPage=page
End If
Else
rs.absolutepage=1
intCurPage=1
End If
'''''''intCurPage=CInt(intCurPage)
with response
.write"<table width='100%' border='0' cellspacing='0' cellpadding='0'>"
.write"<tr>"
k=1
do while not rs.eof And rs.pagesize
.Write "<td width='20'></td>"
.write"<td width='140' height='180'>"
.write"<a href='show_yy.asp?s_no="&rs("产品编号")&"&breed="&request("breed")&"'>"
.write"<img id='"&rs("图片A")&"' name='img2' src='img/"&rs("图片A")&"' border='0' style='cursor:pointer;' onMouseOver='ChImg(this.nextsibling)'><img id='"&rs("图片C")&"' name='img3' src='img/"&rs("图片C")&"' style='display:none'>"
.write"</a></br> "
.write"</td>"
'Place the hidden picture here
.write"<td width='20'></td>"
if k mod 3=0 then .Write "</tr><tr>"'换行................
rs.movenext
k=k+1
loop
.write"<tr>"
.write"</table>"
end with
%>
<script>
function ChImg(o){//此时的o对象应该是隐藏图片
document.getElementById("img1").src=o.src;
}
</script>
select a.产品编号,a.图片A,a.图片C,b.o_price from AF网络展示 a,product b where b.s_no=a.产品编号 order by a.id