searchout.asp

asp交友程序1.0版 ,本程序使用的核心为蓝芒asp交友程序

<%Option Explicit%><!--#include file="conn.asp"--><%
dim rs_lar
dim c_age,c_name,c_sex,c_netname,c_home,c_education,c_job,c_netcall,c_tel,c_book,c_music,c_sport,c_interest,c_character,c_photo
dim age1,age2,name,sex,netname,home,education,job,netcall,tel,sport,book,music,interest,character,photo
dim sql,str,hrefdate
dim pages,records,currentpage,linenumber,line,p

c_age        =request("c_age")
c_name       =request("c_name")
c_sex        =request("c_sex")
c_netname    =request("c_netname")
c_home       =request("c_home")
c_education  =request("c_education")
c_job        =request("c_job")
c_netcall    =request("c_netcall")
c_tel        =request("c_tel")
c_sport      =request("c_sport")
c_book       =request("c_book")
c_music      =request("c_music")
c_sport      =request("c_sport")
c_interest   =request("c_interest")
c_character  =request("c_character")
c_photo      =request("c_photo")

age1         =request("age1")
age2         =request("age2")
name         =request("name")
sex          =request("sex")
netname      =request("netname")
home         =request("home")
education    =request("education")
job          =request("job")
netcall      =request("netcall")
tel          =request("tel")
sport        =request("sport")
book         =request("book")
music        =request("music")
sport        =request("sport")
interest     =request("interest")
character    =request("character")
photo        =request("photo")

Set rs_lar = Server.CreateObject("ADODB.Recordset")

hrefdate=""
sql="select * from larchives where cstr(lar_id) like '%'"
if c_age="ON" then
   sql=sql & " and age>" & clng(age1) & " and age<" & clng(age2)
   hrefdate=hrefdate & "&c_age=" & "ON" & "&age1=" & age1 & "age2=" & age2
end if
if c_name="ON" then
   sql=sql & " and name like '" & name & "'"
   hrefdate=hrefdate & "&c_age=" & "ON" & "&age1=" & age1 & "age2=" & age2
end if
if c_netname="ON" then
   sql=sql & " and netname like '" & netname & "'"
   hrefdate=hrefdate & "&c_netname=" & "ON" & "&netname=" & netname
end if
if c_sex="ON" then
   sql=sql & " and sex like '" & sex & "'"
   hrefdate=hrefdate & "&c_sex=" & "ON" & "&sex=" & sex
end if
if c_home="ON" then
   sql=sql & " and home like '%" & home & "%'"
   hrefdate=hrefdate & "&c_home=" & "ON" & "&home=" & home
end if
if c_education="ON" then
   sql=sql & " and education like '" & education & "'"
   hrefdate=hrefdate & "&c_education=" & "ON" & "&education=" & education
end if
if c_job="ON" then
   sql=sql & " and job like '" & job & "'"
   hrefdate=hrefdate & "&c_job=" & "ON" & "&job=" & job
end if
if c_netcall="ON" then
   sql=sql & " and netcall like '%" & netcall & "%'"
   hrefdate=hrefdate & "&c_netcall=" & "ON" & "&netcall=" & netcall
end if
if c_tel="ON" then
   sql=sql & " and tel like '" & tel & "'"
   hrefdate=hrefdate & "&c_tel=" & "ON" & "&tel=" & tel
end if
if c_sport="ON" then
   sql=sql & " and sport like '%" & sport & "%'"
   hrefdate=hrefdate & "&c_sport=" & "ON" & "&sport=" & sport
end if
if c_book="ON" then
   sql=sql & " and book like '%" & book & "%'"
   hrefdate=hrefdate & "&c_book=" & "ON" & "&book=" & book
end if
if c_music="ON" then
   sql=sql & " and music like '%" & music & "%'"
   hrefdate=hrefdate & "&c_music=" & "ON" & "&music=" & music
end if
if c_interest="ON" then
   sql=sql & " and interest like '%" & interest & "%'"
   hrefdate=hrefdate & "&c_interest=" & "ON" & "&interest=" & interest
end if
if c_character="ON" then
   sql=sql & " and character like '%" & character & "%'"
   hrefdate=hrefdate & "&c_character=" & "ON" & "&character=" & character
end if

if c_photo="ON" then
   if photo="有" then sql=sql & " and photo>0" else sql=sql & " and photo=0"
   hrefdate=hrefdate & "&c_photo=" & "ON" & "&photo=" & photo
end if
rs_lar.open sql,conn,3,2
if rs_lar.eof and rs_lar.bof then str="此交友系统还没有一个网友!"
'分页设置
if str="" then
	rs_lar.PageSize=8
	pages=rs_lar.pagecount
	records=rs_lar.recordcount
	currentpage=request("currentpage")
	if currentpage="" or currentpage<1 then currentpage=1
	currentpage=cint(currentpage)
	if currentpage>pages then currentpage=pages
	rs_lar.absolutepage=currentpage
else
    currentpage=1
	records=0
	pages=1
end if
%>

<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Namo WebEditor v4.0(Trial)">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>New Page 1</title>
<style>
<!--
.x:link      { color: white; text-decoration: none }
.x:visited   { color: white; text-decoration: none }
.x:active    { color: red; text-decoration: none }
.x:hover     { color: red;text-decoration:nome}
tr           { font-size: 10pt }
body         { font-size: 10pt }
a:link       { color: blue; text-decoration: none }
a:visited    { color: blue; text-decoration: none }
a:active     { color: red; text-decoration: none }
a:hover      { color: red; text-decoration: none }
-->
</style>

</head>

<body>
<table border="0" width="100%">
    <tr>
        <td width="738" height="88"><div align="center"><table border="0" cellpadding="0" cellspacing="0" width="100%"
 height="13" bgcolor="black" scrolling="no">
    <tr>
        <td width="281"><p><font color="white"><marquee>天翔网 </font><a href="http://www.wzsky.com"
             target="_blank"><font color="yellow">http://www.wzsky.com</font></a><font
             color="white"> </font><a href="http://"><font
             color="white">欢迎您的光临！</font></a></marquee></td>
    </tr>
</table></div>
<table border="0" cellpadding="0" cellspacing="0" width="100%"
 height="80" bgcolor="#A5EF00">
    <tr>
        <td width="253" height="88" bgcolor="#99CC00"><p align="center">&nbsp;<img src="image/TOP.jpg" width="186"
                         height="73" border="0" alt="天翔网"></td>
        <td width="506" height="88" bgcolor="#99CC00"><p align="left"><a href="http://www.wzsky.com" target="_blank"><img src="images/sky.jpg"
             width="468" height="60" border="0"></a></td>