<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!--#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
if request.QueryString("ID")="" then
SeoTitle="About Us"
elseif not IsNumeric(request.QueryString("ID")) then
SeoTitle="Parameter error"
elseif conn.execute("select * from LiangJingCMS_About Where ViewFlag"&Language&" and  ID="&request.QueryString("ID")).eof then
SeoTitle="Parameter error"
else
set rs = server.createobject("adodb.recordset")
if request.QueryString("ID")<>"" then
sql="select * from LiangJingCMS_About where ViewFlag"&Language&" and ID="&request.QueryString("ID")
else
sql="select top 1 * from LiangJingCMS_About where ViewFlag"&Language
end if
rs.open sql,conn,1,1
SeoTitle=rs("AboutName"&Language)
rs.close
set rs=nothing
end if
headid=1
%>
<!--#include file="Head.Asp" -->
<DIV class=mian>
<DIV class=rightbar>
<H5><%=SeoTitle%></H5>
<DIV class=lefterbar style="word-break:break-all;word-wrap:break-word;">
<DIV id=d_con1>
<P>　　<%set rs = server.createobject("adodb.recordset")
  if request.QueryString("ID")<>"" then
sql="select * from LiangJingCMS_About where ViewFlag"&Language&" and ID="&request.QueryString("ID")
else
sql="select top 1 * from LiangJingCMS_About where ViewFlag"&Language
end if
  rs.open sql,conn,1,1
  if not rs.eof then
    if Getlen(rs("content"&Language&""))>36 then
     response.write rs("content"&Language&"")
   
    else
    response.write ""&rs("content"&Language&"")&""
    end if
  else
  response.write "No Company Profile"
  end if
  rs.close
  set rs=nothing%></P></DIV>
<DIV style="DISPLAY: none" id=d_con2>
<%set rs = server.createobject("adodb.recordset")
  sql="select * from LiangJingCMS_About where ViewFlag"&Language&" and ID=2"
  rs.open sql,conn,1,1
  if not rs.eof then
    if Getlen(rs("content"&Language&""))>36 then
     response.write rs("content"&Language&"")

    else
    response.write ""&rs("content"&Language&"")&""
    end if
  else
  response.write "No Company Profile"
  end if
  rs.close
  set rs=nothing%></DIV>
<DIV style="DISPLAY: none" id=d_con3>
<%set rs = server.createobject("adodb.recordset")
  sql="select * from LiangJingCMS_About where ViewFlag"&Language&" and ID=3"
  rs.open sql,conn,1,1
  if not rs.eof then
    if Getlen(rs("content"&Language&""))>36 then
     response.write rs("content"&Language&"")

    else
    response.write ""&rs("content"&Language&"")&""
    end if
  else
  response.write "No Company Profile"
  end if
  rs.close
  set rs=nothing%></DIV>
<DIV style="DISPLAY: none" id=d_con4>
<%set rs = server.createobject("adodb.recordset")
  sql="select * from LiangJingCMS_About where ViewFlag"&Language&" and ID=4"
  rs.open sql,conn,1,1
  if not rs.eof then
    if Getlen(rs("content"&Language&""))>36 then
    response.write rs("content"&Language&"")
   
    else
    response.write ""&rs("content"&Language&"")&""
    end if
  else
  response.write "No Company Profile"
  end if
  rs.close
  set rs=nothing%></DIV></DIV>
<DIV class=clearbox></DIV>

</DIV>
<DIV class=leftbar>
<DL>
  <DT>About Us
  <DD class=list_1>
 
    <UL>
      <%=WebMenua()%></UL>
    </DD>
  <DT>Product List 
  <DD>
  <UL>
    <%call CallFolderView()%></UL></DD>
	<DD>
	 <DT>Map Guide 
  <DD>
  <UL>
    <IFRAME height=270 src="map.asp" frameBorder=0 width=200 scrolling=no margin="0"></IFRAME></UL></DD></DL>
<DIV class=clearbox></DIV></DIV></DIV><!--页尾-->
<!--#include file="Foot.Asp"--><!-- end buttom#--> 
<%
'调用显示节点------------------------------
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 LiangJingCMS_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' style='margin-left:16px;line-height:25px'>")
  while not rs.eof
    ChildCount=conn.execute("select count(*) from LiangJingCMS_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 LiangJingCMS_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 videos(SortPath)
  dim rs,sql
  set rs = server.createobject("adodb.recordset")
  sql="select top 9 * from LiangJingCMS_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 LiangJingCMS_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 Products(SortPath,trs,tds)
  dim rs,sql,tr,td,ProductName,SmallPicPath
  set rs = server.createobject("adodb.recordset")
  sql="select top "&trs*tds&" * from LiangJingCMS_Products where ViewFlag"&Language&"  order by id desc"
  'sql="select top "&trs*tds&" * from LiangJingCMS_Products where ViewFlag"&Language&" and CommendFlag and Instr(SortPath,'"&SortPath&"')>0 order by id desc"
  'sql="select top "&trs*tds&" * from LiangJingCMS_Products where ViewFlag"&Language&" and NewFlag order by id desc"
  rs.open sql,conn,1,1
  if rs.eof then
    response.write "暂无相关信息"
  else
	for tr=1 to trs
	    Response.Write "  <tr>"&VbCrLf
        for td=1 to tds
	      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"))
			 Response.Write "<div class=""producti"">"
	      Response.Write "<div class=""img""><a href="""&AutoLink&"""><img src="""&SmallPicPath&""" alt="""&rs("ProductName"&Language)&""" width=""115"" height=""100"" border=""0"" /></a></div>"
		  Response.Write "<div class=""imgtitle""><a href="""&AutoLink&""" title="""&rs("ProductName"&Language)&""">"&ProductName&"</a></div>"
		  Response.Write "</div>" 
	      rs.movenext
		  if rs.eof then exit for
		next
		if rs.eof then exit for
	next
  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 LiangJingCMS_NewsSort where ViewFlag"&Language&" and ParentID="&ParentID&" order by ID asc"
  rs.open sql,conn,1,1
  if conn.execute("select ID from LiangJingCMS_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><a href="""&AutoLink&""" target=""_blank"" style=""margin-left:5px;"">"&rs("SortName"&Language)&"</a>"
	else
	  response.write string(i,"　")&"<Li><a href="""&AutoLink&""" target=""_blank"" style=""margin-left:5px;"">"&rs("SortName"&Language)&"</a>"
	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 LiangJingCMS_ProductSort where ViewFlag"&Language&" and ParentID="&ParentID&" order by ID asc"
  rs.open sql,conn,1,1
  if conn.execute("select ID from LiangJingCMS_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=""images/Tx_Ar3.gif"" style=""margin-left:5px;"" /> <a href="""&AutoLink&""" target=""_blank"" style=""margin-left:5px;"">"&rs("SortName"&Language)&"</a></li>"
	else
	  response.write string(i,"　")&"<Li>  <img src=""images/Tx_Ar3.gif"" style=""margin-left:5px;"" /> <a href="""&AutoLink&""" target=""_blank"" style=""margin-left:5px;"">"&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 LiangJingCMS_FriendLink where ViewFlag"&Language&" order by ID asc"
  rs.open sql,conn,1,1
  do while not rs.eof
  	
	  response.write "<Li>  <img src=""images/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="LiangJingCMS_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 LiangJingCMS_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><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
%>
<!--#include file="FocusLoad.asp" -->