相亲会征婚者资料一览表

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <% if session("entry")<>"yes" then response.write "" response.End() end if %> <% dim sql_where sql_where="" bianhao=trim(request.Form("bianhao")) xingbie=request.Form("xingbie") nianling=request.Form("nianling") xueli=request.Form("xueli") hunyin=request.Form("hunyin") shengao=Cint(request.Form("shengao")) yuexin=Cint(request.Form("yuexin")) zhufang=request.form("zhufang") if bianhao<>"" then if not isnumeric(bianhao) then response.write "" set conn_webtemp=nothing response.end() end if sql_where=sql_where&" where bianhao="&bianhao else if xingbie<>"" then sql_where=" where xingbie='"&xingbie&"'" select case nianling case "1" sql_where=sql_where&" and (2006 - SUBSTRING(shengri, 1, 4) < = 20)" case "2" sql_where=sql_where&" and (2006 - SUBSTRING(shengri, 1, 4) > 20) AND (2006 - SUBSTRING(shengri, 1, 4) < = 30)" case "3" sql_where=sql_where&" and (2006 - SUBSTRING(shengri, 1, 4) > 30) AND (2006 - SUBSTRING(shengri, 1, 4) < = 40)" case "4" sql_where=sql_where&" and (2006 - SUBSTRING(shengri, 1, 4) > 40)" end select if xueli<>"" then sql_where=sql_where&" and xueli='"&xueli&"'" if hunyin<>"" then sql_where=sql_where&" and hunyin='"&hunyin&"'" select case shengao case 1 sql_where=sql_where&" and shengao<=65" case 2 sql_where=sql_where&" and (shengao>65 and shengao<=70)" case 3 sql_where=sql_where&" and (shengao>71 and shengao<=80)" case 4 sql_where=sql_where&" and shengao>=81" end select if yuexin>0 then sql_where=sql_where&" and yuexin="&yuexin end if if zhufang<>"" then sql_where=sql_where&" and zhufang='"&zhufang&"'" set rs=server.CreateObject("ADODB.recordset") if sql_where="" then pprc=50 '每页显示记录数 totalrc=conn_webtemp.execute("select count(id) from [2006xiangqin]")(0) '总记录数 totalpc=Cint(totalrc/pprc)+1 '总页数 page=request("page") if page="" or page<1 then page=1 if page=1 then sql="select top "&pprc&" * from [2006xiangqin] where active='Y' order by bianhao" else sql="SELECT TOP "&pprc&" * FROM [2006xiangqin] WHERE (bianhao > (SELECT MAX(bianhao) AS Expr1 FROM (SELECT TOP "&(page-1) * pprc&" bianhao FROM [2006xiangqin] where active='Y' ORDER BY bianhao) AS t)) and active='Y' ORDER BY bianhao" end if else sql="select * from [2006xiangqin] " sql=sql&sql_where sql=sql&" and active='Y' order by bianhao" end if 'response.write sql rs.open sql,conn_webtemp,1,1 if sql_where<>"" then totalrc=rs.recordcount %> 相亲会征婚者资料一览表

首页| 新闻| 社区| 房产| 汽车| 理财| 择业| 考试| 烟台| 政法| 旅游| 文娱| 游戏| 分类信息| 网上民声

编号

<% i=0 do while not rs.eof i=i+1 %> "> <% rs.movenext loop rs.close() %>

编号

性别

出生年月

婚姻状况

学历

身高

月薪

住房

详细资料

<%=rs("bianhao")%>

<%=rs("xingbie")%>

<% shengri=split(rs("shengri"),"-") response.write shengri(0)&"年" if shengri(1)<>"" then response.write shengri(1)&"月" %>

<%=rs("hunyin")%>

<%if rs("xueli")<>"缺省" then response.write rs("xueli")%>

<%="1米"&rs("shengao")%>

<% select case rs("yuexin") case 1 response.write "1000元以下" case 2 response.write "1000~2000元" case 3 response.write "2000~3000元" case 4 response.write "3000元以上" end select %>

<%=rs("zhufang")%>

">" target="_blank" class="red12">查看资料

<% if sql_where="" then for i=1 to totalpc if i mod 30 = 1 then response.write "" response.write "" if i mod 30 = 0 then response.write "" next if i mod 30 > 0 then for j=(i mod 30)+1 to 30 response.write "" next response.write "" end if end if %>

共<%=totalrc%>条记录 <%if sql_where="" then response.write "，分"&totalpc&"页显示，当前是第"&page&"页"%>

"&i&"

<%set conn_webtemp=nothing%>