<!--#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" src="js/v.js"></script>
<%
dim vid
vid=replacebadchar(request.QueryString("v_id"))
set rs=server.CreateObject("adodb.recordset")
sql="select * from video_info where id="& vid
rs.open sql,conn,1
if rs.eof and rs.bof then response.end

tadd=rs("movie")
filetype=right(trim(tadd),3)

sql1="update video_info set click=click+1 where id ="& vid
conn.execute(sql1)
%>
<SCRIPT language="javascript">
var vid = "<%=vid%>";
var canstar = '<%=Request.Cookies(""& vid &"")("score")%>';
var staravg = '<%=rs("score")%>';
var curstarcount = '<%=rs("people")%>';
var curstar = 0;
</SCRIPT>
</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" height="25" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td width="484" align="left" valign="top"><table width="475" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td height="35" align="center" valign="middle"><div style="font-size:16px; font-family:'宋体'; font-weight:bold; color:#0066CC"><%=rs("title")%></div></td>
        </tr>
        <tr>
          <td align="center" valign="middle"><%
  if filetype=".rm" or filetype="ram" or filetype="mvb" then
  Call Showrm()
  elseif filetype="asf" or filetype="wmv" or filetype="avi" or filetype="peg" then
  Call Showasf()
  elseif filetype="flv" then
  Call ShowFlv()  
  else
  response.write "<div align='center' class='style30'>无法播放此格式</div>"
  end if
  %></td>
        </tr>
        <tr>
          <td height="5" align="center" valign="bottom" class="style30"></td>
        </tr>
        <tr>
          <td height="30" align="center" valign="middle" style="border-top:#C7C8CC 1px solid;border-left:#C7C8CC 1px solid;border-right:#C7C8CC 1px solid;border-bottom:#C7C8CC 1px solid"><TABLE cellSpacing=0 width=454 border=0>
              <TBODY>
                <TR>
                  <TD noWrap width=120>播放: <%=rs("click")%>次</TD>
                  <TD noWrap height=40><%
						  if rs("people")=0 then
						    Lstar=0
						  else
						    Lstar=cint(rs("score")/rs("people")*95/5)
						  end if
						  %>
                      <DIV class=xl_dj_w id=ss_avg style="FLOAT: left" align=left>
                        <DIV class=xl_dj_n id=xl_star_avg 
                  style="WIDTH: <%=Lstar%>px"></DIV>
                      </DIV>
                      <DIV 
                  style="FLOAT: left; MARGIN-LEFT: 5px; PADDING-TOP: 5px"><SPAN 
                  id=starcount><%=rs("people")%></SPAN>人评星</DIV></TD>
                  <TD noWrap align=right width=70><DIV class=c8 id=mt style="PADDING-TOP: 3px">
                      <DIV class=c3>请您评星: </DIV>
                  </DIV></TD>
                  <TD noWrap width=100><DIV id=ss_img>
                      <DIV 
                  onmouseout="mt.innerHTML = '<span class=c3>请您评星：</span>';"><IMG 
                  class=cp id=img1 onmouseover=mn(1) 
                  onclick="xl_mc(1, '<%=rs("id")%>')" 
                  onmouseout=mf() height=20 
                  src="images/v2_gx_hxx2.gif" 
                  width=19 border=0><IMG class=cp id=img2 onmouseover=mn(2) 
                  onclick="xl_mc(2, '<%=rs("id")%>')" 
                  onmouseout=mf() height=20 
                  src="images/v2_gx_hxx2.gif" 
                  width=19 border=0><IMG class=cp id=img3 onmouseover=mn(3) 
                  onclick="xl_mc(3, '<%=rs("id")%>')" 
                  onmouseout=mf() height=20 
                  src="images/v2_gx_hxx2.gif" 
                  width=19 border=0><IMG 
                  src="images/v2_gx_hxx2.gif" name="img4" 
                  width=19 height=20 border=0 class=cp id=img4 
                  onclick="xl_mc(4, '<%=rs("id")%>')" onmouseover=mn(4) 
                  onmouseout=mf()><IMG class=cp id=img5 onmouseover=mn(5) 
                  onclick="xl_mc(5, '<%=rs("id")%>')" 
                  onmouseout=mf() height=20 
                  src="images/v2_gx_hxx2.gif" 
                  width=19 border=0></DIV>
                  </DIV></TD>
                  <SCRIPT>
					if (canstar > 0) {
						ss_img.innerHTML = '<img src=images/v2_gx_pxjg'+canstar+'.gif>';
						mt.innerHTML = "您的评星：";
					}
					</SCRIPT>
                </TR>
              </TBODY>
          </TABLE></td>
        </tr>
        <tr>
          <td align="center" valign="middle">&nbsp;</td>
        </tr>
        <%
