<!--#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">
<link href="css.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(images/b.jpg);
	background-repeat: repeat-x;
}
-->
</style>
<script language="javascript">
<!--
function chkit(){
if(this.document.form1.skey.value==""){
  return false;
}
return true;
}
//-->
</script>
</head>
<%
dim skey
skey=trim(replacebadchar(request("skey")))
%>
<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="794" 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" cellspacing="0" cellpadding="0">
          <tr>
            <td>&nbsp;</td>
          </tr>
          <tr>
            <td align="right" background="images/m1.jpg"><table width="145" border="0" cellpadding="0" cellspacing="0">
                <tr>
                  <td height="26" align="left"><a href="gdxs.asp" class="a1">全部</a> </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"><a href="gdxs.asp?c_id=<%=rs("classid")%>" class="a1"><%=rs("classname")%></a> </td>
                </tr>
                <%
			  rs.movenext
			  loop
			  rs.close
			  set rs=nothing
			  %>
            </table></td>
          </tr>
          <tr>
            <td>&nbsp;</td>
          </tr>
        </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 class="pgd">视频搜索结果</td>
                        <td width="80" align="right">&nbsp;</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="680" height="30" border="0" align="center" cellpadding="0" cellspacing="0">
              <form name="form1" method="post" action="schvideo.asp" onSubmit="return chkit()">
                <tr>
                  <td width="78"><strong class="style30">视频搜索</strong></td>
                  <td width="378"><input name="skey" type="text" id="skey" style="height:24px; width:350px;" value="<%=skey%>"></td>
                  <td width="224"><input name="Submit" type="submit" value="搜索" style="height:24px; width:45px;">
                  </td>
                </tr>
                <tr>
                  <td>&nbsp;</td>
                  <td>&nbsp;</td>
                  <td>&nbsp;</td>
                </tr>
              </form>
            </table>
            <table width="697" border="0" align="center" cellpadding="0" cellspacing="0">
              <tr>
                <td width="697" height="251" valign="top" background="images/h1.jpg"><table width="697" border="0" cellspacing="0" cellpadding="0">
                    <tr>
                      <td height="214" align="center"><%
 dim  intcount,intpagecount,rowcount
 set rst=server.CreateObject("adodb.recordset")
 sql="select id,title,userid,username,click,dtime,pic from video_info "
 if skey<>"" then
  sql=sql+"where title like '%%"& skey &"%%' or tag like '%%"& skey &"%%'"
 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="691" height="155" border="0" cellpadding="0" cellspacing="0">
                            <tr>
                              <%do while not rst.eof and rowcount>0%>
                              <td width="132"><table width="132" border="0" cellpadding="0" cellspacing="0">
                                  <tr>
                                    <td width="132" height="102" align="center" background="images/xx.gif"><a href="watchtv.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><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 height="27" bgcolor="E8E6E7"><div align="right"><span class="style895">
                    <%listPages("gdxs.asp?c_id="& cid &"") %>
                </span></div></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>
