<!--#include file="conn.asp"-->
<!--#include file="config.asp"-->
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<script language="JavaScript"> 
var msg="<%=title%>(<%=web%>)--欢迎你光临！专业的网络信息平台，网本地供求信息，展示企业风采，集百家商盟，市场批发中心，事业的助手，成功的平台！" 
var delay=200 
function scrollStatus() { 
window.status=msg 
msg=msg.substring(1,msg.length)+msg.substring(0,1) 
timeID=setTimeout("scrollStatus()",delay) 

} 
</script> 
</HEAD>
<STYLE type=text/css>
TD {FONT-SIZE: 12px; COLOR: #000000; FONT-FAMILY: 宋体}
a{ color: #000000;}
A:link {TEXT-DECORATION: none}
A:visited {TEXT-DECORATION: none}
A:active {TEXT-DECORATION: none}
A:hover {TEXT-DECORATION: underline}
</STYLE>
<BODY onload="scrollStatus()" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<TABLE id=table1 style="BORDER-COLLAPSE: collapse" width=663 
border=0>
  <TBODY>
  <TR><TD width=77 align="center">
	<p><strong><font color="#3399FF">数据更新</font></strong></TD>
    
    <TD>
      <DIV id=so1>
<%								
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

function getnum9()
dim tmprs9
tmprs9=conn.execute("Select Count(id) from [FOX_mp]")
getnum9=tmprs9(0)
set tmprs9=nothing
if isnull(getnum9) then getnum9=0
end function

function getnum10()
dim tmprs10
tmprs10=conn.execute("Select Count(id) from [FOX_xiao]")
getnum10=tmprs10(0)
set tmprs10=nothing
if isnull(getnum10) then getnum10=0
end function

function getnum11()
dim tmprs11
tmprs11=conn.execute("Select Count(id) from [FOX_fang]")
getnum11=tmprs11(0)
set tmprs11=nothing
if isnull(getnum11) then getnum11=0
end function

function getnum12()
dim tmprs12
tmprs12=conn.execute("Select Count(id) from [FOX_dm]")
getnum12=tmprs12(0)
set tmprs12=nothing
if isnull(getnum12) then getnum12=0
end function
%>	
<%
function todays1()
dim tmrs1
tmrs1=conn.execute("Select count(id) from FOX_xinxi Where year(fbsj)=year(date()) and month(fbsj)=month(date()) and day(fbsj)=day(date())")
todays1=tmrs1(0)
set tmrs1=nothing
if isnull(todays1) then todays1=0
end function

function todays2()
dim tmrs2
tmrs2=conn.execute("Select count(id) from FOX_dian Where year(fbsj)=year(date()) and month(fbsj)=month(date()) and day(fbsj)=day(date())")
todays2=tmrs2(0)
set tmrs2=nothing
if isnull(todays2) then todays2=0
end function

function todays3()
dim tmrs3
tmrs3=conn.execute("Select count(id) from FOX_zixun Where year(fbsj)=year(date()) and month(fbsj)=month(date()) and day(fbsj)=day(date())")
todays3=tmrs3(0)
set tmrs3=nothing
if isnull(todays3) then todays3=0
end function

function todays4()
dim tmrs4
tmrs4=conn.execute("Select count(id) from FOX_shop Where year(fbsj)=year(date()) and month(fbsj)=month(date()) and day(fbsj)=day(date())")
todays4=tmrs4(0)
set tmrs4=nothing
if isnull(todays4) then todays4=0
end function

function todays5()
dim tmrs5
tmrs5=conn.execute("Select count(id) from FOX_basket Where year(fbsj)=year(date()) and month(fbsj)=month(date()) and day(fbsj)=day(date())")
todays5=tmrs5(0)
set tmrs5=nothing
if isnull(todays5) then todays5=0
end function

function todays6()
dim tmrs6
tmrs6=conn.execute("Select count(id) from [FOX_user] Where year(zcsj)=year(date()) and month(zcsj)=month(date()) and day(zcsj)=day(date())")
todays6=tmrs6(0)
set tmrs6=nothing
if isnull(todays6) then todays6=0
end function

function todays7()
dim tmrs7
tmrs7=conn.execute("Select count(id) from FOX_meng Where year(fbsj)=year(date()) and month(fbsj)=month(date()) and day(fbsj)=day(date())")
todays7=tmrs7(0)
set tmrs7=nothing
if isnull(todays7) then todays7=0
end function

function todays8()
dim tmrs8
tmrs8=conn.execute("Select count(id) from FOX_xiao Where year(adddate)=year(date()) and month(adddate)=month(date()) and day(adddate)=day(date())")
todays8=tmrs8(0)
set tmrs8=nothing
if isnull(todays8) then todays8=0
end function

function todays9()
dim tmrs9
tmrs9=conn.execute("Select count(id) from FOX_fang Where year(fangfbsj)=year(date()) and month(fangfbsj)=month(date()) and day(fangfbsj)=day(date())")
todays9=tmrs9(0)
set tmrs9=nothing
if isnull(todays9) then todays9=0
end function
%>                              
<%dim zong
zong=todays1+todays2+todays3+todays4+todays5+todays6+todays7+todays8+todays9%>

<table border="0" width="583" id="table1" cellspacing="0" cellpadding="0">
								<tr>
									<td align="left" width="0" height="20">
									共有供求信息： <b><font color="#FF3300"> <%=getnum1()%></font></b> 个；
									广告张贴： <b><font color="#FF3300"> <%=getnum2()%></font></b> 个；
									行业资讯： <b><font color="#FF3300"> <%=getnum3()%></font></b> 篇；
									市场联盟： <b><font color="#FF3300"> <%=getnum8()%></font></b> 家；</td></tr>
</table>
        
      <TABLE width=583 cellSpacing=0 cellPadding=0 border=0>
        <TBODY>
          <tr> <td height=20>
          
          网上店铺：<b> <font color="#FF3300"> <%=getnum5()%></font> </b>家；
          共有商品：<b> <font color="#FF3300"> <%=getnum6()%></font> </b>个；
          商品订单：<b> <font color="#FF3300"> <%=getnum7()%></font> </b>笔；
          DM直投：<b> <font color="#FF3300"> <%=getnum12()%></font> </b>次；</td> </tr>
          <tr> <td height=20>
          百业联盟： <b><font color="#FF3300"> <%=getnum10()%></font></b> 家；
          魅力名片：<b> <font color="#FF3300"> <%=getnum9()%></font> </b>张；
          房产频道信息：<b> <font color="#FF3300"> <%=getnum11()%></font> </b>条；</td> </tr>
        </TBODY>
        </table>
        
      <TABLE width=583 cellSpacing=0 cellPadding=0 border=0>
        <TBODY>
          <tr> <td height=20>会员加入情况：新进会员  → </font>
          <%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>"
%>  → 为本站第 <%=getnum4()%> 位会员 今日数据 </font>
			<font color="#FF0000"> 刷新</font> ＞</font><font color="#FF0000"><%if zong=0 then%><img border="0" src="<%=css%>lanhu.gif"><img border="0" src="<%=css%>lanhu.gif"><img border="0" src="<%=css%>lanhu.gif"><%else%><%=zong*zong%><%end if%> 次</font></font></td>		 </tr>
         </TBODY></TABLE></DIV>
      <DIV id=so2 style="Z-INDEX: 1; VISIBILITY: hidden; POSITION: absolute"></DIV></TD></TR></TBODY></TABLE>
<SCRIPT>
marqueesHeight=20;
stopscroll=false;
document.all.so1.scrollTop=0;
with(so1){
style.width=580;
style.height=marqueesHeight;
style.overflowX='visible';
style.overflowY='hidden';
noWrap=true;
onmouseover=new Function('stopscroll=true');
onmouseout=new Function('stopscroll=false');
}
preTop=0; currentTop=0; stoptime=0;
function init_srolltext(){
document.all.so2.innerHTML='';
document.all.so2.innerHTML+=document.all.so1.innerHTML;
document.all.so1.innerHTML=document.all.so2.innerHTML+document.all.so2.innerHTML;
setInterval('scrollUp()',1);
}
function scrollUp(){
if(stopscroll==true) return;
currentTop+=1;
if(currentTop==21)
{
stoptime+=1;
currentTop-=1;
if(stoptime==150)
{
currentTop=0;
stoptime=0;
}
}
else {
preTop=document.all.so1.scrollTop;
document.all.so1.scrollTop+=1;
if(preTop==document.all.so1.scrollTop){
document.all.so1.scrollTop=document.all.so2.offsetHeight-marqueesHeight;
document.all.so1.scrollTop+=1;
}
}
}
setTimeout('init_srolltext()', 3000)
</SCRIPT>
</BODY><!--#include file="hack.asp"-->