<%Session.CodePage=936%>
<!--#include file="inc/ffunction.asp"-->
<!--#include file="inc/conn.asp"-->
<!--#include file="inc/config.asp"-->
<!--#include file="inc/Conn_User.asp"-->
<%
const ChannelID=1
%>

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml"  xml:lang="zh-CN" lang="zh-CN">
<LINK 
href="IMG/csss.css" type=text/css rel=Stylesheet>
<script type=text/javascript>var xijuan={channel:"index"}</script>
	<script type=text/javascript src="Inc/main.js"></script>
<!--#include file="top4.asp"-->
<link href="images/qu_style.css" rel="stylesheet" type="text/css" />
<script language="JavaScript" type="text/javascript">
	function chkfrm(){
		
		if (document.Myform.Keywords.value==""){
			alert('请输入要检索的关键字！');
			document.Myform.Keywords.focus();
			return false;
		}
		
		
			var Obj = document.getElementsByName("mysort");
			for(i=0;i<Obj.length;i++){
				if(Obj[i].selected){
					if (Obj[i].value=="flv"){
						document.Myform.action="flv_search.asp";
					}else if (Obj[i].value=="zone"){
						document.Myform.action="user_search.asp";
					}else if (Obj[i].value=="blog"){
						document.Myform.action="blog_search.asp";
					}else if (Obj[i].value=="photo"){
						document.Myform.action="photo_search.asp";
					}else{
						document.Myform.action="user_search.asp";
					}
				}
			}

		
		return true;
	}
</script>
<form id="Myform" name="Myform" onSubmit="return chkfrm();" action="" method=post>
    <div id=SearchBlock>
      <div id=search>
<input name="Keywords" type="text" id="Keywords" class="input2"size="45" value="请输入关键字" onMouseOver="this.focus()" onFocus="this.select()" onClick="if (this.value=='请输入关键字') this.value=''"  />


             <select name="mysort" id="mysort" size="1" class="input2"> 
             <option selected value="zone" name="mysort" id="mysort">用户家园</option>
             <option value="photo" name="mysort" id="mysort">用户相册</option>
             <option value="flv" name="mysort" id="mysort">用户视屏</option>
             <option value="blog" name="mysort" id="mysort">用户日志</option>
             </select> &nbsp;
      </div>
     <input class=input_btn value="" type=submit src=Inc/global/images/btn_search.gif name=submit style="cursor:hand;" />
    </div>
    <div class=keywords>
&nbsp;&nbsp;消息:
<%
set rs=server.createobject("adodb.recordset")
rs.open "select top 1 * from [516show] where hotType=1 order by ID desc",conn,1,1 
%>
<%
do while not rs.eof
%>
<B><a href="<%=rs("url")%>" target="_blank"><font color="<%=rs("titlecolor")%>"><%=left(rs("title"),24)%><%if len(rs("title"))>24 then response.write ""%></font></B></a>
 <%rs.movenext
loop%>
<%rs.close
set rs=nothing%>

    </div>
  </form>
</div><!-- Container -->

<SCRIPT LANGUAGE="JavaScript">

          <!--

          function stopError() {
            return true;
          }

          window.onerror = stopError;

          // -->
          

</SCRIPT>


<script   language="JavaScript">   
        function   Open(url)   
            {   
      var     
    newwin=window.open(url,"_blank","toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=no,resizable=no,top=200,left=150,width=540,height=400");//这些参数你可以自己修改看看效果   
    return   false;   
                }   
  </script>     
<body></body>
    
  
<embed src="ad/swf/964x50-cn.swf" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="950" height="50" wmode="transparent"></embed>

<META content="" name=description>
<BODY>
<DIV id=qcon>
<DIV id=qconright>
<DIV>
<TABLE class=td_Line cellSpacing=0 cellPadding=0 width=250 bgColor=#ffffff 
border=0>
  <TBODY>
  <TR>
    <TD><A name=lineurl><IMG 
      style="BORDER-LEFT-COLOR: black; FILTER: revealTrans(duration=2,transition=10); BORDER-BOTTOM-COLOR: black; COLOR: #000000; BORDER-TOP-COLOR: black; BORDER-RIGHT-COLOR: black" 
      height=95 src="img/jia.jpg" width=250 border=0 
      name=lineimg></A>
      <SCRIPT language=JavaScript>
hdp();
      </SCRIPT>
       </TD></TR></TBODY></TABLE></DIV>
