<!--#include file="../Include/Const.asp" -->
<!--#include file="../Include/NoHackSql.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 wygkcndiv_Products where ViewFlag"&Language&" and ID="&ID
rs.open sql,conn,1,3
If rs("SeoKeywords"&Language) <> "" Then
SeoKeywords=rs("SeoKeywords"&Language)
Else
SeoKeywords=rs("ProductName"&Language)
End If
If rs("SeoDescription"&Language) <> "" Then
SeoDescription=rs("SeoDescription"&Language)
Else
SeoDescription=rs("ProductName"&Language)
End If
SeoTitle=rs("ProductName"&Language)
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=gbk" />
<title><% =SeoTitle %> - <% =SiteTitle %></title>
<meta name="keywords" content="<% =SeoKeywords %>" />
<meta name="description" content="<% =SeoDescription %>" />
<link href="newimages/default_style.css" rel="stylesheet" type="text/css"/>
<script type="text/javascript" src="css/setCss.js"></script>
<script src="../Script/AC_RunActiveContent.js" type="text/javascript"></script>
<script language="javascript" src="../Script/Html.js"></script>
<script type="text/javascript">
//分类节点展开和折叠-------------------------------------------------------------------
function EndSortChange(a,b)
{
	if(eval(a).style.display=='')
	{
		eval(a).style.display='none';
		eval(b).className='SortEndFolderOpen';
	}
	else
	{
		eval(a).style.display='';
		eval(b).className='SortEndFolderClose';
		
	}
}
function SortChange(a,b)
{
	if(eval(a).style.display=='')
	{
		eval(a).style.display='none';
		eval(b).className='SortFolderOpen';
	}
	else
	{
		eval(a).style.display='';
		eval(b).className='SortFolderClose';
	}
}</script>
</head>
<!--#include file="Head.Asp" -->
<DIV class=f_r><IMG 
            src="newimages/nav-right.jpg"></DIV>
            <DIV style="CLEAR: both"></DIV></DIV></DIV>
            <DIV class=wraper>
            <DIV class=sidebar>
            <DIV><IMG 
            src="newimages/sidebar-top.jpg"></DIV>
            <DIV 
            style="PADDING-RIGHT: 9px; PADDING-LEFT: 9px; PADDING-BOTTOM: 0px; WIDTH: 217px; PADDING-TOP: 0px">
            <DIV id=UserLogin1_RegisterDIV><A 
            href="MemberRegister.asp"><IMG height=60 
            src="newimages/reg.jpg" width=216 
            border=0></A> </DIV><!--登录窗口-->
         <Iframe src="login.asp" frameborder="0" width="100%"></Iframe>
		   <DIV class=news align=left>
            <H2> 产品分类&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</H2></DIV><DIV class=newsb align=left style="line-height:25px">
              <div class="modulebody_center">
<ul>
<%call CallFolderView()%>
</Ul>
 
</div>
           
          </DIV>
		  
            <DIV class=news align=left>
            <H2>最热产品&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</H2></DIV><DIV class=newsb align=left style="list-style-type:none">
                <UL style="list-style-type:none">
              
									<%call Producthot(10)%></UL>
           
          </DIV>
           
            
			</DIV>
            <DIV><IMG height=6 
            src="../newimages/sidebar-bottom.jpg" 
            width=236></DIV></DIV>
            <DIV class=content>
            <DIV><IMG height=7 
            src="../newimages/content-top.jpg" 
            width=758></DIV>
      
           
            <DIV style="CLEAR: both"></DIV>
           
           <DIV class=incontent>
            <DIV 
style="BACKGROUND: url(../newimages/content-titile-bg.jpg) repeat-x">
            <DIV class=f_l><IMG 
            src="../newimages/content-titile.jpg"></DIV>
            <H2><%=WebLocation()%></H2>
            <DIV class=f_r><IMG 
            src="../newimages/content-titile-r.jpg"></DIV>
            <DIV style="CLEAR: both"></DIV>
            <DIV 
            style="BORDER-RIGHT: #b1d3ee 1px solid; PADDING-RIGHT: 5px; PADDING-LEFT: 5px; BACKGROUND: #fff; PADDING-BOTTOM: 5px; BORDER-LEFT: #b1d3ee 1px solid; WIDTH: 734px; PADDING-TOP: 5px; " 
            align=left>

          
 <DIV class="DivBorder OrderDiv1">          
<DIV class=Fs_All_Bottom1>
 
		<table border="0" cellpadding="0" cellspacing="0" width="100%">

			<tbody>
				<tr>
					<td width="26"> </td>
					<td>
					<p>
<table cellspacing="0" cellpadding="0" width="100%" bgcolor="#ffffff" border="0" heihgt="">
    <tbody>
        <tr align="center">

                <td width="1000" align="center" style="color:#000000; font-size:14px; font-weight:bold">
