%Option Explicit%><%
dim connpic
dim rs_user,rs_today,rs_lar,rs_lar1,rs_lar2,rs_new,rs_board,rs_boy,rs_girl
dim sql,records,today_records,rs_pic
dim i,j,k
if isempty(session("user_id")) then session("user_id")=1
'取得入会人数 132
Set rs_user = Server.CreateObject("ADODB.Recordset")
rs_user.open "user_reg",conn,1,1
records=rs_user.recordcount
rs_user.close:set rs_user=nothing
'取得当天入会人数
Set rs_today = Server.CreateObject("ADODB.Recordset")
rs_today.open "select * from user_reg where date=#" & cdate(date) & "#" ,conn,1,1
today_records=rs_today.recordcount
rs_today.close:set rs_today=nothing
'取得人气最高的网友(10位)
Set rs_lar2 = Server.CreateObject("ADODB.Recordset")
rs_lar2.open "select * from larchives where sex like '" & "男" & "' order by renqi desc",conn,1,1
'取得人气最高的网友(10位)
Set rs_lar1 = Server.CreateObject("ADODB.Recordset")
rs_lar1.open "select * from larchives where sex like '" & "女" & "' order by renqi desc",conn,1,1
'取得人气最高的网友(10位)
Set rs_lar = Server.CreateObject("ADODB.Recordset")
rs_lar.open "select * from larchives order by renqi desc",conn,1,1
'取得人气最高的男主角
Set rs_boy = Server.CreateObject("ADODB.Recordset")
sql="select * from larchives where photo>0 and sex like '" & "男" & "' order by renqi desc"
rs_boy.open sql,conn,1,1
'取得人气最高的女主角
Set rs_girl = Server.CreateObject("ADODB.Recordset")
sql="select * from larchives where photo>0 and sex like '" & "女" & "' order by renqi desc"
rs_girl.open sql,conn,1,1
'取得最新加入的网友(10位)
Set rs_new = Server.CreateObject("ADODB.Recordset")
rs_new.open "select * from larchives order by userid desc",conn,1,1
'取得寻友启事
Set rs_board = Server.CreateObject("ADODB.Recordset")
rs_board.open "select * from callboard order by id desc",conn,1,1
%>
“八角塘”江西理工大学校友社区
<%
if session("user_id")=1 then
response.write "" & chr(13)
end if
%>