 |
<%
bno=request("bno")
Set rsb = Server.CreateObject("ADODB.Recordset")
sqlb="select * from bclass order by b_code asc"
rsb.open sqlb, conn ,1,3
if not rsb.eof then
if bno=empty then bno=rsb("b_number")
else
bno=0
end if
sql="select * from pdata where b_number="&bno& " order by p_sn"
Set rs = GetRecordset ( sql, conn, 3, 1 )
%>
<%if not rs.eof then
for i=1 to rs.pagesize
%>
<%if rs("p_picture") <> empty then pic = rs("p_picture") else pic = "abpop23.gif"%>
','abpop','width=600,height=400,scrollbars=no,resizable=no')">
|
編號：<%=rs("p_code")%>
品名：<%=rs("p_name")%>
規格：<%=rs("p_style")%>
售價：<%=rs("p_uprice")%>元
|
說明：
<%=replace(rs("p_comment"), vbCrLf, "
")%>
|
')">
|
|
<%
rs.movenext
if rs.eof then exit for
next
rs.movefirst
else
response.write "目前尚未提供產品資訊"
end if %>
|
|
 |
