<!--#include file="inc/conn.asp"-->
<!--#include file="inc/safe.asp"-->
<!--#include file="inc/config.asp"-->
<!--#include file="inc/const.asp"-->
<!--#include file="inc/UpLoadClass1.asp"-->
<%
if MemberName="" then
  response.Redirect("userlogin.asp")
  response.end
end if
%>
<html>
<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 {
	background-image: url();
}
.STYLE31 {color: #666666; font-size: 12px;}
-->
</style>
</head>
<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="184" height="328" valign="top"><!--#include file="memberleft.asp"-->
</td>
    <td width="603" valign="top"><table width="565" 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="31" align=center background="image/tiao_4.gif"><TABLE width=540 height="27" border=0 cellPadding=0 cellSpacing=0>
                      <TBODY>
                        <TR>
                          <TD width="540" height="27" align=middle class="pgd">我的视频</TD>
                        </TR>
                      </TBODY>
                  </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"><div align="center">
            <table width="565" height="420" border="0" cellpadding="0" cellspacing="0">
              <tr>
                <td colspan="2" align="center" valign="top"><%
 dim  intcount,intpagecount,rowcount,tbvid
 
 tbvid=0
 set r1=server.CreateObject("adodb.recordset")
 sql1="select shipinid from user_info where userid="& userid
 r1.open sql1,conn,1
 if r1("shipinid")<>0 and not isnull(r1("shipinid")) then
   tbvid=r1("shipinid")
 end if
 r1.close
 set r1=nothing
 
 set rst=server.CreateObject("adodb.recordset")
 sql="select id,title,click,dtime,pic from video_info where userid="& userid &" 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=12
	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="580" height="155" 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.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" title="<%=rst("title")%>">
                                  <%
							  if len(rst("title"))<11 then
							    response.write rst("title")
							  else
							    response.write left(rst("title"),10)
							  end if
							  %>
                                </a></div>
                                  <div class="lh13 c9">点击：<%=rst("click")%>次 <br>
                                    时间：<%response.Write formatdatetime(rst("dtime"),2)
									if memberclass="VIP会员" then
									%> <br><br>
									<%if tbvid=rst("id") then
									  response.Write "<font color=#FF0000>个人介绍视频</font>"
									else
									  response.Write "<a href='settbjyv.asp?vid="& rst("id") &"'>设为个人介绍视频</a>"
									end if
							       end if%>
</div></td>
                            </tr>
							<tr><td height="10"></td></tr>
                        </table></td>
                        <%
rst.movenext
rowcount=rowcount-1
j=j+1
if j>4 then 
  j=1
  response.write "</tr>"
else
  response.write "<td>&nbsp;</td>"  
end if
loop
for h=j to 4
 response.write "<td width=132>&nbsp;</td>"
 if h=4 then
  response.write "</tr>"
 else
  response.write "<td>&nbsp;</td>"
 end if
next
%>
                    </table>
                    <%end if%>
                </td>
              </tr>
              <tr bgcolor="E8E6E7">
                <td width="555" height="25" valign="middle"><%listPages("manavideo.asp") %>
                </td>
                <td width="35" align="center" valign="middle">&nbsp;</td>
              </tr>
            </table>
            <br>
                            </div></td>
        </tr>
    </table></td>
    <td width="163" valign="top"><!--#include file="fenlei.asp"-->
</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>
