foot.asp

html生成静态页的小程序

<table width="950" border="0" align="center" cellpadding="0" cellspacing="0" background="images/index5_79.gif">
  <tr>
    <td height="87" align="center" style="line-height:210%;"><%
Sql="select ID,ClassID from Ok3w_Article where ChannelID=2 and IsPass=1 order by ClassID,ID"	
Rs.Open Sql,Conn,0,1
Do While Not Rs.Eof
%><a href="about/<%=Rs("ID")%>.html"><%=GetClassName(Rs("ClassID"))%></a> | <%
Rs.MoveNext
Loop
Rs.Close%><a href="http://www.glzy8.com/ok3w/guest.asp" target="_blank">有事请留言</a> | <a href="http://www.miibeian.gov.cn/" target="_blank"><%=SysSiteTCPIP%></a><br />
      联系邮箱:<strong><%=SysSiteEmail%></strong> 在线QQ:<strong><%=SysSiteQQ%></strong><br />
      Copyright <%=Year(Date())%>, 版权所有 <%=Replace(SysSiteUrl,"http://","")%>.</td>
  </tr>
</table>
<%Call Ok3w_Site_Tongji()%>
<%
Set Rs = Nothing
Call CloseConn()
%>