<%set gg= conn.execute("select tp,url,lx from tp where lbid=12 and zt=0 order by id desc") if not gg.eof then if gg("lx")<>0 then Response.Write("") else Response.Write("") end if end if gg.close set gg=nothing%>

最有人气索女 <%set rs = conn.execute("select top 10 id,huiyuan,nyr,xl from love where xb='女' and zt=1 order by rq desc") do while not rs.eof Response.Write "" rs.movenext loop rs.close set rs=nothing%>   "&rs("huiyuan")&" "&datediff("yyyy",rs("nyr"),date())+1&"岁，"&rs("xl")&" 最有人气型男 <%set rs = conn.execute("select top 10 id,huiyuan,nyr,xl from love where xb='男' and zt=1 order by rq desc") do while not rs.eof Response.Write "" rs.movenext loop rs.close set rs=nothing%>   "&rs("huiyuan")&" "&datediff("yyyy",rs("nyr"),date())+1&"岁，"&rs("xl")&"   寻找另一颗心： 岁到 岁， 居住地 所有地区 北京 上海 广州 深圳 天津 重庆 河北 山西 内蒙古 辽宁 吉林 黑龙江 江苏 浙江 安徽 福建 江西 山东 河南 湖北 湖南 广东 广西 海南 四川 贵州 云南 西藏 陕西 甘肃 宁夏 青海 新疆 台湾 香港 澳门 的 女 士 男 士     最新加入索女 +more     最新加入型男 +more <%set rs = conn.execute("select top 10 id,huiyuan,nyr,xl,js,yq from love where xb='女' and zt=1 order by id desc") do while not rs.eof Response.Write "   "&rs("huiyuan")&"女士："&datediff("yyyy",rs("nyr"),date())+1&"岁，"&rs("xl")&"，"&left(rs("js"),23)&"，"&left(rs("yq"),23)&" " rs.movenext loop rs.close set rs=nothing%>   <%set rs = conn.execute("select top 10 id,huiyuan,nyr,xl,js,yq from love where xb='男' and zt=1 order by id desc") do while not rs.eof Response.Write "   "&rs("huiyuan")&"先生："&datediff("yyyy",rs("nyr"),date())+1&"岁，"&rs("xl")&"，"&left(rs("js"),23)&"，"&left(rs("yq"),23)&" " rs.movenext loop rs.close set rs=nothing conn.close:set conn=nothing%> 首　页