这个问题好办。
这其实是2个页面,暂且叫a.aps,和b.asp。
a.asp里面是产品图片列表对吧?你看到的一大堆图片就是这个列表。
b.asp是产品详细情况,就是单击一个图片后出来的结果。
产品(product)数据库设计:id
product_name
product_BigName
product_SmallName
product_img
product_mem
产品名称
大类别
小类
图片
备注
然后是实现过程:
a.asp用来显示图片
<%
dim rs
set rs=conn.execute ("select id,product_img from product")
'读取产品表里的id和product_img字段;
if rs.eof and rs.bof then
'如果没有记录,则
response.write "对不起,目前没有产品。。。"
else
response.write "<table><tr>"
'先输出表格和一行,可以自定义宽度;
do while not rs.eof
'开始循环;
dim IMg,Img_ID
IMg=rs("product_img")
Img_ID=rs("id")
response.write "<td> <a href='b.asp?
b_id="&Img_ID&"'> "&IMg&" </a> </td>"
'输出图片的列,并且用该图片的id作为连接条件到b.asp;
rs.movenext
loop
rs.close
set rs=nothing
end if
response.write "</tr></table>"
'结束循环后,输出完整表格;
%>
b.asp用来显示详细信息
表格就省略了。
<%
dim rs,cur_id
cur_id=request.querystring("
b_id")
'获取上个页面图片连接的id后面的值;
set rs=conn.execute ("select * from product where id="&cur_id)
'用获取的cur_id作为条件查询;
if not (rs.eof and rs.bof) then
'如果记录不为空,则
dim p_name,p_big,p_small,p_img,p_mem
p_name=rs("product_name")
p_big=rs("product_BigName")
p_small=rs("product_SmallName")
p_img=rs("product_img")
p_mem=rs("product_mem")
response.write "<table>"
response.write "<tr><td>产品名称:</td><td>"&p_name&"</td></tr>"
response.write "<tr><td>产品大类:</td><td>"&p_big&"</td></tr>"
response.write "<tr><td>产品小类:</td><td>"&p_small&"</td></tr>"
response.write "<tr><td>产品图片:</td><td>"&p_img&"</td></tr>"
response.write "<tr><td>产品备注:</td><td>"&p_mem&"</td></tr>"
response.write "</table>"
else
response.write "对不起,该图片没有详细信息!"
end if
rs.close
set rs=nothing
%>
[
本帖最后由 nicechlk 于 2010-4-11 13:36 编辑 ]