vid.asp

来自「本程序修改自花香盈路6.0版。所有版权归原作者所有 本站修改后加入了些小偷程」· ASP 代码 · 共 297 行

<!--#Include File="Check_hx.asp"-->
<!--#include file="inc/config.asp"-->
<!--#include file="mdb.asp"-->
<!--#include file="inc/inc.asp"-->
<!--#include file="inc/format.asp"-->
<%
start="精彩影视"
dim founderr
founderr=false
if request.querystring("vidcat_id")<>"" then
  if not isInteger(request.querystring("vidcat_id")) then
    founderr=true
    Response.Write "<script language=javascript>alert('参数非法');javascript:history.back();</script>"
  end if
end if
if request("page")<>"" then
  if not isInteger(request("page")) then
    founderr=true
    Response.Write "<script language=javascript>alert('参数非法');javascript:history.back();</script>"
  end if
end if
if request("keyword")<>"" then
  if instr(request("keyword"),"'")>0 then
    founderr=true
    Response.Write "<script language=javascript>alert('搜索参数非法');javascript:history.back();</script>"
  end if
end if
call head()
call menu()
sql="select vidcat_id,vidcat_name from vidcat"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
response.write "<table width=760 border=0 align=center cellpadding=0 cellspacing=0 bgcolor=#FFFFFF class=""table-hx66s""><TBODY><TR>" & vbCrLf
response.write "<TD height=""23"" align=""right"">"
do while not rs.eof
if request("vidcat_id")=cstr(rs("vidcat_id")) then
response.write "<font color=""#FF0000"">·"&rs("vidcat_name")&"</font>&nbsp;"
else
response.write "<a href='?vidcat_id="&rs("vidcat_id")&"'>·"&rs("vidcat_name")&"</a>&nbsp;"
end if
rs.movenext
loop
if rs.bof and rs.eof then
response.write "当前没有分类&nbsp;"
rs.close
end if%>←影视分类&nbsp;
</TD></TR></TBODY></TABLE>
<table width=760 border=0 align=center cellpadding=0 cellspacing=0 bgcolor=#FFFFFF class="table-hx66s"><TBODY>
<tr>
    <td> <div id=demo style=overflow:hidden;height:150;width:100%;color:#ffffff><table align=left cellpadding=0 cellspace=0 border=0><tr><td id=demo1 valign=top> 
<TABLE cellSpacing=0 cellPadding=5 border=0><TBODY><TR align=middle>
<%sql="select top "&indexvid&" vid_id,title,images,dateandtime,hits from vid order by dateandtime DESC"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
do while not rs.eof
Response.Write "<TD width=200>"
Response.Write "<SCRIPT type=text/javascript>hximg("""&rs("images")&""",""showvid.asp?vid_id="&rs("vid_id")&""",""影视名称："&rs("title")&"&#13&#10点击次数："&rs("hits")&"&#13&#10上传时间："&rs("dateandtime")&""");</SCRIPT>" & vbCrLf
Response.Write "</TD>"
rs.movenext
loop
if rs.bof and rs.eof then
Response.Write "<td align=""center"" valign=""middle"">当前没有影视图片！</td>"
end if
rs.close
set rs=nothing%>
</TR></TBODY></TABLE></td><td id=demo2 valign=top></td></tr></table></div><script>
var speed=30
demo2.innerHTML=demo1.innerHTML
function Marquee(){
if(demo2.offsetWidth-demo.scrollLeft<=0)
demo.scrollLeft-=demo1.offsetWidth
else{
demo.scrollLeft++
}
}
var MyMar=setInterval(Marquee,speed)
demo.onmouseover=function() {clearInterval(MyMar)}
demo.onmouseout=function() {MyMar=setInterval(Marquee,speed)}
</script></td>
   </tr>
</table>
<table width=760 border=0 align=center cellpadding=0 cellspacing=0 bgcolor=#FFFFFF class="table-hx66s">
  <TBODY>
  <TR vAlign=top align=left>
    <TD width=188>
<table width="100%"  border="0" cellspacing="0" cellpadding="0" class="table-shangxia">
   <tr>
    <td height="23"  class="a1">&nbsp;&nbsp; 总 量 排 行</td>
   </tr>
</table>
<div style="padding-top:5px;padding-bottom:5px;" class="table-right">
<table width="100%" border=0 cellspacing="0" cellpadding="0">
<%
sql="SELECT top "&topvidnum&" * FROM vid where vid_id ORDER by hits DESC"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
do while not rs.eof
%><tr><td width="6"></td><td height=22 class=table-xia><font color=#FF0000>·</font><a href='showvid.asp?vid_id=<%=rs("vid_id")%>' Title='影片名称：<%=rs("title")%>&#13&#10观看次数：<%=rs("hits")%>&#13&#10上传时间：<%=rs("dateandtime")%>'><%=left(rs("title"),13)%></a></td><td width="6"></td></tr>
<%rs.movenext
loop
if rs.eof and rs.bof then%><div align=center><br>当前还没有影片<br><br></div>
<%
rs.close
end if%></table>
<table width="100%"  border="0" cellspacing="0" cellpadding="0" class="table-shangxia">
   <tr>
    <td height="23"  class="a1">&nbsp;&nbsp; 站 长 推 荐</td>
   </tr>
