foot.asp

来自「生成html的ASP企业站点,可以进行二次开发的」· ASP 代码 · 共 120 行

<DIV class=footer>
<UL class=copyright>
  <LI>Design：<%=ComName%> © 2003- 2008<BR><A title="About Us" 
  href="Productlist.asp"><IMG border=0 
  src="images/bizideacopy.gif"></A> </LI></UL>
<UL class=footer_link>
&nbsp;<%=footNavigation()%>
  <LI 
  style="MARGIN-TOP: 0px; DISPLAY: block; COLOR: #666666; CLEAR: left">Telephone:<%=Telephone%>&nbsp;&nbsp;&nbsp;Address:<%=Address%>&nbsp;&nbsp;&nbsp;<%=IcpNumber%>
  </LI></UL>
<UL></UL></DIV>
<SCRIPT type=text/javascript>
function ResumeError() { 
return true; 
} 
window.onerror = ResumeError; 
		function doClick_down(o,s1,s2,c1,c2){
	 o.className="current";
	 var j;
	 var id;
	 var e;
	 for(var i=1;i<=5;i++){
	   id =s1+i;
	   j = document.getElementById(id);
	   e = document.getElementById(s2+i);
	   if(id != o.id){
	   	 j.className=c1;
	   	 e.style.display = "none";
	   }else{
	    j.className=c2;
		e.style.display = "block";
	   }
	 }
	 }
	 
</SCRIPT>
<script language=Javascript src="images/j2f.Js"></script>
</DIV></BODY></HTML>
<%
function HeadNavigation()
  dim rs,sql
  set rs = server.createobject("adodb.recordset")
  sql="select top 6 * from LiangJingCMS_Navigation where ViewFlag"&Language&" order by Sequence asc"
  rs.open sql,conn,1,1
  if rs.bof and rs.eof then
    response.write "No navigation"
  else
  'If Headid<>0 Then
    'If ISHTML = 1 Then
		  'response.write "<a class=""tt"" href=""index.html"">首页</a>"
    'else	
          'response.write "<a class=""tt"" href=""index.asp""></a>"	
    'end if		  	  
  'else	
   ' If ISHTML = 1 Then
		'  response.write "<a class=""t"" href=""index.html""><font color=""#FFFFFF"">首页</font></a>"
   ' else	
    '      response.write "<a class=""t"" href=""index.asp""><font color=""#FFFFFF"">首页</font></a>"
    'end if  
  'end if		  	  
	Do
		If ISHTML = 1 Then%>
		  <li><a class="tb" href="<%=rs("HtmlNavUrl")%>"><%=rs("NavName"&Language)%></a></li>
	    <%Else%>
		  <li><a class="tb" href="<%=rs("NavUrl")%>"><%=rs("NavName"&Language)%></a></li>
		    <%
		  End If
	  rs.movenext
	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 * from LiangJingCMS_Navigation where id not in(select top 6 id from LiangJingCMS_Navigation where ViewFlag"&Language&" order by Sequence asc) and ViewFlag"&Language&" order by Sequence asc"
  rs.open sql,conn,1,1
  if rs.bof and rs.eof then
    response.write "No navigation"
  else
  'If Headid<>0 Then
    'If ISHTML = 1 Then
		  'response.write "<a class=""tt"" href=""index.html"">首页</a>"
    'else	
          'response.write "<a class=""tt"" href=""index.asp""></a>"	
    'end if		  	  
  'else	
   ' If ISHTML = 1 Then
		'  response.write "<a class=""t"" href=""index.html""><font color=""#FFFFFF"">首页</font></a>"
   ' else	
    '      response.write "<a class=""t"" href=""index.asp""><font color=""#FFFFFF"">首页</font></a>"
    'end if  
  'end if		  	  
	Do
		If ISHTML = 1 Then%>
		  <a href="<%=rs("HtmlNavUrl")%>"><%=rs("NavName"&Language)%></a> |
	    <%Else%>
          <a href="<%=rs("NavUrl")%>"><%=rs("NavName"&Language)%></a> | 
		    <%
		  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 LiangJingCMS_MemGroup where GroupID='"&GroupID&"'"
  rs.open sql,conn,1,1
  MemGroup=rs("GroupName"&Language)
  rs.close
  set rs=nothing
end Function
%>