<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="inc/ubbcode.asp"-->
<!--#include file="inc/function.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">


<SCRIPT LANGUAGE="JavaScript">
<!-- Hide
function killErrors() {
return true;
}
window.onerror = killErrors;
// -->
</SCRIPT>

<script type=text/javascript>var xijuan={channel:"index"}</script>
<script type=text/javascript src="Inc/main.js"></script>
<!--#include file="top.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="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="flv" name="mysort" id="mysort">用户视屏</option>
             <option value="zone" name="mysort" id="mysort">注册用户</option>
             <option value="photo" 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><div id="mainbody">
<!-- Main start -->
<div class="main">
	<div class="main_l">
		<!--Start myshow -->

		<div class="leftcolumn"><div class="b1tl"></div><div class="b1tr"></div><div class="b1tbg"><div class="b1tm"></div></div>
		<div class="b3c">
			<div class="b3cnb">
				<div class="tabsnav2">
				    <h2 class="title1">
					<div class="more"><a href="flv_index.asp">-更多</a></div>
		
					<ul class="tabsmenu">
					    <li>推荐视屏</li>

					</ul><div class="clear"></div>
				    </h2>
				</div>
			</div>
			<div >

                                <%
set rs=server.createobject("adodb.recordset")
rs.open "select top 5 * from [flv] where elite=true and Deleted=false order by photoid 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=video_play.asp?photoid=<%=rs("photoID")%> class="imgvideo"target="_blank"><img name="picbg_r1_c1" src="<%=rs("PhotoUrl_Thumb")%>" width="126" height="102" border="0" alt=""></a> </a></td>
                        </tr>
                        <tr>
                          <td height="0" align="center" valign="bottom"> <a href=video_play.asp?photoid=<%=rs("photoID")%> target="_blank"><%=left(rs("photoname"),5)%></a></td>
       </tr>
                      </table></td>
					  
<%        rs.movenext
loop
rs.close
set rs=nothing
%>
</tr></table>











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


<!-- Main start --><IFRAME id=iframe01 name=iframe01 marginWidth=0 marginHeight=0 src="dlb.asp" frameBorder=0 width=100% scrolling=no height=38></IFRAME>
<div>
	<div class="main_l">
<!--Start myshow -->
		<div  class="leftcolumn"><div class="b1tl"></div><div class="b1tr"></div><div class="b1tbg"><div class="b1tm"></div></div>
		<div class="b3c">
			<div class="b3cnb">
				<div class="tabsnav2">
				    <h2 class="title1">
					<div class="more"><a href="myzone.asp" target="_blank">-更多</a></div>
		
					<ul class="tabsmenu">
					    <li  >视屏相册</li>

					</ul><div class="clear"></div>
				    </h2>
				</div>
			</div>
			<div >


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

             
                                    <%
myPagesize=7
set rs=server.createobject("adodb.recordset")
rs.open "select * from mtv_Photo order by Elite desc",conn,1,1
call myPages(rs,myPagesize)
%>
                                        <%line=myPagesize
dimm i
i=1
do while not rs.eof and line>0
%>
                      <td height="80" align="center" bgcolor="#FFFFFF"><table border="0" cellspacing="0" cellpadding="0">
                        <tr>
                          <td height="3"></td>
                        </tr>
                        <tr>
                          <td align="center" > <a href="mtv_play.asp?id=<%=rs("id")%> "class="imgvideo" target="_blank"><IMG height="75" src="<%=rs("s_images")%>" width="85"> </a></td>
                        </tr>
                        <tr>
                          <td height="20" align="center" valign="bottom"><a href="mtv_play.asp?id=<%=rs("id")%>" target="_blank" ><font class=no color="#6B5F9E"><%=left(rs("title"),7)%></font></a></td>
       </tr>
                      </table></td>
<%if i mod 5=0 then%>
                                     
                                      <%else%>
                                      <%end if%>
                                      <%rs.movenext
   line=line-1
   i=i+1
loop
  %>

</tr></table>










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





			<!-- End top_content -->
		  </div>
		</div>

		<!--Start newvideo -->
		<div class="leftcolumn">
		<div class="b1tl"></div><div class="b1tr"></div><div class="b1tbg"><div class="b1tm"></div></div>
			<div class="b3c">
				<div class="b3cnb">
				<div class="tabsnav2">
					<h2 class="title1"><div class="more"><a href="http://www.516show.cn" target="_blank">-更多</a></div>
						<ul class="tabsmenu2">
							<li>最新视频</li>

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

			<!-- Start Starslist -->

                                    <%
myPagesize=10
set rs=server.createobject("adodb.recordset")
rs.open "select * from flv order by photoid desc",conn,1,1
call myPages(rs,myPagesize)
%>			<div class="new_content">
				<div id="new_cnt">
					<div id="videoList">
                                        <%line=myPagesize
