searchout.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">
<!--#include file="hand.htm" -->
<div align="center"> 
  <center>
    <table border="0" cellpadding="0" cellspacing="0" width="777">
      <tr> 
        <td width="100%" bgcolor="#FFFFFF"> 
          <table cellspacing=0 cellpadding=0 width=777 border=0 height="15">
            <tbody> 
            <tr> 
              <td width=222 bgcolor=#ffce94></td>
              <td width=50 bgcolor=#ffd2a6></td>
              <td width=50 bgcolor=#ffd2a6></td>
              <td width=50 bgcolor=#ffd2a6></td>
              <td width=50 bgcolor=#ffdcb9></td>
              <td width=50 bgcolor=#ffe4ca></td>
              <td width=50 bgcolor=#ffebd7></td>
              <td width=50 bgcolor=#fff1e6></td>
              <td width=50 bgcolor=#fff7f0></td>
              <td width=50 bgcolor=#fffaf4></td>
            </tr>
            </tbody> 
          </table>
</td>
      </tr>
    </table>
  </center>
</div>
<div align="center"> 
  <center>
    <table border="0" cellpadding="0" cellspacing="0" width="777"  bgcolor="#E3E3E3">
      <tr> 
        <td width="100%" bgcolor="#FFFFFF"> 
          <p align="center">　
          <table border="0" width="750">
            <tr> 
              <td width="578" align="center" style="border-bottom-style: solid; border-bottom-width: 1"> 
                <p align="left"> <font size="2" color="#000000">&nbsp;以下是符合您搜索条件的网友</font> 
                </p>
              </td>
            </tr>
            <tr> 
              <td width="578"> <font size="2" color="#000000">第<%=currentpage%>页&nbsp;找到网友<%=Records%>位&nbsp;共<%=Pages%>页</font> 
              </td>
            </tr>
            <tr> 
              <%if pages>1 then%>
              <td width="578"> <font size="2" color="#000000">转到页码:[ 
                <%for p=1 to pages%>
                <%=p%> 
                <%if p/30=0 then%>
                <%end if%>
                <%next%>
                ]</font> </td>
              <%end if%>
            </tr>
          </table>
          <!------------------------------------------------------------------------------------------------------------------------->
          <!------------------------------------------------------------------------------------------------------------------------->
          <table border="0" width="750" cellspacing="0">
            <tr> 
              <td width="87" align="center" bgcolor="#FFFFFF" style="border-left-style: solid; border-left-width: 1; border-bottom-style: solid; border-bottom-width: 1" bordercolor="#000000"><font size="2" color="#000000">网名</font></td>
              <td width="60" align="center" bgcolor="#FFFFFF" style="border-left-style: solid; border-left-width: 1; border-bottom-style: solid; border-bottom-width: 1" bordercolor="#000000"><font size="2" color="#000000">性别</font></td>
              <td width="127" align="center" bgcolor="#FFFFFF" style="border-left-style: solid; border-left-width: 1; border-bottom-style: solid; border-bottom-width: 1" bordercolor="#000000"><font size="2" color="#000000">来自</font></td>
              <td width="78" align="center" bgcolor="#FFFFFF" style="border-left-style: solid; border-left-width: 1; border-bottom-style: solid; border-bottom-width: 1" bordercolor="#000000"><font size="2" color="#000000">生日</font></td>
              <td width="110" align="center" bgcolor="#FFFFFF" style="border-left-style: solid; border-left-width: 1; border-bottom-style: solid; border-bottom-width: 1" bordercolor="#000000"><font size="2" color="#000000">网络寻呼机</font></td>
              <td width="90" align="center" bgcolor="#FFFFFF" style="border-left-style: solid; border-left-width: 1; border-bottom-style: solid; border-bottom-width: 1" bordercolor="#000000"><font size="2" color="#000000">登记IP</font></td>
              <td width="81" align="center" bgcolor="#FFFFFF" style="border-left-style: solid; border-left-width: 1; border-bottom-style: solid; border-bottom-width: 1" bordercolor="#000000"><font size="2" color="#000000">登记时间</font></td>
              <td width="69" align="center" bgcolor="#FFFFFF" style="border-left-style: solid; border-left-width: 1; border-right-style: solid; border-right-width: 1; border-bottom-style: solid; border-bottom-width: 1" bordercolor="#000000"><font size="2" color="#000000">人气</font></td>
            </tr>
            <%linenumber=rs_lar.pagesize%>
            <%do while (not rs_lar.eof) and (line<linenumber)%>
            <tr> 
              <td width="87" align="center" style="border-left-style: solid; border-left-width: 1; border-bottom-style: solid; border-bottom-width: 1" bordercolor="#000000" bgcolor="#FFFFFF"><font size="2" color="#000000">&nbsp;<a href="read.asp?user_id=<%=rs_lar("user_id")%>" title="查看网友<%=rs_lar("netname")%>的祥细资料"><%=rs_lar("netname")%></a></font></td>
              <td width="60" align="center" style="border-left-style: solid; border-left-width: 1; border-bottom-style: solid; border-bottom-width: 1" bordercolor="#000000" bgcolor="#FFFFFF"><font size="2" color="#000000">&nbsp;<%=rs_lar("sex")%></font></td>
              <td width="127" align="center" style="border-left-style: solid; border-left-width: 1; border-bottom-style: solid; border-bottom-width: 1" bordercolor="#000000" bgcolor="#FFFFFF"><font size="2" color="#000000">&nbsp;<%=rs_lar("home")%></font></td>
              <td width="78" align="center" style="border-left-style: solid; border-left-width: 1; border-bottom-style: solid; border-bottom-width: 1" bordercolor="#000000" bgcolor="#FFFFFF"><font size="2" color="#000000">&nbsp;<%=rs_lar("britherday")%></font></td>
              <td width="110" align="center" style="border-left-style: solid; border-left-width: 1; border-bottom-style: solid; border-bottom-width: 1" bordercolor="#000000" bgcolor="#FFFFFF"><font size="2" color="#000000">&nbsp;<%=rs_lar("netcall")%></font></td>
              <td width="90" align="center" style="border-left-style: solid; border-left-width: 1; border-bottom-style: solid; border-bottom-width: 1" bordercolor="#000000" bgcolor="#FFFFFF"><font size="2" color="#000000">&nbsp;<%=rs_lar("ip")%></font></td>
              <td width="81" align="center" style="border-left-style: solid; border-left-width: 1; border-bottom-style: solid; border-bottom-width: 1" bordercolor="#000000" bgcolor="#FFFFFF"><font size="2" color="#000000">&nbsp;<%=rs_lar("date")%></font></td>
              <td width="69" align="center" style="border-left-style: solid; border-left-width: 1; border-right-style: solid; border-right-width: 1; border-bottom-style: solid; border-bottom-width: 1" bordercolor="#000000" bgcolor="#FFFFFF"><font size="2" color="#000000">&nbsp;<%=rs_lar("renqi")%></font></td>
            </tr>
            <%rs_lar.movenext%>
            <%line=line+1%>
            <%loop%>
            <%rs_lar.close%>
          </table>
          <!-------------------------------------分页导航--------------------------------------->
          <table width="750" height="23">
            <tr> 
              <td height="19"> <font size="2" color="#000000"> 
                <%if currentpage>1 then%>
                <a href="searchout.asp?currentpage=<%=currentpage-1%>">[上一页]</a> 
                <%end if%>
                <%if currentpage<pages then%>
                <a href="searchout.asp?currentpage=<%=currentpage+1%>">[下一页]</a> 
                <%end if%>
                <%if currentpage>1 then%>
                <a href="searchout.asp?currentpage=1">[最首页]</a> 
                <%end if%>
                <%if currentpage<pages then%>
                <a href="searchout.asp?currentpage=<%=pages%>">[最末页]</a> 
                <%end if%>
                </font> </td>
            </tr>
          </table>
          <!------------------------------------------------------------------------------------------------------------------------->
          <div align="center"> 
            <table border="0" width="750" cellspacing="0">
              <tr> 
                <td width="100%" style="border-bottom-style: solid; border-bottom-width: 1"> 
                  <p align="center"><font color="#000000" size="2">&nbsp;</font>
                </td>
              </tr>
              <tr> 
                <td width="100%"> 
                  <p align="center"><a href="file:///C:/My%20Documents/My%20Webs/no.htm"><font color="#000000" size="2">[再搜索]</font></a>
                </td>
              </tr>
            </table>
          </div>
          <table border="0" width="100%">
            <tr> 
              <td width="756">
                <p><font color="white">&nbsp;</font>
              </td>
            </tr>
          </table>
        </td>
      </tr>
    </table>
  </center>
