searchout.asp

用ASP写的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>
<LINK href="pic/gufeng.css" rel=stylesheet>
<script language="JavaScript" src="pic/fade_image.js"></script>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>酒乡网友联盟</title>
<SCRIPT language=JavaScript>
<!--
function MM_openBrWindow(theURL,winName,features) { //v2.0
  if (theURL != "fuckyou")
 {   window.open(theURL,winName,features);}
}
//-->
</SCRIPT>
</head>

<body topmargin="0" leftmargin="0">


<table align="center" border="0" cellPadding="0" cellSpacing="0" height="20" width="777">
  <tr>
    <td width="100%">
      <table border="0" cellpadding="0" cellspacing="0" width="777" height="21" bgcolor="#FFF4C8" background="pic/di.GIF">
        <tr>
          <td width="23%" height="19"><img border="0" src="pic/htt.GIF" width="227" height="20"></td>
          <td width="33%" height="19">　</td>
          <td width="3%" height="19" align="center">□</td>
          <td width="8%" height="19" align="center"><a href="my.asp">关于我们</a></td>
          <td width="3%" height="19" align="center">□</td>
          <td width="8%" height="19" align="center"><a href="../book">本站留言</a></td>
          <td width="3%" height="19" align="center">□</td>
          <td width="8%" height="19" align="center"><a href="javascript:window.external.AddFavorite('http://www.644000.net',%20'酒乡网友联盟')">添加收藏</a></td>
          <td width="3%" height="19" align="center">□</td>
          <td width="8%" height="19" align="center"><a href="#" onclick="this.style.behavior='url(#default#homepage)';this.setHomePage('http://www.644000.net');">设为首页</a></td>
        </tr>
      </table>
      <div align="center">
        <center>
        <table border="0" cellpadding="0" cellspacing="0" width="777" height="90" bgcolor="#F9C700">
          <tr>
            <td width="100%" height="88">
              <div align="center">
                <table border="0" cellpadding="0" cellspacing="0" width="777">
                  <tr>
                    <td width="243" align="left"><img border="0" src="pic/logo.GIF" width="240" height="70"></td>
                    <td width="12" align="left"></td>
        </center>
                    <td width="500" align="center" valign="middle">
                      <p align="center"><!--Banner-->
<script src="http://www.644000.net/guanggao/banner.asp"></script>
<!--Banner --></p>
                  </td>
        <center>
                    <td width="14" align="center"></td>
                  </tr>
                </table>
              </div>
            </td>
          </tr>
        </table>
        </center>
      </div>
      <div align="center">
        <center>
        <table border="0" cellpadding="0" width="777" bgcolor="#FFF4C8" height="20" cellspacing="0">
          <tr>
            <td width="4%" align="center"><img border="0" src="pic/tou.GIF" width="28" height="20" style="filter:alpha(opacity=40)" onMouseOver="fade_in(this);" onMouseOut="fade_out(this);"></td>
            <td width="10%" align="center"><a href="default.asp"><img border="0" src="logo/1.gif"></a></td>
            <td width="2%" align="center"><img border="0" src="pic/heng.gif" width="2" height="12"></td>
            <td width="10%" align="center"><a href="reg.asp"><img border="0" src="logo/2.gif"></a></td>