<DIV id=qnew>
<DIV class=qnewtit>
<H2>城市家园</H2></DIV>
<DIV class=qnewcon>
<TABLE style="MARGIN: 8px 0px 5px 8px" cellSpacing=0 cellPadding=0 width=240 
align=center border=0>
  <TBODY>
  <TR>
 
 

<!--start help center--> 

                        <table width="235" border="0" cellspacing="0" cellpadding="3">
                          <tr> 
                           <B> <td align="center">&raquo;<a href="zone.asp?city=北京">北 京</a></td>
                            <td align="center">&raquo;<a href="zone.asp?city=天津">天 津</a></td>
                            <td align="center">&raquo;<a href="zone.asp?city=河北">河 北</a></td>
                            <td align="center">&raquo;<a href="zone.asp?city=吉林">吉 林</a></td>
                          </tr>
                          <tr bgcolor="#F7F7F7"> 
                            <td align="center">&raquo;<a href="zone.asp?city=山西"> 山 西</a></td>
                            <td align="center">&raquo;<a href="zone.asp?city=内蒙古">内蒙古</a></td>
                            <td align="center">&raquo;<a href="zone.asp?city=辽宁">辽 宁</a></td>
                            <td align="center">&raquo;<a href="zone.asp?city=安徽">安 徽</a></td>
                          </tr>
                          <tr> 
                            <td align="center">&raquo;<a href="zone.asp?city=山东">山 东</a></td>
                            <td align="center">&raquo;<a href="zone.asp?city=黑龙江">黑龙江</a></td>
                            <td align="center">&raquo;<a href="zone.asp?city=上海">上 海</a></td>
                            <td align="center">&raquo;<a href="zone.asp?city=浙江">浙 江</a></td>
                          </tr>
                          <tr bgcolor="f7f7f7"> 
                            <td align="center">&raquo;<a href="zone.asp?city=江苏">江 苏</a></td>
                            <td align="center">&raquo;<a href="zone.asp?city=江西">江 西</a></td>
                            <td align="center">&raquo;<a href="zone.asp?city=湖南">湖 南</a></td>
                            <td align="center">&raquo;<a href="zone.asp?city=福建">福 建</a></td>
                          </tr>
                          <tr> 
                            <td align="center">&raquo;<a href="zone.asp?city=甘肃">甘 肃</a></td>
                            <td align="center">&raquo;<a href="zone.asp?city=青海">青 海</a></td>
                            <td align="center">&raquo;<a href="zone.asp?city=宁夏">宁 夏</a></td>
                            <td align="center">&raquo;<a href="zone.asp?city=贵州">贵 州</a></td>
                          </tr>
                          <tr bgcolor="f7f7f7"> 
                            <td align="center">&raquo;<a href="zone.asp?city=河南">河 南</a></td>
                            <td align="center">&raquo;<a href="zone.asp?city=湖北">湖 北</a></td>
                            <td align="center">&raquo;<a href="zone.asp?city=陕西">陕 西</a></td>
                            <td align="center">&raquo;<a href="zone.asp?city=四川">四 川</a></td>
                          </tr>
                          <tr> 
                            <td align="center">&raquo;<a href="zone.asp?city=广东">广 东</a></td>
                            <td align="center">&raquo;<a href="zone.asp?city=广西">广 西</a></td>
                            <td align="center">&raquo;<a href="zone.asp?city=海南">海 南</a></td>
                            <td align="center">&raquo;<a href="zone.asp?city=重庆">重 庆</a></td>
                          </tr>
                          <tr bgcolor="f7f7f7"> 
                            <td align="center">&raquo;<a href="zone.asp?city=云南">云 南</a></td>
                            <td align="center">&raquo;<a href="zone.asp?city=西藏">西 藏</a></td>
                            <td align="center">&raquo;<a href="zone.asp?city=新疆">新 疆</a></td>
                            <td align="center">&raquo;<a href="zone.asp?city=香港">香 港</a></td>
                          </tr>
                          <tr> 
                            <td align="center">&raquo;<a href="zone.asp?city=台湾">台  湾</a></td>
                            <td align="center">&raquo;<a href="zone.asp?city=澳门">澳  门</a></td>
                            <td align="center">&raquo;<a href="zone.asp?city=国外">国  外</a></td>
                            <td align="center">&nbsp;</td></B>
                          </tr>
                        </table></td>
                    </tr>
                  </table>
      

<!--Start hottopic -->






    </TD></TR></TBODY></TABLE></DIV>
<DIV class=qnewfot></DIV></DIV>

<DIV id=qhot>
<DIV class=qhottit>					

<H2>本周人气最高家园</H2></DIV>
<DIV class=qhotcon> 
<DIV class=qhotconlist> 
					<%
set rs=server.createobject("adodb.recordset")
rs.open "select top 8 * from [user]  order by hits desc",conn_user,1,1 
%>
				  <%

						i=1
do while not rs.eof
%>                                        
<UL>  
  <LI class=qhotconimg>




<A href="user.asp?userid=<%=rs("userid")%>"target="_blank"><IMG class=img38 
  src="<%if rs("UserPhoto")<>"" then%><%=rs("UserPhoto")%><%else 
						  response.Write "images/nopic2.jpg"end if%>"> </A></LI>
  <LI ><img src="img/no/<%=i%>.jpg">
  <LI><A href="user.asp?userid=<%=rs("userid")%>" target="_blank"><%if rs("title")<>"" then%><%=left(replace(rs("title"),"&nbsp;",""),7)%><%if len(rs("title"))>7 then response.write ".."%><%else%><%=rs("username")%>的家园<%end if%></a></A>&nbsp;<B><font color="#FF6600" style="font-size:10" >人气：<%=rs("hits")%></font></B>

  </LI></UL>   <%
						i=i+1
						if i>8 then exit do
						rs.movenext
						loop
						rs.close
						set rs=nothing%>        
<DIV class=qhotline></DIV>
<DIV class=clear></DIV></DIV></DIV>
<DIV class=qhotfot></DIV></DIV></DIV>
<DIV id=qconleft><!--家园推荐-->
                      <%
if request("action")<>"" then
actions=request("action")
else
actions="userid"
end if
if request("city")<>"" then
city=request("city")
myPagesize=18

set rs=server.createobject("adodb.recordset")

rs.open "select * from [user] where city='"&city&"' order by "&actions&" desc",conn_user,1,1 
call myPages(rs,myPagesize)
else
myPagesize=18

set rs=server.createobject("adodb.recordset")

rs.open "select * from [user] order by "&actions&" desc",conn_user,1,1 
call myPages(rs,myPagesize)
end if



%>
<DIV id=qtui>
<DIV class=qtuitit><SPAN class=titleft>
<H2>城市家园搜索</H2></SPAN><SPAN class=titright></SPAN></DIV>
<DIV class=qtuicon>
				  
<DIV class=qtuilist>
<%
if  rs.eof then
response.Write "<td><center><br><br><br><font color='#FF6600' style='font-size:16'><strong>暂无会员&nbsp;&nbsp;</strong></font><br><br><br></center></td>"
end if%> 
<%line=myPagesize
								i=1
do while not rs.eof and line>0
%>
<UL>
  <LI class=qtuiimg><A href="user.asp?userid=<%=rs("userid")%>" target="_blank"><IMG class=imgborder 
  src="<%if rs("UserPhoto")<>"" then%><%=rs("UserPhoto")%><%else 
						  response.Write "images/nopic2.jpg"end if%>" width="99" height="90" /> </A>
  <LI>昵称：<a href="user.asp?userid=<%=rs("userid")%>" target="_blank"><%=rs("username")%></a></SPAN>


  <LI>性别：<%
			if rs("Sex")=1 then
				response.write " <a href=zone2.asp?sex=1><img src=isky/boy.gif border=0 alt=男></a> "
			else
				response.write " <a href=zone2.asp?sex=0><img src=isky/girl.gif border=0 alt=女></a> "
			end if
		  %>
  </A>
  <LI>地区：<a href="zone.asp?city=<%=rs(db_User_city)%>" target="_blank"><%=rs(db_User_city)%></a>

  <LI><a   href="messager.asp?action=new&touser=<%= UserName %>"   onClick="return   Open(this.href);"><img src=imgs/2msger.gif border=0 alt=给我发短信息></a></LI>

  <LI>

<a   href="fsave.asp?fid=<%=rs("userid")%>"   onClick="return   Open(this.href);"><img src=imgs/jwhy.gif border=0 alt=加我为好友></a>
</UL>
 <%if i mod 2=0 then%>
                      <%else%>
                      <%end if%>
                      <%rs.movenext
line=line-1
i=i+1
loop
rs.close
set rs=nothing%>


<table width="100%" height="0" border="0" cellpadding="0" cellspacing="0">


                <td width="1" ><img src="img0415/space.gif" width="1" height="1"></td>
                <td height="" align="center" >
                  <%call listpages(mycondition)%>
                  <%rs.close
set rs=nothing%>
                </td>
                <td width="1" ><img src="img0415/space.gif" width="1" height="1"></td>
              </tr>
              <tr> 
                <td width="1" height="1"><img src="img0415/space.gif" width="1" height="1"></td>
                <td ></td>
                <td width="1"></td>
              </tr>
            </table>


            <table width="100%" height="" border="0" cellpadding="0" cellspacing="0">
              <tr> 
                <td height=""><img src="img0415/space.gif"></td>
              </tr>
            </table>
            </td>
        </tr>
      </table> </td>
    <td width="1" ><img src="img0415/space.gif" width="1" height="1"><img src="img0415/space.gif"></td>
    <td width="5" bgcolor="f2f2f2"></td>
  </tr>
</table>
<%sub listpages(mycondition)

	response.write "<table height=22  border=0 cellpadding=0 cellspacing=0><Tr><td><table width='100%' border=0 cellspacing=0 cellpadding=0><tr><td height=3></td></tr></table>"
	if pages<1 then
		exit sub
	end if
	
	
	if p>0 then
		response.write	"<a href="&request.ServerVariables("script_name")&"?action="&request("action")&"&city="&request("city")&"&sex="&request("sex")&"&currentpage=10&p="&p-1&mycondition&"><img src=user/prepre.gif alt=前十页 border=0></a>&nbsp;&nbsp;&nbsp;"
    else
	response.write	"<img src=user/prepre.gif alt=前十页 border=0>&nbsp;&nbsp;&nbsp;"
    end if
	'-------------------下面写出当前十个页码
	response.write "</td><td><img src=user/lined.gif border=0><img src=user/k.gif border=0 width=5>"
	for i=1 to 10
		if (p*10+i)>pages then exit for
		if currentpage=i then
		
			response.write "<b><a style='color:ff6600'"
		else
			response.write "<a"
		end if 
		dates=request("dates")
		response.write " href="&request.ServerVariables("script_name")&"?action="&request("action")&"&city="&request("city")&"&sex="&request("sex")&"&currentpage="&i&"&p="&p&mycondition&"><font class=no >"&(p*10+i)&"</font></a></b>&nbsp;&nbsp;<img src=user/lined.gif border=0><img src=user/k.gif width=5 border=0>"	
     next
	 response.write "</td><td><table width='100%' border=0 cellspacing=0 cellpadding=0><tr><td height=3></td></tr></table>"
	 '--------------------察看下十页的连接
    if (p*10+10)<pages then
		response.write "<img src=user/k.gif border=0><a href="&request.ServerVariables("script_name")&"?action="&request("action")&"&city="&request("city")&"&sex="&request("sex")&"&currentpage=1&p="&p+1&mycondition&"><img src=user/nextnext.gif alt=后十页 border=0></a>" 
		else
		response.write "<img src=user/k.gif border=0><img src=user/nextnext.gif alt=后十页 border=0>"
	end if
	'-----------------------------------------------上下页导航
	response.write "</td>"
	

	  response.write "</tr></table>"
end sub

sub myPages(myRS,mysize)  '------mysize为内部变量（主页面没有定义），myRS为主页面传递过来的RS对象（地址传递）
	if myRS.eof and myRS.bof then str="没有纪录"
	if str="" then
		if mysize="" or NOT IsNumeric(mysize) then
			mysize=15
		end if
		myRS.PageSize=mysize
		pages=myRS.pagecount
		records=myRS.recordcount
		On Error Resume Next '取得数字
		currentPage=request("currentPage")
		if currentPage="" then
			currentPage=1
		end if
		currentPage=CInt(currentPage)
		if Err.Number <> 0 Then
			currentPage=1
			Err.Clear
		end if
		if currentPage<1 then
			currentPage=1
		elseIf currentPage>10 then
			currentPage=10
		end if
		'----------------处理p
		p=request("p")
		if p="" then
			p=0
		end if
		p=CLng(p)
		if Err.Number <> 0 Then
			p=0
			Err.Clear
		end if
		if p<0 then
			p=0
		end if
		'--判断是否出了页数范围
		nowPage=p*10+currentPage
		if nowPage>pages then
			p=(pages-1)\10
			currentPage=((pages-1) mod 10)+1
		end if
		myRS.absolutepage=p*10+currentPage
	else
	   currentPage=1
	   records=0
	   pages=1
	end if
end sub

dim pages,records,currentPage,p '--------定义变量，这些变量在主页面中，进行地址传递%>
</DIV></DIV>
<DIV class=qtuifot></DIV></DIV>







</DIV></DIV>
<DIV 
class=qhotimgfot></DIV></DIV></DIV></DIV><!--con_end-->


<!--#include file="end.asp"-->

</BODY></HTML>