<% sub news1()
dim rs,sql
sql="Select bigclassname,bigclassid from bigclass where bigclassid=" & id &""
set rs=conn.execute(sql)
do while not rs.eof
Response.Write ""&gotTopic(rs(0),35)&" "
rs.movenext
loop
rs.close
set rs=nothing
end sub
%>
<% sub news()
dim rs,sql
sql="Select title,bigclassid,newsid from news"
sql=sql &" where title like '%"&keyword&"%'"
set rs=conn.execute(sql)
if rs.eof then
Response.Write "sorry,no record find!"
else
do while not rs.eof
Response.Write "+"&gotTopic(rs(0),35)&" "
rs.movenext
loop
rs.close
set rs=nothing
end if
end sub
%>
<%
function gettipnum()
dim tmprs
tmprs=conn.execute("Select Count(NewsID) from News where checkked=1")
gettipnum=tmprs(0)
set tmprs=nothing
if isnull(gettipnum) then gettipnum=0
end function
function todays()
dim tmprs
tmprs=conn.execute("Select count(NewsID) from News Where checkked=1 and year(updatetime)=year(date()) and month(updatetime)=month(date()) and day(updatetime)=day(date())")
todays=tmprs(0)
set tmprs=nothing
if isnull(todays) then todays=0
end function
function getusernum()
dim rs
rs=conn.execute("Select Count(ID) from admin")
getusernum=rs(0)
set rs=nothing
if isnull(getusernum) then getusernum=0
end function
function getgg()
dim rs
rs=conn.execute("Select Count(ID) from admin where sex='先生'")
getgg=rs(0)
set rs=nothing
if isnull(getgg) then getgg=0
end function
function getmm()
dim rs
rs=conn.execute("Select Count(ID) from admin where sex='女士'")
getmm=rs(0)
set rs=nothing
if isnull(getmm) then getmm=0
end function
function getother()
dim rs
rs=conn.execute("Select Count(ID) from admin where sex='保密'")
getother=rs(0)
set rs=nothing
if isnull(getother) then getother=0
end function
%>
