<% end if %>
<%if isempty(us_id) or us_id=1 then
'没注册的用户
%>
社区会员登陆
<% end if %>
搜索网友
最热门的投票
<% Dim str
sql = "Select Top 1 id,Topic,count From t_Vote Where ParentID=0 Order By count DESC"
Set rsQuestion = Server.CreateObject("ADODB.RecordSet")
Set rsAnswer= Server.CreateObject("ADODB.RecordSet")
rsQuestion.Open sql,conn,1,1
If Not rsQuestion.EOF Then
str="
"
Else
str="
目前还没有任何投票"
End If
Response.write str
' rsAnswer.close
rsQuestion.close
set rsAnswer=nothing
set rsQuestion=nothing
%>
星座与运程
<%
connstrz="DBQ="+server.mappath("book/story.asp")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn3=server.createobject("ADODB.CONNECTION")
conn3.open connstrz
sql="select top 8 articleid,title from learning where typeid=10 order by articleid desc"
Set rsz= Server.CreateObject("ADODB.Recordset")
rsz.open sql,conn3,1,1
if rsz.eof then
response.write "
<%
sql="select top 8 articleid,title from learning where typeid=9 order by articleid desc"
Set rsz= Server.CreateObject("ADODB.Recordset")
rsz.open sql,conn3,1,1
if rsz.eof then
response.write "
<%
Set rs_links = Server.CreateObject("ADODB.Recordset")
sql="select top 8 sitename,siteurl from links order by id asc"
rs_links.open sql,conn,1,1
if rs_links.eof and rs_links.bof then%>
暂时没有链接
<%else%>
<%
'取得人气最高的女主角
Set rs_girl = Server.CreateObject("ADODB.Recordset")
sql="select top 2 user_id,netname,age,home from larchives where sex like '" & "女" & "' and photo > 0 order by photo desc"
rs_girl.open sql,conn,1,1
if rs_girl.eof and rs_girl.bof then%>
没有，暂时空缺！
<%else
Set rs_pic = Server.CreateObject("ADODB.Recordset")
sql="select id from pic where user_id=" & rs_girl("user_id") & " and index = true"
rs_pic.open sql,connpic,1,1
if rs_pic.eof and rs_pic.bof then
pics=1
else
pics=rs_pic("id")
end if
%>
">
<%rs_girl.close:set rs_girl=nothing%>
<%end if%>
<%
'取得人气最高的男主角
Set rs_boy = Server.CreateObject("ADODB.Recordset")
sql="select top 2 user_id,netname,age,home from larchives where sex like '" & "男" & "' and photo > 0 order by photo desc"
rs_boy.open sql,conn,1,1
if rs_boy.eof and rs_boy.bof then%>
没有，暂时空缺！
<%else
Set rs_pic = Server.CreateObject("ADODB.Recordset")
sql="select id from pic where user_id=" & rs_boy("user_id") & " and index = true"
rs_pic.open sql,connpic,1,1
if rs_pic.eof and rs_pic.bof then
pics=1
else
pics=rs_pic("id")
end if
%>
">
<%
rs_boy.close:set rs_boy=nothing
end if%>
<%
'取得人气最高的索女
Set star_girl = Server.CreateObject("ADODB.Recordset")
sql="select top 1 user_id,netname,age,home from larchives where shenqing=true and sex='女' and photo>0 Order by piaoshu desc"
star_girl.open sql,conn,1,1
if star_girl.eof and star_girl.bof then%>
没有，暂时空缺！
<%else
Set rs_pic = Server.CreateObject("ADODB.Recordset")
sql="select id from pic where user_id=" & star_girl("user_id") & " and index = true"
rs_pic.open sql,connpic,1,1
if rs_pic.eof and rs_pic.bof then
pics=1
else
pics=rs_pic("id")
end if
%>
">
<%star_girl.close:set star_girl=nothing%>
<%end if%>
<%
'取得人气最高的型男
Set star_boy = Server.CreateObject("ADODB.Recordset")
sql="select top 1 user_id,netname,age,home from larchives where shenqing=true and sex='男' and photo>0 Order by piaoshu desc"
star_boy.open sql,conn,1,1
if star_boy.eof and star_boy.bof then%>
没有，暂时空缺！
<%else
Set rs_pic = Server.CreateObject("ADODB.Recordset")
sql="select id from pic where user_id=" & star_boy("user_id") & " and index = true"
rs_pic.open sql,connpic,1,1
if rs_pic.eof and rs_pic.bof then
pics=1
else
pics=rs_pic("id")
end if
%>
">
<%
rs_pic.close:set rs_pic=nothing
star_boy.close:set star_boy=nothing
end if%>
名字
<%Set rs_l = Server.CreateObject("ADODB.Recordset")
rs_l.open "select top 10 user_id,netname,age,shengao,home,education,marry,name,sex from larchives order by lar_id desc",conn,1,1%>
<%
'取得人气最高的网友（12位）
Set rs_lar = Server.CreateObject("ADODB.Recordset")
rs_lar.open "select top 12 * from larchives order by click desc",conn,1,1
%>
<%i=0%>
<%do while not(rs_lar.eof)
if i mod 2 =0 then
%>
<%
dim conn2,rs2
set conn2=server.createobject("adodb.connection")
DBPath = Server.MapPath("article/txt97.asp")
conn2.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
sql="SELECT top 7 articleid,title,name,user_id,dateandtime FROM learning ORDER BY hits DESC"
set rs2=server.createobject("adodb.recordset")
rs2.open sql,conn2,1,1
if rs2.eof and rs2.bof then
response.write "
<%
sql="SELECT top 7 articleid,title,name,user_id,dateandtime FROM learning ORDER BY articleid DESC"
set rs2=server.createobject("adodb.recordset")
rs2.open sql,conn2,1,1
if rs2.eof and rs2.bof then
response.write "
<%
sql="SELECT top 7 articleid,title,dateandtime FROM learning where typeid=1 ORDER BY hits DESC"
set rsz=server.createobject("adodb.recordset")
rsz.open sql,conn3,1,1
if rsz.eof and rsz.bof then
response.write "
<%
sql="SELECT top 7 articleid,title,dateandtime FROM learning where typeid=12 ORDER BY articleid DESC"
set rsz=server.createobject("adodb.recordset")
rsz.open sql,conn3,1,1
if rsz.eof and rsz.bof then
response.write "
<%
Set Rs = Server.CreateObject("ADODB.Recordset")
sql = "Select TOP 8 * From meeting Order By id Desc"
Rs.Open sql,conn,1,1
i=0
DO While Not Rs.EOF
i=i+1
%>
<% if i mod 2 =0 then %>
