foot.asp

一个简单的小程序

<div class="globalBody"> 
  <table class="tableborder" width="1002" align="center" border="0" cellpadding="0" cellspacing="0">
    <tbody><tr>
      <td colspan="2" class="pageBottom" align="center">
        <a class="Top" href="#">联系我们</a> | <a class="Top" href="#">用户案例</a> | <a class="Top" target="_blank" href="#">帮助中心</a> | <a class="Top" href="#">汇款方式</a> | <a class="Top" onclick="winopen()" href="#">版权声明</a> | <a class="Top" href="http://www.liangjing.org/">良精制作</a> | <a class="Top" href="../admin/">后台登录</a>     </td>
    </tr>
    <tr>
      <td class="pageFooter" valign="middle" align="center">&#169; 版权所有：<% =ComName %>     校址：<% =Address %> 网站维护：<% =ComName %>信息中心<br>邮编：<% =ZipCode %>          电话：<% =Telephone %>        网站备案号：<a href="http://www.miibeian.gov.cn/"><%=IcpNumber%></a>
      <script language="JavaScript" type="text/javascript" src="/adfile/footer.js"></script>      </td>
      <td class="pageFooter" valign="middle" align="center"><a href="http://www.liangjing.org/zh/HTML/Productlist_1.html" target="_blank"><img src="newimages/foot_logo.jpg" width="88" height="31" border="0"></a></td>
    </tr>
  </tbody></table>
  <script type="text/javascript">
 function winopen()
{
window.open("http://www.liangjing.org/Copyright.html","search","dialogWidth:680px; dialogHeight:500px; status:0");
}
</script>
</div>


</body>
</html>
<%
function HeadNavigation()
  dim rs,sql
  set rs = server.createobject("adodb.recordset")
  sql="select * 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 "暂无导航"
  else
	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
%>