loip = Request.ServerVariables("HTTP_X_FORWARDED_FOR") 
If loip = "" Then loip = Request.ServerVariables("REMOTE_ADDR") 

set rs1=server.createobject("adodb.recordset")
sql1="select count(id) from review_info where vid="&rs("id")&""
rs1.open sql1,conn,1
reviewcount=rs1(0)
rs1.close
set rs1=nothing
		  %>
        <tr>
          <td height="25" align="left" valign="middle" bgcolor="#E4EEF1"><DIV style="BACKGROUND: #e4eef1; BORDER-BOTTOM: #cbdde3 1px dashed">
              <TABLE height=25 border=0>
                <TBODY>
                  <TR>
                    <TD class=cp onclick=sh(1,sh1); align=middle width=20><IMG id=sh1 
            height=6 alt=收缩 
            src="images/v2_jctj_ico1.gif" 
width=9></TD>
                    <TD noWrap width=320>文字<A name=pl>评论: </A><SPAN class="c9 f12" 
            id=reviewcount>共<SPAN id=comment_count><%=reviewcount%></SPAN>条文字评论</SPAN></TD>
                    <TD align=right width=160><IMG height=15 alt=发表评论 
            src="images/v2_fbpl.gif" width=18 
            align=absMiddle> <A onclick=javascript:tooglecomment(fbpl); 
            href="#pl" class="ll">发表文字评论</A></TD>
                  </TR>
                </TBODY>
              </TABLE>
          </DIV></td>
        </tr>
        <tr>
          <td align="left" valign="middle" style="border-left:#C7C8CC 1px solid;border-right:#C7C8CC 1px solid;border-bottom:#C7C8CC 1px solid"><DIV id=h1c 
      style="BORDER-RIGHT: 0px; BORDER-TOP: 0px; BORDER-LEFT: 0px; BORDER-BOTTOM: 0px"><BR 
      style="LINE-HEIGHT: 1px" clear=all>
                  <DIV id=fbpl 
      style="BORDER-RIGHT: #e5eef2 1px solid; PADDING-RIGHT: 0px; BORDER-TOP: 0px; DISPLAY: none; PADDING-LEFT: 20px; PADDING-BOTTOM: 15px; BORDER-LEFT: #e5eef2 1px solid; PADDING-TOP: 3px; BORDER-BOTTOM: #e5eef2 1px solid" 
      align=left>
                    <CENTER>
                      <TABLE class=lh12 align=center border=0>
                        <TBODY>
                          <TR>
                            <TD height=5></TD>
                          </TR>
                          <TR>
                            <TD class=c9 vAlign=buttom colSpan=2>请不要发表具有谩骂、诽谤、广告、宣传等内容的评论。</TD>
                          </TR>
                        <FORM name=f_comment 
        onsubmit="javascript:return comment_submit(this, '<%=rs("id")%>');" 
        action="play_comment.asp">
                          <TR vAlign=top>
                            <TD class=c9 colSpan=2></TD>
                          </TR>
                          <TR vAlign=top>
                            <TD noWrap width=75><B>发表评论：</B></TD>
                            <TD width=340><TEXTAREA class=w100 onkeydown=zsxz(this,syzs,500) onkeyup=zsxz(this,syzs,500) name=comment rows=4 cols=50></TEXTAREA></TD>
                          </TR>
                          <TR>
                            <TD></TD>
                            <TD vAlign=top align=right><FONT class="lh15 c9">可输入
                                  <INPUT class=zs 
            id=syzs readOnly size=3 value=500>
                                  个汉字</FONT></TD>
                          </TR>
                          <TR>
                            <TD></TD>
                            <TD><INPUT class=l type=submit value=" 发 表 ">
                                　
                                <INPUT class=l onClick="javascript:fbpl.style.display='none';" type=button value=" 取 消 "></TD>
                          </TR>
                          <INPUT 
        type=hidden value="<%=rs("id")%>" name="vid">
                        </FORM>
                        <TR>
                          <TD height=15></TD>
                        </TR>
                      </TABLE>
                    </CENTER>
                  </DIV>
                  <BR 
      style="LINE-HEIGHT: 1px" clear=all>
                  <DIV id=allreviews>
                    <%
set rs2=server.createobject("adodb.recordset")
sql2="select top 20 * from review_info where vid="& vid &" order by id desc"
rs2.open sql2,conn,1
do while not rs2.eof
%>
                    <TABLE class="lh12 c6" style="BORDER-BOTTOM: #e4ecf0 1px solid" width=480 
      align=center border=0>
                      <TBODY>
                        <TR>
                          <TD height=10></TD>
                        </TR>
                        <TR class=f13>
                          <TD width=480><%=rs2("content")%></TD>
                        </TR>
                        <TR>
                          <TD height=10></TD>
                        </TR>
                        <TR>
                          <TD><%if isnull(rs2("userid")) or rs2("userid")="" or rs2("userid")=0 then%>
                              <IMG class=img_of2 style="MARGIN-RIGHT: 10px" src="images/v2_nm.gif" align=left>
                              <%
			arrayip=split(rs2("username"),".")
			response.write "游客:"&arrayip(0)&"."&arrayip(1)&"."&arrayip(2)&".*"
		else
		  set rs1=server.createobject("adodb.recordset")
							  rsql="select photo from user_info where userid="& rs2("userid")
							  rs1.open rsql,conn,1
							  if not rs1.eof then
							   photo=rs1("photo")
							  end if			
							  rs1.close
							  set rs1=nothing		
		  %>
                              <A href="userinfo.asp?user_id=<%=rs2("userid")%>" target=_blank><IMG 
            class=img_of2 style="MARGIN-RIGHT: 10px" src="uppic/photo/<%=photo%>" align=left border=0 onload="javascript:this.width=50"></A> 作者：<A href="userinfo.asp?user_id=<%=rs2("userid")%>" target=_blank><%=rs2("username")%></A>
                              <%end if%>
                              <BR>
                              <SPAN class=c9><%=rs2("dtime")%></SPAN> </TD>
                        </TR>
                        <TR>
                          <TD height=10></TD>
                        </TR>
                      </TBODY>
                    </TABLE>
                    <%
