<!--#include file="inc/conn.asp"-->
<!--#include file="inc/safe.asp"-->
<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();
}
.STYLE8 {
	color: #CC0099;
	font-size: 12px;
	font-weight: bold;
}
.STYLE31 {color: #666666; font-size: 12px;}
.style91 {color: #60A7E5}
-->
</style>
</head>
<body>
<%
personid=request.QueryString("user_id")
if personid="" or not isnumeric(personid) then
  response.Write "会员编号必须为数字，操作错误！"
  response.end
end if
set rs=server.CreateObject("adodb.recordset")
sql="select grade,shipinid from user_info where userid="& personid &""
rs.open sql,conn,1
if rs.eof and rs.bof then
  response.Write "<p>&nbsp;</p><div align='center' class='style30'>没有此编号会员</div><p>&nbsp;</p>"
  response.end
else
if rs("grade")<>3 then
  response.Write "<p align=""center"" class=""STYLE30""><br><br> 此会员不是VIP会员，只有VIP会员才有设置个人视频的权限。如果您想升级为VIP会员，请点击<a href=""userupdate.asp"" target=""_blank""><font color=#FF0000>这里</font></a>升级为VIP会员。<br> <br> </p>"
  response.End
end if
if rs("shipinid")=0 or isnull(rs("shipinid")) then
  response.Write "<p align=""center"" class=""STYLE30""><br><br>Sorry， 此会员还没有设置个人视频。<br> <br> </p>"
  response.End
end if

set rs1=server.CreateObject("adodb.recordset")
sql1="select movie from video_info where id="& rs("shipinid")
rs1.open sql1,conn,1
if rs1.eof and rs1.bof then 
  response.Write "<p align=""center"" class=""STYLE30""><br><br>Sorry， 此会员设置个人视频文件已不存在。<br> <br> </p>"
  response.end
end if

tadd=rs1("movie")
filetype=right(trim(tadd),3)
rs1.close
set rs1=nothing
%>
 <table width="340" border="0" align="center" cellpadding="2" cellspacing="2">
 <tr >
 <td width="88" height="27" class="STYLE1" background="image/dw.jpg"><div align="left"><strong>我的视频</strong></div></td>
 <td width="232" class="STYLE1" background="image/dw.jpg">&nbsp;</td>
 </tr>
   <tr>
  <td height="220" colspan="2"><%
  if filetype=".rm" or filetype="ram" or filetype="mvb" then
  Call Showrm(tadd)
  elseif filetype="asf" or filetype="wmv" or filetype="avi" or filetype="peg" then
  Call Showasf(tadd)
  elseif filetype="flv" then
  Call ShowFlv(tadd)  
  else
  response.write "<div align='center' class='style30'>无法播放此格式</div>"
  end if
  %></td>
   </tr>
</table>
<%end if
rs.close
set rs=nothing
conn.close
set conn=nothing
%>												  
</body>
</html>
<%
Sub Showrm(MV)
%>   
    <OBJECT classid=clsid:CFCDAA03-8BE4-11cf-B84B-0020AFBBCCFA height=280 
      id=video1 width=340>
              <param name="_ExtentX" value="9313">
        <param name="_ExtentY" value="7620">
        <param name="AUTOSTART" value="-1">
        <param name="SHUFFLE" value="0">
        <param name="PREFETCH" value="0">
        <param name="NOLABELS" value="0">
        <param name="SRC" value="video/<%=MV%>">
        <param name="CONTROLS" value="ImageWindow,ControlPanel">
        <param name="CONSOLE" value="Clip1">
        <param name="LOOP" value="0">
        <param name="NUMLOOP" value="0">
        <param name="CENTER" value="0">
        <param name="MAINTAINASPECT" value="0">
        <param name="BACKGROUNDCOLOR" value="#000000"><embed src="video/<%=MV%>" type="audio/x-pn-realaudio-plugin" console="Clip1" controls="ControlPanel,StatusBar" height="280" width="340" autostart="true">
      </OBJECT>
<%
End Sub
%>
<%
Sub Showasf(MV)
%>
  <object align="middle" classid="CLSID:22d6f312-b0f6-11d0-94ab-0080c74c7e95" 
id="MediaPlayer" width="340" height="280"> 
<param name="ShowStatusBar" value="0"> 
<param name="Filename" value="video/<%=MV%>"> 
<embed type="application/x-oleobject" codebase="http://activex.microsoft.com/activex/controls/mplayer/en/nsmp2inf.cab#Version=5,1,52,701" flename="mp" src="video/<%=MV%>" width=340 height=280></embed> 
</object>  
<%
End Sub
%>
<%
Sub ShowFlv(MV)
%>
<embed src="WhitePlayer.swf?id=video/<%=MV%>" type="application/x-shockwave-flash" wmode="transparent" quality="high" width="340" height="280" autostart="true"> </embed>
<%End Sub%>	
