number.asp

来自「应用于高等院校党团思想教育」· ASP 代码 · 共 52 行

<!-- #include file = "conn_bbs.asp" -->
<!-- #include file = "conn_user.asp" -->
<%

Function GetTipNum()
dim tmprs
    tmprs=Conn_BBS.execute("Select Count(ID) As Num from bbs")
    gettipnum=tmprs("Num")
	set tmprs=nothing
	if isnull(gettipnum) then gettipnum=0
End Function
       
Function Todays()
dim tmprs
    tmprs=Conn_BBS.execute("Select count(*) As lasttime from bbs Where time>=date()")
    todays=tmprs("lasttime")
	set tmprs=nothing
	if isnull(todays) then todays=0
End Function
       
Function UserOnline()
dim tmprs
    tmprs=Conn_User.execute("Select count(*) As uonline from users where Online=True")
    useronline=tmprs("uonline")
	set tmprs=nothing
	if isnull(useronline) then useronline=0
End Function
       
Function allusers()
dim tmprs
    tmprs=Conn_User.execute("Select count(*) As alls from users")
    allusers=tmprs("alls")
	set tmprs=nothing
	if isnull(allusers) then allusers=0
End Function
       
Function AllBUsers()
dim tmprs
    tmprs=Conn_User.execute("Select count(*) As allb from users where sex=0")
    allbusers=tmprs("allb")
	set tmprs=nothing
	if isnull(allbusers) then allbusers=0
End Function

Function AllGUsers()
dim tmprs
    tmprs=userconn.execute("Select count(*) As allg from users where sex=1")
    allgusers=tmprs("allg")
	set tmprs=nothing
	if isnull(allgusers) then allgusers=0
End Function
%>