 品 牌 精 品 |
| <% call Writeproductpp()%> |
|
<% if recommend=2 then%>  <%end if %> <%=strtproduct%>
|
|
|
|
 |
|
 推荐给好友 |
|
|
<%
set fs=createobject("Scripting.FileSystemObject")
i=1
Do while i<10
Filename="/shop/images/f/"& strtproduct_bh &"_"& i &".jpg"
Filename1=f_filename+filename
If fs.FileExists(Filename1) then
%>
&title=<%=strtproduct%> title="点击放大" target=_blank> |
<%end if
i=i+1
loop
%>
|
 产地：<%=strtproduct_cd%> |
| 型号：<%=strtproduct_cz%> |
<% = strtcontent %>
<% 'call listbuy_company(strusername)%>
<%
'response.write itdesigner
If itdesigner<>"" Then
arrStr = Split (itdesigner, ",")
response.write "适用车型：
"
For i = 0 To Ubound (arrStr)
designerid = arrStr (i)
'response.write designerid
call Getdesigner(designerid)
Next
end if
%>
|
|
|
|
<% dim rs1
set rs1=server.CreateObject("adodb.recordset")
rs1.open "select * from review where id="&Request.QueryString ("id")&" and audit=1 ",conn,1,1
if rs1.eof and rs1.bof then
response.write" 如果您用过本商品，或对本商品有所了解，欢迎您发表自己的评论。您的评论将被网络上成千上万的用户所共享，我们将对您的慷慨深表感谢。"
response.write " 您的评论在提交后将经过我们的审核，也许您需要等待一些时间才可以看到。谢谢合作。
| "
else
do while not rs1.eof
%>
[<%=rs1("title")%>@<%=rs1("reviewdtm")%>]
<%=rs1("reviewcontent")%>
|
<%rs1.movenext
loop
rs1.close
set rs1=nothing
end if%>
|
