<%								
function getnum1()
dim tmprs1
tmprs1=conn.execute("Select Count(id) from FOX_xinxi where ts=0")
getnum1=tmprs1(0)
set tmprs1=nothing
if isnull(getnum1) then getnum1=0
end function

function getnum2()
dim tmprs2
tmprs2=conn.execute("Select Count(id) from FOX_xinxi where ts=1")
getnum2=tmprs2(0)
set tmprs2=nothing
if isnull(getnum2) then getnum2=0
end function

function getnum3()
dim tmprs3
tmprs3=conn.execute("Select Count(id) from FOX_zixun")
getnum3=tmprs3(0)
set tmprs3=nothing
if isnull(getnum3) then getnum3=0
end function

function getnum4()
dim tmprs4
tmprs4=conn.execute("Select Count(id) from [FOX_user]")
getnum4=tmprs4(0)
set tmprs4=nothing
if isnull(getnum4) then getnum4=0
end function

function getnum5()
dim tmprs5
tmprs5=conn.execute("Select Count(id) from [FOX_dian]")
getnum5=tmprs5(0)
set tmprs5=nothing
if isnull(getnum5) then getnum5=0
end function

function getnum6()
dim tmprs6
tmprs6=conn.execute("Select Count(id) from [FOX_shop]")
getnum6=tmprs6(0)
set tmprs6=nothing
if isnull(getnum6) then getnum6=0
end function

function getnum7()
dim tmprs7
tmprs7=conn.execute("Select Count(id) from [FOX_basket]")
getnum7=tmprs7(0)
set tmprs7=nothing
if isnull(getnum7) then getnum7=0
end function

function getnum8()
dim tmprs8
tmprs8=conn.execute("Select Count(id) from [FOX_meng]")
getnum8=tmprs8(0)
set tmprs8=nothing
if isnull(getnum8) then getnum8=0
end function
%>	
<table border="0" width="100%" id="table1" cellspacing="0" cellpadding="0">
								<tr>
									<td align="right">
									<p align="left"><font color="#FFFFFF">本站共有信息</font><b><font color="#FFFFFF"><%=getnum1()%></font></b><font color="#FFFFFF">个；广告</font><b><font color="#FFFFFF"><%=getnum2()%></font></b><font color="#FFFFFF">个；资讯</font><b><font color="#FFFFFF"><%=getnum3()%></font></b><font color="#FFFFFF">篇；店盟</font><b><font color="#FFFFFF"><%=getnum5()+getnum8()%></font></b><font color="#FFFFFF">家；商品</font><b><font color="#FFFFFF"><%=getnum6()%></font></b><font color="#FFFFFF">个；订单</font><b><font color="#FFFFFF"><%=getnum7()%></font></b><font color="#FFFFFF">笔 
									| <%dim newusername,username0
newusername=Conn.Execute("Select lxrname From [FOX_USER] order by ID Desc")(0)
username0=Conn.Execute("Select username From [FOX_USER] order by ID Desc")(0)
response.write "新进会员：<b>"&newusername&"</b>"
%>  →为本站第</font><b><font color="#FFFFFF"><%=getnum4()%></font></b><font color="#FFFFFF">位</font></td></tr>
</table></body></html>