<!--#include file="Include/Const.Asp" -->
<!--#include file="Include/NoSQL.Asp" -->
<!--#include file="Include/ConnSiteData.Asp" -->
<%
Call SiteInfo()
If ISHTML = 1 Then
    Response.expires = 0
    Response.expiresabsolute = Now() - 1
    Response.addHeader "pragma", "no-cache"
    Response.addHeader "cache-control", "private"
    Response.CacheControl = "no-cache"
End If
ID = request.QueryString("ID")
If ID <> "" Or IsNumeric(ID) Then
    Set rs = server.CreateObject("adodb.recordset")
    sql = "select * from Shenbi_Products where ViewFlag and ID="&ID
    rs.Open sql, conn, 1, 3
    If rs("SeoKeywords") <> "" Then
        SeoKeywords = rs("SeoKeywords")
    Else
        SeoKeywords = rs("ProductName")
    End If
    If rs("SeoDescription") <> "" Then
        SeoDescription = rs("SeoDescription")
    Else
        SeoDescription = rs("ProductName")
    End If
    SeoTitle = rs("ProductName")
End If
rs.Close
Set rs = Nothing
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title><% =SeoTitle %> - <% =SiteTitle %></title>
<meta name="keywords" content="<% =SeoKeywords %>" />
<meta name="description" content="<% =SeoDescription %>" />
<meta http-equiv="imagetoolbar" content="no" />
<script language="javascript" src="/Scripts/Html.js"></script>
<script src="/Scripts/prototype.js" type="text/javascript"></script>
<script src="/Scripts/scriptaculous.js?load=effects,builder" type="text/javascript"></script>
<!--#include file="Top.Asp" -->
<div id="bd">
    	<div class="bd_up">
        	<div class="bd_up_left">
            	<div class="input1">24小时热线：<%=Mobile%></div>
              </div>
                <div class="input3">
            </div>
            <div class="bd_up_right">
           	  <div id="announ"><p><marquee scrollAmount="2" width="650"><% =Descriptions %></marquee></p></div>
            </div>
        </div>
    	<div id="bd_left">


        	<div class="box">
            	<div class="title">
                	<div class="title_wd">产品类别</div>
                    <div class="title_wde"></div>
                    <div class="more"></div>
                </div>
                <div class="content">
                	<ul class="ul2">
<%=Productnav(0,0,2)%>
                    </ul>
                </div>
            </div>
            
<!--#include file="new_left.Asp" -->          
        </div>
      <div id="bd_right">     
        <div class="box">
            	<div class="title1">
                	<div class="title1_wd">产品详细信息</div>
                    <div class="more1"><%=WebLocation()%></div>
                </div>                <div class="content">
                                	<div class="pd_title"></div>
                       <div class="pd">
<table width="90%" border="0" align="center" cellpadding="0" cellspacing="0">
                  
                  <tr>
                    <td height="40" align="center" valign="middle"  style="border-bottom:#CCCCCC 1px solid"><h3>
 <%
ID = request.QueryString("ID")
If ID = "" Or Not IsNumeric(ID) Then
    response.Write "<center>暂无相关信息</center>"
ElseIf conn.Execute("select * from Shenbi_Products Where ViewFlag and  ID="&ID).EOF Then
    response.Write "<center>暂无相关信息</center>"
Else
    Dim rs, sql
    Set rs = server.CreateObject("adodb.recordset")
    sql = "select * from Shenbi_Products where ViewFlag and ID="&ID
    rs.Open sql, conn, 1, 3
    OtherPic = rs("OtherPic")
    If Not(IsNull(OtherPic)) Then
        OtherPic = Split(OtherPic, "*")
    End If
    Response.Write ""&rs("ProductName")&""&vbCrLf
End If
%>
                    </h3></td>
                  </tr>
                            <%