dim i
i=1
do while not rs.eof and line>0
%>

    <div class="cont2">

        <li>   






                           



            <div class="vdimg fleft">







<a href=video_play.asp?photoid=<%=rs("photoID")%> class="imgvideo" target="_blank"><img name="picbg_r1_c1" src="<%=rs("PhotoUrl_Thumb")%>" width="130" height="95" border="0" alt=""></a>
                </a>
            </div>
            <div class="vdinfo fright">
                <h5 class="title">
                           <a href=video_play.asp?photoid=<%=rs("photoID")%> target="_blank"><%=left(rs("photoname"),9)%>  </a>
                </h5>
                <p>作者：<%
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=user.asp?userid=<%=rsf("userid")%> target="_blank"><%=rs("editor")%></a></p>
<p style="width:180px; height:18px; overflow:hidden;">标签：<%=rs("ClassName")%>
</p>
                <p>播放：<span class="forange2"><%=rs("hits")%></span></p>

                <p>上传时间：<%=year(rs("UpdateTime"))%>-<%=month(rs("UpdateTime"))%>-<%=day(rs("UpdateTime"))%></p>
            </div>
        </li>
  <%if i mod 5=0 then%>
                                     
                                      <%else%>
                                      <%end if%>
                                      <%rs.movenext
   line=line-1
   i=i+1
loop
  %>
    </div>
</div>
				</div>
			</div>
		  </div>
		</div>

		<!--Start groupshow -->
		<div class="leftcolumn">
		<div class="b1tl"></div><div class="b1tr"></div><div class="b1tbg"><div class="b1tm"></div></div>
			<div class="b3c">
				<div class="b3cnb">
				<div class="tabsnav3">
					<h2 class="title1"><div class="more"><a href="photomore.asp">-更多</a></div>
					
						<ul class="tabsmenu">
							<li >家园排行</li>
						 <div class="clear"></div>
					</h2>
				</div>
				</div>
			<div class="group_content" style="padding-bottom:5px">
				<div id="groupList">





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

				  <%

						i=1
do while not rs.eof
%>
    <div class="cont3">



            <li>
                <div class="gpimg">
                   <a href=user.asp?userid=<%=rs("userid")%> class="imgvideo" target="_blank"><img name="picbg_r1_c1" src="<%if rs("UserPhoto")<>"" then%><%=rs("UserPhoto")%><%else 
						  response.Write "images/nopic2.jpg"end if%>" width="130" height="95" border="0" alt=""></a>                </div>
                <div class="gpinfo">
                    <h5 class="title">
                       <a href="user.asp?userid=<%=rs("userid")%> "target="_blank"><%=left(rs("username"),9)%>
                        </a>
                    </h5>
                    <p>性别：<%
			if rs("Sex")=1 then
				response.write " <img src='isky/boy.gif' border=0 alt=男> "
			else
				response.write " <img src='isky/girl.gif' border=0 alt=女> "
			end if
		  %> </p>
                    <p>点击：<%=rs("hits")%> </p>
                </div>
                <div style="margin:0px; clear:both; text-align:left;">
                 

                </div>
            </li>

				<%
						i=i+1
						if i>7 then exit do
						rs.movenext
						loop
						rs.close
						set rs=nothing%>
    </div>
				</div>
			</div>
		  </div>
		</div>
	</div><!-- End main_l -->


		<!--Start login -->
		<div class="rightcolumn">
		<div class="bulletin" >
		<div class="b1tl"></div><div class="b1tr"></div><div class="b1tbg"><div class="b1tm"></div></div>
		<div class="b3c">
		<div class="b3cnb" style="padding-bottom:1px;"><h2 class="title"><div class="name">用户登录</div></h2></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 -->
<BR>


<a href="User_Reg.asp"><img src="img0415/logs.jpg" width="100%" height="65" /></a>

.
	<div class="rightcolumn">
		<div class="hottopic" >
		<div class="b1tl"></div><div class="b1tr"></div><div class="b1tbg"><div class="b1tm"></div></div>
		<div class="b3c">
		<div class="b3cnb"><h2 class="title"><div class="name">热门频道推荐</div></h2></div>
			<div>
				<ul>
	<li style="display:none" class="title">
				<img class="img2" src="Inc/global/images/1.gif" />&nbsp;
				<a href="flv_class.asp?classid=44" target="_blank" title="“香车美女">香车美女</a> 车展，车模，美女
	</li>
	<li class="pic">
		<a href="flv_class.asp?classid=44" target="_blank" title="香车美女"><img width="210"  height="75" src="img/071018163826.jpg" alt="“香车美女"/></a>
	</li>
			<li class="title"><img class="img2" src="Inc/global/images/2.gif" />&nbsp;
				<a href="flv_class.asp?classid=35" target="_blank" title="体育运动">体育运动</a> 精彩片段，魅力生活 
			</li>
			<li class="pic" style="display:none">
				<a href="flv_class.asp?classid=35" target="_blank" title="体育运动"><img width="210"  height="75" src="img/071018171640.jpg" alt="体育运动 "/></a>
			</li>
			<li class="title"><img class="img2" src="Inc/global/images/3.gif" />&nbsp;
				<a href="flv_class.asp?classid=47" target="_blank" title="综艺娱乐">综艺娱乐</a> 明星八卦，网络红人
			</li>
			<li class="pic" style="display:none">
				<a href="flv_class.asp?classid=47" target="_blank" title="综艺娱乐"><img width="210"  height="75" src="img/071018154952.jpg" alt="综艺娱乐"/></a>
			</li>
			<li class="title"><img class="img2" src="Inc/global/images/4.gif" />&nbsp;
				<a href="flv_class.asp?classid=54" target="_blank" title="原创自拍">原创自拍</a> 我的舞台、我做主
			</li>
			<li class="pic" style="display:none">
				<a href="flv_class.asp?classid=54" target="_blank" title="原创自拍"><img width="210"  height="75" src="img/071019145345.jpg" alt="原创自拍"/></a>
			</li>
				</ul>
			</div>
			<div style="height:6px;font-size:1px"></div>
		  </div>
		</div>
		</div>


		<div class="rightcolumn">
			<div class="b1tl"></div><div class="b1tr"></div><div class="b1tbg"><div class="b1tm"></div></div>
			<div class="b3c">
				<div class="b3cnb">
				<h2 class="title1">
					<div >

<li  ><span>本周视屏排行</span></a></li>
					</div>
				</h2>
				</div>
				<div >
    <ul>
          <table width="100%" border="0" cellpadding="0" cellspacing="1">
                        <tr>
                          <td> <table width="100%" border="0" align="center" cellpadding="0" cellspacing="5">




<%
set rs=server.createobject("adodb.recordset")
rs.open "select top 10 * from [flv]  order by WeekHits 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><a href="video_play.asp?photoid=<%=rs("photoid")%>" target="_blank"><%=left(replace(rs("photoname"),"&nbsp;",""),12)%>
                         <%
				  if len(rs("photoname"))>12 then
				   response.Write""
				   else 
				   end if%></a>
                         <td width="20" align="center"><font color="#FF6600" style="font-size:10" ><%=rs("WeekHits")%></font></td>
                     </tr>
                   </table>
                   </td>
			    </tr>
				<%
						i=i+1
						if i>10 then exit do
						rs.movenext
						loop
						rs.close
						set rs=nothing%>
              </table></td>
                        </tr>
                      </table>

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

					</div>
					<div ></div>
				  </div>
			</div>
		</div>
		<div class="rightcolumn">
		<div class="b1tl"></div><div class="b1tr"></div><div class="b1tbg"><div class="b1tm"></div></div>
		<div class="b1c">
		<div class="b1cnb">
		<h2 class="title">
			<div class="more">
				<a href="myzone.asp" target="_blank">-更多</a></div><div class="name">最新家园</div>
		</h2></div>

                      <%
if request("action")<>"" then
actions=request("action")
else
actions="userid"
end if
if request("city")<>"" then
city=request("city")
myPagesize=3

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

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 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")%>&mdid=indexd" 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>3 then exit do
						rs.movenext
						loop
						rs.close
						set rs=nothing%>
		
		</div>
		<div class="rightcolumn"><br>
		<div class="attention" >
		<div class="b1tl"></div><div class="b1tr"></div><div class="b1tbg"><div class="b1tm"></div></div>
		<div class="b1c">
		<div class="b1cnb"><h2 class="title"><div class="name">关注播客家园网站</div></h2></div>
			<div style="height:2px;font-size:1px"></div>
			<div>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
                        <%
set rs=server.createobject("adodb.recordset")
rs.open "select top 8 * from Announce order by ID desc",conn,1,1 
%>
                        <Tr >
                          <td height="9" colspan="3"></td>
                        </tr>
                        <%if rs.recordcount=0 then %>
                        <Tr align="center" >
                          <td height="25" colspan="3">暂时没有公告!!!</td>
                        </tr>
                        <%else%>
                        <%
do while not rs.eof
%>
                        <tr>
                          <td height="24">&nbsp;<img src="img0415/yuan.gif"><a href="announce.asp?id=<%=rs("id")%>" target="_blank"><font color="<%=rs("titlecolor")%>"><%=gotTopic(rs("title"),30)%></font></a>
                              
                          </td>
                          <td width="0" align="right"> </td>
                        </tr>
                        <%rs.movenext
loop
%>
                        <%end if%>
                        <%rs.close
set rs=nothing%>
                      </table></td>
                    </tr>
                  </table>

			</div>
			<div ></div>
		  </div>
		</div>
		</div>
	</div><!--Eng main_r -->




<!--Eng main_r -->

   </table></td>
                    </tr>
                  </table>

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


<!-- sidebar end -->

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


<div >


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


</body>
</html>