开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 行业应用 > 家庭/个人应用 > 查看源码
mlist.asp
资源名称：qnmov30.rar　[点击查看]
上传用户：qyswxdl
上传日期：2013-06-01
资源大小：1373k
文件大小：20k
源码类别：

家庭/个人应用

开发平台：

ASP/ASPX

mlist.asp：源码内容
  1. <!--#include file=articleconn.asp-->
  2. <%
  3.    MaxPerPage=6
  4.    dim totalPut   
  5.    dim CurrentPage
  6.    dim TotalPages
  7.    dim i
  8.    dim ty
  9.    typeid=Replace(request("typeid"), "'", "''")
  10.     if not isempty(request("page")) then
  11.       currentPage=cint(request("page"))
  12.    else
  13.       currentPage=1
  14.    end if
  15.       dim rstype
  16.    dim typesql
  17.    dim types
  18.    if not isEmpty(Replace(request("typeid"), "'", "''")) then
  19. typeid=Replace(request("typeid"), "'", "''")
  20.    else
  21. typeid="所有影片"
  22.    end if
  23. %>
  25. <HTML><HEAD>
  26. <meta http-equiv="Content-Language" content="en-gb">
  27. <%set rs=conn.execute("select * from [home]")%>
  28. <TITLE>万众电影</TITLE>
  29. <META http-equiv=Content-Type content="text/html; charset=gb2312">
  30. <LINK href="img/style.css" type=text/css rel=stylesheet>
  31. <META content="MSHTML 6.00.2800.1505" name=GENERATOR>
  32. <script language="JavaScript">
  33. <!--
  34. function checkinput()
  35. {
  36. if (document.search.keyword.value=="")
  37.  {
  38. alert("请输入想查询的内容！");
  39. document.search.keyword.focus();
  40. return false;
  41.  }
  42.  return true;
  43. }
  44. -->
  45. </script>
  46. <script language="javascript">kstatus();function kstatus(){self.status="<%=rs("Description")%>";setTimeout("kstatus()",0);}</script></HEAD>
  47. <BODY >
  48. <!--#include file=top.asp-->
  49. <TABLE cellSpacing=0 cellPadding=0 width=993 border=0>
  50. <TBODY>
  51. <TR>
  52. <TD bgColor=#7d7d7d height=1></TD></TR></TBODY></TABLE>
  53. <TABLE cellSpacing=0 cellPadding=0 width=993 border=0>
  54. <TBODY>
  55. <TR>
  56. <TD bgColor=#ffffff height=2></TD></TR></TBODY></TABLE>
  57. <TABLE cellSpacing=0 cellPadding=0 width=993 bgColor=#ffffff border=0>
  58. <TBODY>
  59. <TR>
  60. <TD vAlign=top align=middle>
  61. <TABLE cellSpacing=0 cellPadding=0 width=977 border=0>
  62. <TBODY>
  63. <TR>
  64. <TD background=img/2.gif height=8></TD></TR></TBODY></TABLE>
  65. <TABLE cellSpacing=1 cellPadding=0 width=977 bgColor=#b7b7b7 border=0>
  66. <TBODY>
  67. <TR>
  68. <TD bgColor=#ffffff>
  69. <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
  70. <TBODY>
  71. <TR>
  72. <TD>
  73. <TABLE height=94 cellSpacing=0 cellPadding=1 width="100%" border=0>
  74. <TBODY>
  75. <TR>
  76. <TD align=right width=189><IMG height=90 src="img/channel_title_movie.gif" width=188></TD>
  77. <TD>
  78. <OBJECT codeBase=http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0 height=90 width=780 classid=clsid:D27CDB6E-AE6D-11cf-96B8-444553540000>
  79. <PARAM NAME="movie" VALUE="img/banner_780x90.swf">
  80. <PARAM NAME="quality" VALUE="High">
  81.  
  82. <embed src="img/banner_780x90.swf" quality="High" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="780" height="90"></embed></OBJECT></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE>
  83. <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
  84. <TBODY>
  85. <TR>
  86. <TD background=img/1.jpg height=12></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE>
  87. <TABLE cellSpacing=0 cellPadding=0 width=977 border=0>
  88. <TBODY>
  89. <TR>
  90. <TD height=2></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE>
  91. <TABLE cellSpacing=0 cellPadding=0 width=993 bgColor=#ffffff border=0>
  92. <TBODY>
  93. <TR>
  94. <TD vAlign=top align=middle height=173>
  95. <TABLE height=36 cellSpacing=0 cellPadding=0 width=977 border=0>
  96. <TBODY>
  97. <TR>
  98. <TD vAlign=top width=191 height=25>
  99. <!--#include file=left.asp--></TD>
  100. <TD width=2></TD>
  101. <TD width=1 bgColor=#c6c6c6></TD>
  102. <TD vAlign=top width=783>
  103. <TABLE cellSpacing=0 cellPadding=0 width=783 border=0>
  104. <TBODY>
  105. <TR>
  106. <TD><A href="#"><IMG height=60 src="img/dl_01.jpg" width=179 border=0></A></TD>
  107. <TD><A href="#"><IMG height=60 src="img/dl_02.jpg" width=171 border=0></A></TD>
  108. <TD><A href="#"><IMG height=60 src="img/dl_03.jpg" width=168 border=0></A></TD>
  109. <TD><A href="#"><IMG height=60 src="img/dl_04.jpg" width=160 border=0></A></TD>
  110. <TD><A href="#"><IMG height=60 src="img/dl_05.jpg" width=105 border=0></A></TD></TR></TBODY></TABLE>
  111. <TABLE height=40 cellSpacing=0 cellPadding=0 width="100%" background=img/5.gif border=0>
  112. <TBODY>
  113. <TR vAlign=top>
  114. <TD width=116><img border="0" src="img/18.gif" width="116" height="32"></TD>
  115. <TD align=right><IMG height=31 src="img/7.gif" width=83></TD></TR></TBODY></TABLE>
  116. <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0><TBODY><TR align=right>
  117. <TD>
  118. <TABLE height=240 cellSpacing=0 cellPadding=0 width="100%" border=0 id="table1"><TBODY>
  119. <TR align=right>
  120. <TD>
  121. <table width="126" border="0" cellpadding="0" cellspacing="0">
  122. <tr><%
  123. sql="select articleid,domurl,title,hits,content from learning where firstbest=1 order by articleid desc"
  124. set rs=server.createobject("adodb.recordset")
  125. rs.open sql,conn,1,1
  126. b=0
  127. row_count=1
  128.                     %> <%
  129.           do while not rs.eof
  130.           b=b+1%>
  131. <td><div align="center">
  132. <table width="126" border="0" cellspacing="0" cellpadding="0">
  133. <tr height="119" align="center">
  134. <td width="3"><!--Blank--></td>
  135. <td width="123" background="images/commend_pic.gif"><table border="1" width="100%" cellpadding="0" style="border-collapse: collapse" bordercolor="#939393" id="table5">
  136. <tr>
  137. <td><table border="0" cellspacing="4" width="100%" cellpadding="0" id="table5">
  138. <tr>
  139. <td><a href="movie.asp?id=<%=rs("articleid")%>" target="_blank">
  140. <img border="0" src="<%if rs("domurl")="" then%>img/w.gif<%else%><%=rs("domurl")%><%end if%>" width="137" height="191"></a></td>
  141. </tr>
  142. </table></td>
  143. </tr>
  144. </table></td>
  145. </tr>
  146. <tr height="21" align="middle">
  147. <td width="5"><img src height=1 width=9></td>
  148. <td background="img/8.gif"><table border="0" cellspacing="0" width="90%" cellpadding="0">
  149. <tr>
  150. <td height="22" width=109 align="center">
  151. <% if row_count mod 1 =0 then%>
  152.                               <%content=rs("title")
  153.                             if len(content)>11 then content=left(content,11)&"?-"
  154.                           response.write content
  155.                             %> 
  156. </td>
  157. <td>
  158. <p align="center"><a href="movie.asp?id=<%=rs("articleid")%>" target="_blank">
  159. <img src="img/sort_play1.gif" width="18" height="18" border="0" alt="播放"></a></td>
  160. </tr>
  161. </table></td>
  162. </tr>
  163. </table>
  164. </div></td>
  165.   <%end if%>
  166.                   <%row_count=row_count+1
  167.       if b>=5 then exit do
  168.       rs.movenext
  169.       loop
  170.       rs.close
  171.           set rs=nothing
  173.               %>
  174. </tr>
  175. </table>
  176. </TD>
  177. </TR></TBODY></TABLE>
  181. </TD>
  182. </TR></TBODY></TABLE>
  183. <TABLE height=40 cellSpacing=0 cellPadding=0 width="100%" background=img/5.gif border=0>
  184. <TBODY>
  185. <TR vAlign=top>
  186. <TD width=146><img border="0" src="img/11.gif" width="116" height="32"></TD>
  187. <TD align=right>
  188. <table border="0" cellspacing="0" width="100%" cellpadding="0" id="table6">
  189. <tr>
  190. <td height="9"><img src height=9 width=1></td>
  191. </tr>
  192. <tr>
  193. <td><!--webbot
  194. bot="HTMLMarkup" startspan --><font color="#000000"><b><span class="样式3" lang="zh-cn">本站共收录有电影:</span>
  195.                         <%        
  196. function gettipnum1()
  197. dim tmprs1
  198. tmprs1=conn.execute("Select Count(articleid) from learning")
  199. gettipnum1=tmprs1(0)
  200. set tmprs1=nothing
  201. if isnull(gettipnum1) then gettipnum1=0
  202. end function
  203.                                 %><font color="#FF0000"><%=gettipnum1()%></font><span class="样式3">部</span>&nbsp; <span class="样式3">今天更新:</span><span lang="zh-cn">
  204.                               <%
  205.                              function todays()
  206. dim tmprs
  207. tmprs=conn.execute("Select count(articleid) from learning Where year(dateandtime)=year(date()) and month(dateandtime)=month(date()) and day(dateandtime)=day(date())")
  208. todays=tmprs(0)
  209. set tmprs=nothing
  210. if isnull(todays) then todays=0
  211. end function%><font color="#FF0000"><%=todays()%></font></b><span class="样式3">部</span></span>
  212.                                   <!--webbot bot="HTMLMarkup" endspan i-checksum="62826" -->
  213. </td>
  214. </tr>
  215. </table>
  216. </TD>
  217. <TD align=right width="158"><IMG height=31 src="img/7.gif" width=83></TD></TR></TBODY></TABLE>
  218. <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0><TBODY>
  219. <TR>
  221.     <TD vAlign=top align=middle width=8>
  222.       <table width="591" border="0" align="center" cellpadding="0" cellspacing="0">
  223.         <tr>
  224.           <td colspan="2"><%
  225. dim sql
  226. dim rs
  227. if typeid="所有影片" then
  228.     sql="select * from learning order by articleid desc"
  229. else
  230.    sql="select * from learning where typeid='"&typeid&"' order by articleid desc"
  231. end if   
  232. set rs=server.createobject("adodb.recordset")
  233. rs.open sql,conn,1,1
  234.  if rs.eof and rs.bof then
  235.        response.write "<script>alert('该类还没有任何影片，要想看的话请联系管理员！')</Script><script Language=Javascript>location.href = '';</script>"
  236.        response.end
  237.    else
  238.   totalPut=rs.recordcount
  239.       totalPut=rs.recordcount
  240.       if currentpage<1 then
  241.           currentpage=1
  242.       end if
  243.       if (currentpage-1)*MaxPerPage>totalput then
  244.    if (totalPut mod MaxPerPage)=0 then
  245.      currentpage= totalPut  MaxPerPage
  246.    else
  247.       currentpage= totalPut  MaxPerPage + 1
  248.    end if
  249.       end if
  250.        if currentPage=1 then
  251.            showpage totalput,MaxPerPage,"mlist.asp"
  252.             showContent
  253.             showpage totalput,MaxPerPage,"mlist.asp"
  254.        else
  255.           if (currentPage-1)*MaxPerPage<totalPut then
  256.             rs.move  (currentPage-1)*MaxPerPage
  257.             dim bookmark
  258.             bookmark=rs.bookmark
  259.            showpage totalput,MaxPerPage,"mlist.asp"
  260.             showContent
  261.             showpage totalput,MaxPerPage,"mlist.asp"
  262.         else
  263.         currentPage=1
  264.           showpage totalput,MaxPerPage,"mlist.asp"
  265.            showContent
  266.            showpage1 totalput,MaxPerPage,"mlist.asp"
  267.       end if
  268.    end if
  269.    end if
  270.    sub showContent
  273. 'Split("Sun,Mon,Tue,Wed,Thu,Fri,Sat",",")
  274. BgImg1 = "06,04,08,09"
  275. BgImg2 = "12,11,14,15"
  277.        dim i
  278.    i=0
  279.                     %>
  280.             <%i=0
  281.           do while not rs.eof
  282. If i mod 4 = 0 Then MyBgImg = BgImg1 Else MyBgImg = BgImg2
  283. MyBgImg = Split(MyBgImg,",")
  284. %></td>
  285.         </tr>
  286.         <tr>
  287.           <td valign="top">
  288.             
  289.             <table border="0" cellspacing="3" width="100%" cellpadding="0" id="table8">
  290. <tr>
  291. <td>
  292. <table width="385" height="100%" border="0" cellspacing="1" cellpadding="5" bgcolor="#DBDBDB">
  293.               <tr>
  294.                 <td bgcolor="#ffffff" width="110"><a target="_blank" title="影片名称:<%=rs("title")%>
  295. 主演：<%content=rs("name")
  296.                           if len(content)>20 then content=left(content,20)&"…"
  297.                           response.write content
  298.                             %>
  299. 上传时间：<%=rs("dateandtime")%>
  300. 观看次数：<%=rs("hits")%>次
  301. " href="movie.asp?id=<%=rs("articleid")%>"><img border="0" height="152" src="<%if rs("domurl")="" then%>img/w.gif<%else%><%=rs("domurl")%><%end if%>" width="110"></a></td>
  302.                 <td bgcolor="#ffffff" valign="top">
  303.                   <table width="100%" height="100%" border="0" cellspacing="0" cellpadding="2">
  304.                     <tr>
  305.                       <td align="center" bgcolor="#E9E9E9"><span class="style2"></span></td>
  306.                       <td align="center" bgcolor="#E9E9E9"><div align="left"><span class="style2"> <strong>
  307.                         <span class="3dfont2"><a target="_blank" title="影片名称:<%=rs("title")%>
  308. 主演：<%content=rs("name")
  309.                           if len(content)>8 then content=left(content,8)&"?-"
  310.                           response.write content
  311.                             %>
  312. 上传时间：<%=rs("dateandtime")%>
  313. 观看次数：<%=rs("hits")%>次
  314. " href="movie.asp?id=<%=rs("articleid")%>">
  315.                         <%content=rs("title")
  316.                           if len(content)>13 then content=left(content,13)&""
  317.                           response.write content
  318.                             %>
  319.                         </a></span>                      </strong></a></span></div></td>
  320.                     </tr>
  321.                     <tr>
  322.                       <td colspan="2">类别： <%=rs("typeid")%></td>
  323.                     </tr>
  324.                     <tr>
  325.                       <td colspan="2">主演： 
  326.                         <%content=rs("name")
  327.                           if len(content)>20 then content=left(content,10)&"…"
  328.                           response.write content
  329.                             %></td>
  330.                     </tr>
  331.                     <tr>
  332.                       <td colspan="2">级别：
  333.                         <% if rs("canlook")=1 then%>  
  334.  普通电影  
  335.                     <%elseif rs("canlook")=3 then%>
  336.                     黄金电影   
  337.                     <%elseif rs("canlook")=0 then%>
  338.                     免费电影  
  339.                     <%end if%></td>
  340.                     </tr>
  341.                     <tr>
  342.                       <td colspan="2">观看：<%=rs("hits")%>次</td>
  343.                     </tr>
  344.                     <tr>
  345.                       <td width="10%" align="center">　</td>
  346.                       <td width="90%" align="center"><div align="left">
  347. <table border="0" cellspacing="5" cellpadding="0" id="table9">
  348. <tr>
  349. <td><a href="movie.asp?id=<%=rs("articleid")%>" target="_blank"><img src="img/sort_play.gif" border="0"></a></td>
  350. <td><a href="movie.asp?id=<%=rs("articleid")%>" target="_blank"><img src="img/sort_down.gif" width="60" height="18" border="0"></a></td>
  351. <td><img src="img/sort_sou.gif" border="0"></td>
  352. </tr>
  353. </table>
  354. </div></td>
  355.                     </tr>
  356.                 </table></td>
  357.             </table></td>
  358. </tr>
  359. </table>
  360.             
  361.             <%rs.movenext%></td>
  362.           <td><% If not rs.eof Then %>
  363.               <table border="0" width="100%">
  364. <tr>
  365. <td>
  366. <table width="385" height="100%" border="0" cellspacing="1" cellpadding="5" bgcolor="#DBDBDB">
  367.                 <tr>
  368.                   <td bgcolor="#ffffff" width="110"><a target="_blank" title="影片名称:<%=rs("title")%>
  369. 主演：<%content=rs("name")
  370.                           if len(content)>20 then content=left(content,20)&"…"
  371.                           response.write content
  372.                             %>
  373. 上传时间：<%=rs("dateandtime")%>
  374. 观看次数：<%=rs("hits")%>次
  376. " href="movie.asp?id=<%=rs("articleid")%>"><img border="0" height="152" src="<%if rs("domurl")="" then%>img/w.gif<%else%><%=rs("domurl")%><%end if%>" width="110"></a></td>
  377.                   <td bgcolor="#ffffff" valign="top">
  378.                     <table width="100%" height="100%" border="0" cellspacing="0" cellpadding="2">
  379.                       <tr>
  380.                         <td align="center" bgcolor="#E9E9E9"><span class="style2"></span></td>
  381.                         <td align="center" bgcolor="#E9E9E9"><div align="left"><span class="style2"> <strong> <span class="3dfont2"></span></strong></a><strong><span class="3dfont2"><a target="_blank" title="影片名称:<%=rs("title")%>
  382. 主演：<%content=rs("name")
  383.                           if len(content)>8 then content=left(content,8)&"?-"
  384.                           response.write content
  385.                             %>
  386. 上传时间：<%=rs("dateandtime")%>
  387. 观看次数：<%=rs("hits")%>次
  388. " href="movie.asp?id=<%=rs("articleid")%>">
  389.                             <%content=rs("title")
  390.                           if len(content)>13 then content=left(content,13)&""
  391.                           response.write content
  392.                             %>
  393.                         </a></span> </strong></span></div></td>
  394.                       </tr>
  395.                       <tr>
  396.                         <td colspan="2">类别： <%=rs("typeid")%></td>
  397.                       </tr>
  398.                       <tr>
  399.                         <td colspan="2">主演：
  400.                             <%content=rs("name")
  401.                           if len(content)>20 then content=left(content,10)&"…"
  402.                           response.write content
  403.                             %></td>
  404.                       </tr>
  405.                       <tr>
  406.                         <td colspan="2">级别：
  407.                             <% if rs("canlook")=1 then%>
  408.             普通电影
  409.             <%elseif rs("canlook")=3 then%>
  410.             黄金电影
  411.             <%elseif rs("canlook")=0 then%>
  412.             免费电影
  413.             <%end if%></td>
  414.                       </tr>
  415.                       <tr>
  416.                         <td colspan="2">观看：<%=rs("hits")%>次</td>
  417.                       </tr>
  418.                       <tr>
  419.                         <td width="10%" align="center">　</td>
  420.                         <td width="90%" align="center"><div align="left"><div align="left">
  421. <table border="0" cellspacing="5" cellpadding="0" id="table10">
  422. <tr>
  423. <td><a href="movie.asp?id=<%=rs("articleid")%>" target="_blank"><img src="img/sort_play.gif" border="0"></a></td>
  424. <td><a href="movie.asp?id=<%=rs("articleid")%>" target="_blank"><img src="img/sort_down.gif" width="60" height="18" border="0"></a></td>
  425. <td><img src="img/sort_sou.gif" border="0"></td>
  426. </tr>
  427. </table>
  428. </div></div></td>
  429.                       </tr>
  430.                   </table></td>
  431.               </table></td>
  432. </tr>
  433. </table>
  434.               <%rs.movenext%>
  435.           </td>
  436.         </tr>
  437.         <tr>
  438.           <% End If %>
  439.         </tr>
  440.         <tr>
  441.           <td colspan="2">
  442.             <% i=i+2
  443.       if i>=MaxPerPage then exit do
  444.    loop
  445.               %>
  446.           </td>
  447.         </tr>
  448.       </table>
  449.       <%
  450. end sub 
  452. function showpage(totalnumber,maxperpage,filename)
  453. dim n
  454. if totalnumber mod maxperpage=0 then
  455. n= totalnumber  maxperpage
  456. else
  457. n= totalnumber  maxperpage+1
  458. end if
  459. %>
  460.       <table border="0" cellspacing="0" height="25" width="659" background="images/top-bg3.gif">
  461.         <form method=Post action="<%=filename%>?typeid=<%=typeid%>">
  462.           <tr>
  463.             <td height="25"> &nbsp;&nbsp;
  464.             <font color="000000" class="fontshadow">〓 <%=typeid%> 〓 &nbsp;&nbsp;共有<font color="ff0000"><b><%=totalnumber%></b></font>部&nbsp;&nbsp;&nbsp;当前:第<font color="ff0000"><strong><%=CurrentPage%></strong></font>页/共<font color="ff0000"><strong><%=n%></strong></font>页
  465.             <td><div align="right">
  466.                 <%if CurrentPage<2 then%>
  467.                 <font color="888888">首页&nbsp;上一页&nbsp;&nbsp;&nbsp;
  468.                 <%else%>
  469.                 <a class=left href="<%=filename%>?typeid=<%=typeid%>&page=1&"><font color="000000">首页</font></a><font color="000000">&nbsp; <a class=left href="<%=filename%>?typeid=<%=typeid%>&page=<%=CurrentPage-1%>"><font color="000000">上一页</font></a><font color="000000">&nbsp;&nbsp;&nbsp;
  470.                 <%
  471. end if
  472. if n-currentpage<1 then
  473. %>
  474.                 <font color="888888">下一页&nbsp;尾页&nbsp;&nbsp;&nbsp;
  475.                 <%else%>
  476.                 <a class=left href="<%=filename%>?typeid=<%=typeid%>&page=<%=(CurrentPage+1)%>"><font color="000000">下一页</font></a><font color="000000">&nbsp; <a class=left href="<%=filename%>?typeid=<%=typeid%>&page=<%=n%>"><font color="000000">尾页</font></a><font color="000000">&nbsp;
  477.                 <%end if%>
  478.               </font></font></font></font></font></font></div>
  479.             <font color="888888"><font color="000000"><font color="000000"><font color="888888"><font color="000000"><font color="000000">
  480.             <td align="center"><select name="page" style="color:#000000;font-size: 9pt" onchange="javascript:submit()">
  481.                 <%for i = 1 to n%>
  482.                 <option value="<%=i%>" <%if cint(CurrentPage)=cint(i) then%> selected <%end if%>>第<%=i%>页</option>
  483.                 <%next%>
  484.             </select></td>
  485.           </font></font></font></font></font></font></font></tr>
  486.         </form>
  487.       </table>
  488.       <% 
  489. end function
  490. %>
  491.       <%
  492. sub gotopage
  493. end sub
  494. %>
  495. </TABLE>
  496. </td>
  497. </tr>
  498. </table>
  499. </td>
  501. </TR></TBODY></TABLE>
  502. </TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE>
  504. <!--#include file=bottom.asp-->
  505. </BODY></HTML>