<!--#include file="../Include/Const.asp" -->
<!--#include file="../Include/ConnSiteData.asp" -->
<!--#include file="../Include/NoHackSql.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
%>
<!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><% =SiteTitle %></title>
<meta name="keywords" content="<% =Keywords %>" />
<meta name="description" content="<% =Descriptions %>" />
<link href="newimages/default_style.css" rel="stylesheet" type="text/css"/>

<script src="../Script/AC_RunActiveContent.js" type="text/javascript"></script>
<script src="../Script/html.js" type="text/javascript"></script>

<style type="text/css">
.list {
	margin:0px;
	padding: 0px;
	width:100%;
}
.list li{
	background: url(../images/arrow_02.gif) no-repeat 2px 7px;
	list-style:none; font-size:9px;
	margin:0px; padding:0px; padding-left:0px;
	height:24px;
}

.list li a:hover{
	background:  #F7F7F7;
	color: #BC2931;
	text-decoration: none;
	font-size:9px
}
.list li span, .c_l_b_p li span {
	color: #666666;
	float: right;
	text-align: right;
	padding-top: 0px;
	clear:right;
	font-size:10px;
}
.list ul {
	text-align: left; list-style:none; padding-top:3px; font-size:9px
}
</style>
<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>Product List&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>
		  <% if ssp=false then %>
		   <DIV class=news align=left style="margin-top:7px;">
            <H2>Notice&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="padding-left:10px; line-height:25px;">
                <%= KG()%>
				</DIV>
           <% else %>
		    <DIV class=news align=left style="margin-top:7px;">
            </DIV><DIV class=newsb align=left style="padding-left:0px; line-height:25px;">
<EMBED id=MediaPlayer 
                  src="<%=Video%>"
                  width=215 height=172 type=audio/mpeg autostart="true" 
                  loop="0" ></EMBED>

           </DIV><%end if%>
            <DIV class=news align=left>
            <H2>Hot Product &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 class=news align=left>
            <H2>Friend Links&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>
            <UL>
             
									<%call FriendLinks(5,1)%></UL>
            <DIV><IMG height=9 
            src="newimages/news-bottom.jpg" 
            width=217></DIV></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 class=incontent>
            <DIV class=f_l 
            style="BACKGROUND: url(newimages/content-titile-bg.jpg) repeat-x; WIDTH: 484px">
            <DIV class=f_l><IMG 
            src="newimages/content-titile.jpg"></DIV>
            <H2>About Us</H2>
            <DIV class=f_r><IMG height=28 
            src="newimages/content-titile-r.jpg" 
            width=4></DIV>
            <DIV style="CLEAR: both"></DIV>
            <DIV 
            style="BORDER-RIGHT: #b1d3ee 1px solid; BACKGROUND: #fff; BORDER-LEFT: #b1d3ee 1px solid; text-align:left; line-height:20px; padding-left:10px; padding-right:10px; height:225px;BORDER-Bottom: #b1d3ee 1px solid; ">
            <%set rs = server.createobject("adodb.recordset")
  sql="select * from wygkcndiv_About where ViewFlag"&Language&" and ID=1"
  rs.open sql,conn,1,1
 if not rs.eof then
  	
	  response.write ""&left(rs("content"&Language&""),700)&"......"
	else
	response.write "No Data"
	end if
  rs.close
  set rs=nothing%></DIV>
            <DIV 
style="BACKGROUND: url(newimages/content-bottom-bg.jpg) repeat-x">
            
            <DIV style="CLEAR: both"></DIV></DIV></DIV>
            <DIV class=f_r><script type="text/javascript" src="objectSwap.js"></script>
						<% 
