<!--#include file="inc/conn.asp"-->
<!--#include file="inc/safe.asp"-->
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>红嫂视屏交友情缘网</title>
<meta name="keywords" content="情感,在线,新新,照片,动感影片,诗歌,爱情,纯洁,心连心">
<meta name="description" content="红嫂视屏交友情缘 情感在线">
<link href="style.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
body {
	margin-left: 0px;
	margin-top: 0px;
	margin-right: 0px;
	margin-bottom: 0px;
	background-image: url();
	background-repeat: repeat-x;
}
-->
</style>
<script language="javascript">
<!--
function chkit(){
if(this.document.form1.skey.value==""){
  return false;
}
return true;
}
//-->
</script>
</head>
<%
dim cid,cname
cid=replacebadchar(request("c_id"))
if cid="" then cid=0
if cid<>0 then
set rs=server.createobject("adodb.recordset")
sql1="select * from video_class where classid="& cid
rs.open sql1,conn,1
cname=rs("classname")
rs.close
set rs=nothing
else
 cname=""
end if
%>
<body>
<table width="1002" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td><!--#include file="top.asp"--></td>
  </tr>
</table>
<table width="950" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td width="204" height="328" valign="top"><table width="190" border="0" cellpadding="0" cellspacing="0" >
        <tr>
          <td height="31" background="image/tiao_1.gif">&nbsp;&nbsp;<span style="font-weight: bold">选择分类</span></td>
        </tr>
        <tr>
          <td height="841" align="center" valign="top" style="border-left:#C7C8CC 1px solid;border-right:#C7C8CC 1px solid;border-bottom:#C7C8CC 1px solid"><br>
              <table width="150" border="0" cellpadding="0" cellspacing="0">
                <tr>
                  <td height="26" align="left"><%if cid=0 then%>
                      <strong class="style30"> &raquo; 全部</strong>
                      <%else%>
                      <a href="gdxs.asp" class="ll">全部</a>
                      <%end if%>
                  </td>
                </tr>
                <%
			  set rs=server.createobject("adodb.recordset")
			  sql="select * from video_class"
			  rs.open sql,conn,1
			  do while not rs.eof
			  %>
                <tr>
                  <td height="26" align="left"><%if clng(cid)=clng(rs("classid")) then%>
                      <strong class="style30"> &raquo; <%=rs("classname")%></strong>
                      <%else%>
                      <a href="gdxs.asp?c_id=<%=rs("classid")%>" class="ll"><%=rs("classname")%></a>
                      <%end if%></td>
                </tr>
                <%
			  rs.movenext
			  loop
			  rs.close
			  set rs=nothing
			  %>
              </table></td>
        </tr>
    </table></td>
    <td valign="top"><table width="749" border="0" align="center" cellpadding="0" cellspacing="0">
        <tr>
          <td><TABLE width="100%" border=0 
            cellPadding=0 cellSpacing=0 bgColor=white class="STYLE4" >
              <TBODY>
                <TR>
                  <TD width="2%" align=left background="image/tiao_4.gif"><img src="image/tiao_3.gif" width="10" height="31"></TD>
                  <TD height="20" align=center background="image/tiao_4.gif"><table width="97%" border="0" cellpadding="0" cellspacing="3" class="STYLE4">
                      <tr>
                        <td width="62" class="pgd"><strong>自拍秀</strong></td>
                        <td width="448" align="right"><div align="left"><span class="style30">
                        </span></div></td>
                        <td width="177" align="right"><span class="style30">&nbsp;</span></td>
                      </tr>
                  </table></TD>
                  <TD width="2%" align="right" background="image/tiao_4.gif"><img src="image/tiao_2.gif" width="10" height="31"></TD>
                </TR>
              </TBODY>
          </TABLE></td>
        </tr>
        <tr>
          <td height="299" valign="top" style="border-left:#C7C8CC 1px solid;border-right:#C7C8CC 1px solid;border-bottom:#C7C8CC 1px solid"><br>
              <table width="720" border="0" align="center" cellpadding="0" cellspacing="0">
                <tr>
                  <td height="4" bgcolor="#FFFFFF"></td>
                </tr>
                <tr>
                  <td height="30" align="center" bgcolor="#FFFFFF"><table width="667" height="30" border="0" cellpadding="0" cellspacing="0">
                      <form name="form1" method="post" action="schvideo.asp" onSubmit="return chkit()">
                        <tr>
                          <td width="92"><strong class="style30">视频搜索</strong></td>
                          <td width="378"><input name="skey" type="text" id="skey" style="height:24px; width:350px;"></td>
                          <td width="197"><input name="Submit" type="submit" value="搜索" style="height:24px; width:45px;"></td>
                        </tr>
                      </form>
                  </table></td>
                </tr>
                <tr>
                  <td height="4" bgcolor="#FFFFFF"></td>
                </tr>
                <tr>
                  <td align="center" bgcolor="#FFFFFF"><table width="697" border="0" cellspacing="0" cellpadding="0">
                      <tr>
                        <td align="right" valign="top"><table width="697" border="0" cellspacing="0" cellpadding="0">
                            <tr>
                              <td>&nbsp;</td>
                            </tr>
                            <tr>
                              <td><table width="697" border="0" cellspacing="0" cellpadding="0">
                                  <tr>
                                    <td height="620" align="center" valign="top"><%
 dim  intcount,intpagecount,rowcount
 set rst=server.CreateObject("adodb.recordset")
 sql="select id,title,userid,username,click,dtime,pic from video_info "
 if cid<>0 then
  sql=sql+"where classid="& cid &""
 end if
 sql=sql+" order by id DESC"
  rst.open sql,conn,1,1
  if rst.eof and rst.bof then
     response.Write "<p class='style8889'><br>没有视频文件！<br><br></p>"
  else 
   	rst.pagesize=20
	page=request("page")
	if page<1 or page="" then page=1
	if clng(page)>clng(rst.pagecount) then page=clng(rst.pagecount)
	page=clng(page)
	rst.absolutepage=page
	intcount=clng(rst.recordcount)
	intpagecount=clng(rst.pagecount)
	rowcount=clng(rst.pagesize)	
	j=1
 %>
                                        <table width="697" border="0" cellpadding="0" cellspacing="0">
                                          <tr>
                                            <%do while not rst.eof and rowcount>0%>
                                            <td width="132" valign="top"><table width="132" border="0" cellpadding="0" cellspacing="0">
                                                <tr>
                                                  <td width="132" height="102" align="center" background="images/xx.gif"><a href="watchtv_lei.asp?v_id=<%=rst("id")%>" class="st1" target="_blank"><img src="videoimage/<%=rst("pic")%>" width="120" height="90" border="0" /></a></td>
                                                </tr>
                                                <tr>
                                                  <td height="50"><div class="lh15 f13"><a href="watchtv.asp?v_id=<%=rst("id")%>" class="st1" target="_blank">
                                                      <%
							  if len(rst("title"))<18 then
							    response.write rst("title")
							  else
							    response.write left(rst("title"),17)&"..."
							  end if
							  %>
                                                    </a></div>
                                                      <div class="lh13 c9"> 上传：<a href="userinfo.asp?user_id=<%=rst("userid")%>" target="_blank"><%=rst("username")%></a> <br>
                                                        点击：<%=rst("click")%>次 <br>
                                      时间：<%=formatdatetime(rst("dtime"),2)%> </div></td>
                                                </tr>
                                            </table></td>
                                            <%
rst.movenext
rowcount=rowcount-1
j=j+1
if j>5 then 
  j=1
  response.write "</tr>"
else
  response.write "<td>&nbsp;</td>"  
end if
loop
for h=j to 5
 response.write "<td width=132>&nbsp;</td>"
 if h=5 then
  response.write "</tr>"
 else
  response.write "<td>&nbsp;</td>"
 end if
next
%>
                                      </table>
                                        <%end if%>
                                    </td>
                                  </tr>
                              </table></td>
                            </tr>
                            <tr>
                              <td>&nbsp;</td>
                            </tr>
                        </table></td>
                      </tr>
                      <tr>
                        <td>&nbsp;</td>
                      </tr>
                  </table></td>
                </tr>
                <tr>
                  <td height="28" align="right" bgcolor="#EAF4FE" class="style895"><%listPages("gdxs.asp?c_id="& cid &"") %></td>
                </tr>
                <tr>
                  <td height="5"></td>
                </tr>
              </table>
</td>
        </tr>
    </table></td>
  </tr>
</table>
<table width="1002" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td><!--#include file="root.asp"--></td>
  </tr>
</table>
</body>
</html>