</table>
<table width="100%" border=0 cellspacing="0" cellpadding="0">
<%
sql="SELECT top "&bestvid&" * FROM vid where isbest = 1 order by vid_id desc"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
do while not rs.eof%><tr><td width="6"></td><td height=22 class=table-xia><font color=#FF0000>·</font><a href='showvid.asp?vid_id=<%=rs("vid_id")%>' Title='影片名称：<%=rs("title")%>&#13&#10观看次数：<%=rs("hits")%>&#13&#10上传时间：<%=rs("dateandtime")%>'><%=left(rs("title"),13)%></a></td><td width="6"></td></tr>
<%rs.movenext
loop
if rs.eof and rs.bof then%><div align=center><br>当前还没有影片<br><br></div>
<%rs.close
end if%></table>
<table width="100%"  border="0" cellspacing="0" cellpadding="0" class="table-shangxia">
   <tr>
    <td height="23"  class="a1">&nbsp;&nbsp; 影 片 查 找</td>
   </tr>
</table>
<form name="form2" method="post" action="vid.asp"><div align=center><input type='radio' name='select' value='title' checked>影片名称&nbsp;<input type='radio' name='select' value='dog'>领衔主演<BR><input type='radio' name='select' value='content'>剧情简介&nbsp;<input type='radio' name='select' value='review'>影视评论<br><input type='text' name='keyword'  size='15' value='搜索关键字' maxlength='50' onfocus="this.value=''" class="input">&nbsp;<input type='submit' name='search'  value='搜索' onmouseover="this.className='boton'" onmouseout="this.className='botoff'">
</div></form>
<table width="100%"  border="0" cellspacing="0" cellpadding="0" class="table-shangxia">
   <tr>
    <td height="23"  class="a1">&nbsp;&nbsp; 本 站 声 明</td>
   </tr>
</table>
<div style="LINE-HEIGHT: 180%">&nbsp;&nbsp;&nbsp;本站部分影片来自网络，版权归原影视公司所有！如有版权问题敬请<a href="book.asp">留言</a>指明。
<%
dim totalcs,Currentpage,totalpages,i
sql="select * from vid order by istop desc,vid_id DESC"
if request.querystring("vidcat_id")<>"" then
sql="select * from vid where vidcat_id="&request.querystring("vidcat_id")&" order by istop desc,vid_id DESC"
elseif request("keyword")<>"" then
sql="select * from vid where "&request("select")&" like '%"&request("keyword")&"%'order by istop desc,vid_id DESC"
end if
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
totalcs=rs.recordcount
%>
</TD><TD>
<table width="100%"  border="0" cellspacing="0" cellpadding="0" class="table-shangxia">
   <tr>
    <td height="23"  class="a1">&nbsp;&nbsp; <%if request("vidcat_id")<> "" then%>本分类共有<%elseif request("keyword")<>"" then%>共搜索到<%else%>当前共有<%end if%><span><%=totalcs%></span>个影片</SPAN></td>
   </tr>
</table>
	  <script language="JavaScript">
function showtips(text)  //显示链接的说明
{
  if (document.all&&document.readyState=="complete")//针对IE
  {
  //显示跑马灯,内容就是提示框的内容
  document.all.tooltip.innerHTML="<div vAlign=center style='font-size:9pt'>"+text+"</div>";
  document.all.tooltip.style.pixelLeft=event.clientX+document.body.scrollLeft;
  document.all.tooltip.style.pixelTop=event.clientY+document.body.scrollTop+20;
   if (event.clientX>200)
  {
  document.all.tooltip.style.pixelLeft=430;
  document.all.tooltip.style.pixelTop=event.clientY+document.body.scrollTop+20;}
   document.all.tooltip.style.visibility="visible";
  }
}
document.write(
"<div id=\"tooltip\" style=\"position:absolute;visibility:hidden; padding:0px;border:1px dotted #000000;\
;background-color:#FEEEEE; height: 19px; left:77;top: 96px;z-index:10;\"></div>");
function hidetip()  //隐藏链接的说明
{
if (document.all)
  document.all.tooltip.style.visibility="hidden";
}
</script>
<table width="99%" border="1" cellspacing="0" cellpadding="0" bgcolor="#FFFFFF" style="border-collapse: collapse" class="table-left" align="right" frame=lhs>
<%
if not rs.eof then
rs.movefirst
rs.pagesize=vidperpage
if trim(request("page"))<>"" then
   currentpage=clng(request("page"))
   if currentpage>rs.pagecount then
      currentpage=rs.pagecount
   end if
else
   currentpage=1
end if
   if currentpage<>1 then
       if (currentpage-1)*vidperpage<totalcs then
	       rs.move(currentpage-1)*vidperpage
		   dim bookmark
		   bookmark=rs.bookmark
	   end if
   end if
   if (totalcs mod vidperpage)=0 then
      totalpages=totalcs\vidperpage
   else
      totalpages=totalcs\vidperpage+1
   end if