<%
  ID=request.QueryString("ID")
  if ID="" or not IsNumeric(ID) then
    response.write "<center>暂无相关信息</center>"
  elseif conn.execute("select * from wygkcndiv_Products Where ViewFlag"&Language&" and  ID="&ID).eof then
    response.write "<center>暂无相关信息</center>"
  else
	dim rs,sql
    set rs = server.createobject("adodb.recordset")
	sql="select * from wygkcndiv_Products where ViewFlag"&Language&" and ID="&ID
    rs.open sql,conn,1,3
	Response.Write ""&rs("ProductName"&Language)&""&VbCrLf
  End If
%></td>
                
              </tr>
            
       
<%
if ViewNoRight(rs("GroupID"),rs("Exclusive")) Then
Response.Write "  <tr>"&VbCrLf
Response.Write "    <td>"&VbCrLf
Response.Write "<table width=""98%"" border=""0"" cellspacing=""0"" cellpadding=""0"" align=""center"">"&VbCrLf
Response.Write "  <tr height=""25"">"&VbCrLf
Response.Write "    <td>产品名称："&rs("ProductName"&Language)&"</td>"&VbCrLf
Response.Write "    <td rowspan=""7"" style=""width:180px; text-align:center""><a href="""&rs("BigPic")&""" title=""点击查看大图片"" target=""_blank""><img src="""&HtmlSmallPic(rs("GroupID"),rs("BigPic"),rs("Exclusive"))&""" title="""&rs("ProductName"&Language)&""" style=""border:1px #ccc;"" onload=""javascript:DrawImage(this,300,300);"" border=""0""></a><br /><br /><a href=""ProductBuy.asp?ProductNo="&rs("ProductNo")&""" title=""立即订购："&rs("ProductName"&Language)&"""><img src=""Images/buy.gif"" border=""0"" /></a></td>"&VbCrLf
Response.Write "  </tr>"&VbCrLf
Response.Write "  <tr height=""25"">"&VbCrLf
Response.Write "    <td>产品编号："&rs("ProductNo") &"</td>"&VbCrLf
Response.Write "  </tr>"&VbCrLf
Response.Write "  <tr height=""25"">"&VbCrLf
Response.Write "    <td>产品型号："&rs("ProductModel") &"</td>"&VbCrLf
Response.Write "  </tr>"&VbCrLf
Response.Write "  <tr height=""25"">"&VbCrLf
Response.Write "    <td>市场价格："&rs("N_Price")&"元/"&rs("Unit"&Language)&" 批发价格："&rs("P_Price")&"元/"&rs("Unit"&Language)&"</td>"&VbCrLf
Response.Write "  </tr>"&VbCrLf
Response.Write "  <tr height=""25"">"&VbCrLf
Response.Write "    <td>更新时间："&FormatDate(rs("Addtime"),13)&"</td>"&VbCrLf
Response.Write "  </tr>"&VbCrLf
Response.Write "  <tr height=""25"">"&VbCrLf
Response.Write "    <td>出品单位："&rs("Maker"&Language) &"</td>"&VbCrLf
Response.Write "  </tr>"&VbCrLf
attribute1=rs("attribute1"&Language)
attribute1_value=rs("attribute1"&Language&"_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 "  <tr height=""25"">"&VbCrLf
Response.Write "    <td>"&attribute1_1(i)&"："&attribute1_value_1(i)&"</td>"&VbCrLf
Response.Write "  </tr>"&VbCrLf
Next
End If
Response.Write "  <tr height=""25"">"&VbCrLf
Response.Write "    <td>浏览次数：<script language=""javascript"" src=""HitCount.asp?id="&rs("ID")&"&LX=wygkcndiv_Products""></script><script language=""javascript"" src=""HitCount.asp?action=count&LX=wygkcndiv_Products&id="&rs("ID")&"""></script></td>"&VbCrLf
Response.Write "  </tr>"&VbCrLf
Response.Write "</table>"&VbCrLf
Response.Write "    </td>"&VbCrLf
Response.Write "  </tr>"&VbCrLf
Response.Write "  <tr>"&VbCrLf
Response.Write "    <td height=""33"" style=""background:url(Images/bg2.gif) repeat-x left bottom"">&nbsp;<img src=""images/arr.gif"" width=""11"" height=""14"" align=""absmiddle"" />&nbsp;&nbsp;产品详细介绍</td>"&VbCrLf
Response.Write "  </tr>"&VbCrLf
Response.Write "  <tr>"&VbCrLf
Response.Write "    <td height=""25"" style=""padding-left: 8px; padding-right: 8px"">"&rs("Content"&Language)&"</td>"&VbCrLf
Response.Write "  </tr>"&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
%>
        <tr>
          <td height="20">&nbsp;</td>
        </tr>
    </tbody>
</table>
</p>
					</td>
					<td width="26"> </td>

				</tr>
				<tr>
					<td> </td>
				</tr>
			</tbody>
		</table>
 
<DIV class=Fs_C_Center></DIV>
</DIV></DIV>
           
      
           
            <DIV style="CLEAR: both"></DIV></DIV>           
            <DIV 
style="BACKGROUND: url(../newimages/content-bottom-bg.jpg) repeat-x">
            <DIV class=f_l><IMG 
            src="../newimages/content-bottom-l.jpg"></DIV>
            <DIV class=f_r><IMG 
            src="../newimages/content-bottom-r.jpg"></DIV>
            <DIV style="CLEAR: both"></DIV></DIV></DIV>
            <DIV style="CLEAR: both"></DIV>
            <DIV style="HEIGHT: 6px"><IMG 
            src="../newimages/hr.jpg"></DIV></DIV>
            <DIV><IMG 
            src="../newimages/content-bottom.jpg"></DIV>
            <DIV style="CLEAR: both"></DIV></DIV></DIV>
            <DIV style="CLEAR: both"></DIV>
<!--#include file="Foot.Asp"-->
<%
'调用显示节点------------------------------
Function CallFolderView()
%>
<% Folder(0) %>
<%
End Function
'列出所有节点------------------------------
Function Folder(id)
  Dim rs,sql,i,ChildCount,FolderType,FolderName,onMouseUp,ListType,ViewFlag
  Set rs=server.CreateObject("adodb.recordset")
  sql="Select * From wygkcndiv_ProductSort where ViewFlag"&Language&" and ParentID="&id&" order by id"
  rs.open sql,conn,1,1
  if id=0 and rs.recordcount=0 then
    response.write ("No Information!")
    response.end
  end if  
  i=1
  response.write("<table border='0' cellspacing='0' cellpadding='0'>")
  while not rs.eof
    ChildCount=conn.execute("select count(*) from wygkcndiv_ProductSort where ParentID="&rs("id"))(0)
    if ChildCount=0 then
	  if i=rs.recordcount then
	    FolderType="SortFileEnd"
	  else
	    FolderType="SortFile"
	  end if
	  FolderName=rs("SortNameCh")&"&nbsp;"&ViewFlag
	  onMouseUp=""
    else
	  if i=rs.recordcount then
	 	FolderType="SortEndFolderOpen"
		ListType="SortEndListline"
		onMouseUp="EndSortChange('a"&rs("id")&"','b"&rs("id")&"');"
	  else
		FolderType="SortFolderOpen"
		ListType="SortListline"
		onMouseUp="SortChange('a"&rs("id")&"','b"&rs("id")&"');"
	  end if
	  FolderName=rs("SortNameCh")&"&nbsp;"&ViewFlag
    end if
    response.write("<tr>")
    response.write("<td nowrap id='b"&rs("id")&"' class='"&FolderType&"' onMouseUp="&onMouseUp&"></td><td nowrap><a href=""ProductClass-"&rs("ID")&"-1.html"">"&FolderName&"</a>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;")	
    response.write("</td></tr>")
    if ChildCount>0 then
%>
      <tr id="a<%= rs("id")%>" style="display:none"><td class="<%= ListType%>" nowrap></td><td ><% Folder(rs("id")) %></td></tr>
<%
    end if
    rs.movenext
    i=i+1
  wend
  response.write("</table>")
  rs.close
  set rs=nothing
end function

function WebLocation()
  WebLocation="&nbsp;当前位置：<a href=""index.asp"" class=""agray"">首页</a> - <a href=""ProductList.asp"" class=""agray"">产品中心</a>"&VbCrLf
  if request.QueryString("ID")="" then
    WebLocation=WebLocation
  elseif not IsNumeric(request.QueryString("ID")) then
    WebLocation=WebLocation&"读取错误"
  elseif conn.execute("select * from wygkcndiv_Products Where ViewFlag"&Language&" and  ID="&request.QueryString("ID")).eof then
    WebLocation=WebLocation&"读取错误"
  else
    dim rs,sql
    set rs = server.createobject("adodb.recordset")
	sql="select * from wygkcndiv_Products where ViewFlag"&Language&" and ID="&request.QueryString("ID")
    rs.open sql,conn,1,1
	WebLocation=WebLocation&SortPathTXT("wygkcndiv_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"&Language&" 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 = "ProductClass-"&rs("ID")&"-1.html"
	End If
	SortPathTXT=SortPathTXT(DataFrom,rs("ParentID"))&" - <a href="""&AutoLink&"""><span style=""color:#EC0000"">"&rs("SortName"&Language)&"</span></a>"
  end if
  rs.close
  set rs=nothing
end Function
%>