<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>产品展示</title>
</head>
<body>
<%
dim db,strconn,rs,rs2,xsql,sql2,pid
strconn="DBQ="+server.mappath("你的路径/你的数据库名称.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set db=server.CreateObject("ADODB.CONNECTION")
on error resume next
db.open strconn
pid=trim(request("pid"))
'获取产品的ID号,对应的product表的pid字段,注意pid的数据类型要一致,可以据你需要的修改,建议为自动增加的整型
xsql="select * from product where pic="&pid
set rs=server.createobject("adodb.recordset")
rs.open xsql,db,1,1
%>
<table border="0">
<tr>
<td><img src="<%=rs.fields("BigPic").value%>"></td>
<td><%=rs.fields("ProductName").value%><br><%=rs.fields("ProductDescription").value%></td>
</tr>
<tr>
<td colspan="2">
<marquee direction="right" style="margin:0px; padding:0px; width=100%; overflow:hidden;" scrollamount="2" onmouseover="this.stop()"; onmouseout="this.start()">
<%
xsql2="select * from ProductPic where pid="&id
set rs2=server.createobject("adodb.recordset")
rs2.open xsql,db,1,1
if rs2.bof and rs2.eof then
response.write "该产品还没有图片"
else
do while not rs2.eof
'---------------------START:图片连接----------------
response.write "<a title=点击放大 href=你的图片路径/"
response.write rs2.fields("ProductPicName").value
response.write ">"
'------START:显示图片------
response.write "<img border=0 width=你设定缩略图的宽度 height=你设定缩略图的高度 src="
response.write rs2.fields("ProductPicName").value
response.write ">"
'------END:显示图片--------
response.write "</a> "
'---------------------END:图片连接-----------------
rs2.movenext
loop
%>
</marquee>
</td>
</tr>
</table>
<%
rs.close
set rs=nothing
rs2.close
set rs2=nothing
db.close
set db=nothing
%>
<!--其他部分-->