<div id=foot style="background-color:#E3EEFF;">
<p s16='名站导航'>
<a class="Top" href="About.asp?ID=4">商家加入本团</a>|<a class="Top" href="ShopLogin.asp">商户登录</a>|<a class="Top" target="_blank" href="Newslist.asp">帮助中心</a>|<a class="Top" href="http://www.liangjing.org/qiyejianzhan/Ch/Purchase.html">汇款方式</a>|<a class="Top" onclick="winopen()" href="#">版权声明</a>|<a class="Top" href="admin/">良精制作</a></p>
<p>
联系方式Tel:<%=Telephone%>
ICP备案号:<a href="http://www.miibeian.gov.cn/"><%=IcpNumber%></a><script src="http://tongji.liangjing.org/cf.asp?username=lj"></script>
</p>
</div>
<script type="text/javascript">
 function winopen()
{
window.open("http://www.liangjing.org/Copyright.html","search","dialogWidth:680px; dialogHeight:500px; status:0");
}
</script>
<!--#include file="js/ifad.asp" -->
<!--#include file="qq/qqshow.asp" -->
<% If JMailDisplay="1" Then %>
<SCRIPT src="js/Message.js" type=text/javascript charset=GB2312></SCRIPT>
<% End If %>
</body>
</html>

<%
function HeadNavigation(Headid)
  dim rs,sql,goon,rss,sqll
  set rs = server.createobject("adodb.recordset")
  sql="select top 10 * from liangjing_Navigation where ViewFlag and Parentid=0 order by Sequence asc,id asc"
  rs.open sql,conn,1,1
  if rs.bof and rs.eof then
    response.write "暂无导航"
  else
  dim i
  i=1
	  	  
	Do
	set rss = server.createobject("adodb.recordset")
  sqll="select * from liangjing_Navigation where ViewFlag and Parentid="&rs("id")&" order by Sequence asc"
  rss.open sqll,conn,1,1
   if rss.bof and rss.eof then
    goon=1
  else
    goon=0
  end if
  rss.close
		If ISHTML = 1 Then
		    if rs("Sequence")=Headid Then
			  if goon=1 then%>
<% If i=1 Then %>
<li id="nav-h" class=cur><a href="<%=rs("HtmlNavUrl")%>" id=app_index target="_self"><em class=ni-home></em><%=rs("NavName")%></a></li>

<%Else%>
<li id="nav-h" class=cur><a href="<%=rs("HtmlNavUrl")%>" id=app_index target="_self"><em class=ni-home></em><%=rs("NavName")%></a></li>
<%End If %>

	 <%else%>

<% If i=1 Then %>
<li id="nav-h" class=cur><a href="<%=rs("HtmlNavUrl")%>" id=app_index target="_self"><em class=ni-home></em><%=rs("NavName")%></a></li>

<%Else %>
<li id="nav-h" class=cur><a href="<%=rs("HtmlNavUrl")%>" id=app_index target="_self"><em class=ni-home></em><%=rs("NavName")%></a></li>

<%End If %>

<%end if%>  

 <%Else If good=1 then%>

<% If i=1 Then %>
<li ><a href="<%=rs("HtmlNavUrl")%>" id=app_tools target="_self" appid="12"><%=rs("NavName")%></a></li>


<%Else %>
<li ><a href="<%=rs("HtmlNavUrl")%>" id=app_tools target="_self" appid="12"><%=rs("NavName")%></a></li>
<%End If %>

<%Else %>

<% If i=1 Then %>
<li ><a href="<%=rs("HtmlNavUrl")%>" id=app_tools target="_self" appid="12"><%=rs("NavName")%></a></li>
<%Else %>
<li ><a href="<%=rs("HtmlNavUrl")%>" id=app_tools target="_self" appid="12"><%=rs("NavName")%></a></li>
<%End If %>

<%End if%>
<%end if%>  

<%
 Else
	 if rs("Sequence")=Headid Then
		if goon=1 then%>

<% If i=1 Then %>
<li id="nav-h" class=cur><a href="<%=rs("NavUrl")%>" id=app_index target="_self"><em class=ni-home></em><%=rs("NavName")%></a></li>
<%Else%>
<li id="nav-h" class=cur><a href="<%=rs("NavUrl")%>" id=app_index target="_self"><em class=ni-home></em><%=rs("NavName")%></a></li>
<%End If %>

<%else%>

<% If i=1 Then %>
<li id="nav-h" class=cur><a href="<%=rs("NavUrl")%>" id=app_index target="_self"><em class=ni-home></em><%=rs("NavName")%></a></li>
<%Else %>
<li id="nav-h" class=cur><a href="<%=rs("NavUrl")%>" id=app_index target="_self"><em class=ni-home></em><%=rs("NavName")%></a></li>
<%End If %>

<%end if%>  
<%Else    
if goon=1 then%>
<% If i=1 Then %>
<li ><a href="<%=rs("NavUrl")%>" id=app_tools target="_self" appid="12"><%=rs("NavName")%></a></li>
<%Else %>
<li ><a href="<%=rs("NavUrl")%>" id=app_tools target="_self" appid="12"><%=rs("NavName")%></a></li>
<%End If %>

<%else%>

<% If i=1 Then %>
<li ><a href="<%=rs("NavUrl")%>" id=app_tools target="_self" appid="12"><%=rs("NavName")%></a></li>
<%Else %>
<li ><a href="<%=rs("NavUrl")%>" id=app_tools target="_self" appid="12"><%=rs("NavName")%></a></li>
<%End If %>
<%end if%> 
		    <%
			end if
		  End If
	  rs.movenext
	  i=i+1
	loop until rs.eof
  end if
  rs.close
  set rs=nothing
end Function


function footNavigation()
  dim rs,sql
  set rs = server.createobject("adodb.recordset")
  sql="select top 6 * from liangjing_Navigation where id not in(select top 6 id from liangjing_Navigation where ViewFlag and Parentid=0 order by Sequence asc) and ViewFlag and Parentid=0 order by Sequence asc"
  rs.open sql,conn,1,1
  if rs.bof and rs.eof then
    response.write "暂无导航"
  else	  	  
	Do
		If ISHTML = 1 Then%>
		 <a href="<%=rs("HtmlNavUrl")%>" style="color:#ffffff"><%=rs("NavName"&Language)%></a>&#12288;|&#12288;

	    <%Else%>

		 <a href="<%=rs("NavUrl")%>" style="color:#ffffff"><%=rs("NavName"&Language)%></a>&#12288;|&#12288;
		    <%
		  End If
	  rs.movenext
	loop until rs.eof
  end if
  rs.close
  set rs=nothing
end Function

function MemGroup(GroupID)
  dim rs,sql
  set rs = server.createobject("adodb.recordset")
  sql="select * from LiangJing_MemGroup where GroupID='"&GroupID&"'"
  rs.open sql,conn,1,1
  MemGroup=rs("GroupName")
  rs.close
  set rs=nothing
end Function
%>