<!--#include file="system/conn.asp"--><%


id=Request.QueryString("id")
If id="" Or Not IsNumeric(id) Then Response.Redirect "/"
Set Rs=Server.CreateObject("ADODB.RecordSet")

Rs.Open "Select ppid,yyid,hyid,cpxh,bzqgg,cptd,cpmc,cpkeywords,cpdescription,qjurl,cpjj,xxjs,xhcs,bzpz,xpj,sp,ppmc,ppslt,gjmc,gjtb,ppdlzs,(Select Count(id) From da Where dastate>0 And cid<>2 And da.cpid=cp.id) As dasl,tags,xxjssetlink From ((cp Left Join pp On pp.id=cp.ppid) Left Join gj On gj.id=cp.gjid) Where cpstate>0 And cp.id="&id,Conn,1,1
If Rs.Bof And Rs.Eof Then
Rs.Close
Set Rs=Nothing
Conn.Close
Set Conn=Nothing
Response.Redirect "/"
End If


ppid=Rs("ppid")
yyid=Rs("yyid")
hyid=Rs("hyid")
cpmc=Rs("cpmc")
cpxh=Rs("cpxh")
bzqgg=Rs("bzqgg")
cptd=Rs("cptd")
dasl=Rs("dasl")
cpkeywords=TextUnCode(Rs("cpkeywords"))
cpdescription=TextUnCode(Rs("cpdescription"))
qjurl=Rs("qjurl")
sp=Rs("sp")
cpjj=HTMLUnCode(Rs("cpjj"))
xxjs=HTMLUnCode(Rs("xxjs"))
xxjssetlink=HTMLUnCode(Rs("xxjssetlink"))
xhcs=HTMLUnCode(Rs("xhcs"))
bzpz=HTMLUnCode(Rs("bzpz"))
xpj=HTMLUnCode(Rs("xpj"))

ppmc=TextUnCode(Rs("ppmc"))
ppslt=TextUnCode(Rs("ppslt"))
ppdlzs=TextUnCode(Rs("ppdlzs"))

gjmc=TextUnCode(Rs("gjmc"))
gjtb=TextUnCode(Rs("gjtb"))


tags=Rs("tags")


Rs.Close

imgstr=""
imgliststr=""
imgi=1
Rs.Open "Select picurl From pic Where cpid="&id&" Order By id Desc",Conn,1,1
Do While Not Rs.Bof And Not Rs.Eof
If imgi=1 Then
imgstr = "<img src="""&Rs(0)&""" id=""pro_img"" alt="""&cpmc&"图片"" />"
imgliststr=imgliststr&"<li><img src="""&Rs(0)&""" alt="""&cpmc&"图片"&imgi&""" class=""current"" /></li>"
Else
imgliststr=imgliststr&"<li><img src="""&Rs(0)&""" alt="""&cpmc&"图片"&imgi&""" /></li>"
End If
imgi=imgi+1
Rs.MoveNext
Loop
Rs.Close
If imgi=1 Then imgstr = "<img src=""i/np2.gif"" id=""pro_img"" alt=""暂无产品详细图片"" />":imgliststr="<li><img src=""i/np2.gif"" class=""current"" /></li>"

%><!DOCTYPE html>
<html>
<head>
<meta http-equiv="content-type" content="text/html; charset=utf-8" />
<meta name="keywords" content="<%If cpkeywords="" Then Response.Write keywords Else Response.Write cpkeywords%>" />
<meta name="description" content="<%If cpdescription="" Then Response.Write description Else Response.Write cpdescription%>" />
<title><%=cpmc&"_"& gjmc & ppmc & " " & cpxh &"【"& webname &"】"%></title>
<link rel="stylesheet" type="text/css" href="s/c.css" />
<script type="text/javascript" src="j/jq.js"></script>
<script type="text/javascript" src="j/fb/fb.js?v=2.1.1"></script>
<link rel="stylesheet" type="text/css" href="j/fb/fb.css?v=2.1.1" />
<script type="text/javascript" src="j/js.js"></script>
<script type="text/javascript" src="j/jc.js"></script>
<script type="text/javascript" src="j/pr.js"></script>
</head>
<body>
<div id="container">
<%subTop%>
<div class="wrap_content">
	<div class="location"><a href="#">首页</a> > <a href="#">产品大全</a> > <span>产品详情</span></div>
	<div class="content_left">


		<div class="products_content">
			<div class="pcl">
			<div class="products_img">
				<div id="showcppic"><%=imgstr%></div>
				<div id="cppic">
					<div class="pic_list_prev"></div>
					<div class="pic_list_next"></div>
					<div class="pic_list_body">
						<ul><%=imgliststr%></ul>
					</div>
				</div>
			</div>
<div class="share"><span class="t">分享到：</span>
<!-- Baidu Button BEGIN -->
<div id="bdshare" class="bdshare_t bds_tools_32 get-codes-bdshare">
<a class="bds_qzone"></a>
<a class="bds_tsina"></a>
<a class="bds_tqq"></a>
<a class="bds_renren"></a>
<a class="bds_t163"></a>
<span class="bds_more"></span>
<a class="shareCount"></a>
</div>
<script type="text/javascript" id="bdshare_js" data="type=tools&amp;uid=0" ></script>
<script type="text/javascript" id="bdshell_js"></script>
<script type="text/javascript">
document.getElementById("bdshell_js").src = "http://bdimg.share.baidu.com/static/js/shell_v2.js?cdnversion=" + Math.ceil(new Date()/3600000)
</script>
<!-- Baidu Button END -->
</div>
</div>
			<div class="products_param">

				<div class="top">
					<%If ppslt<>"" Then%><img src="<%=ppslt%>" width="150" height="40" onLoad="rimg(this,150,40)" /><%End If%>
					<h1 class="h1"><%=cpmc%></h1>
					<p><%=cptd%></p>
				</div>
				<ul class="center">
					<li><span>型 号</span><%=cpxh%></li>
					<li class="ppli"><span>品 牌</span><%=ppmc%><%If ppdlzs<>"" Then%><a href="<%=ppdlzs%>" class="zs" target="_blank">【授权证书】</a></li><%End If%>
					<li><span>产 地</span><%If gjtb<>"" Then%><img src="<%=gjtb%>" align="absmiddle" /> <%End If%><%=gjmc%></li>
					<li><span>外形尺寸</span><%=bzqgg%></li>
					<li><span>适用行业</span><div class="hybox"><%
hySqlWhere=""
If hyid<>"" And hyid<>"," Then
hyid=Split(hyid,",")
For i=1 To Ubound(hyid)-1
	If hySqlWhere="" Then
		hySqlWhere = hyid(i)
	Else
		hySqlWhere = hySqlWhere & ","&hyid(i)
	End If
Next
End If
If hySqlWhere<>"" Then
	Rs.Open "Select id,mc From hy Where id in("&hySqlWhere&")",Conn,1,1
	Do While Not Rs.Bof And Not Rs.Eof
		hyid1=Rs("id"):hymc1=Rs("mc")
		Response.Write "<a href=""pl.asp?hyid="&hyid1&""" title=""查看其他适用于"&hymc1&"行业的产品"">"&hymc1&"</a> "
	Rs.MoveNext
	Loop
	Rs.Close