set rs=server.createobject("adodb.recordset")
sql="select * from wygkcndiv_newpic"
rs.open sql,conn,1,3
pic1=""&rs("pic1")
pic2=""&rs("pic2")
pic3=""&rs("pic3")
pic4=""&rs("pic4")
pic5=""&rs("pic5")
pic6=""&rs("pic6")
pic11=rs("movie1")
pic22=rs("movie2")
pic33=rs("movie3")
pic44=rs("movie4")
pic55=rs("movie5")
pic66=rs("movie6")
movie1=rs("movie1")
movie2=rs("movie2")
movie3=rs("movie3")
movie4=rs("movie4")
movie5=rs("movie5")
movie6=rs("movie6")
rs.close
set rs=nothing
%>
           <Script type="text/javascript">

// 幻灯片式的网页图片滚动函数（不需要做任何改动）
function roll_pic_flash(roll_pic_ary)        {
   
        var w                        = roll_pic_ary[3][0];
        var h                        = roll_pic_ary[3][1];
        var text_h                = roll_pic_ary[3][2];
        var bgcolor                = roll_pic_ary[3][3];
        var roll_swf        = roll_pic_ary[3][4];
        var swf_height        = h + text_h;
        var pics                = roll_pic_ary[0].join("|");
        var links                = roll_pic_ary[1].join("|");
        var texts                = roll_pic_ary[2].join("|");
    
        return '<object classid="clsid:d27cdb6e-ae6d-11cf-96b8-444553540000" codebase="http://fpdownload.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,0,0" width="'+ w +'" height="'+ swf_height +'"><param name="default_url" value=""><param name="allowScriptAccess" value="sameDomain"><param name="movie" value="' + roll_swf + '"><param name="quality" value="high"><param name="bgcolor" value="'+bgcolor+'"><param name="menu" value="false"><param name="improved_by" value=""><param name=wmode value="opaque"><param name="FlashVars" value="pics='+pics+'&links='+links+'&texts='+texts+'&borderwidth='+w+'&borderheight='+h+'&textheight='+text_h+'"><embed src="' + roll_swf + '" wmode="opaque" FlashVars="pics='+pics+'&links='+links+'&texts='+texts+'&borderwidth='+w+'&borderheight='+h+'&textheight='+text_h+'" menu="false" bgcolor="'+bgcolor+'" quality="high" width="'+ w +'" height="'+ h +'" allowScriptAccess="sameDomain" type="application/x-shockwave-flash" pluginspage="http://www.macromedia.com/go/getflashplayer" /></object>';

}

// 开始设置幻灯片参数
var roll_pic_width = 255;        // 图片宽度
var roll_pic_height = 255;        // 图片高度
var roll_text_height = 0;        // 文字高度
var roll_bgcolor = '#FFFFFF';        // 幻灯片背景色
var roll_flash = '../images/roll_pic_new.swf'; // 幻灯片flash地址，请将此flash下载保存到你的服务器，以免失效

// 幻灯片数组roll_pic_ary初始化（不用做任何改动）
var roll_pic_ary = new Array(Array(0),Array(0),Array(0),
Array(roll_pic_width,roll_pic_height,roll_text_height,roll_bgcolor,roll_flash));

roll_pic_ary[0].push("<%=pic1%>");
roll_pic_ary[1].push(escape("<%=movie1%>"));
roll_pic_ary[2].push("<%=pic11%>");

// 增加一个图片，连接，文字说明
roll_pic_ary[0].push("<%=pic2%>");
roll_pic_ary[1].push(escape("<%=movie2%>"));
roll_pic_ary[2].push("<%=pic22%>");

// 增加一个图片，连接，文字说明
roll_pic_ary[0].push("<%=pic3%>");
roll_pic_ary[1].push(escape("<%=movie3%>"));
roll_pic_ary[2].push("<%=pic33%>");

// 增加一个图片，连接，文字说明
roll_pic_ary[0].push("<%=pic4%>");
roll_pic_ary[1].push(escape("<%=movie4%>"));
roll_pic_ary[2].push("<%=pic44%>");

roll_pic_ary[0].push("<%=pic5%>");
roll_pic_ary[1].push(escape("<%=movie5%>"));
roll_pic_ary[2].push("<%=pic55%>");





// 显示幻灯片式的网页图片滚动
document.write(roll_pic_flash(roll_pic_ary));

