end.asp

一套非常不错的天然气有限公司

<div id=menuDiv style='Z-INDEX: 1000; VISIBILITY: hidden; WIDTH: 1px; POSITION: absolute; HEIGHT: 1px; BACKGROUND-COLOR: #9cc5f8'></div>
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0" class="tdbg">
  <tr class="nav_top"> 
    <td><div class="height6px"></div>
<div id="copy">
	Copyright 2006 www.ald.net.cn All Rights Reserved.<br>
	<a href=http://www.miibeian.gov.cn target=_blank>闽ICP备00000000号</a><br />
	<% call ShowSiteCountAll() %>
</div></td>
  </tr>
</table>
<%
'=================================================
'过程名：ShowSiteCountAll
'作  用：显示站点统计信息
'参  数：无
'=================================================
sub ShowSiteCountAll()
	dim sqlCount,rsCount
	Set rsCount= Server.CreateObject("ADODB.Recordset")
	sqlCount="select count("&db_User_ID&") from " & db_User_Table
	rsCount.open sqlCount,Conn_User,1,1
	rsCount.close
	set rsCount=nothing
	response.write "<script src='count/mystat.asp?style=all'></script>"
end sub

%>