End If
%></div></li>
					<li><span>产品特点</span><div class="hybox"><%=cpjj%></div></li>
				</ul>
				<div class="bottom">
					<a href="xjd.asp?id=<%=id%>" title="<%=cpmc%>价格" class="xjd" >询价单</a>
					<%If qq<>"" Then%><a href="http://wpa.qq.com/msgrd?v=3&uin=<%=qq%>&site=qq&menu=yes" title="点击QQ咨询产品" target="_blank" rel="nofollow">QQ咨询</a><%End If%>
					<%If dasl>0 Then%><a href="pdf.asp?id=<%=id%>" class="fancybox">画 册</a><%End If%>
					<%If sp<>"" Then%><a href="sp.asp?id=<%=id%>" class="fancybox">视 频</a><%End If%>
				</div>
			</div>
			<div class="clear"></div>
			<div class="prc"><h2 class="t">产品详情 Details</h2><%If xxjssetlink<>"" Then Response.Write xxjssetlink Else Response.Write xxjs End If%><div class="clear"></div></div>
			<div class="pcc"><h2 class="t">购买咨询 Purchase consulting</h2><%
Rs.Open "SELECT Top 10 q,a,qtime FROM qa WHERE state=2 AND cpid="& id &" ORDER BY id DESC",Conn,1,1
If Not Rs.Bof And Not Rs.Eof Then
Do While Not Rs.Bof And Not Rs.Eof
%>
				<dl><dt>匿 名：<%=HTMLUnCode1(Rs("q"))%> <span>2013/10/10</span></dt><%If Rs("a")<>"" Then%><dd>答 复：<%=Rs("a")%></dd><%End If%></dl><%
Rs.MoveNext
Loop
%>
				<p class="tip">如以上信息无法解决您的问题，请<span>致电</span>我们或<a href="http://wpa.qq.com/msgrd?v=3&uin=1463114669&site=qq&menu=yes" target="_blank" rel="nofollow">网上咨询</a>。</p>
<%
Else
	Response.Write "<dl style=""margin-bottom:30px""><dt>暂无咨询</dt></dl>"
End If
Rs.Close
%>

				<form action="zx.asp" class="zx" method="post">
					<input type="hidden" name="cp" value="<%=id%>" />
					<textarea name="zxnr" class="txt"></textarea>
					<p>您要收到回复邮箱</p>
					<div><input type="text" name="yx" class="txt1" /></div>
					<p>验证码</p>
					<div><input type="text" name="yzm" class="txt2" /><img src="zxcode.asp" align="absmiddle" style="cursor:pointer;float:left" onClick="this.src+='?'+Math.random();" /></div>
					<input type="submit" class="btn" value="提 交" />
				</form>
			</div>
			<div class="tags">
				<div class="t">产品标签 Tags</div>
				<%