// 如果要嵌入其他系统内（如cms），稍做修改即可使用
</Script></DIV>
            <DIV style="CLEAR: both"></DIV>
            <DIV style="HEIGHT: 6px"><IMG height=4 
            src="newimages/hr.jpg" 
            width=4></DIV></DIV>
            <TABLE cellSpacing=0 cellPadding=0 width=758 border=0>
              <TR><%dim rs,sql,tr,td,ProductName,SmallPicPath
  set rs = server.createobject("adodb.recordset")
  sql="select top 4 * from wygkcndiv_Products where ViewFlag"&Language&" and NewFlag order by id desc"
  rs.open sql,conn,1,1
  do while not rs.eof
  if StrLen(rs("ProductName"&Language))<=18 then
            ProductName=rs("ProductName"&Language)
	      else
	        ProductName=StrLeft(rs("ProductName"&Language),16)
	      end If
		  If ISHTML = 1 Then
				AutoLink = ""&ProName&""&Separated&""&rs("ID")&"."&HTMLName&""
			Else
				AutoLink = "ProductView.asp?ID="&rs("id")&""
			End If
			SmallPicPath=HtmlSmallPic(rs("GroupID"),rs("SmallPic"),rs("Exclusive"))
  %>
  <TD width="25%">
                  <DIV class=product-list>
                  <DIV 
                  style="BACKGROUND: url(newimages/content-titile-bg.jpg) repeat-x">
                  <DIV class=f_l><IMG 
                  src="newimages/content-titile.jpg"></DIV>
                  <H2><%=ProductName%></H2>
                  <DIV class=f_r><IMG 
                  src="newimages/content-titile-r.jpg"></DIV>
                  <DIV style="CLEAR: both"></DIV>
                  <DIV class=write-bg>
                  <DIV align=center>
				  <a href='<%=AutoLink%>' target='_blank'>
				  <IMG src="<%=SmallPicPath%>" width="135" height="135"></a></DIV>
                  <UL>
                    <LI>Model：<%=rs("ProductModel")%>
                    <LI>Number：<%=rs("ProductNo")%>
                   </UL>
				   <UL>
                    <LI style="vertical-align:middle">Price：<font color="#FF0000"><%=rs("N_Price")%>/<%=rs("Unit"&Language)%></font> <a href="ProductBuy.asp?ProductNo=<%=rs("ProductNo")%>" target="_blank"><img src="newimages/buy_2.gif" alt="Click Order" style="vertical-align:middle"></a>
                   </UL>
                  <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></TD>
				  <%rs.movenext
				  loop
				  rs.close%>
               </TR>
              <TR>
                <TD align=left colSpan=4>
                  <TABLE cellSpacing=0 cellPadding=0 width="100%" align=left 
                  border=0>
                    <TBODY>
                    <TR>
                      <TD><%
  set rs = server.createobject("adodb.recordset")
  sql="select top 1 * from wygkcndiv_Products where ViewFlag"&Language&" and CommendFlag order by id desc"
  rs.open sql,conn,1,1
  do while not rs.eof
  if StrLen(rs("ProductName"&Language))<=18 then
            ProductName=rs("ProductName"&Language)
	      else
	        ProductName=StrLeft(rs("ProductName"&Language),16)
	      end If
		  If ISHTML = 1 Then
				AutoLink = ""&ProName&""&Separated&""&rs("ID")&"."&HTMLName&""
			Else
				AutoLink = "ProductView.asp?ID="&rs("id")&""
			End If
			SmallPicPath=HtmlSmallPic(rs("GroupID"),rs("SmallPic"),rs("Exclusive"))
  %>
                        <DIV class=product-list_1>
                        <DIV 
                        style="BACKGROUND: url(newimages/content-titile-bg.jpg) repeat-x; ">
                        <DIV class=f_l><IMG 
                        src="newimages/content-titile.jpg"></DIV>
                        <H2><%=ProductName%></H2>
                        <DIV class=f_r><IMG 
                        src="newimages/content-titile-r.jpg"></DIV>
                        <DIV style="CLEAR: both"></DIV>
                        <DIV class=write-bg onMouseOver="this.style.color='red'" 
                        onmouseout="this.style.color='black'">
                        <DIV style="CLEAR: both; height:153px"><A 
                        href="<%=AutoLink%>"><IMG 
                        src="<%=SmallPicPath%>" width="150" height="155"
                        align=left> </A>
                        <DIV valign="center"><BR><BR>
                        <UL>
                          <LI><%=left(rs("Content"&Language),50)%></LI></UL></DIV></DIV>
                        <DIV style="CLEAR: both"></DIV>
                        <DIV class=link><A 
                        href="<%=AutoLink%>">More</A></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>
						 <%rs.movenext
				  loop
				  rs.close%></TD>
                      <TD vAlign=top>
                        <DIV class=product-list_2>
                        <DIV 
                        style="BACKGROUND: url(newimages/content-titile-bg.jpg) repeat-x">
                        <DIV class=f_l><IMG 
                        src="newimages/content-titile.jpg"></DIV>
                        <H2>Online Customer Service</H2>
            <DIV class=f_r><IMG height=28 
            src="newimages/content-titile-r.jpg" 
            width=4></DIV>
            <DIV style="CLEAR: both"></DIV>
            <DIV 
            style="BORDER-RIGHT: #b1d3ee 1px solid; BACKGROUND: #fff; BORDER-LEFT: #b1d3ee 1px solid; text-align:left; line-height:20px; padding-left:10px; padding-right:10px; height:191px; ">
            <%set rs = server.createobject("adodb.recordset")
  sql="select * from wygkcndiv_About where ViewFlag"&Language&" and ID=9"
  rs.open sql,conn,1,1
 if not rs.eof then
  	
	  response.write ""&rs("content"&Language&"")&""
	else
	response.write "No Data"
	end if
  rs.close
  set rs=nothing%></DIV>
            <DIV 
