<!--#include file="conn.asp"-->
<%
dim rs,sqlstr
set rs=server.CreateObject("ADODB.Recordset")
function LenString(txt,length)
txt=trim(txt)
x = len(txt)
y = 0
if x >= 1 then
for ii = 1 to x
if asc(mid(txt,ii,1)) < 0 or asc(mid(txt,ii,1)) >255 then '如果是汉字
y = y + 2
else
y = y + 1
end if
if y >= length then 
txt = left(trim(txt),ii-1) & ".." '字符串限长
exit for
end if
next
LenString = txt
else
LenString = ""
end if
end function
function erectStr(str)
dim tmpstr,i
for i=1 to len(str)-1
tempStr=tempStr+mid(str,i,1) & "<br>"
next
tempStr=tempStr+mid(str,i,1)
erectStr=tempStr
end function
 %>

<LINK target=_blank href=skins/<%=skins%>/css/index.asp rel=stylesheet>
<style type="text/css">
<!--
.STYLE1 {color: #FF0000}
-->
</style>
<table width="778" height="800" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td width="10" height="219" background="skins/<%=skins%>/img/bg.gif">&nbsp;</td>
    <td width="758" align="center" valign="top"><table width="756" height="1380" border="0" cellpadding="0" cellspacing="0">
      <tr>
        <td height="32" colspan="3" class="bg_x_b" background="skins/<%=skins%>/img/bgline2.gif">&nbsp;</td>
        </tr>
      <tr align="center" valign="bottom">
        <td height="30" colspan="3" align="left"><img src="skins/<%=skins%>/img/bt002.gif" alt="喜剧片" width="58" height="32" onClick="searchdy('vodtype',this.alt)" onmouseover="this.src='skins/<%=skins%>/img/bt002_02.gif'" onmouseout="this.src='skins/<%=skins%>/img/bt002.gif'"><img src="skins/<%=skins%>/img/bt003.gif" alt="动作片" width="58" height="32" onClick="searchdy('vodtype',this.alt)" onmouseover="this.src='skins/<%=skins%>/img/bt003_02.gif'" onmouseout="this.src='skins/<%=skins%>/img/bt003.gif'"><img src="skins/<%=skins%>/img/bt004.gif" alt="科幻片" width="58" height="32" onClick="searchdy('vodtype',this.alt)" onmouseover="this.src='skins/<%=skins%>/img/bt004_02.gif'" onmouseout="this.src='skins/<%=skins%>/img/bt004.gif'"><img src="skins/<%=skins%>/img/bt005.gif" alt="恐怖片" width="58" height="32" onClick="searchdy('vodtype',this.alt)" onmouseover="this.src='skins/<%=skins%>/img/bt005_02.gif'" onmouseout="this.src='skins/<%=skins%>/img/bt005.gif'"><img src="skins/<%=skins%>/img/bt006.gif" alt="爱情片" width="58" height="32" onClick="searchdy('vodtype',this.alt)" onmouseover="this.src='skins/<%=skins%>/img/bt006_02.gif'" onmouseout="this.src='skins/<%=skins%>/img/bt006.gif'"><img src="skins/<%=skins%>/img/bt007.gif" alt="战争片" width="58" height="32" onClick="searchdy('vodtype',this.alt)" onmouseover="this.src='skins/<%=skins%>/img/bt007_02.gif'" onmouseout="this.src='skins/<%=skins%>/img/bt007.gif'"><img src="skins/<%=skins%>/img/bt008.gif" alt="故事片" width="58" height="32" onClick="searchdy('vodtype',this.alt)" onmouseover="this.src='skins/<%=skins%>/img/bt008_02.gif'" onmouseout="this.src='skins/<%=skins%>/img/bt008.gif'"><img src="skins/<%=skins%>/img/bt009.gif" alt="灾难片" width="58" height="32" onClick="searchdy('vodtype',this.alt)" onmouseover="this.src='skins/<%=skins%>/img/bt009_02.gif'" onmouseout="this.src='skins/<%=skins%>/img/bt009.gif'"><img src="skins/<%=skins%>/img/bt010.gif" alt="动画片" width="58" height="32" onClick="searchdy('vodtype',this.alt)" onmouseover="this.src='skins/<%=skins%>/img/bt010_02.gif'" onmouseout="this.src='skins/<%=skins%>/img/bt010.gif'"><img src="skins/<%=skins%>/img/bt012.gif" alt="搞笑片" width="58" height="32" onClick="searchdy('vodtype',this.alt)" onmouseover="this.src='skins/<%=skins%>/img/bt012_02.gif'" onmouseout="this.src='skins/<%=skins%>/img/bt012.gif'"><img src="skins/<%=skins%>/img/bt013.gif" alt="连续剧" width="58" height="32" onClick="searchdy('vodtype',this.alt)" onmouseover="this.src='skins/<%=skins%>/img/bt013_02.gif'" onmouseout="this.src='skins/<%=skins%>/img/bt013.gif'"></td>
      </tr>
      <tr bgcolor="#999999">
        <td height="5" colspan="3"></td>
      </tr>
      <tr align="center" valign="middle" background="skins/<%=skins%>/img/bgline2.gif">
        <td height="183" colspan="3" class="bg_x_b" background="skins/<%=skins%>/img/bgline2.gif">
		<DIV id=index_comment_pannel style="overflow:scroll; display:none">
        <!--#include file="vodnew.asp"-->
        </DIV></td>
      </tr>
      <tr align="center">
        <td height="32" colspan="3" class="bg_x_b" background="skins/<%=skins%>/img/bgline2.gif">左轮影音-网吧公告</td>
      </tr>
      <tr>
        <td width="219" height="1048" align="center" valign="top" bgcolor="#F6F6F6"><table width="100%" height="850" border="0" cellpadding="0" cellspacing="0">
          <tr>
            <td width="7%" height="24" background="skins/<%=skins%>/img/bgline.gif" class="bg_y_r">&nbsp;</td>
            <td width="86%" align="center">&nbsp;</td>
            <td width="7%" background="skins/<%=skins%>/img/bgline.gif" class="bg_y_l">&nbsp;</td>
          </tr>
          <tr align="center">
            <td colspan="3" style="height:20px;background-image:url(skins/<%=skins%>/img/b1_2.gif); background-repeat:no-repeat;"><div style="padding-top:5px; color:#FF0000">最新电影TOP20</div></td>
          </tr>
          <tr>
            <td height="214" background="skins/<%=skins%>/img/bgline.gif" class="bg_y_r">&nbsp;</td>
            <td align="center" valign="top" bgcolor="#FFFFFF"><table width="180" border="0" cellpadding="3" cellspacing="1" bgcolor="#CCCCCC">
                <%
			  sqlstr="select top 20 * from vod where vodtype<>'搞笑片' order by id desc"
			  rs.open sqlstr,conn,1,1
			  do until rs.eof
			  %>
                <tr bgcolor="#FFFFFF" onclick="showdy(<%=rs("id")%>)" style="cursor:hand" onMouseOver="this.bgColor='#F6F6F6'" onMouseOut="this.bgColor='#FFFFFF'">
                  <td width="140">&nbsp;<%=LenString(rs("vodname"),18)%></td>
                  <td width="40">&nbsp;<%=rs("ids")%></td>
                </tr>
                <%
			  rs.movenext
			  loop
			  rs.close
			  %>
            </table></td>
            <td background="skins/<%=skins%>/img/bgline.gif" class="bg_y_l">&nbsp;</td>
          </tr>
          <tr align="center">
            <td colspan="3" style="height:20px;background-image:url(skins/<%=skins%>/img/b1_2.gif); background-repeat:no-repeat;"><div style="padding-top:5px; color:#FF0000">热门电影TOP20</div></td>
          </tr>
          <tr>
            <td height="214" background="skins/<%=skins%>/img/bgline.gif" class="bg_y_r">&nbsp;</td>
            <td align="center" valign="top" bgcolor="#FFFFFF"><table width="180" border="0" cellpadding="3" cellspacing="1" bgcolor="#CCCCCC">
                <%
			  sqlstr="select top 20 * from vod where vodtype<>'搞笑片' order by ids desc"
			  rs.open sqlstr,conn,1,1
			  do until rs.eof
			  %>
                <tr bgcolor="#FFFFFF" onclick="showdy(<%=rs("id")%>)" style="cursor:hand" onMouseOver="this.bgColor='#F6F6F6'" onMouseOut="this.bgColor='#FFFFFF'">
                  <td width="140">&nbsp;<%=LenString(rs("vodname"),18)%></td>
                  <td width="40">&nbsp;<%=rs("ids")%></td>
                </tr>
                <%
			  rs.movenext
			  loop
			  rs.close
			  %>
            </table></td>
            <td background="skins/<%=skins%>/img/bgline.gif" class="bg_y_l">&nbsp;</td>
          </tr>
          <tr align="center">
            <td colspan="3" style="height:20px;background-image:url(skins/<%=skins%>/img/b1_2.gif); background-repeat:no-repeat;"><div style="padding-top:5px; color:#FF0000">搞笑短片最新TOP10</div></td>
          </tr>
          <tr>
            <td height="214" background="skins/<%=skins%>/img/bgline.gif" class="bg_y_r">&nbsp;</td>
            <td align="center" valign="top" bgcolor="#FFFFFF"><table width="180" border="0" cellpadding="3" cellspacing="1" bgcolor="#CCCCCC">
                <%
			  sqlstr="select top 10 * from vod where vodtype='搞笑片' order by id desc"
			  rs.open sqlstr,conn,1,1
			  do until rs.eof
			  %>
                <tr bgcolor="#FFFFFF" onclick="showdy(<%=rs("id")%>)" style="cursor:hand" onMouseOver="this.bgColor='#F6F6F6'" onMouseOut="this.bgColor='#FFFFFF'">
                  <td width="140">&nbsp;<%=LenString(rs("vodname"),18)%></td>
                  <td width="40">&nbsp;<%=rs("ids")%></td>
                </tr>
                <%
			  rs.movenext
			  loop
			  rs.close
			  %>
            </table></td>
            <td background="skins/<%=skins%>/img/bgline.gif" class="bg_y_l">&nbsp;</td>
          </tr>
          <tr align="center">
            <td colspan="3" style="height:20px;background-image:url(skins/<%=skins%>/img/b1_2.gif); background-repeat:no-repeat;"><div style="padding-top:5px; color:#FF0000">搞笑短片热门TOP10</div></td>
          </tr>
          <tr>
            <td height="249" background="skins/<%=skins%>/img/bgline.gif" class="bg_y_r">&nbsp;</td>
            <td align="center" valign="top" bgcolor="#FFFFFF"><table width="180" border="0" cellpadding="3" cellspacing="1" bgcolor="#CCCCCC">
                <%
			  sqlstr="select top 10 * from vod where vodtype='搞笑片' order by ids desc"
			  rs.open sqlstr,conn,1,1
			  do until rs.eof
			  %>
                <tr bgcolor="#FFFFFF" onclick="showdy(<%=rs("id")%>)" style="cursor:hand" onMouseOver="this.bgColor='#F6F6F6'" onMouseOut="this.bgColor='#FFFFFF'">
                  <td width="140">&nbsp;<%=LenString(rs("vodname"),18)%></td>
                  <td width="40">&nbsp;<%=rs("ids")%></td>
                </tr>
                <%
			  rs.movenext
			  loop
			  rs.close
			  %>
            </table></td>
            <td background="skins/<%=skins%>/img/bgline.gif" class="bg_y_l">&nbsp;</td>
          </tr>
        </table></td>
        <td width="584" colspan="2" align="left" valign="top" bgcolor="#F6F6F6"><table width="530" border="0" cellpadding="0" cellspacing="0">
          <tr>
            <td width="0" rowspan="7"></td>
            <td height="66" colspan="3" bgcolor="#999999"><table border="0" cellspacing="0" cellpadding="0">
                <tr bgcolor="#666666">
                  <td bgcolor="#666666">&nbsp;</td>
                  <td>&nbsp;</td>
                  <td>&nbsp;</td>
                </tr>
                <tr>
                  <td height="54">&nbsp;</td>
                  <form name="svodfrm" method="post" action="SearchMovie.asp"><td valign="middle">
                    <input name="key" type="text" id="key" style=" border-width:1; border-style:solid; background-color:#F6F6F6; border-color:#666666" size="20" maxlength="20">
                    <label for="type1"><input name="stype" type="radio" id="type1" value="vodname" checked>
                    片名                    </label><label for="type2"><input type="radio" name="stype" id="type2" value="yanyuan">
                    演员
                    </label><label for="type3"><input type="radio" name="stype" id="type3" value="daoyan">
                    导演                    </label>
                    &nbsp;<input name="Submit" type="submit" class="form_none" value="查询影片"> </td>
                  </form>
                  <td>&nbsp;</td>
                </tr>
                <tr bordercolor="#C9C9C9" bgcolor="#EFEFEF">
                  <td width="92">&nbsp;</td>
                  <td width="426">&nbsp;</td>
                  <td width="14">&nbsp;</td>
                </tr>
            </table></td>
          </tr>
          <tr>
		  <%id=request.QueryString("id")
		  strsql="select * from vod where id=" & id
		  rs.open strsql,conn,1,3
if rs.recordcount=0 then
response.write "没找到您要的影片！"
response.end
else
		  UpIds=request.Cookies("IsUpIds")
		  if UpIds<>"True" then
		  rs("ids")=rs("ids")+1
		  rs.update
		  response.Cookies("IsUpIds")="True"
		  end if  
		  %>
            <td width="2%" height="406" background="skins/<%=skins%>/img/bgline.gif" class="bg_y_l">&nbsp;</td>
            <td width="97%" height="406" align="center" valign="middle"><table width="100%"  border="0" cellpadding="4" cellspacing="1" bgcolor="#CCCCCC">
              <tr bgcolor="#FFFFFF">
                <td width="39%" rowspan="8" align="center" valign="middle"><img src="<%=rs("pic")%>" width="150" height="150"></td>
                <td width="13%">片名：</td>
                <td width="48%">&nbsp;<%=rs("vodname")%></td>
              </tr>
              <tr bgcolor="#FFFFFF">
                <td>主演：</td>
                <td>&nbsp;<%=rs("yanyuan")%></td>
              </tr>
              <tr bgcolor="#FFFFFF">
                <td>导演：</td>
                <td>&nbsp;<%=rs("daoyan")%></td>
              </tr>
              <tr bgcolor="#FFFFFF">
                <td>语言：</td>
                <td>&nbsp;<%=rs("yuyan")%></td>
              </tr>
              <tr bgcolor="#FFFFFF">
                <td>点击：</td>
                <td>&nbsp;<%=rs("ids")%></td>
              </tr>
              <tr bgcolor="#FFFFFF">
                <td>类型：</td>
                <td>&nbsp;<%=rs("vodtype")%></td>
              </tr>
              <tr bgcolor="#FFFFFF">
                <td>等级：</td>
                <td>&nbsp;<%=rs("dengji")%></td>
              </tr>
              <tr bgcolor="#FFFFFF">
                <td>日期：</td>
                <td>&nbsp;<%=rs("adate")%></td>
              </tr>
              <tr align="left" valign="top" bgcolor="#FFFFFF">
                <td height="231" colspan="3">简介：<br>&nbsp;&nbsp;<%=rs("msg")%></td>
              </tr>
			  <%
vodname=rs("vodname")
response.Write("<title>幸运影视  -  "&rs("vodtype")&"  -   《"&vodname&"》</title>")%>
			  <%rs.close%>
              <tr align="left" valign="top" bgcolor="#FFFFFF">
                <td height="231" colspan="3"><span class="STYLE1">文件列表</span>：<br>&nbsp;&nbsp;<%sqlstr="select * from vodfile where vodid=" & id & " order by filename"
				rs.open sqlstr,conn,1,1
				if rs.recordcount <> 0 then
				i=0
				do until rs.eof
					if i>10 then response.write("<br>&nbsp;&nbsp;"):i=0
					response.Write("<a onClick=playdy(" & rs("id") & ",'" & id & "')>【<span class='STYLE1'>" & rs("filename") & "</span>】</a>&nbsp;&nbsp;")
					i=i+1
					rs.movenext
				loop
				else
					response.Write("很抱歉！没找到与本片相关的文件！")
				end if
rs.close
end if
%>                  </td>
                </tr>
            </table></td>
            <td background="skins/<%=skins%>/img/bgline.gif" class="bg_y_r">&nbsp;</td>
          </tr>
          <tr>
            <td height="30" colspan="3" background="skins/<%=skins%>/img/bg002.gif" class="bg_y_l">&nbsp;</td>
            </tr>
          <tr>
            <td width="1%" height="26" background="skins/<%=skins%>/img/bgline.gif" class="bg_y_l">&nbsp;</td>
            <td width="0%" height="26">&nbsp;</td>
            <td width="1%" height="26" background="skins/<%=skins%>/img/bgline.gif" class="bg_y_r">&nbsp;</td>
          </tr>
          <tr>
            <td height="30" colspan="3" align="left" valign="middle" background="skins/<%=skins%>/img/bg002.gif" class="bg_y_l">&nbsp;&nbsp;&nbsp;&nbsp;申请LOGO--修改LOGO--删除LOGO</td>
          </tr>
          <tr>
            <td height="38" colspan="3" align="left" valign="middle">&nbsp;&nbsp;LOGO图片:<img src="skins/<%=skins%>/img/logo.gif" width="88" height="31" align="absmiddle">&nbsp;&nbsp;LOGO名称:左轮影音&nbsp;&nbsp;LOGO地址:
              <input name="textfield" type="text" size="15"></td>
          </tr>
          <tr>
            <td height="30" colspan="3" align="center" valign="top"><img src="skins/<%=skins%>/img/bg003.gif" width="530" height="20"></td>
          </tr>
        </table></td>
        </tr>
      <tr align="center" bgcolor="#999999">
        <td height="13" colspan="3">&nbsp;</td>
      </tr>
      <tr align="center" bgcolor="#999999">
        <td height="37" colspan="3">&nbsp;</td>
        </tr>
    </table></td>
    <td width="10" background="skins/<%=skins%>/img/bg.gif">&nbsp;</td>
  </tr>
</table>
<SCRIPT language=javascript src="skins/skin1/js/all.js"></SCRIPT>
<%set rs=nothing
conn.close
set conn=nothing
%>