If tags<>"" Then
tags = Split(tags,"&#124;")
tagsstr = ""
For ti = 0 To UBound(tags)
	If tags(ti)<>"" Then
		tagsstr = tagsstr & "<a href=""t.asp?t="&Server.URLEnCode(tags(ti))&""" title="""&tags(ti)&""">"&tags(ti)&"</a>"
	End If
Next
	Response.Write tagsstr
Else
	Response.Write "<a>暂无标签</a>"
End If
%>
			</div><%

Rs.Open "SELECT TOP 3 id,cpmc,cpxh,cpslt FROM cp WHERE cpstate>0 AND yyid="& yyid &" AND id<>"& id &" ORDER BY cpord Desc,id Desc",Conn,1,1
If Not Rs.Bof And Not Rs.Eof Then
%>
			<div class="tjp">
				<h2 class="t">同种应用推荐产品</h2>
				<ul><%
Do While Not Rs.Bof And Not Rs.Eof
ttid=Rs("id"):cpmc=Rs("cpmc"):cpxh=Rs("cpxh"):cpslt=Rs("cpslt")
%>
					<li><a href="p.asp?id=<%=ttid%>" title="<%=cpmc%>"><img src="<%=cpslt%>" /><p><%=cpmc%></p><span><%=cpxh%></span></a></li><%
Rs.MoveNext
Loop%>
				</ul>
				<div class="clear"></div>
			</div>
<%
End If
Rs.Close
%>
		</div>

	</div>
	<div class="content_right">
		<h2 class="mt">同品牌其它产品</h2>
		<p class="mttip">以下产品为同品牌其它产品，具体参数及应用请点击查看详情。</p>
		<ul class="xpl"><%
Rs.Open "SELECT TOP 3 id,cpmc,cptd,cpxh,cpslt,(SELECT gjtb FROM gj WHERE gj.id=cp.gjid) AS gjtb FROM cp WHERE cpstate>0 AND ppid="& ppid &" AND id<>"& id &" ORDER BY cpord Desc,id Desc",Conn,1,1
Do While Not Rs.Bof And Not Rs.Eof
ttid=Rs("id"):cpmc=Rs("cpmc"):cptd=Rs("cptd"):cpxh=Rs("cpxh"):cpslt=Rs("cpslt"):gjtb=Rs("gjtb")
%>
			<li>
				<a href="p.asp?id=<%=ttid%>" title="<%=cpmc%>详细信息">
					<img src="<%=cpslt%>" alt="<%=cpmc%>图片" class="pi" />
					<div class="m">
					<span><%If gjtb<>"" Then%><img src="<%=gjtb%>" align="absmiddle" /><%End If%><%=cpmc%></span>
					<p><%=cptd%></p>
					<%If cpxh<>"" Then%><p class="xh"><%=cpxh%></p><%End If%>
					</div>
				</a>
			</li><%
Rs.MoveNext
Loop
Rs.Close


Rs.Open "SELECT TOP 1 page_ad1title,page_ad1url,page_ad1,page_ad2title,page_ad2url,page_ad2 FROM gg",Conn,1,1
If Not Rs.Bof And Not Rs.Eof Then
page_ad1title=Rs("page_ad1title")
page_ad1url=Rs("page_ad1url")
page_ad1=Rs("page_ad1")
page_ad2title=Rs("page_ad2title")
page_ad2url=Rs("page_ad2url")
page_ad2=Rs("page_ad2")
End If
Rs.Close
%>
		</ul>
		<div class="clear"></div>
		<%If page_ad1<>"" Then%><div class="ad1"><a href="<%=page_ad1url%>" title="<%=page_ad1title%>"><img src="<%=page_ad1%>" /></a></div><%End If%>
		<h2 class="mt">相关文献</h2>
		<ul class="wxl"><%
Rs.Open "Select id,daurl,damc From da Where cid=2 And dastate>0 And daurl<>'' And cpid="&id&" Order By daord Desc,id Desc",Conn,1,1
If Rs.Bof And Rs.Eof Then
Response.Write "<li><a>该产品暂无相关技术文献</a></li>"
Else
	Do While Not Rs.Bof And Not Rs.Eof
		Response.Write "<li><a href=""pdfdown.asp?id="&Rs("id")&""" target=""_blank"">"&Rs("damc")&"</a></li>"

	Rs.MoveNext
	Loop
End If
Rs.Close
%>
		</ul>
		<%If page_ad2<>"" Then%><div class="ad1"><a href="<%=page_ad2url%>" title="<%=page_ad2title%>"><img src="<%=page_ad2%>" /></a></div><%End If%>
	</div>
	<div class="clear"></div>
</div>
<%subBottom%>
</div>
</body>
</html><%Conn.Close:Set Conn=Nothing%>