style="BACKGROUND: url(newimages/content-bottom-bg.jpg) repeat-x">
            
            <DIV style="CLEAR: both"></DIV></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></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE>
            <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>News</H2>
            <DIV class=f_r>More<IMG 
            src="newimages/content-titile-r.jpg"></DIV>
            <DIV style="CLEAR: both"></DIV>
            <DIV 
            style="BORDER-RIGHT: #b1d3ee 1px solid; PADDING-RIGHT: 0px; PADDING-LEFT: 0px; BACKGROUND: #fff; PADDING-BOTTOM: 5px; BORDER-LEFT: #b1d3ee 1px solid; WIDTH: 744px; PADDING-TOP: 5px; height:160px" 
            align=left>
			<%
  set rs = server.createobject("adodb.recordset")
  sql="select top 2 * from wygkcndiv_NewsSort where ViewFlag"&Language
  rs.open sql,conn,1,1
  do while not rs.eof
  SortPath=rs("SortPath")
  Sorttitle=rs("SortName"&Language)
  If ISHTML = 1 Then
		AutoLinkk = ""&NewSortName&""&Separated&""&rs("ID")&""&Separated&"1."&HTMLName&""
	Else
		AutoLinkk = "NewsList.asp?SortID="&rs("ID")&""
	End If%>
            <DIV class="f_l sever-list" style="margin-left:15px">
            <H3><a href="<%=AutoLinkk%>"><%=rs("SortName"&Language)%></a></H3>
            <DIV class=text><ul class="list"> 
			<%
  set rslist = server.createobject("adodb.recordset")
  sqllist="select top 6 * from wygkcndiv_News where ViewFlag"&Language&" and Instr(SortPath,'"&SortPath&"')>0 order by id desc"
  rslist.open sqllist,conn,1,1
  do while not rslist.eof
  If ISHTML = 1 Then
		AutoLink = ""&NewName&""&Separated&""&rslist("ID")&"."&HTMLName&""
	Else
		AutoLink = "NewsView.asp?ID="&rslist("ID")&""
	End If
