<!--#include file="conn.asp"-->
<!--#include file="INC/LenString.asp"-->
<!--#include file="INC/erectStr.asp"-->
<%vodname=request.QueryString("vodname")
yanyuan=request.QueryString("yanyuan")
daoyan=request.QueryString("daoyan")
vodtype=request.QueryString("vodtype")
msg=request.QueryString("msg")
response.Write("<title>左轮影音  -  "& vodtype &"</title>")
%>
<head>
<LINK target=_blank href=skins/<%=skins%>/css/index.asp rel=stylesheet>
</head>
<body>
<%dim rs,sqlstr
set rs=server.CreateObject("ADODB.Recordset")
%>
<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" 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" 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="8"></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="69">&nbsp;</td>
                  <td width="447">&nbsp;</td>
                  <td width="14">&nbsp;</td>
                </tr>
            </table></td>
          </tr>
          <tr>
            <td height="37" colspan="3" align="left" background="skins/<%=skins%>/img/bg002.gif">&nbsp;&nbsp;&nbsp;&nbsp;当前位置:影片分类&nbsp;&nbsp;-&nbsp;&nbsp;<%if vodtype="" then response.Write("未知类型") else response.Write(vodtype)%>&nbsp;&nbsp;-&nbsp;&nbsp;<%if vodname="" then response.Write("未知片名") else response.Write(vodname)%></td>
            </tr>
          <tr>
            <td width="2%" height="27" background="skins/<%=skins%>/img/bgline.gif" class="bg_y_l">&nbsp;</td>
            <td width="96%" class="bg_y_l">
