<% Dim NewID 'On error resume next NewID=Trim(Request("uID")) set rs=server.createobject("adodb.recordset") rs.open "select * from shop_books where bookid="&NewID,conn,1,3 If NewID="" Or Not Isnumeric(NewID) Then Response.Write "



" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "
SORRY!找不到您要找的信息,请联系本站管理员,谢谢!
技术支持:电气报价网 & 程序制作:小勇
" Response.End() %> <% else rs("liulancount")=rs("liulancount")+1 rs.update 'call history If Request.Cookies("snsn")("username")<>"" and right(request.cookies("snsn")("username"),6)<>"2asdda" then Set Rs_s=Server.CreateObject("adodb.recordset") Rs_s.Open "select * from [user] where username='"&request.cookies("snsn")("username")&"'",Conn,1,1 t_userid=Rs_s("userid") Rs_s.Close Set Rs_s=Server.Createobject("adodb.recordset") Rs_s.open "Select * from shop_his where bookid="& NewID &" and username='"&Request.Cookies("snsn")("username")&"' and lx=1",conn,1,3 if Rs_s.recordcount>0 then Rs_s("ltime")=now() Rs_s("userid")=t_userid Rs_s.update Rs_s.Close Set Rs_s=Nothing Else Rs_s.close set Rs_s=server.createobject("adodb.recordset") Rs_s.open "select * from shop_his where username='"&request.cookies("snsn")("username")&"' and lx=1 order by ltime",conn,1,3 if Rs_s.recordcount>=4 then Rs_s.delete Rs_s.update end if Rs_s.addnew Rs_s("username")=Request.cookies("snsn")("username") Rs_s("bookid")=NewID Rs_s("bookname")=Rs("bookname") Rs_s("userid")=t_userid Rs_s("lx")=1 Rs_s("ltime")=now() Rs_s.Update Rs_s.Close Set Rs_s=Nothing End if End if %> <%=rs("bookname")%>价格<%=formatnumber(rs("huiyuanjia"),2)&"元"%>→电气报价网 " /> 电气报价网" />

您当前位置:首页 >> 电气报价网 >><%=rs("bookname")%>

<%=rs("bookname")%>价格:<%=Rs("huiyuanjia")%> 元

<% Rs.Close Set Rs=Nothing %> <% Set Rs=Server.Createobject("adodb.recordset") Rs.open "select * from shop_pinglun where bookid="& NewID &" order by pinglundate desc",conn,1,1 j=Rs.Recordcount plcount=Rs.Recordcount If j>3 Then j=3 For i=1 To j %> <% Rs.Movenext Next If plcount>0 then %> <%End if%> <% Set Rs=Server.Createobject("adodb.recordset") Rs.open "select * from shop_pinglun where bookid="& NewID &" order by pinglundate desc",conn,1,1 j=Rs.Recordcount plcount=Rs.Recordcount If j>3 Then j=3 For i=1 To j %> <% Rs.Movenext Next If plcount>0 then %> <%End if%>
<%If rs("zhuang")="" then Response.Write "" Else%> " target=_blank>" border=0 alt="点击浏览商品大图"> <%End if%>
    市场价:<%=Rs("shichangjia")%> 元
    会员价:<%=Rs("huiyuanjia")%> 元
    VIP 价: <%if request.cookies("snsn")("username")="" or right(request.cookies("snsn")("username"),6)="2asdda" then%> 请先登录 <%else if Request.Cookies("snsn")("reglx")=2 then response.write ""&(rs("Vipjia"))&"元" else response.write ""&" VIP查看 如何申请VIP" end if end if %>
<%=rs("bookname")%>
【评分星级】  <%if Rs("pingjizong")>0 and Rs("pingji")>0 then xx=Rs("pingjizong")\Rs("pingji") Else xx=5 End if Response.Write "评论星级"%>
                      共有<%=rs("pingji")%>位网友参与打分
【商品名称】<%=Rs("bookname")%>
咨询服务电话:0731-23451266
【<%=Rs("jj")%>】<%=Rs("bookchuban")%>
【商品状态】<%if Rs("kucun")>0 then%>上架<%else%>下架<%end if%>
【所属类别】 <%Set Rs2=Server.Createobject("adodb.recordset") Rs2.Open "Select * from shop_anclass where anclassid="&Rs("anclassid"),conn,1,1 if Rs2.Recordcount>0 then Response.Write ""&rs2("anclass")&"  " anclassid=Rs2("anclassid") End if Rs2.close Set Rs2=Server.Createobject("adodb.recordset") Rs2.Open "select * from shop_nclass where nclassid="&Rs("nclassid"),conn,1,1 If Rs2.Recordcount>0 then Response.Write ""&rs2("nclass") nclassid=Rs2("nclassid") End if Rs2.Close Set rs2=Nothing%>

<%=Rs("nr")%>
<%=rs("bookname")%> ↓以下产品资料由电气报价网提供

<% RESPONSE.Write replace(rs("bookcontent"),"
","") %>
<% Set Rs=Server.Createobject("adodb.recordset") Rs.open "select top 1 * from shop_books where anclassid="&anclassid&" and nclassid="&nclassid&" and bookid<"&NewID&" order by bookid desc",conn,1,1 do while not rs.eof response.Write "

上一篇:"&Rs("bookname")&"
" rs.movenext loop Rs.Close Set Rs=Nothing Set Rs=Server.Createobject("adodb.recordset") Rs.open "select top 1 * from shop_books where anclassid="&anclassid&" and nclassid="&nclassid&" and bookid>"&NewID&" order by bookid asc",conn,1,1 do while not rs.eof response.Write "下一篇:"&Rs("bookname")&"

" rs.movenext loop Rs.Close Set Rs=Nothing %>

电气价格查询请记住我们的网址:http://www.dqbjw.com

可以线查询断路器接触器继电器开关电器电源电器仪器仪表焊接设备电容器熔断器互感器高压电器成套电气等价格。

查询不到你想要的产品价格请QQ联系:1103401247

联系方式:0731-23451266、23451866

网友评论 欢迎您对商品进行评论,表明您对此商品的感觉。

<%If Trim(Rs("huifu"))<>"" Then%> <%End if%>
主题:','pinglun','width=300,height=400,toolbar=no, status=no, menubar=no, resizable=yes, scrollbars=no');return false;" title="<%=trim(rs("pingluntitle"))%>"><%=trim(rs("pingluntitle"))%> .gif" width="79" height="14">
  作者:<%=Trim(Rs("pinglunname"))%> (<%=Trim(Rs("pinglundate"))%>) <%=trim(rs("ip"))%>
     <%if Len(Rs("pingluncontent"))>24 then Response.Write Left(Rs("pingluncontent"),20)&"... [详细内容]" Else Response.Write Rs("pingluncontent") End if%>
    管理员回复<%=rs("huifu")%>
target=_blank>>>浏览该商品的全部<%=plcount%>条评论  
    
<% End if CloseConn() %>