%> 
									<Li><span>[<%=FormatDate(rslist("Addtime"),13)%>]</span><a href="<%=AutoLink%>"><%=rslist("NewsName"&Language)%></a></Li>
								
									
 <%rslist.movenext
 loop
 rslist.close%>
 </ul></DIV></DIV>
 <%
 rs.movenext
 loop
 rs.close%>          
            
           
            <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("SortNameEn")&"&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("SortNameEn")&"&nbsp;"&ViewFlag
    end if
    response.write("<tr>")
    response.write("<td nowrap id='b"&rs("id")&"' class='"&FolderType&"' onMouseUp="&onMouseUp&"></td><td nowrap><a href=""ProductList.asp?SortID="&rs("ID")&""">"&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 ViewSiteInfo()
  dim rs,sql
  set rs = server.createobject("adodb.recordset")
  sql="select top 1 * from wygkcndiv_Site"
  rs.open sql,conn,1,1
  if rs.bof and rs.eof then
	response.write ("<br><br><div align=""center""><font style=""color:red; font-size:9pt; "")>数据库记录读取错误！</font></div>")
    response.end
  else
 	ssp=rs("ssp")
    rs.close
    set rs=nothing
  end if
End Function

function KG()
  dim rs,sql
  set rs = server.createobject("adodb.recordset")
  sql="select * from wygkcndiv_affiche where ID=48"
 
  rs.open sql,conn,1,1
 
		Response.Write "<marquee scrollAmount=1 width=181 height=133 direction=up onmouseover='this.stop()' onmouseout='this.start()'>"
		Response.Write rs("content")&"</marquee> "&VbCrLf

  rs.close
  set rs=nothing
end Function

function videos(SortPath)
  dim rs,sql
  set rs = server.createobject("adodb.recordset")
  sql="select top 6 * from wygkcndiv_Others where ViewFlag"&Language&" and Instr(SortPath,'"&SortPath&"')>0 order by id desc"
  
 
  rs.open sql,conn,1,1
  if rs.eof then
	Response.Write "  <tr>"&VbCrLf
	Response.Write "    <td align=""center"" height=""28"">暂无相关信息</td>"&VbCrLf
	Response.Write "  </tr>"&VbCrLf
  else
    do while not rs.eof
		If ISHTML = 1 Then
			AutoLink = ""&OtherName&""&Separated&""&rs("ID")&"."&HTMLName&""
		Else
			AutoLink = "OtherView.asp?ID="&rs("ID")&""
		End If
		Response.Write " <Li><img src=""images/arr4.gif"" width=""9"" height=""9"" align=""absmiddle"" /> <a href="""&AutoLink&""">"&StrLeft(rs("OthersName"&Language),42)&"</a></li>"&VbCrLf
      rs.movenext
    loop 
  end if
  rs.close
  set rs=nothing
end Function

function News(SortPath)
  dim rs,sql,NewsName,NewFlag
  set rs = server.createobject("adodb.recordset")
  sql="select top 8 * from wygkcndiv_News where ViewFlag"&Language&" and Instr(SortPath,'"&SortPath&"')>0 order by id desc"
  rs.open sql,conn,1,1
  if rs.eof then
	Response.Write "  <tr>"&VbCrLf
	Response.Write "    <td align=""center"" height=""28"">暂无相关信息</td>"&VbCrLf
	Response.Write "  </tr>"&VbCrLf
  else
    do while not rs.eof
	  if now()-rs("AddTime")<=2 then 
	    NewsName=StrLeft(rs("NewsName"&Language),42)
	    NewFlag=" <img src=""Images/new.gif"" align=""absmiddle"">"
	  else
	    NewsName=StrLeft(rs("NewsName"&Language),46)
	    NewFlag=""
	  end If
		If ISHTML = 1 Then
			AutoLink = ""&NewName&""&Separated&""&rs("ID")&"."&HTMLName&""
		Else
			AutoLink = "NewsView.asp?ID="&rs("id")&""
		End If
		Response.Write "  <tr>"&VbCrLf
		Response.Write "    <td height=""25""><table width=""486"" border=""0"" cellspacing=""0"" cellpadding=""0"">"&VbCrLf
		Response.Write "        <tr>"&VbCrLf
		Response.Write "          <td width=""388"" style=""background:url(images/bg5.gif) repeat-x left bottom;""><img src=""images/arr2.gif"" width=""3"" height=""5"" align=""absmiddle"" />&nbsp;&nbsp;<a href="""&AutoLink&""">"&NewsName&"</a>"&NewFlag&"</td>"&VbCrLf
		Response.Write "          <td width=""98"" align=""right"" style=""font-size:11px; color:#999999; background:url(images/bg5.gif) repeat-x left bottom;""><img src=""images/clock.gif"" width=""7"" height=""7"" align=""absmiddle"" />&nbsp;&nbsp;"&FormatDate(rs("Addtime"),14)&"</td>"&VbCrLf
		Response.Write "        </tr>"&VbCrLf
		Response.Write "      </table></td>"&VbCrLf
		Response.Write "  </tr>"&VbCrLf
      rs.movenext
    loop 
  end if
  rs.close
  set rs=nothing
end Function





function WebMenu(ParentID,i,level)
  dim rs,sql
  set rs = server.createobject("adodb.recordset")
  sql="select * from wygkcndiv_NewsSort where ViewFlag"&Language&" and ParentID="&ParentID&" order by ID asc"
  rs.open sql,conn,1,1
  if conn.execute("select ID from wygkcndiv_NewsSort Where ViewFlag"&Language&" and ParentID=0").eof then
    response.write "暂无相关信息"
  end if
  do while not rs.eof
  	If ISHTML = 1 Then
		AutoLink = ""&NewSortName&""&Separated&""&rs("ID")&""&Separated&"1."&HTMLName&""
	Else
		AutoLink = "NewsList.asp?SortID="&rs("ID")&""
	End If
	if ParentID=0 then
	  response.write "<Li><img src=""image/Tx_Ar3.gif"" style=""margin-left:5px;"" /><a href="""&AutoLink&""" target=""_blank"" style=""margin-left:15px;"">"&rs("SortName"&Language)&"</a></li>"
	else
	  response.write string(i,"　")&"<Li><img src=""image/Tx_Ar3.gif"" style=""margin-left:5px;"" /><a href="""&AutoLink&""" target=""_blank"" style=""margin-left:15px;"">"&rs("SortName"&Language)&"</a></li>"
	end if
    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 WebMenup(ParentID,i,level)
  dim rs,sql
  set rs = server.createobject("adodb.recordset")
  sql="select * from wygkcndiv_ProductSort where ViewFlag"&Language&" and ParentID="&ParentID&" order by ID asc"
  rs.open sql,conn,1,1
  if conn.execute("select ID from wygkcndiv_ProductSort Where ViewFlag"&Language&" and ParentID=0").eof then
    response.write "暂无相关信息"
  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
	if ParentID=0 then
	  response.write "<Li><img src=""image/Tx_Ar3.gif"" style=""margin-left:5px;"" /><a href="""&AutoLink&""" target=""_blank"" style=""margin-left:15px;"">"&rs("SortName"&Language)&"</a></li>"
	else
	  response.write string(i,"　")&"<Li><img src=""image/Tx_Ar3.gif"" style=""margin-left:5px;"" /><a href="""&AutoLink&""" target=""_blank"" style=""margin-left:15px;"">"&rs("SortName"&Language)&"</a></li>"
		             
	end if
    i=i+1
	if i<level then call WebMenup(rs("ID"),i,level)
	i=i-1
	rs.movenext
  loop 
  rs.close
  set rs=nothing
end function

function WebMenuL(i)
  dim rs,sql
  set rs = server.createobject("adodb.recordset")
  sql="select top "&i&" * from wygkcndiv_FriendLink where ViewFlag"&Language&" order by ID asc"
  rs.open sql,conn,1,1
  do while not rs.eof
  	
	  response.write "<Li>  <img src=""image/Tx_Ar3.gif"" style=""margin-left:5px;"" /> <a href="""&rs("linkurl")&""" target=""_blank"" style=""margin-left:5px;"">"&rs("LinkName"&Language)&"</a></li>"
	rs.movenext
  loop 
  rs.close
  set rs=nothing
end function

function WebContent(DataFrom,ID,SortPath)
  dim rs,sql
  dim HideSort
  set rs = server.createobject("adodb.recordset")
  if ID="" then
	SortPath="0,"
  elseif not IsNumeric(ID) then
    response.write "<center>暂无相关信息</center>"
	exit function
  elseif conn.execute("select top 6 * from "&DataFrom&" Where ViewFlag"&Language&" and  ID="&ID&" order by id").eof then
    response.write "<center>暂无相关信息</center>"
	exit function
  else
	SortPath=conn.execute("select top 6 * from "&DataFrom&" Where ViewFlag"&Language&" and  ID="&ID&" order by id" )("SortPath")
	conn.execute("update "&DataFrom&" set ClickNumber=ClickNumber+1 Where ID="&ID)
  end if
  sql="select top 6 * from "&DataFrom&" Where not(ViewFlag"&Language&") and Instr(SortPath,'"&SortPath&"')>0"
  rs.open sql,conn,1,1
  while not rs.eof
	HideSort="and not(Instr(SortPath,'"&rs("SortPath")&"')>0) "&HideSort
    rs.movenext
  wend
  rs.close
  dim idCount
  dim pages
      pages=NewInfo
  dim pagec
  dim page
      page=clng(request("Page"))
  dim pagenc
      pagenc=5
  dim pagenmax
  dim pagenmin
  dim pageprevious
  dim pagenext
  datafrom="wygkcndiv_News"
  dim datawhere
	  datawhere="where ViewFlag"&Language&" and Instr(SortPath,'"&SortPath&"')>0 "&HideSort& " "
  dim sqlid
  dim Myself,PATH_INFO,QUERY_STRING
      PATH_INFO = request.servervariables("PATH_INFO")
	  QUERY_STRING = request.ServerVariables("QUERY_STRING")'
      if QUERY_STRING = "" then
	    Myself = PATH_INFO & "?"
	  elseif Instr(PATH_INFO & "?" & QUERY_STRING,"Page=")=0 then
	    Myself= PATH_INFO & "?" & QUERY_STRING & "&"
	  else
	    Myself = Left(PATH_INFO & "?" & QUERY_STRING,Instr(PATH_INFO & "?" & QUERY_STRING,"Page=")-1)
	  end if
  dim taxis
      taxis="order by id desc "
  dim i
  sql="select count(ID) as idCount from ["& datafrom &"]" & datawhere
  set rs=server.createobject("adodb.recordset")
  rs.open sql,conn,0,1
  idCount=rs("idCount")
  if(idcount>0) then
    if(idcount mod pages=0)then
	  pagec=int(idcount/pages)
   	else
      pagec=int(idcount/pages)+1
    end if
    sql="select id from ["& datafrom &"] " & datawhere & taxis
    set rs=server.createobject("adodb.recordset")
    rs.open sql,conn,1,1
    rs.pagesize = pages
    if page < 1 then page = 1
    if page > pagec then page = pagec
    if pagec > 0 then rs.absolutepage = page
    for i=1 to rs.pagesize
	  if rs.eof then exit for
	  if(i=1)then
	    sqlid=rs("id")
	  else
	    sqlid=sqlid &","&rs("id")
	  end if
	  rs.movenext
    next
  end if
  if(idcount>0 and sqlid<>"") then
    sql="select top 6 * from ["& datafrom &"] where id in("& sqlid &") "&taxis
    set rs=server.createobject("adodb.recordset")
    rs.open sql,conn,0,1
	Response.Write "<table width=""98%"" border=""0"" cellspacing=""0"" cellpadding=""0"">"&VbCrLf
    while not rs.eof
	If ISHTML = 1 Then
		AutoLink = ""&NewName&""&Separated&""&rs("ID")&"."&HTMLName&""
	Else
		AutoLink = "NewsView.asp?ID="&rs("ID")&""
	End If
	Response.Write "  <tr height=""28"">"&VbCrLf
	Response.Write "    <td style=""background:url(Images/bg2.gif) repeat-x left bottom;"">&nbsp;<img src=""images/arr.gif"" width=""11"" height=""14"" align=""absmiddle"" />&nbsp;&nbsp;<a href="""&AutoLink&""">"&rs("NewsName"&Language)&"</a></td>"&VbCrLf
	Response.Write "    <td align=""center"" style=""background:url(Images/bg2.gif) repeat-x left bottom; color:#999999"">"&FormatDate(rs("Addtime"),13)&"</td>"&VbCrLf
	Response.Write "  </tr>"&VbCrLf
	rs.movenext
    wend
	Response.Write "</table>"&VbCrLf
  else
    response.write "<center>暂无相关信息</center>"
	exit function
  end if
 
  rs.close
  set rs=nothing
end function

function WebMenua()
  dim rs,sql
  set rs = server.createobject("adodb.recordset")
  sql="select * from wygkcndiv_About where ViewFlag"&Language&" and not ChildFlag order by Sequence asc"
  rs.open sql,conn,1,1
  if rs.eof then
    response.write "暂无相关信息"
  else
    do
		If ISHTML = 1 Then
			AutoLink = ""&AboutNameDiy&""&Separated&""&rs("ID")&"."&HTMLName&""
		Else
			AutoLink = "About.asp?ID="&rs("ID")&""
		End If
      response.write "<Li>  <img src=""image/Tx_Ar3.gif"" style=""margin-left:5px;"" /> <a href="""&AutoLink&""" target=""_blank"" style=""margin-left:5px;"">"&rs("AboutName"&Language)&"</a></li>"
      rs.movenext
    loop until rs.eof
  end if
  rs.close
  set rs=nothing
end function

function qqa()
Dim connQQstr,connQQ,rssetupQQ,qqonline,adm_qq,adm_qq_name,whereqq,kefuskin,qqskin,qqmsg_on,qqmsg_off,QQ_NAME,QQ,MyQQ,N,sitename
connQQstr = "Provider=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE="&SERVER.MAPPATH("../QQ/QQ.mdb")
Set connQQ=server.CreateObject("adodb.connection")
connQQ.Open connQQstr
Set rssetupQQ=connQQ.execute("select * from QQsetup") 
qqonline=rssetupQQ("qqonline")
adm_qq= rssetupQQ("adm_qq")
adm_qq_name= rssetupQQ("adm_qq_name")
whereqq=rssetupQQ("whereqq")
kefuskin=rssetupQQ("kefuskin")
qqskin=rssetupQQ("qqskin")
qqmsg_on=rssetupQQ("qqmsg_on")
qqmsg_off=rssetupQQ("qqmsg_off")
msn= rssetupQQ("msn")
msn_name= rssetupQQ("msn_name")
set rssetupQQ=Nothing
QQ_NAME=split(adm_qq_name,",")
QQ=split(adm_qq,",")

for N=0 to UBound(QQ)
Response.write "<li><a target=blank href=tencent://message/?uin="&QQ(n)&"&Site=QQ:"& QQ(n)&"&Menu=yes><img border=""0"" SRC=""Image/QQon4.gif"" alt="&QQ(n)  &">QQ:"& QQ_NAME(n)&"</a></li>"
next
Response.write "<li><a target=blank href=""msnim:chat?contact="&msn&"&Site="&msn&"""><img border=""0"" SRC=""Image/msn.gif"" alt="&msn&" >"&msn&"</a></li>"
if adm_qq<>"" and qqonline=1 then
adm_qq=replace(adm_qq,"，",",")
if isnull(adm_qq_name) or adm_qq_name="" then adm_qq_name=adm_qq
adm_qq_name=replace(adm_qq_name,"，",",")
QQ_NAME=split(adm_qq_name,",")
QQ=split(adm_qq,",")

for N=0 to UBound(QQ)

next
End if
end function
%>