<%
PageSize=16
skey=" where 1=1"
pagestr="vodname=" & vodname & "&yanyuan=" & yanyuan & "&daoyan=" & daoyan & "&vodtype=" & vodtype & "&msg=" & msg
if vodname="" and yanyuan="" and daoyan="" and vodtype="" and msg="" then
key=request.Form("key")
stype=request.Form("stype")
if key="" and stype="" then
key=request.QueryString("key")
stype=request.QueryString("stype")
end if
if key<>"" and stype<>"" then
skey=skey & " and " & stype & " like '%" & key & "%'"
pagestr="key=" & key & "&stype=" & stype
end if
end if
if not vodname="" then
skey=skey & " and vodname like '%"&vodname&"%'"
end if
if not yanyuan="" then
skey=skey & " and yanyuan like '%"&yanyuan&"%'"
end if
if not daoyan="" then
skey=skey & " and daoyan like '%"&daoyan&"%'"
end if
if not vodtype="" then
skey=skey & " and vodtype like '%"&vodtype&"%'"
end if
if not msg="" then
skey=skey & " and msg like '%"&msg&"%'"
end if
'			response.Write(strsql)
			strsql="select * from vod" & skey & " order by id desc"
			rs.open strsql,conn,1,1
			rs.PageSize=PageSize
			pagecount=rs.PageCount 
			recordcount=rs.recordcount
			page=request.QueryString("page")
			if page="" or not(isnumeric(page)) then
			page=1
			else
			page=int(request.QueryString ("page"))
			end if
			if page<=0 then page=1
			if page>pagecount then
			page=pagecount
			end if
			if recordcount=0 then
			response.Write("很抱歉!没有找到你想要的影片!")
			else
			%><!---系统已经记录相关信息供管理员处理!--->
			<table width="100%"  border="0" cellspacing="0" cellpadding="5">
              <%
			  rs.AbsolutePage=page 
			  total=0
			  do until rs.eof or total = PageSize
			  id=rs("id")
			  pic=rs("pic")
			  vodname=LenString(rs("vodname"),20)
			  yanyuan=LenString(rs("yanyuan"),12)
			  daoyan=LenString(rs("daoyan"),12)
			  ids=rs("ids")
			  language=rs("yuyan")
			  total=total+1
			  %>
			  <tr>
                <td colspan="2"><table width="250"  border="0" cellpadding="4" cellspacing="1" bgcolor="#CCCCCC">
                  <tr bgcolor="#FFFFFF">
                    <td width="44%" rowspan="5"><img src="<%=pic%>" style="cursor:hand" width="100" height="100" title="点击播放“<%=vodname%>”" onClick="showdy(<%=id%>)"></td>
                    <td height="21" colspan="2" align="center" bgcolor="#F0F0F0" title="点击播放“<%=vodname%>”" style="cursor:hand" onClick="showdy(<%=id%>)"><%=vodname%></td>
                    </tr>
                  <tr>
                    <td width="19%" bgcolor="#F0F0F0">演员:</td>
                    <td width="37%" bgcolor="#FFFFFF"><%=yanyuan%></td>
                  </tr>
                  <tr>
                    <td bgcolor="#F0F0F0">导演:</td>
                    <td bgcolor="#FFFFFF"><%=daoyan%></td>
                  </tr>
                  <tr>
                    <td bgcolor="#F0F0F0">点击:</td>
                    <td bgcolor="#FFFFFF"><%=ids%></td>
                  </tr>
                  <tr>
                    <td bgcolor="#F0F0F0">语言:</td>
                    <td bgcolor="#FFFFFF"><%=language%></td>
                  </tr>
                </table></td>
				<%
				rs.movenext
				if not rs.eof then
			    id=rs("id")
			    pic=rs("pic")
			  vodname=LenString(rs("vodname"),20)
			  yanyuan=LenString(rs("yanyuan"),12)
			  daoyan=LenString(rs("daoyan"),12)
			  ids=rs("ids")
			  language=rs("yuyan")
				%>
                <td colspan="2"><table width="250"  border="0" cellpadding="4" cellspacing="1" bgcolor="#CCCCCC">
                  <tr bgcolor="#FFFFFF">
                    <td width="44%" rowspan="5"><img src="<%=pic%>" style="cursor:hand" width="100" height="100" title="点击播放“<%=vodname%>”" onClick="showdy(<%=id%>)"></td>
                    <td height="21" colspan="2" align="center" bgcolor="#F0F0F0" title="点击播放“<%=vodname%>”" style="cursor:hand" onClick="showdy(<%=id%>)"><%=vodname%></td>
                  </tr>
                  <tr>
                    <td width="19%" bgcolor="#F0F0F0">演员:</td>
                    <td width="37%" bgcolor="#FFFFFF"><%=yanyuan%></td>
                  </tr>
                  <tr>
                    <td bgcolor="#F0F0F0">导演:</td>
                    <td bgcolor="#FFFFFF"><%=daoyan%></td>
                  </tr>
                  <tr>
                    <td bgcolor="#F0F0F0">点击:</td>
                    <td bgcolor="#FFFFFF"><%=ids%></td>
                  </tr>
                  <tr>
                    <td bgcolor="#F0F0F0">语言:</td>
                    <td bgcolor="#FFFFFF"><%=language%></td>
                  </tr>
                </table></td>
				<%else
				response.Write("<td colspan='2'></td>")
				end if
				%>
                </tr>
				<%
				total=total+1
				if not rs.eof then
				rs.movenext
				end if
				loop
				%>
            </table>
			<%
			end if
			rs.close%>			</td>
            <td width="2%" background="skins/<%=skins%>/img/bgline.gif" class="bg_y_r">&nbsp;</td>
          </tr>
          <tr>
            <td height="35" colspan="3" background="skins/<%=skins%>/img/bg002.gif">&nbsp;&nbsp;当前为第<%=page%>页/<%=pagecount%>页&nbsp;&nbsp;<a href="?page=1&<%=pagestr%>">最前</a>&nbsp;&nbsp;<%if page>1 then response.Write("<a href=?page="& (page-1) & "&" & pagestr & ">上页</a>")%><%if page<=1 then response.Write("<a onclick=alert('到顶了哦!')>上页</a>")%>&nbsp;&nbsp;<%if page<pagecount then response.Write("<a href=?page="& (page+1) & "&" & pagestr & ">下页</a>")%><%if page>=pagecount then response.Write("<a onclick=alert('到底了哦!')>下页</a>")%>&nbsp;&nbsp;<a href="?page=<%=pagecount%>&<%=pagestr%>">最后</a>&nbsp;&nbsp;第<%if recordcount=0 then response.write("0") else response.write ((page-1)*pagesize+1)%>部-><%if page=pagecount then response.Write(recordcount) else response.Write(page*pagesize)%>部&nbsp;&nbsp;共<%=recordcount%>部
              <select name="select" onChange="window.location.href='?page='+(parseInt(this.selectedIndex)+1).toString()+'&<%=pagestr%>'">
				<%for i=1 to pagecount%>
				<option value="<%=i%>" <%if i=page then response.Write("selected")%>>第<%=i%>页</option>
				<%next%>
              </select></td>
            </tr>
          <tr>
            <td height="27" background="skins/<%=skins%>/img/bgline.gif" class="bg_y_l">&nbsp;</td>
            <td height="27" class="bg_y_l">&nbsp;</td>
            <td height="27" 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" align="left" valign="middle" background="skins/<%=skins%>/img/bgline.gif" class="bg_y_l">&nbsp;</td>
            <td height="38" 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>
            <td height="38" align="left" valign="middle" background="skins/<%=skins%>/img/bgline.gif" class="bg_y_r">&nbsp;</td>
          </tr>
          <tr>
            <td height="22" 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>
</body>