?? vid.asp
字號:
<!--#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
vidcat_id=request.querystring("vidcat_id")
mtyid2=vidcat_id
call head()
call menu()
aabb01=""
mtyid2=int(mtyid2)
aabb01=aabb01+"<table border=0 width=760 align=center bgcolor=#FFFFFF cellpadding=0 cellspacing=0 height=20 class=table-hx66s><tr><td><table border=0 align=center bgcolor=#FFFFFF width=756 cellpadding=0 cellspacing=0>"
set hx01=conn.execute("select vidcat_id,vidcat_name,sid from vidcat order by vidcat_id")
do while not hx01.eof
if hx01("sid")=0 then
if hx01("vidcat_id")=mtyid2 then
hx1=hx1+"<a href=vid.asp?vidcat_id="&hx01("vidcat_id")&" title="&hx01("vidcat_name")&"><font color=red>"&hx01("vidcat_name")&"</font></a> <img src=img/menu.gif align=absmiddle border=0> "
else
hx1=hx1+"<a href=vid.asp?vidcat_id="&hx01("vidcat_id")&" title="&hx01("vidcat_name")&">"&hx01("vidcat_name")&"</a> <img src=img/menu.gif align=absmiddle border=0> "
end if
end if
if mtyid2=hx01("sid") then
hx66010=hx66010+" or vidcat_id="&hx01("vidcat_id") '顯示頁所需變量vid.asp
hx2=hx2+"<a href=vid.asp?vidcat_id="&hx01("vidcat_id")&" title="&hx01("vidcat_name")&">"&hx01("vidcat_name")&"</a> <img src=img/menu.gif align=absmiddle border=0> "
end if
if mtyid2=hx01("vidcat_id") then
hx6603=hx01("sid")
if hx6603<>0 then
hxa01="select vidcat_id,vidcat_name,sid from vidcat where sid="&hx6603&" order by vidcat_id"
set hx02=conn.execute(hxa01)
do while not hx02.eof
if hx02("vidcat_id")=mtyid2 then
hx5=hx5+"<a href=vid.asp?vidcat_id="&hx02("vidcat_id")&" title="&hx02("vidcat_name")&"><font color=red>"&hx02("vidcat_name")&"</font></a> <img src=img/menu.gif align=absmiddle border=0> "
else
hx5=hx5+"<a href=vid.asp?vidcat_id="&hx02("vidcat_id")&" title="&hx02("vidcat_name")&">"&hx02("vidcat_name")&"</a> <img src=img/menu.gif align=absmiddle border=0> "
end if
hx02.movenext
loop
hx02.close
set hx02=nothing
end if
end if
hx01.movenext
loop
hx01.close
set hx01=nothing
'if hx1<>"" then aabb01=aabb01+"<tr align=center><td background=img/B_bg.gif height=23><img src=img/menu.gif align=absmiddle border=0> "&hx1&" </td></tr>"
if hx2<>"" then aabb01=aabb01+"<tr align=center><td><img src=img/menu.gif align=absmiddle border=0> "&hx2&"</td></tr>"
if hx3<>"" then aabb01=aabb01+"<tr align=center><td><img src=img/menu.gif align=absmiddle border=0> "&hx3&"</td></tr>"
if hx4<>"" then aabb01=aabb01+"<tr align=center><td><img src=img/menu.gif align=absmiddle border=0> "&hx4&"</td></tr>"
if hx5<>"" then aabb01=aabb01+"<tr align=center><td><img src=img/menu.gif align=absmiddle border=0> "&hx5&"</td></tr>"
aabb01=aabb01+"</table></td></tr></table>"
response.write aabb01%>
<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"> 影 視 分 類</td>
</tr>
</table>
<div style="padding-top:5px;padding-bottom:5px;" class="table-right">
<table width="100%" border=0 cellspacing="0" cellpadding="0">
<tr><td height="7"> </td>
<tr><td>
<%
response.write " <font color=#FF0000>·</font> <a href=vid.asp>全 部 影 片</a><BR>"
sql="select * from vidcat where sid=0"
set rs1=conn.execute(sql)
do while not rs1.eof
if request("vidcat_id")=cstr(rs1("vidcat_id")) then
sql2 = "select * from vidcat where sid="&rs1("vidcat_id")&""
Set rs2 = Server.CreateObject("ADODB.RecordSet")
rs2.Open sql2,conn,1,1
response.write " <font color=#FF0000>· "&rs1("vidcat_name")&"</a></font> （小類："
response.write rs2.recordcount&"個）<BR>"
else
sql2 = "select * from vidcat where sid="&rs1("vidcat_id")&""
Set rs2 = Server.CreateObject("ADODB.RecordSet")
rs2.Open sql2,conn,1,1
response.write " <font color=#FF0000>·</font> <a href='?vidcat_id="&rs1("vidcat_id")&"'>"&rs1("vidcat_name")&"</a> （小類："
response.write rs2.recordcount&"個）<BR>"
end if
rs1.movenext
loop
rs1.close
set rs1=nothing%>
</td></tr>
<tr><td height="7"> </td>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0" class="table-shangxia">
<tr>
<td height="23" class="a1"> 總 量 排 行</td>
</tr>
</table>
<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")%>
觀看次數：<%=rs("hits")%>
上傳時間：<%=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"> 站 長 推 薦</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")%>
觀看次數：<%=rs("hits")%>
上傳時間：<%=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"> 影 片 查 找</td>
</tr>
</table>
<form name="form2" method="post" action="vid.asp"><div align=center><input type='radio' name='select' value='title' checked>影片名稱 <input type='radio' name='select' value='dog'>領銜主演<BR><input type='radio' name='select' value='content'>劇情簡介 <input type='radio' name='select' value='review'>影視評論<br><input type='text' name='keyword' size='15' value='搜索關鍵字' maxlength='50' onfocus="this.value=''" class="input"> <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"> 本 站 聲 明</td>
</tr>
</table>
<div style="LINE-HEIGHT: 180%"> 本站部分影片來自網絡，版權歸原影視公司所有！如有版權問題敬請<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="&vidcat_id&hx66010&" 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"> <%if request("vidcat_id")<> "" then%>本分類共有<%elseif request("keyword")<>"" then%>共搜索到<%else%>當前共有<%end if%><span><%=totalcs%></span>個影片</SPAN></td>
</tr>
<script>
ed_ads_UserId=1520;
</script>
<script src="http://1.ads8.com:8001/code_49.js"></script>
</table>
<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"" title=普通影片>"
end if
if rs("istop")="0" then
if rs("isbest")=1 then
folder="<img src=""img/2.gif"" title=推薦影片>"
elseif rs("hits")>300 then
folder="<img src=""img/3.gif"" title=熱門影片>"
else
folder="<img src=""img/4.gif"" title=普通影片>"
end if
end if
%>
<tr bgcolor="#ffffff">
<td colspan="3" height="10"></td>
</tr>
<tr bgcolor="#ffffff">
<td colspan="3" height="25">
<table width="100%" border="0">
<tr>
<TD width="6%" align=Center><%=folder%></TD>
<td width="*"><a href='showvid.asp?vid_id=<%=rs("vid_id")%>'><font color="#ff0000"><B><%=rs("title")%></B></font></a></td>
<td width="140" align="right"><%=rs("dateandtime")%> </td>
</tr>
</table>
</td>
</tr>
<tr bgcolor="#ffffff">
<td rowspan="5" align="center" width="110"><a href='showvid.asp?vid_id=<%=rs("vid_id")%>'><img src=<%=rs("images")%> width="80" height="110" border="0" alt="點擊進入"></a></td>
<td width="80" height="22" align=Center>領銜主演</td>
<td width="380" height="22"> <%=left(rs("dog"),20)%></td>
</tr>
<tr bgcolor="#ffffff">
<td width="80" height="22" align=Center>影片格式</td>
<td width="380" height="22"> <%=rs("runsystem")%></td>
</tr>
<tr bgcolor="#ffffff">
<td width="80" height="22" align=Center>觀看次數</td>
<td width="380" height="22"> <%=rs("hits")%></td>
</tr>
<tr bgcolor="#ffffff">
<td width="80" height="22" align=Center>推薦等級</td>
<td width="380" height="22"> <%=rs("filmlevel")%></td>
</tr>
<tr bgcolor="#ffffff">
<td width="80" height="40" align=Center>劇情簡介</td>
<td width="380" height="40"> <%=left(rs("content"),70)%>...</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
%> <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>
<script>
ed_ads_UserId=1520;
</script>
<script src="http://1.ads8.com:8001/code_49.js"></script>
</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()
%>
<script>
ed_ads_UserId=1520;
</script>
<script src="http://1.ads8.com:8001/code_45.js"></script>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -