<% '----------------------------------------------------------------------------------- '显示商品详细信息 '参数:product_id商品编号 '----------------------------------------------------------------------------------- response.buffer=false Response.Expires=0 product_id=Request.QueryString("product_id") productid=product_id %> 梅子鲜花专卖店-泉城名店街-济南商务网
关于我们-用户服务-相关条款-鲁ICP证00000x号
 泉城名店街梅子鲜花专卖店
| 会员注册 | 会员登录 | 购物车 | 收银台 |订单查询| 帮助 |



<% dim conn dim connstr on error resume next connstr="DBQ="+server.mappath("/intonet_data/idee_solarrain_data.asp")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};" set conn=server.createobject("ADODB.CONNECTION") conn.open connstr sql = "select product_id,product_name from products where sign='meizi' order by update_date,update_time desc" Set rs= Server.CreateObject("ADODB.Recordset") rs.open sql,conn,1,1 if rs.eof and rs.bof then response.write "


目前没有商品

" else %> <% do while not rs.eof pid=rs("product_id") %> <% if Cint(productid)=CInt(pid) then %> <% else %> <% end if %> <% rs.movenext loop %>
<% response.write rs("product_name") %> <% response.write rs("product_name") %>
<% rs.close end if set rs=nothing %>
圣洁的婚礼


<% '------------------------------------------------------------------------------------------ '显示用户评分及评论 Set rs= Server.CreateObject("ADODB.Recordset") sql="select count(*) from comments where product_id=" & product_id RS.Open sql,conn mycount=rs(0) rs.close set rs=nothing Set rs= Server.CreateObject("ADODB.Recordset") sql="select avg(d_vote),avg(f_vote),avg(ui_vote),avg(fp_vote) from comments where product_id=" & product_id RS.Open sql,conn mark=Cint((rs(0)+rs(1)+rs(2)+rs(3))/4) d_vote=rs(0) f_vote=rs(1) ui_vote=rs(2) fp_vote=rs(3) rs.close set rs=nothing %>
用户评分: <% =mark %> 评分人次: <% =mycount %>

设 计
功 能
易用性
性价比

用户评论

<% Set rs= Server.CreateObject("ADODB.Recordset") sql="select top 4 * from comments where product_id=" & product_id & " order by comment_id desc" RS.Open sql,conn,1,1 if rs.eof and rs.bof then %> <% else do while not rs.eof %> <% rs.movenext loop %> <% end if rs.close set rs=nothing '------------------------------------------------------------------------------------------- %>
还没有用户评论
· <% if Len(rs("comment"))>18 then response.write Left(rs("comment"), 18) & "..." &"[" & rs("username") & "]" else response.write rs("comment")&"[" & rs("username") & "]" end if %>

版权所有©2001 济南商务网 走进互联网(济南)技术服务有限公司保留所有权利 | 相关服务条款
Please direct coments to intonet@intonet.cn or call 0531-8367798
本专卖店由梅子花卉工艺礼品中心提供商品信息(介绍、价格、图片等)并对信息的合法性、有效性负责
<% objconn.close set objconn=nothing %>