mm.asp

功能强大的一个b/s工作站

<!--#include file="conn.asp"-->
<%
dim rs,tmprs,boy,str
 
function sexg()
 boy=1
     tmprs=conn.execute("Select count(*) from [user] where sex<>'"&boy&"'") 
     sexg=tmprs(0) 
 set tmprs=nothing 
end function
 set rs=conn.execute("select top 1 TopicNum,BbsNum,UserNum,lastUser from config")
str=" 论坛靓妹：<b>"&sexg()&"</b>"
response.write "document.write ("&Chr(34)&str&Chr(34)&");"
 rs.close%>