rs2.movenext
loop
rs2.close
set rs2=nothing
%>
                    <CENTER>
                    </CENTER>
                  </DIV>
            </DIV>
              <DIV class=lh20 align=right><SPAN><A 
      href="javascript:tooglecomment(fbpl);" class="ll">发表评论</A></SPAN>　　<SPAN 
      id="xl_show_all_reviews" style="DISPLAY: <%if reviewcount<=20 then 
	   response.Write "none"
	  end if%>"><A href="javascript: showallreviews(<%=rs("id")%>);" class="ll">显示全部评论&raquo;</A></SPAN></DIV></td>
        </tr>
    </table></td>
    <td width="269" valign="top"><table width="260" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td height="35">&nbsp;</td>
        </tr>
        <tr>
          <td align="center" valign="middle"><table width="260" border="0" cellspacing="0" cellpadding="0">
              <tr>
                <td><img src="images/s.jpg" width="260" height="5" /></td>
              </tr>
              <tr>
                <td align="center" background="images/s1.jpg"><table width="250" border="0" cellspacing="0" cellpadding="0">
                    <tr>
                      <td><table width="250" border="0" cellspacing="0" cellpadding="0">
                          <tr>
                            <td width="80" height="60" align="center" valign="middle"><table width="46" height="56" border="0" cellpadding="0" cellspacing="0">
                                <%
							  set rs1=server.createobject("adodb.recordset")
							  rsql="select photo from user_info where userid="& rs("userid")
							  rs1.open rsql,conn,1
							  if not rs1.eof then
							   photo=rs1("photo")
							  end if			
							  rs1.close
							  set rs1=nothing				  
							  %>
                                <tr>
                                  <td align="center" background="images/zz0.gif"><img src="uppic/photo/<%=photo%>" width="40" height="50" /></td>
                                </tr>
                            </table></td>
                            <td width="170" align="center"><table width="170" border="0" cellspacing="0" cellpadding="0">
                                <tr>
                                  <td width="24%" height="25" class="STYLE8889">上传：</td>
                                  <td width="76%" height="25"><strong class="STYLE6"><a href="userinfo.asp?user_id=<%=rs("userid")%>" target="_blank" class="ll"><%=rs("username")%></a></strong></td>
                                </tr>
                                <tr>
                                  <td height="25" class="STYLE8889">时间：</td>
                                  <td height="25" class="STYLE8889"><%=formatdatetime(rs("dtime"),2)%></td>
                                </tr>
                            </table></td>
                          </tr>
                      </table></td>
                    </tr>
                    <tr>
                      <td><table width="250" border="0" cellspacing="0" cellpadding="0">
                          <tr>
                            <td height="20" align="right" class="STYLE6"><a href="allvideo.asp?uid=<%=rs("userid")%>" class="ll">查看该用户全部视频</a>&gt;&gt;</td>
                          </tr>
                          <tr>
                            <td height="20"><span class="STYLE8889" id="xl_memo_short"><%=left(rs("content"),50)%></span></td>
                          </tr>
                      </table></td>
                    </tr>
                </table></td>
              </tr>
              <tr>
                <td><img src="images/s0.jpg" width="260" height="5" /></td>
              </tr>
          </table></td>
        </tr>
        <tr>
          <td align="center" valign="middle">&nbsp;</td>
        </tr>
        <tr>
          <td align="center" valign="middle"><table width="260" border="0" cellspacing="0" cellpadding="0">
              <tr>
                <td height="27" background="images/x.gif">&nbsp;<span class="style895">相关节目</span></td>
              </tr>
              <tr>
                <td align="center" background="images/x0.gif"><DIV id=h2c>
                    <DIV id=othervideo 
      style="OVERFLOW-X: hidden; OVERFLOW: auto; HEIGHT: 700px">
                      <CENTER>
                        <%
	  if trim(rs("tag"))<>"" then
	  arraytag=split(rs("tag")," ")
	  tagnum=ubound(arraytag)
	 	  
	  set res=server.createobject("adodb.recordset")
	  resql="select top 15 id,pic,title,userid,username,click from video_info where id<>"&rs("id")&" and ("
	  if tagnum<>0 then
	  for j=0 to tagnum-1
	   if j=0 then 
	   resql=resql+" tag like '%%"&arraytag(j)&"%%' or title like '%%"&arraytag(j)&"%%'"
	   else
	   resql=resql+" or tag like '%%"&arraytag(j)&"%%' or title like '%%"&arraytag(j)&"%%'"
	   end if
	  next 
	  else
	    resql=resql+" tag like '%%"&rs("tag")&"%%' or title like '%%"&rs("tag")&"%%'"
	  end if
	  resql=resql+") order by click desc"
	  res.open resql,conn,1
	  do while not res.eof
	  %>
                        <TABLE class=bdc cellSpacing=0 width="94%" align=center border=0>
                          <TBODY>
                            <TR>
                              <TD height=13></TD>
                            </TR>
                            <TR vAlign=top>
                              <TD width=112><A href="watchtv.asp?v_id=<%=res("id")%>"><IMG 
            class=img_of height=70 
            src="videoimage/<%=res("pic")%>" width=90 
            border=0></A></TD>
                              <TD class=lh15><DIV><A href="watchtv.asp?v_id=<%=res("id")%>" class="st1"><%=res("title")%></A></DIV>
                                  <DIV class=c9>点击：<%=res("click")%></DIV>
                                  <DIV class=c9>上传：<A href="userinfo.asp?user_id=<%=res("userid")%>" 
            target=_blank><%=res("username")%></A></DIV></TD>
                              <TD>&nbsp;</TD>
                            </TR>
                            <TR>
                              <TD height=10></TD>
                            </TR>
                          </TBODY>
                        </TABLE>
                        <%
		res.movenext
		loop
		res.close
		set res=nothing
		end if
		%>
                      </CENTER>
                    </DIV>
                </DIV></td>
              </tr>
              <tr>
                <td><img src="images/x1.gif" width="260" height="5"></td>
              </tr>
          </table></td>
        </tr>
    </table></td>
    <td width="197" 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>
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
</body>
</html>
<%
Sub Showrm()
%>   
    <OBJECT classid=clsid:CFCDAA03-8BE4-11cf-B84B-0020AFBBCCFA height=380 
      id=video1 width=450>
              <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/<%=rs("movie")%>">
        <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/<%=rs("movie")%>" type="audio/x-pn-realaudio-plugin" console="Clip1" controls="ControlPanel,StatusBar" height="380" width="450" autostart="true">
      </OBJECT>
<%
End Sub
%>
<%
Sub Showasf()
%>
  <object align="middle" classid="CLSID:22d6f312-b0f6-11d0-94ab-0080c74c7e95" 
id="MediaPlayer" width="450" height="380"> 
<param name="ShowStatusBar" value="-1"> 
<param name="Filename" value="video/<%=rs("movie")%>"> 
<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/<%=rs("movie")%>" width=500 height=300></embed> 
</object>  
<%
End Sub
%>
<%
Sub ShowFlv()
%>
<object type="application/x-shockwave-flash" data="WhitePlayer.swf?id=q.flv" width="450" height="380">
<param name="movie" value="WhitePlayer.swf?id=video/<%=rs("movie")%>" />
</object>
<%End Sub%>			
