<!--#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,tags,xxjssetlink,cpslt 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")
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")
cpslt=Rs("cpslt")


Rs.Close

%><!DOCTYPE html>
<html>
<head>
<meta charset=utf-8" />
<meta name="format-detection" content="telephone=no" />
<meta name="viewport" content="width=device-width, initial-scale=1.0, maximum-scale=1.0, minimum-scale=1.0, user-scalable=no">
<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?ver=1030" />
<script type="text/javascript" src="j/js.js"></script>
</head>
<body>
<div id="container">
<%Call subTop()%>
<h1 class="pt"><%=cpmc%></h1>
<%If cpslt<>"" Then Response.Write "<div class=""pib""><img src=""wap_img.asp?url="&WebUrl&cpslt&""" /><br /><a href="""&WebUrl&cpslt&""" target=""_blank"">查看原图</a></div>"%>
<ul class="l1">
<li><strong>型号：</strong><%=cpxh%></li>
<li><strong>品牌：</strong><%=ppmc%></li>
<li><strong>产地：</strong><%If gjtb<>"" Then%><img src="<%=WebUrl&gjtb%>" align="absmiddle" /> <%End If%><%=gjmc%></li>
<li><strong><%If fid=1 Then%>外形尺寸<%Else%>包装规格<%End If%>：</strong><%=bzqgg%></li>
<li><strong><%If fid=1 Then%>适用行业<%Else%>适用领域<%End If%>：</strong><%
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 hymc1&" "
	Rs.MoveNext
	Loop
	Rs.Close
End If
%></li>
<li><strong>产品特点：</strong><%=RemoveHTML(cpjj)%></li>
</ul>
<div class="xjb"><a href="xjd.asp?id=<%=id%>" title="产品询价" target="blank">产品询价</a></div>
<div class="pt1">详细信息</div>
<div class="ct">
<%If xxjssetlink<>"" Then Response.Write tURL(xxjssetlink) Else Response.Write tURL(xxjs) End If%>
</div>
<div class="clear"></div>
<div class="pt1">产品标签</div>
<ul class="yyl"><%
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>"
		tagsstr = tagsstr & "<li><a href=""t.asp?t="&Server.URLEnCode(tags(ti))&""" title="""&tags(ti)&""">"&tags(ti)&"</a></li>"
	End If
Next
	Response.Write tagsstr
Else
	Response.Write "<li><a>暂无标签</a></li>"
End If
%>
</ul>
<%
Rs.Open "Select Top 5 id,cpmc From cp Where cpstate>0 And yyid="&yyid&" And id<>"&id&" Order By cpord Desc,cp.id Desc",Conn,1,1
If Not Rs.Bof And Not Rs.Eof Then
%>
<div class="pt1">相关产品</div>
<ul class="l2"><%
Do While Not Rs.Bof And Not Rs.Eof
%>
<li><a href="p.asp?id=<%=Rs("id")%>"><%=Rs("cpmc")%></a></li><%
Rs.MoveNext
Loop
%>
</ul><%
End If
Rs.Close
%>

<%Call subBottom()%>
</div>
</body>
</html><%Conn.Close:Set Conn=Nothing%>