⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 search.asp

📁 找人网站WAP2.0源码
💻 ASP
字号:
🔍 
<%@codepage="65001"%>
<!--#include file="conn.asp"-->
<!--#include file="123.asp"-->
<?xml version="1.0" encoding="utf-8"?>
<!DOCTYPE html PUBLIC "-//WAPFORUM//DTD XHTML Mobile 1.0//EN" "http://www.wapforum.org/DTD/xhtml-mobile10.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>无标题文档</title>
<link rel="stylesheet"  href="css.css" type="text/css">
</head>

<body leftmargin="0" topmargin="0"   >
<table width="420" border="0"  cellpadding="0" cellspacing="0">
  <tr>
  
    <td valign="top"><br>
<% 
mmm=request("mmm")
if mmm="" then mmm=0 else mmm=cint(mmm) end if
bname=request("bname")
zname=request("zname")
city_id=request("city_id")
guanxi=request("guanxi")
bsex=request("bsex")
bsex=LTRIM(RTRIM(bsex))
zname=LTRIM(RTRIM(zname))
bname=LTRIM(RTRIM(bname))
city_id=LTRIM(RTRIM(city_id))
guanxi=LTRIM(RTRIM(guanxi))
set rs=server.createobject("adodb.recordset")  

if bname<>"" and zname<>"" and city_id<>"" and guanxi<>""  then 
sql ="select * from ren where zname='"&checkStr(zname)&"' and bname='"&checkStr(bname)&"'and city_id='"&checkStr(city_id)&"'and guanxi='"&checkStr(guanxi)&"'"
else if bname<>"" and zname<>""  then
sql ="select * from ren where zname='"&checkStr(zname)&"' and bname='"&checkStr(bname)&"'"
else if bname<>"" then
sql ="select * from ren where bname='"&checkStr(bname)&"'"
else if bsex<>"" and city_id<>"" then
sql ="select * from ren where city_id='"&checkStr(city_id)&"'"
end if
end if
end if
end if
rs.open sql,conn,1,1%>
      <div align="center">
         
<tr>
<td width="420">共有<font color="#FF0000"><%=rs.recordcount%></font>条记录<font color="#FF0000"></font> </td>
</tr>


        <% if rs.eof and rs.bof then  
response.write "<p align='center'><a href='index.html'>失败返回</a>"
response.end
end if 
i=0 %>
        <br>
        <table width="420" border="0"  align="left">
         
   <form method=Post action="search.asp">
            <%          
  if mmm<>0 then         
  	for iisf=1 to mmm *15        
  		if rs.eof then exit for         
  		rs.movenext         
  	next         
  end if         
  do while not rs.eof          
  %>
          </form>
           <tr >
            <td >关系<%=rs("guanxi")%>==被找人姓名<a href="<%=rs("path")%>"><%=rs("bname")%></a>==性别<%=rs("bsex")%>==找人者姓名<%=rs("zname")%>==性别<%=rs("zsex")%>==地点<%=rs("city_id")%></td>
          </tr>
          
          <% i=i+1                                       
   rs.movenext                                       
   if i=15 then exit do                                       
   loop               
%>
  <td width="50"><form method=Post action="search.asp">
          </form>    
      </table>

          <!--ҳ-->
          <%if mmm<>0 then%>
          <a href='search.asp?mmm=<%=mmm -1%>&bname=<%=bname%>&zname=<%=zname%>&city_id=<%=city_id%>&guanxi=<%=guanxi%>'>上页</a>
          <%end if%>
          <!--ҳ-->
          <%if not rs.eof then%>
          <a href='search.asp?mmm=<%=mmm +1%>&bname=<%=bname%>&zname=<%=zname%>&city_id=<%=city_id%>&guanxi=<%=guanxi%>'>下页</a>
          <%end if%>
        </p>
      <% 
rs.close              
set rs=nothing              
conn.close              
set conn=nothing %>
        <p align="center">
          <% 
rs.close              
set rs=nothing              
conn.close              
set conn=nothing %>
    </td>
  </tr>
  <tr>
  </tr>
</table>

<a href='zhao.html'>返回</a>

</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -