<%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="top2.asp"-->
<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="40" 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"),40)%><%if len(rs("title"))>40 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>
<TABLE cellSpacing=0 cellPadding=0 width=100% align=center border=0>
  <TBODY>
  <TR>
    <TD vAlign=top width=246>
      <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
        <TBODY>
        <TR>
          <TD width="100%" height=3></TD></TR></TBODY></TABLE> 



<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>

<TABLE cellSpacing=0 cellPadding=0 width=950 align=center border=0>
  <TBODY>
  <TR>
    <TD vAlign=top width=246>
      <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
        <TBODY>
        <TR>
          <TD width="100%" height=3></TD></TR></TBODY></TABLE> 
<DIV id=Logined1_PanelLogin style="WIDTH: 246px">
<TABLE cellSpacing=2 cellPadding=0 width="100%" bgColor=#eef5fb border=0>
  <TBODY>
  <TR>
    <TD bgColor=#ffffff>
      <TABLE cellSpacing=1 cellPadding=0 width="100%" bgColor=#b2d7e8 
        border=0><TBODY>
        <TR>
          <TD bgColor=#ffffff>
            <TABLE height=151 cellSpacing=1 cellPadding=0 width="100%" 
              border=0><TBODY>
              <TR>
                <TD background=IMG/yhbj.jpg>
                  <TABLE cellSpacing=1 cellPadding=0 width="102%" align=center 
                  border=0>
                    <TBODY>
                    <TR>
                      <TD height=33><img src="IMG/yh.jpg" align="absbottom" /></TD></TR>
                    <TR>
                      <TD align=middle height=72>
                        <TABLE height=60 cellSpacing=0 cellPadding=0 width=100%
                        align=center border=0>
                          <TBODY>
                          <TR>
                            <TD width=529>
<!--start help center--> 
		<!--Start login -->
		<div class="rightcolumn">
		<div class="bulletin" >
		<div></div><div class="b1tr"></div>
		
		
				<div class="for_login" id="woyaoliu" >

    <% call ShowUserLogin() %> 

</div>
<div class="cont" id="islogin" style="display:none;"><div class="loginfo">

			</div>
		  </div>
		</div>
		</div>

<!--Start hottopic -->
   </TBODY></TABLE></TD></TR>                               </TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE>

<DIV id=Logined1_PanelLogin style="WIDTH: 246px">
<TABLE cellSpacing=2 cellPadding=0 width="100%" bgColor=#eef5fb border=0>
  <TBODY>
  <TR>
    <TD bgColor=#ffffff>
      <TABLE cellSpacing=1 cellPadding=0 width="100%" bgColor=#b2d7e8 
        border=0><TBODY>
        <TR>
          <TD bgColor=#ffffff>
            <TABLE height=151 cellSpacing=1 cellPadding=0 width="100%" 
              border=0><TBODY>
              <TR>
                <TD background=img/gw13.gif>
                  <TABLE cellSpacing=1 cellPadding=0 width="100%" align=center 
                  border=0>
                    <TBODY>
                    <TR>
                      <TD height=33><img src="img/ico_helppic.jpg" align="absbottom" /></TD></TR>
                    <TR>
                      <TD align=middle height=72>
                        <TABLE height=60 cellSpacing=0 cellPadding=0 width=100%
                        align=center border=0>
                          <TBODY>
                          <TR>
                            <TD width=429>

<!--start help center-->
                        

		
					<%
set rs=server.createobject("adodb.recordset")
rs.open "select top 5 * from [user]  order by hits desc",conn_user,1,1 
%>



		<div style="height:3px;font-size:1px"></div>
			<div class="top3">

				  <%

						i=1
do while not rs.eof
%>

<div class="pk">
<div class="pkinfo">
    <div class="Photo">
<a href="user.asp?userid=<%=rs("userid")%>" class="imgvideo"target="_blank"><IMG height="45" src="<%if rs("UserPhoto")<>"" then%><%=rs("UserPhoto")%><%else 
						  response.Write "images/nopic2.jpg"end if%>" width="60">
        </a>
    </div>
    <div class="Name">
        <p>主题：                                    <%if rs("intor")<>"" then
							   response.write left(rs("intor"),15)
							   if len(rs("intor"))>15 then
							   response.Write ""
							   end if
							   else
							   response.write "暂无个人介绍"
							   end if%></p>
        <p><a href="user.asp?userid=<%=rs("userid")%>" target="_blank"><%if rs("title")<>"" then%><%=left(replace(rs("title"),"&nbsp;",""),8)%><%if len(rs("title"))>8 then response.write ".."%><%else%><%=rs("username")%>的家园<%end if%></a></p>
    </div>
</div>
</div>     <%
						i=i+1
						if i>5 then exit do
						rs.movenext
						loop
						rs.close
						set rs=nothing%> 
	
		
		<div >
		
		

<!--Start hottopic -->
</TABLE></TD></TR>                               </TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE>



                            

<DIV id=Logined1_PanelLogin style="WIDTH: 246px">
<TABLE cellSpacing=2 cellPadding=0 width="100%" bgColor=#eef5fb border=0>
  <TBODY>
  <TR>
    <TD bgColor=#ffffff>
      <TABLE cellSpacing=1 cellPadding=0 width="100%" bgColor=#b2d7e8 
        border=0><TBODY>
        <TR>
          <TD bgColor=#ffffff>
            <TABLE height=151 cellSpacing=1 cellPadding=0 width="100%" 
              border=0><TBODY>
              <TR>
                <TD background=img/gw13.gif>
                  <TABLE cellSpacing=1 cellPadding=0 width="100%" align=center 
                  border=0>
                    <TBODY>
                    
                      <TD align=middle height=>
                        <TABLE height=0 cellSpacing=0 cellPadding=0 width=100%
                        align=center border=0>
                          <TBODY>
                          <TR>
                            <TD width=429>

<!--start help center-->


<LINK media=all href="img/fblog_index.css" type=text/css 
rel=stylesheet>

<!--左部-->

<DIV class=blog2>
<DIV class=blog3><IMG src="img/b_top5.jpg"> 
</DIV>
<DIV >
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="4">
                    <%
set rs=server.createobject("adodb.recordset")
rs.open "select top 10 * from [article] order by hits desc",conn,1,1 
%>
                    <tr> 
                      <%

						i=1
do while not rs.eof
%>
                      <td height="22" bgcolor="fafafa"><table width="100%" border="0" cellspacing="0" cellpadding="0">
                          <tr> 
                            <td width="20" align="center"><img src="img0415/d<%=i%>.gif"></td>
                            <td> 


<%
set rsf=server.createobject("adodb.recordset")
rsf.open "select * from [user] where username='"&rs("Editor")&"' order by userid desc",conn_user,1,1 
%>

 <a href="blog_show.asp?ArticleID=<%=rs("ArticleID")%>&userid=<%=rsf("userid")%>" target="_blank"><%=left(replace(rs("title"),"&nbsp;",""),13)%> 
                              <%
				  if len(rs("title"))>16 then
				   response.Write""
				   else 
				   end if%>
                              </a> <font color="#FF6600" style="font-size:10" ><%=rs("hits")%></font></td>
                          </tr>
                        </table></td>
                    </tr>
                    <%
						i=i+1
						if i>10 then exit do
						rs.movenext
						loop
						rs.close
						set rs=nothing%>
       
		<div >
		</table>
	

<!--Start hottopic -->
</TBODY></TABLE></TD></TR></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE></DIV>                                  
 <TABLE cellSpacing=0 cellPadding=0 width="100%" align=center border=0>
        <TBODY>
        <TR>
          <TD style="WIDTH: 100%px; HEIGHT: 19px">

</TD>
</TR></TBODY></TABLE></TD>
    <TD width=7></TD>
    <TD vAlign=top>

      <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
        <TBODY>
        <TR>
          <TD height=5></TD></TR></TBODY></TABLE>
      <TABLE class=table2 cellSpacing=0 cellPadding=0 width="100%" 
      background=img/gw13.jpg border=0>
        <TBODY>
        <TR>
          <TD 
          style="BORDER-RIGHT: #b0dbe9 1px solid; BORDER-TOP: #b0dbe9 1px solid" 
          align=left width="23%">&nbsp;<IMG height=12 
            src="img/gw12.gif" width=15 align=absMiddle><FONT 
            class=title> 用户视屏相册推荐</FONT></TD>
          <TD class=table3 width=*>
            <TABLE height=28 cellSpacing=0 cellPadding=0 width="100%" 
              border=0><TBODY>
              <TR>
                <TD width=230><FONT 
                  color=#009900>&nbsp;&nbsp;
	·最  新 精 选 网 友 制 作 相 册 ！</FONT></TD>
                <TD>
                
                </TD>
                <TD align=right><A class=t2 
                  href="videomore.asp" 
                  target=_blank>更多精美相册&gt;&gt;&nbsp;&nbsp;</A></TD></TR></TBODY></TABLE></TD></TR>
        <TR>
          <TD colSpan=2>
            <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
              <TBODY>
               <TR>
                <TD width="100%" colSpan=4 height=10></TD></TR>
              <TR>
            
                      <TD>
<%
set rs=server.createobject("adodb.recordset")
rs.open "select top 5 * from [mtv_Photo]  order by d desc",conn,1,1 
%>

<table  width=100% border="0" cellpadding="6" cellspacing="0">
                    <tr> 
<%if  rs.eof then
response.Write "暂无最火热相册"
end if%>             
                                <%
do while not rs.eof
%>
                      <td height="80" align="center" bgcolor="#FFFFFF"><table border="0" cellspacing="0" cellpadding="0">
                        <tr>
             
                        </tr>
                        <tr>
                          <td align="center" > <a href=mtv_play.asp?id=<%=rs("id")%> class="imgvideo"target="_blank"><img name="picbg_r1_c1" src="<%=rs("s_images")%>" width="126" height="102" border="0" alt=""></a> </a></td>
                        </tr>
                        <tr>
                          <td height="0" align="center" valign="bottom"> <a href="mtv_play.asp?id=<%=rs("id")%>"target="_blank"><%=left(rs("title"),5)%></a></td>
       </tr>
                      </table></td>
					  
<%rs.movenext
loop
rs.close
set rs=nothing%>


</TD></TR></TBODY></TABLE></TD></TR>
              <TR>
                <TD colSpan=4 
height=3></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE>

<DIV 
      style="CLEAR: both; WIDTH: 100%; LINE-HEIGHT: 10px; HEIGHT: 10px"></DIV>
      <TABLE class=table2 cellSpacing=0 cellPadding=0 width="100%" 
      background=img/gw13.jpg border=0>
        <TBODY>
        <TR>
          <TD 
          style="BORDER-RIGHT: #b0dbe9 1px solid; BORDER-TOP: #b0dbe9 1px solid; HEIGHT: 28px" 
          align=left width="23%">&nbsp;<IMG height=12 
            src="img/gw14.gif" width=15 align=absMiddle><FONT 
            class=title> 用户最热制作相册</FONT></TD>
          <TD class=table3 align=left width=*><FONT 
                  color=#009900>&nbsp;&nbsp;&nbsp;&nbsp;·最 热 网 友 制 作 视 频 相 册 ！</TD>
          <TD class=table3 vAlign=bottom width="10%">
            <TABLE cellSpacing=0 cellPadding=0 width=100 border=0>
              <TBODY>
              <TR>
                <TD style="WIDTH: 6px; HEIGHT: 22px"><IMG height=22 
                  src="img/gw17.gif" width=6></TD>
                <TD style="HEIGHT: 22px" align=middle 
                background=img/gw19.gif><A class=t5 
                  href="mv/make_mv.asp" target=_blank>我要制作</A></TD>
                <TD style="HEIGHT: 22px" width=6><IMG height=22 
                  src="img/gw18.gif" width=6></TD></TR></TBODY></TABLE></TD>
          <TD class=table3 align=right width="10%">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</TD></TR>
        <TR>
          <TD ></TD></TR>
        <TR>
          <TD colSpan=4>
            <TABLE cellSpacing=0 cellPadding=0 width="105%" border=0>
              <TBODY>
              <TR>
                <TD>
           
	
		<!-- Start Starslist -->

<%
set rs=server.createobject("adodb.recordset")
rs.open "select top 10 * from [mtv_Photo]  order by Elite desc",conn,1,1 
%>
			<div class="new_content">
				<div id="new_cnt">
					<div id="videoList">

<%if  rs.eof then
response.Write "暂无最火热相册"
end if%>             
                                <%
do while not rs.eof
%>
    <div class="cont2">
     <li>    <div class="vdimg fleft">







<a href=mtv_play.asp?id=<%=rs("id")%> class="imgvideo" target="_blank"><img name="picbg_r1_c1" src="<%=rs("s_images")%>" width="130" height="95" border="0" alt=""></a>
                </a>
            </div>
            <div class="vdinfo fright">
                <h5 class="title">
                           <a href=mtv_play.asp?id=<%=rs("id")%> target="_blank"><%=left(rs("title"),12)%>  </a>
                </h5>
                <p>作者：<%
set rsf=server.createobject("adodb.recordset")
rsf.open "select * from [user] where username='"&rs("username")&"' order by userid desc",conn_user,1,1 
%><a href=user.asp?userid=<%=rsf("userid")%> target="_blank"><%=rs("username")%></a></p>
<p style="width:180px; height:18px; overflow:hidden;">被顶：<%=rs("d")%>
</p>
                <p>播放：<span class="forange2"><%=rs("click_num")%></span></p>

                <p>上传时间：<%=rs("addtime")%></p>
            </div>
        </li>
<%rs.movenext
loop
rs.close
set rs=nothing%>
</TD></TR></TBODY></TABLE></TD></TR>
              <TR>
                <TD colSpan=4 
height=0>





        <table width="100%"  border="0" cellspacing="0" cellpadding="0">
          <tr>
            <td><div style="float:right; padding-right:10px"><div id="mypage">
                  <%call listpages(mycondition)%>
                  <%rs.close
set rs=nothing%>
                

            <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")&"?classid="&classidd&"&currentpage=10&p="&p-1&mycondition&">前十页 </a> "
    else
	response.write	""
    end if
	'-------------------下面写出当前十个页码
	response.write "</td><td> <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")&"?classid="&classidd&"&currentpage="&i&"&p="&p&mycondition&"><font class=no >"&(p*10+i)&"</font></a></b><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")&"?classid="&classidd&"&currentpage=1&p="&p+1&mycondition&">后十页</a>" 
		else
		response.write ""
	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>
<!-- list end -->
                           
                    </table>
                  </td>
                </tr>
            </table>
            </td>
          </tr>
        </table></div>
        <div style="height:10px; clear:both;width:100%; line-height:10px;"></div>
        <div align="center">
<table width="100%" border="0" cellpadding="0" cellspacing="0" id="Bottomholder">
  <tr>
    <td align="center">
      <table width="950" border="0" align="center" cellpadding="0" cellspacing="0">
        <tr>
          <td width="131">
<!-- sidebar end -->
<!--#include file="end.asp"-->
</td>
              </tr>
            </table>
          </td>
        </tr>
      </table>
    </td>
  </tr>
</table>
 
</body>
</html>