<%
if request.cookies("name")="" then
response.redirect "bbs/userlogin.asp"
end if
dim strsql,srhdb
sex=request("sex")
photo=request("photo")
area=request("area")
age1=request("age1")
age2=request("age2")
age_year=datepart("yyyy",date())
num=0
page=0
strsql="select * from clubuser where "
if sex<>"" then
strsql=strsql&" clubuser_sex='"&sex&"'"
strquest="sex="&sex
end if
if photo="有" then
strsql=strsql&" and userimg<>'' "
strquest=strquest&"&photo=有"
else
strsql=strsql&" and len(userimg)<1 "
strquest=strquest&"&photo=无"
end if
if age1<>"" and age2<>"" then
if age1="" then
age1=20
end if
if age2="" then
age2=60
end if
if age1=age2 then
strsql=strsql&" and datepart('yyyy',born)="&age_year-age1
strquest=strquest&"&age1="&age1&"&age2="&age2
else
strsql=strsql&" and datepart('yyyy',born) >="&age_year-age2&" and datepart('yyyy',born) <="&age_year-age1
strquest=strquest&"&age1="&age1&"&age2="&age2
end if
end if
if area<>"" then
strsql=strsql&" and clubuser_province='"&area&"'"
strquest=strquest&"&area="&area
end if
strsql=strsql&" order by clubuser_reg_date desc"
set srhdb=server.createobject("adodb.recordset")
srhdb.open strsql,conn,1,1
num=srhdb.recordcount
%>
搜索结果