i=0
do while not rs.eof and i<vidperpage
%>
<%    
if rs("istop")="1" then      
folder="<img src=""img/1.gif"" title=固顶影片>"       
else
folder="<img src=""img/4.gif"">"       
end if      
if rs("istop")="0" then      
if rs("isbest")=1 then
folder="<img src=""img/2.gif"" title=推荐影片>"      
else
folder="<img src=""img/4.gif"">"       
end if      
end if      
%> 
<TR bgColor=#FFFFFF><TD width="5%" align=Center height="30"><%=folder%></TD><td onmousemove='showtips("<img src=<%=rs("images")%> width=160>")' onmouseout=hidetip() width="50%">&nbsp;<a href='showvid.asp?vid_id=<%=rs("vid_id")%>'><%=rs("title")%></a> </TD><TD width="22%" align=Center height="30"><%=rs("vid_id")%></TD></TR>
        <tr> 
          <td height="25" align="center" width="15%">加入时间</td>
          <td width="55%" ><%=rs("dateandtime")%>　</td>
<td rowspan="5" align="center" width="200">
<%if rs("images")<>"http://ftwl.cb35.com" then%><a href="<%=rs("images")%>" title="<%=rs("images")%>" target=_blank><img src='<%=rs("images")%>' border='0' width=100 valign="center"></a><%else%><img src='http://ftwl.cb35.com/img/nopic.gif' border='0' valign="center"><%end if%></td>
</tr>

        <tr> 
          <td height="25" align="center">领衔主演</td>
          <td ><%=rs("dog")%>　</td>
</tr>
        <tr> 
          <td height="25" align="center">文件格式</td>
          <td ><%=rs("runsystem")%>　</td>
        </tr>
        <tr> 
          <td height="25" align="center">浏览次数</td>
          <td ><%=rs("hits")%>　</td>
</tr>
        <tr> 
          <td height="25" align="center">推荐程度</td>
          <td ><%=rs("filmlevel")%>  </td>
        </tr>
<%
i=i+1
rs.movenext
loop
else
if rs.eof and rs.bof then%><tr><td align=middle height="60" colSpan=5><%if request("vitcat_id")<> "" then%>该分类暂时没有影片<%elseif request("keyword")<>"" then%>没有找到包含[<b><font color=red><%=request("keyword")%></font></b>]的影片！<%else%>没有任何影片，请管理员到后台添加！<%end if%></td></td></tr>
<%end if
end if
%>
<form name="form1" method="post" action="vid.asp?select=<%=request("select")%>&keyword=<%=request("keyword")%>&vidcat_id=<%=request.querystring("vidcat_id")%>">
<tr> 
<td align="right" colspan="5">
<TABLE cellSpacing=0 cellPadding=0 width="100%" align=center border=0>
<TBODY>
<TR> 
<TD align=middle width="35%" height=25><IMG height=14 src="img/so.gif" width=14 align=absMiddle> 共[<font color="#FF6666"><%=totalcs%></font>]个影片　分[<font color="#FF6666"><%=totalpages%></font>]页</TD>
<TD width="40%" align=middle><IMG height=11 src="img/lt.gif" width=11 align=absMiddle>
<%
if CurrentPage<2 then
response.write "<font color='999966'>首页 上一页</font> "
else
response.write "<a href=vid.asp?select="&request("select")&"&keyword="&request("keyword")&"&page=1&vidcat_id="&request.querystring("vidcat_id")&">首页</a> "
response.write "<a href=vid.asp?select="&request("select")&"&keyword="&request("keyword")&"&page="&CurrentPage-1&"&vidcat_id="&request.querystring("vidcat_id")&">上一页</a> "
end if
if totalpages-currentpage<1 then
response.write "<font color='999966'>下一页 尾页</font>"
else
response.write "<a href=vid.asp?select="&request("select")&"&keyword="&request("keyword")&"&page="&CurrentPage+1&"&vidcat_id="&request.querystring("vidcat_id")
response.write ">下一页</a> <a href=vid.asp?select="&request("select")&"&keyword="&request("keyword")&"&page="&totalpages&"&vidcat_id="&request.querystring("vidcat_id")&">尾页</a>"
end if
%>&nbsp;<IMG height=11 src="img/rt.gif" width=11 align=absMiddle></TD>
<TD align=middle width="25%">
<select name="page" class="lanyu">
<%
i=1
for i=1 to totalpages
if i=currentpage then
%>
<option value=<%=i%> selected>第<%=i%>页</option> 
<%else%>
<option value=<%=i%>>第<%=i%>页</option> 
<%end if
next%>
</select><input type="submit" name="Submit2" value="转向" onmouseover="this.className='boton'" onmouseout="this.className='botoff'" class="botoff"> </TD>
</TR>
</FORM>
</TABLE> </td></tr>
<tr align="center"><td height="10" colspan="5"></td></tr></table><br>
</DIV></TD></TR>
</TBODY></TABLE>
<%
rs.close
set rs=nothing
call footer()
%>