If ViewNoRight(rs("GroupID"), rs("Exclusive")) Then	
    Response.Write "          <td height=""26"" align=""center"">发布时间："&FormatDate(rs("UpdateTime"), 13)&" &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;浏览次数：<script language=""javascript"" src=""/HitCount.Asp?id="&rs("ID")&"&LX=Shenbi_Products""></script><script language=""javascript"" src=""/HitCount.Asp?action=count&LX=Shenbi_Products&id="&rs("ID")&"""></script></td>"&vbCrLf
%>
  </tr>  
  <tr>
    <td align="left" valign="top" class="hg" style="font-size:14px;width:90%; margin-top:10px; overflow:hidden;line-height:150%;text-align:justify;text-justify:inter-ideograph" id="fontzoom">
       <%
If ViewNoRight(rs("GroupID"), rs("Exclusive")) Then
    Response.Write "  <tr>"&vbCrLf
    Response.Write "    <td>"&vbCrLf
    Response.Write "<table width=""90%"" border=""0"" cellspacing=""0"" cellpadding=""0"" align=""center"">"&vbCrLf
    Response.Write "  <tr>"&vbCrLf
    Response.Write "    <td style=""line-height:200%; padding-left:10px;"" ><br />"&vbCrLf
    Response.Write "    产品编号："&rs("ProductNo") &"<br />"&vbCrLf
    Response.Write "    产品型号："&rs("ProductModel") &"<br />"&vbCrLf
    Response.Write "    市场价格："&rs("N_Price")&"元/"&rs("Unit")&"<br />"&vbCrLf
    Response.Write "    定制价格："&rs("P_Price")&"元/"&rs("Unit")&"<br />"&vbCrLf
    Response.Write "    出品单位："&rs("Maker") &"<br />"&vbCrLf
    attribute1 = rs("attribute1")
    attribute1_value = rs("attribute1_value")
    If attribute1 <> "" And attribute1_value <> "" Then
        attribute1_1 = Split(attribute1, "§§§")
        attribute1_value_1 = Split(attribute1_value, "§§§")
        For i = 0 To UBound(attribute1_value_1)
            Response.Write "    "&attribute1_1(i)&"："&attribute1_value_1(i)&"<br />"&vbCrLf
        Next
    End If
    If Not(IsNull(OtherPic)) Then
        Response.Write "     <strong style=""color:red"">更多产品图片：</strong><br />"&vbCrLf
        Dim htmlshop
        For htmlshop = 1 To UBound(OtherPic)
            Response.Write "    <a  rel=""clearbox[gallery=产品图片展示,,title="&rs("ProductName")&"]""  href="""&Trim(OtherPic(htmlshop))&""" title=""多图展示："&rs("ProductName")&""" target=""_blank""><img onMouseOver=""document.rImage.src='"&Trim(OtherPic(htmlshop))&"'; pid='"&Trim(OtherPic(htmlshop))&"'"" src="""&Trim(OtherPic(htmlshop))&""" onload=""javascript:DrawImage(this,110,110);"" style=""border:1px solid #ccc; margin-left:5px; margin-right:5px; margin-top:5px""></a>"&vbCrLf
        Next
    End If
    Response.Write "    <br />"&vbCrLf
    Response.Write "    <br /></td>"&vbCrLf
    Response.Write "    <td style=""width:250px; text-align:center""><a  rel=""clearbox[gallery=产品图片展示,,title="&rs("ProductName")&"]"" href="""&rs("BigPic")&""" title="""&rs("ProductName")&"""  target=""_blank""><img src="""&HtmlSmallPic(rs("GroupID"), rs("BigPic"), rs("Exclusive"))&""" title="""&rs("ProductName")&""" style=""border:1px #ccc;"" onload=""javascript:DrawImage(this,250,250);"" name=""rImage"" border=""1""></a><br /><br /></td>"&vbCrLf
    Response.Write "  </tr>"&vbCrLf
    Response.Write "</table>"&vbCrLf
    Response.Write "    </td>"&vbCrLf
    Response.Write "  </tr>"&vbCrLf
    Response.Write "  <tr>"&vbCrLf
    Response.Write "    <div class=""artview_title"">  <td height=""33"" style=""background:url(/Images/bg2.gif) repeat-x left bottom"">产品详细介绍</td></div>"&vbCrLf
    Response.Write "  </tr>"&vbCrLf
    Response.Write "  <div >"&vbCrLf
    Response.Write "  <tr>"&vbCrLf
    Response.Write "    <td height=""25"" style=""padding-left: 18px; padding-right: 18px"" class=""imgkz""><br>"&ProcessSitelink(rs("Content"))&"</td>"&vbCrLf
    Response.Write "  </tr>"&vbCrLf
    Response.Write "  </div>"&vbCrLf
Else
    Response.Write "        <tr>"&vbCrLf
    Response.Write "          <td rowspan=""2"" align=""center""><img src=""/Images/NoRight.jpg""></td>"&vbCrLf
    Response.Write "        </tr>"&vbCrLf
End If
rs.update
rs.Close
Set rs = Nothing
End If
%>   </td>
  </tr>
  <tr>
    <td height="26" align="center">【字体：<a 
            class="black1" href="javascript:fontZoom(16)">大</a> <a class="black1" 
            href="javascript:fontZoom(14)">中</a> <a class="black1" 
            href="javascript:fontZoom(12)">小</a>】 【 <a href="javascript:window.print()" class="black">打印本页</a> 】 【 <a href="javascript:window.close()" class="black">关闭窗口</a> 】
<SCRIPT language=JavaScript>
function fontZoom(size)
{
 document.getElementById('fontzoom').style.fontSize=size+'px'
}
</SCRIPT> </td>
  </tr>
                </table>
</DIV></td>
  </tr>
</table>
   <div class="blank30"></div>

   </div>
            
<div class="clear"></div>        
                </div>
            </div>
        
      </div>
      <div class="clear"></div>
    </div>

<!--#include file="End.Asp"-->
</body>
</html>
<script src="../Scripts/clearbox.js" type="text/javascript"></script>
<%
Function Productnav(ParentID, i, level)
    Dim rs, sql
    Set rs = server.CreateObject("adodb.recordset")
    sql = "select * from Shenbi_ProductSort where ViewFlag and ParentID="&ParentID&" order by ID asc"
    rs.Open sql, conn, 1, 1
    If conn.Execute("select ID from Shenbi_ProductSort Where ViewFlag and ParentID=0").EOF Then
        response.Write "<center>暂无相关信息</center>"
    End If
    Do While Not rs.EOF
        If ISHTML = 1 Then
            AutoLink = "/"&ProSortName&""&Separated&""&rs("ID")&""&Separated&"1."&HTMLName&""
        Else
            AutoLink = "ProductList.Asp?SortID="&rs("ID")&""
        End If
        response.Write "<li><a href="""&AutoLink&""" >"&rs("SortName")&"</a></li>"
        'i = i + 1
        'If i<level Then Call Productnav(rs("ID"), i, level)
        'i = i -1
        rs.movenext
    Loop
    rs.Close
    Set rs = Nothing
End Function

Function WebMenu(ParentID, i, level)
    Dim rs, sql
    Set rs = server.CreateObject("adodb.recordset")
    sql = "select * from Shenbi_ProductSort where ViewFlag and ParentID="&ParentID&" order by ID asc"
    rs.Open sql, conn, 1, 1
    If conn.Execute("select ID from Shenbi_ProductSort Where ViewFlag and ParentID=0").EOF Then
        response.Write "<center>暂无相关信息</center>"
    End If
    Do While Not rs.EOF
        If ISHTML = 1 Then
            AutoLink = ""&ProSortName&""&Separated&""&rs("ID")&""&Separated&"1."&HTMLName&""
        Else
            AutoLink = "ProductList.Asp?SortID="&rs("ID")&""
        End If
        response.Write "<tr><td height=""42"" align=""left"" background=""/template/shenbi2012_04/images/le5.gif"" style=""padding-left:20px;""  ><img src=""/template/shenbi2012_04/images/le7.gif"" width=""9"" height=""11"" /><a  href="""&AutoLink&""">"&rs("SortName")&"</a></td></tr>"
        response.Write "<tr><td  style=""padding-bottom:5px;"" ></td></tr>"
        i = i + 1
        If i<level Then Call WebMenu(rs("ID"), i, level)
        i = i -1
        rs.movenext
    Loop
    rs.Close
    Set rs = Nothing
End Function

Function WebLocation()
    WebLocation = "&nbsp;当前位置：<a href=""/"" class=""pink"">首页</a> - <a href=""/Fangwei.html"" class=""pink"">公司产品</a>"&vbCrLf
    If request.QueryString("ID") = "" Then
        WebLocation = WebLocation
    ElseIf Not IsNumeric(request.QueryString("ID")) Then
        WebLocation = WebLocation&"读取错误"
    ElseIf conn.Execute("select * from Shenbi_Products Where ViewFlag and  ID="&request.QueryString("ID")).EOF Then
        WebLocation = WebLocation&"读取错误"
    Else
        Dim rs, sql
        Set rs = server.CreateObject("adodb.recordset")
        sql = "select * from Shenbi_Products where ViewFlag and ID="&request.QueryString("ID")
        rs.Open sql, conn, 1, 1
        WebLocation = WebLocation&SortPathTXT("Shenbi_ProductSort", rs("SortID"))
        rs.Close
        Set rs = Nothing
    End If
End Function

Function SortPathTXT(DataFrom, ID)
    Dim rs, sql
    Set rs = server.CreateObject("adodb.recordset")
    sql = "Select * From "&DataFrom&" where ViewFlag and ID="&ID
    rs.Open sql, conn, 1, 1
    If Not rs.EOF Then
        If ISHTML = 1 Then
            AutoLink = "/"&ProSortName&""&Separated&""&rs("ID")&""&Separated&"1."&HTMLName&""
        Else
            AutoLink = "ProductList.Asp?SortID="&rs("ID")&""
        End If
        SortPathTXT = SortPathTXT(DataFrom, rs("ParentID"))&" - <a href="""&AutoLink&"""><span style=""color:#EC0000"">"&rs("SortName")&"</span></a>"
    End If
    rs.Close
    Set rs = Nothing
End Function
%>