movie_list.asp

众享网络电影程序是一个点广告版程序.可以设置强制广告.让用户点了广告才可以看电影.这样可以能让你的广告更能得到收入,让站长赚的钱更多啊. 而且又是一个不用你自己维护的电影网站程序,自己带有几百部电影.

<!--#include file="Movie_top.asp"-->
<LINK href="css/style1.css" type=text/css rel=stylesheet>
<%
 id=request("id")
 if id="" then
 response.redirect "default.asp"
 end if
%>
<DIV align=center>
<CENTER>
<TABLE cellSpacing=0 cellPadding=0 width=770 border=0 style="border-collapse: collapse">
  <TBODY>
  <TR>
<TD width=770 height="20"><img border="0" src="Images/top.gif" align="right" width="770" height="20"></TD>
</CENTER>
  </TR></TBODY></TABLE></DIV>
<%
dim i
i=0
page = request.querystring("page")
id=request("id")
if id = "" then
sql = "select * from movie order by date desc"
else
sql = "select * from movie where category='"&id&"' order by date desc"
end if
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
if rs.eof or rs.bof then
%>
<p style="margin-top: 2" align=center>没有找到相关电影
<%
else
rs.pagesize = "50"
if page = "" or page < "1" then
page = "1"
end if
if rs.pagecount > "0" then
rs.absolutepage = page
end if%>
<DIV align=center>
<TABLE cellSpacing=0 cellPadding=0 width=760 bordercolor="#F1F1F1" borderColorLight=#f1f1f1 border=1>
<TBODY>
<CENTER>
<table border="0" width="770" height="25" cellspacing="0" cellpadding="0" align="center" bgcolor="#FFFFFF">
<tr>
<td width="15%" nowrap>&nbsp;页次：<b><%=page%></b>/<b><%=rs.pagecount%></b> 每页<b>50</b> 共有电影[<b><%								
function gettipnum1()
dim tmprs1
tmprs1=conn.execute("Select Count(id) from Movie")
gettipnum1=tmprs1(0)
set tmprs1=nothing
if isnull(gettipnum1) then gettipnum1=0
end function%><font color="#FF0000"><%=gettipnum1()%></font></b>]部 今天更新[<b><%
function todays()
dim tmprs
tmprs=conn.execute("Select count(id) from Movie Where year(date)=year(date()) and month(date)=month(date()) and day(date)=day(date())")
todays=tmprs(0)
set tmprs=nothing
if isnull(todays) then todays=0
end function%><font color="#FF0000"><%=todays()%></font></b>]部</td>
<td width="65%" nowrap>
<p align="center"><%if page = "1" then%><font face="Webdings">9</font>&nbsp;<font face="Webdings">7</font><%else%>&nbsp;<a href="Movie_List.asp?id=<%=id%>"><font face="Webdings">9</font></a> <a href="Movie_List.asp?id=<%=id%>&page=<%=page-1%>"><font face="Webdings">7</font></a><%end if%>&nbsp;<%if rs.pagecount-page < 1 then%><font face="Webdings">8</font>&nbsp;<font face="Webdings">:</font><%else%><a href="Movie_List.asp?id=<%=id%>&page=<%=page+1%>"><font face="Webdings">8</font></a> <a href="Movie_List.asp?id=<%=id%>&page=<%=rs.pagecount%>"><font face="Webdings">:</font></a><%end if%></p></td><td width="18%" nowrap><table cellpadding="0" cellspacing="0"><form onsubmit="window.location=this.KKK2.options[this.KKK2.selectedIndex].value; return false;"><tr><td nowrap>跳到 <select name="select" onchange="javascript:window.location.href=this.options[this.selectedIndex].value" style="FONT-SIZE: 9pt"><%for go=1 to Rs.pagecount%><option value=Movie_List.asp?id=<%=id%>&page=<%=go%>>第<%=go%>页</option><%next%></select></td></td></tr></form></table></table>
<TABLE cellSpacing=0 cellPadding=0 width=770 border=0 bordercolor="#F1F1F1" style="border-collapse: collapse"bgcolor="#FFFFFF">
<%do while not rs.eof
i=i+1
if i > rs.pagesize then
exit do
end if
%>
<TR>
<td colspan=7 background="images/ddd.gif" height="1"></td></TR>
<TR>
<TD width=259 height=27>&nbsp;<IMG src=images/dian.gif border=0 width=16 height=16> <%=rs("name")%></TD>
<TD width=170 height=27><P align=center><img src="images/<%=rs("movietype")%>.gif" width=16 height=16><a href="#" onClick="window.open('Movie_Film.asp?id=<%=rs("id")%>','movie','scrollbars=no,resizable=no,width=550,height=250,menubar=no,top=168,left=168')"><FONT style="font-size: 8pt" face="Arial">Play</FONT></a></TD>
<TD align=middle width=80 height=27><FONT color="#666666"><%=rs("category")%></FONT></TD>
<TD align=middle width=72 height=27><%=rs("movietype")%></TD><TD align=middle width=42 height=30><%=rs("hits")%></TD>
<TD align=middle width=150 height=27><%=rs("date")%></TD></TR><TR>
<%
if i>=50 then exit do
rs.movenext
loop
end if%>
<td colspan=7 background="../images/ddd.gif" height="1"></td></TR></table>
<table border="0" width="770" height="25" cellspacing="0" cellpadding="0"bgcolor="#FFFFFF">
<tr>
<td width="15%" nowrap>&nbsp;页次：<b><%=page%></b>/<b><%=rs.pagecount%></b> 每页<b>50</b> 共有电影[<b><%								
function gettipnum1()
dim tmprs1
tmprs1=conn.execute("Select Count(id) from Movie")
gettipnum1=tmprs1(0)
set tmprs1=nothing
if isnull(gettipnum1) then gettipnum1=0
end function%><font color="#FF0000"><%=gettipnum1()%></font></b>]部 今天更新[<b><%
function todays()
dim tmprs
tmprs=conn.execute("Select count(id) from Movie Where year(date)=year(date()) and month(date)=month(date()) and day(date)=day(date())")
todays=tmprs(0)
set tmprs=nothing
if isnull(todays) then todays=0
end function%><font color="#FF0000"><%=todays()%></font></b>]部</td>
<td width="65%" nowrap><p align="center"><%if page = "1" then%><font face="Webdings">9</font>&nbsp;<font face="Webdings">7</font><%else%>&nbsp;<a href="Movie_List.asp?id=<%=id%>"><font face="Webdings">9</font></a> <a href="Movie_List.asp?id=<%=id%>&page=<%=page-1%>"><font face="Webdings">7</font></a><%end if%>&nbsp;<%if rs.pagecount-page < 1 then%><font face="Webdings">8</font>&nbsp;<font face="Webdings">:</font><%else%><a href="Movie_List.asp?id=<%=id%>&page=<%=page+1%>"><font face="Webdings">8</font></a> <a href="Movie_List.asp?id=<%=id%>&page=<%=rs.pagecount%>"><font face="Webdings">:</font></a><%end if%></p></td><td width="18%" nowrap><table cellpadding="0" cellspacing="0"><form onsubmit="window.location=this.KKK2.options[this.KKK2.selectedIndex].value; return false;"><tr><td nowrap>跳到 <select name="select" onchange="javascript:window.location.href=this.options[this.selectedIndex].value" style="FONT-SIZE: 9pt"><%for go=1 to Rs.pagecount%><option value=Movie_List.asp?id=<%=id%>&page=<%=go%>>第<%=go%>页</option><%next%></select></td></td></tr></form></table>
</CENTER>
</TBODY>
</TABLE>
</DIV>
<%
rs.close
set rs=nothing
conn.close
set conn=nothing%>
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="770" id="AutoNumber10" height="32">
<tr>
<td height="20" valign="bottom"><img border="0" src="Images/end.gif" width="770" height="20"></td>
</tr>
<tr>
<td height="30">
<p align="center"><font color="#FFFFFF"></font></td>
</tr>
<tr>
<td height="30">
<p align="center"><font color="#FFFFFF"><font face="Arial">Copyright 2004 <%=Weburl%> All Rights Reserved</font>　版权所有:<%=WebCopy%></font>
</td>
</tr>
</table>
</center>
</div>
</body>
</html>