</div>
<div align="center"> 
  <center>
    <table border="0" cellpadding="0" cellspacing="0" width="777" bgcolor="#FFFFFF" height="22">
      <tr> 
        <td width="100%" height="22"><a href="http://www.meidao.net/"><img border="0" src="ku/dididi.gif" width="777" height="28"></a></td>
      </tr>
    </table>
  </center>
</div>
<div align="center"> 
  <center>
    <table border="0" cellpadding="0" cellspacing="0" width="777" height="29" bgcolor="#EABB00">
      <tr> 
        <td width="773"  height="29"> 
          <p align="center"> &nbsp;..:味道网:.. 版权所有，<span style="font-family:宋体; font-size: 9pt"><a href=# title=点击些处，关于我们... style="color:blue" target="_new" onClick="javascript:alert('\t\『味道网\』 版权所有\n\n程序设计:Kinwah.CHEN \n\t 陈贤福\n\n站点美工:陈健华\n\t 陈贤福 Ai\n\n社区顾问:Kinwah.CHEN\n\n味道网(C.)2001-2003');return false;"><font color="#000000">Three-UNknown拍档组合</font></a></span>&copy;2001-2003 
            All Rights Reserved</p>
        </td>
      </tr>
    </table>
  </center>
</div>
<div align="center"> 
  <center>
    <table border="0" cellpadding="0" cellspacing="0" width="777" bgcolor="#000000">
      <tr> 
        <td width="100%"></td>
      </tr>
    </table>
  </center>
</div>
</body>