|
<%
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
%>
<%dim zong
zong=todays1+todays2+todays3+todays4+todays5+todays6+todays7+todays8%>
| 