<!--#include file="inc/conn.asp"-->
<!--#include file="config.asp"-->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta http-equiv="Content-Language" content="gb2312">
<meta name=keywords content="<%=title%>,同城搜索">
<meta name="description" content="同城搜索">
<link rel="SHORTCUT ICON" href="favicon.ico">
<link rel="Bookmark" href="favicon.ico">
<link type="text/css" rel="stylesheet" href="image/search.css">
<title><%=title%>-同城搜索</title>
<script language="JavaScript">
function dis(i,num){
  for(g=1;g<=num;g++){
	document.getElementById("tit"+g).className="S2";
	document.getElementById("Key"+g).style.display="none";
  }
  document.getElementById("tit"+i).className="S1";
  document.getElementById("Key"+i).style.display = "";
}
</script>
</head>
<body>

<div id=div>
  <div class=Slogo><a href=/><img src="Image/logo.gif" border="0"></a></div>
  <div class=Scon>
    <div class=S4></div>
    <div class=S1 id=tit1 onClick="dis(1,3)">分类信息</div>
    <div class=S3></div>
    <div class=S2 id=tit2 onClick="dis(2,3)">店　铺</div>
    <div class=S3></div>
    <div class=S2 id=tit3 onClick="dis(3,3)">资　讯</div>
    <div class=S5></div>
    <div ID=Key1>
      <div class=Sinput>
      <form action="Search1.asp?jle=fl" name="myform" method="POST">
	  <input name="Type" type=hidden value="Class">
      <%
dim rsc,sqlc
set rsc=server.createobject("adodb.recordset")
sqlc = "select * from class1 order by paixu desc"
rsc.open sqlc,conn,1,1
if rsc.eof and rsc.bof then
response.write "请先添加栏目。"
response.end
else
%><SELECT name="fl"  size="1"  >
<OPTION selected value="0" >信息分类</OPTION>
<%do while not rsc.eof
%><OPTION value="<%=trim(rsc("id"))%>"><%=trim(rsc("class1"))%></OPTION>
<%
rsc.movenext
loop
end if
rsc.close
set rsc=nothing
%></SELECT>
<%if diqu1="1" then call dix() else call dix1()end if%>

	  <input name="Key" type="text"  size="35" title="小提示：请输入关键词"> <input name="submit" type="submit" value="同城搜索">	
	  </div>

      </form>
		</div>
	<!--===================-->
	<div ID=Key2 Style='display:none'>
      <div class=Sinput>
    <form action="Search1.asp?jle=sj" name="form2" method="POST">
	      <%
dim rsd,sqld
set rsd=server.createobject("adodb.recordset")
sqld = "select * from sjcla1 order by paixu desc"
rsd.open sqld,conn,1,1
if rsd.eof and rsd.bof then
response.write "请先添加栏目。"
response.end
else
%><SELECT name="sj"  size="1"  >
<OPTION selected value="0" >店铺分类</OPTION>
<%do while not rsd.eof
%><OPTION value="<%=trim(rsd("id"))%>"><%=trim(rsd("sjcla1"))%></OPTION>
<%
rsd.movenext
loop
end if
rsd.close
set rsd=nothing
%></SELECT>
<%if diqu1="1" then call dix() else call dix1()end if%>

<input name="Key" type="text"  size="35" title="小提示：请输入关键词"> <input name="submit" type="submit" value="同城搜索">
	  </div>
	  
    </form>

	</div>
	
	<div ID=Key3 Style='display:none'>
	<div class=Sinput>
	<form action="Search1.asp?jle=ruirui" name="form3" method="POST">
<SELECT size="1" name="ruirui">
              <OPTION selected value="资讯分类">资讯分类</OPTION>
              <%set rs_lei = server.createobject("adodb.recordset")                                            
			sql = "select * from jle_newsfl"                                            
			rs_lei.open sql,conn,1,1                                          
			do while not rs_lei.eof%>
              <OPTION value="<%=rs_lei("newsname")%>"><%=rs_lei("newsname")%></OPTION>
              <%rs_lei.movenext                                        
		  loop                                                
		  rs_lei.close                                       
		  set rs_lei = nothing%>
            </SELECT> 
            <input name="Key" type="text"  size="35" title="小提示：请输入关键词"> <input name="submit" type="submit" value="同城搜索">
	  </div>
	  
    </form>

	  </div>
	  </div>
</div>
 <% 
'选择地区
sub dix()
set rsdq=server.createobject("adodb.recordset")
sqldq = "select diqu from config "
rsdq.open sqldq,conn,1,1
diqu=split(rsdq("diqu"),"|")
xn=diqu(0)
response.write "<select name=""diqu"">"
response.write "<option value=选择地区>选择地区</option>"
for x=1 to xn
response.write "<option value="""&diqu(x)&""">"&diqu(x)&"</option>"
next
response.write "</select>"
rsdq.close
set rsdq=nothing
end sub

sub dix1()
response.write "<select size=1 name=diqu>"
response.write "<option value=选择地区>选择地区</option>"
dim sqlr,rsquyu
sqlr="select * from jle_area where city='"&city&"'"
set rsquyu=conn.execute(sqlr)
do while not rsquyu.eof
response.write "<option value="&rsquyu("diqu")&">"&rsquyu("diqu")&"</option>"
rsquyu.movenext
loop
rsquyu.close
response.write "</select><input type=""hidden"" name=city  value="&city&">"
end sub
response.write "<div align=center>"&adclass3&""
%>

<table width="980"  class="td">
<tr>
<td height="25">
<p align="center"><a target="_blank" href="contact.asp">联系我们</a> -
<a target="_blank" href="about.asp">关于我们</a> -
<a target="_blank" href="exemption.asp">免责声明</a> -
<a target="_blank" href="advertisement.asp">广告服务</a> -
<a target="_blank" href="help.asp">帮助中心</a>  - 
<a target="_blank" href="feedback.asp">意见反馈</a>  - 
<a target="_blank" href="addlink.asp">友情链接</a>  - 
<a href="<%=web%>" onClick="this.style.behavior='url(#default#homepage)';this.setHomePage('<%=web%>');">设为首页</a> - 
<a href="javascript:window.external.AddFavorite('<%=web%>', '<%=title%>')">收藏本站</a>
</td>
</tr>
</table>
<table width="980"><tr><td>
<p align="center" style="line-height: 150%">Copyright 2008 &copy; <%=title%> All Rights Reserved.<br><%=coryright%></p></td></tr></table>

</div>
</body> 
</html> 