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

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

家庭/个人应用

开发平台：

ASP/ASPX

mlist1.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="../../vod/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=../../vod/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>
  77. <IMG height=90 src="../../vod/img/channel_title_movie.gif" width=188></TD>
  78. <TD>
  79. <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>
  80. <PARAM NAME="movie" VALUE="../../vod/img/banner_780x90.swf">
  81. <PARAM NAME="quality" VALUE="High">
  82.  
  83. <embed src="../../vod/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>
  84. <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
  85. <TBODY>
  86. <TR>
  87. <TD background=../../vod/img/1.jpg height=12></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE>
  88. <TABLE cellSpacing=0 cellPadding=0 width=977 border=0>
  89. <TBODY>
  90. <TR>
  91. <TD height=2></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE>
  92. <TABLE cellSpacing=0 cellPadding=0 width=993 bgColor=#ffffff border=0>
  93. <TBODY>
  94. <TR>
  95. <TD vAlign=top align=middle height=173>
  96. <TABLE height=36 cellSpacing=0 cellPadding=0 width=977 border=0>
  97. <TBODY>
  98. <TR>
  99. <TD vAlign=top width=191 height=25>
  100. <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
  101. <TBODY>
  102. <TR>
  103. <TD><IMG height=26 src="../../vod/img/t1.jpg" width=191></TD></TR></TBODY></TABLE>
  104. <TABLE cellSpacing=0 cellPadding=10 width="100%" border=0>
  105. <TBODY>
  106. <TR>
  107. <TD class=white-2 bgColor=#939393>
  108.    <%set rs1=server.createobject("adodb.recordset")                                                                                     
  109. sql="select * from talk where id=id" 
  110. rs1.open sql,conn,1,3
  111. talk=rs1("talk")
  112. rs1.close
  113. set rs1=nothing
  114.    %>
  115. <%=talk%>
  116. </TD></TR></TBODY></TABLE>
  117. <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
  118. <TBODY>
  119. <TR>
  120. <TD><IMG height=28 src="../../vod/img/t2.jpg" width=191></TD></TR></TBODY></TABLE>
  121. <TABLE cellSpacing=0 cellPadding=10 width="100%" border=0>
  122. <TBODY>
  123. <TR>
  124. <TD class=white-1 align=middle bgColor=#939393>
  125. <table border="0" cellspacing="3" width="90%" id="table7">
  126. <tr>
  127. <td align="center" class=white-2><a href="/dljc.asp"> 大陆剧场</a></td>
  128. <td align="center" class=white-2><a href="/omjc.asp">  欧美剧场</a></td>
  129. </tr>
  130. <tr>
  131. <td align="center" class=white-2><a href="/gtjc.asp">  港台剧场</a></td>
  132. <td align="center" class=white-2><a href="/rhjc.asp">  日韩剧场</a></td>
  133. </tr>
  134. </table>
  135. </TD></TR></TBODY></TABLE>
  137. <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
  138. <TBODY>
  139. <TR>
  140. <TD><IMG src="../../vod/img/t6.jpg"></TD></TR></TBODY></TABLE>
  141. <TABLE cellSpacing=0 cellPadding=10 width="100%" border=0>
  142. <TBODY>
  143. <TR>
  144. <TD class=white-1 bgColor=#939393>            <%
  145.                          Set rst= Server.CreateObject("ADODB.Recordset")
  146.                           rst.open "select articleid,title,hits from learning order by hits desc",conn,1,1
  147.                           %>
  148.               <%
  149.                       i=0
  150.                       do while not rst.eof
  151.                       i=i+1
  152.                       %>
  153.               <table><tr>
  154.                 <td width="5%" align="center">
  155. <img border="0" src="../../vod/img/2dian.gif" width="10" height="9"></td>
  156.                 <td width="64%"><a href="movie.asp?id=<%=rst("articleid")%>" target="_blank" class="left">
  157.                   <%content=rst("title")
  158.                             if len(content)>8 then content=left(content,8)&"..."
  159.                           response.write content
  160.                             %>
  161.                 </a> </td>
  162.                 <td align="center" width="22%"><%=rst("hits")%></td>
  163.               </tr>
  164.               </table>
  165.               <% 
  166.                         if i>=10 then exit do
  167.                         rst.movenext
  168.                         loop
  169.                         rst.close
  170.                         set rst=nothing
  171.                         %></TD></TR></TBODY></TABLE>
  173. <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
  174. <TBODY><TR><TD><IMG height=28 src="../../vod/img/t3.jpg" width=191></TD></TR></TBODY></TABLE>
  175. <TABLE cellSpacing=0 cellPadding=10 width="100%" border=0>
  176. <TBODY><TR><TD class=white-1 bgColor=#939393><table width="159" border="0" cellspacing="0" cellpadding="0">
  177.     <tr>
  178.       <td width="45" align="right"><div align="right" class="style1">
  179. <font color="#FFFFFF">QQ:</font></div></td>
  180.       <td width="105"><font color="#FFFFFF"><span class="style1">283356686</span></font></td>
  181.     </tr>
  182.     <tr>
  183.       <td align="right"><font color="#FFFFFF"><span class="style1">E-mail:</span></font></td>
  184.       <td><a href="mailto:succkey@163.com" class="style1">succkey@163.com</a></td>
  185.     </tr>
  186.   </table></TD></TR></TBODY></TABLE>
  187. <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
  188. <TBODY><TR><TD><IMG height=28 src="../../vod/img/t4.jpg" width=191></TD></TR></TBODY></TABLE>
  192. <TABLE cellSpacing=0 cellPadding=10 width="100%" border=0>
  193. <TBODY>
  194. <TR>
  195. <TD valign="top" bgColor=#939393 class=white-1>
  196. <IMG height=9 
  197. hspace=5 src="../../vod/img/2dian.gif" width=10 align=absMiddle 
  198. vspace=8>
  199.  <a href="../../help/help1.asp"><font size="2"><span style="text-decoration: none">Rip播放软件的安装？</span></font></a><font size="2"><BR>
  200. <IMG 
  201. height=9 hspace=5 src="../../vod/img/2dian.gif" width=10 
  202. align=absMiddle vspace=8> 
  203. <A 
  204. href="../../help/help2.asp"><span style="text-decoration: none">字幕相关介绍？</span></A><BR>
  205. <IMG 
  206. height=9 hspace=5 src="../../vod/img/2dian.gif" width=10 
  207. align=absMiddle vspace=8>
  208. <A 
  209. href="../../help/help3.asp"><span style="text-decoration: none">VobSub字幕时间调整？</span></A><BR>
  210. <IMG 
  211. height=9 hspace=5 src="../../vod/img/2dian.gif" width=10 
  212. align=absMiddle vspace=8>
  213. <A 
  214. href="../../help/help4.asp"><span style="text-decoration: none">Rip常见问题和方法？</span></A><BR>
  215. <IMG 
  216. height=9 hspace=5 src="../../vod/img/2dian.gif" width=10 
  217. align=absMiddle vspace=8>
  218. <A 
  219. href="../../help/help5.asp"><span style="text-decoration: none">Rip播放和插件的设置？</span></A><BR>
  220. <IMG 
  221. height=9 hspace=5 src="../../vod/img/2dian.gif" width=10
  222. align=absMiddle vspace=8>
  223. </font>
  224. <A 
  225. href="../../help/help6.asp"><span style="text-decoration: none">
  226. <font size="2">Rip播放的名词术语？</font></span></A><BR>
  227.   </TD>
  228. </TR>
  229. </TBODY></TABLE>
  232. <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
  233. <TBODY><TR><TD><IMG height=28 src="../../vod/img/t3.jpg" width=191></TD></TR></TBODY></TABLE>
  235. <TABLE cellSpacing=0 cellPadding=5 width="100%" border=0>
  236. <TBODY>
  237. <TR>
  238. <TD class=white-2 bgColor=#939393 height=181 valign="top"><div align="center">你对本站的哪方面最满意</div>
  239.   <table width="120" border="0" align="center" cellpadding="0" cellspacing="0"> 
  240. <form action="../../yijian.asp" method="post" name="yijian">
  241.       <tr>
  242.         <td><input type="radio" name="manyi" value="playspeed"><font color="#FFFFFF"><span class="style1">电影的播放速度</span></font></td>
  243.       </tr>
  244.       <tr>
  245.         <td><input name="manyi" type="radio" value="updatespeed"><font color="#FFFFFF"><span class="style1">电影的更新速度</span></font></td>
  246.       </tr>
  247.       <tr>
  248.         <td><input name="manyi" type="radio" value="movies_amount">
  249.             <font color="#FFFFFF">
  250.             <span class="style1"> 电影的数量</span></font></td>
  251.       </tr>
  252.       <tr>
  253.         <td><div align="center">
  254.             <input type="submit" value="提 交">
  255.         </div></td>
  256.       </tr></form>
  257.  
  258.     </table>　</TD></TR></TBODY></TABLE></TD>
  259. <TD width=2></TD>
  260. <TD width=1 bgColor=#c6c6c6></TD>
  261. <TD vAlign=top width=783>
  262. <TABLE cellSpacing=0 cellPadding=0 width=783 border=0>
  263. <TBODY>
  264. <TR>
  265. <TD><A href="/bfqxz/RealPlayer.exe">
  266. <IMG height=60 src="../../vod/img/dl_01.jpg" width=179 border=0></A></TD>
  267. <TD><A href="/bfqxz/Windows Media Player.exe">
  268. <IMG height=60 src="../../vod/img/dl_02.jpg" width=171 border=0></A></TD>
  269. <TD><A href="/bfqxz/ffdshow.exe">
  270. <IMG height=60 src="../../vod/img/dl_03.jpg" width=168 border=0></A></TD>
  271. <TD><A href="/bfqxz/ie6setup.exe">
  272. <IMG height=60 src="../../vod/img/dl_04.jpg" width=160 border=0></A></TD>
  273. <TD><A href="#"><IMG height=60 src="../../vod/img/dl_05.jpg" width=105 border=0></A></TD></TR></TBODY></TABLE>
  274. <TABLE height=40 cellSpacing=0 cellPadding=0 width="100%" background=../../vod/img/5.gif border=0>
  275. <TBODY>
  276. <TR vAlign=top>
  277. <TD width=116>
  278. <img border="0" src="../../vod/img/18.gif" width="116" height="32"></TD>
  279. <TD align=right><IMG height=31 src="../../vod/img/7.gif" width=83></TD></TR></TBODY></TABLE>
  280. <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0><TBODY><TR align=right>
  281. <TD>
  282. <TABLE height=240 cellSpacing=0 cellPadding=0 width="100%" border=0 id="table1"><TBODY>
  283. <TR align=right>
  284. <TD>
  285. <table width="126" border="0" cellpadding="0" cellspacing="0">
  286. <tr><%
  287. sql="select articleid,domurl,title,hits,content from learning where firstbest=1 order by articleid desc"
  288. set rs=server.createobject("adodb.recordset")
  289. rs.open sql,conn,1,1
  290. b=0
  291. row_count=1
  292.                     %> <%
  293.           do while not rs.eof
  294.           b=b+1%>
  295. <td><div align="center">
  296. <table width="126" border="0" cellspacing="0" cellpadding="0">
  297. <tr height="119" align="center">
  298. <td width="3"><!--Blank--></td>
  299. <td width="123" background="../../images/commend_pic.gif"><table border="1" width="100%" cellpadding="0" style="border-collapse: collapse" bordercolor="#939393" id="table5">
  300. <tr>
  301. <td><table border="0" cellspacing="4" width="100%" cellpadding="0" id="table5">
  302. <tr>
  303. <td><a href="movie.asp?id=<%=rs("articleid")%>" target="_blank">
  304. <img border="0" src="<%if rs("domurl")="" then%>img/w.gif<%else%><%=rs("domurl")%><%end if%>" width="137" height="191"></a></td>
  305. </tr>
  306. </table></td>
  307. </tr>
  308. </table></td>
  309. </tr>
  310. <tr height="21" align="middle">
  311. <td width="5"><img src height=1 width=9></td>
  312. <td background="../../vod/img/8.gif"><table border="0" cellspacing="0" width="90%" cellpadding="0">
  313. <tr>
  314. <td height="22" width=74 align="center">
  315. <% if row_count mod 1 =0 then%>
  316.                               <%content=rs("title")
  317.                             if len(content)>11 then content=left(content,11)&"?-"
  318.                           response.write content
  319.                             %> 
  320. </td>
  321. <td>
  322. <p align="center"><a href="movie.asp?id=<%=rs("articleid")%>" target="_blank">
  323. <img src="../../vod/img/sort_play.gif" width="60" height="18" border="0"></a></td>
  324. </tr>
  325. </table></td>
  326. </tr>
  327. </table>
  328. </div></td>
  329.   <%end if%>
  330.                   <%row_count=row_count+1
  331.       if b>=5 then exit do
  332.       rs.movenext
  333.       loop
  334.       rs.close
  335.           set rs=nothing
  337.               %>
  338. </tr>
  339. </table>
  340. </TD>
  341. </TR></TBODY></TABLE>
  345. </TD>
  346. </TR></TBODY></TABLE>
  347. <TABLE height=40 cellSpacing=0 cellPadding=0 width="100%" background=../../vod/img/5.gif border=0>
  348. <TBODY>
  349. <TR vAlign=top>
  350. <TD width=146>
  351. <img border="0" src="../../vod/img/11.gif" width="116" height="32"></TD>
  352. <TD align=right>
  353. <table border="0" cellspacing="0" width="100%" cellpadding="0" id="table6">
  354. <tr>
  355. <td height="9"><img src height=9 width=1></td>
  356. </tr>
  357. <tr>
  358. <td><!--webbot
  359. bot="HTMLMarkup" startspan --><font color="#000000"><b><span class="样式3" lang="zh-cn">本站共收录有电影:</span>
  360.                         <%        
  361. function gettipnum1()
  362. dim tmprs1
  363. tmprs1=conn.execute("Select Count(articleid) from learning")
  364. gettipnum1=tmprs1(0)
  365. set tmprs1=nothing
  366. if isnull(gettipnum1) then gettipnum1=0
  367. end function
  368.                                 %><font color="#FF0000"><%=gettipnum1()%></font><span class="样式3">部</span>&nbsp; <span class="样式3">今天更新:</span><span lang="zh-cn">
  369.                               <%
  370.                              function todays()
  371. dim tmprs
  372. tmprs=conn.execute("Select count(articleid) from learning Where year(dateandtime)=year(date()) and month(dateandtime)=month(date()) and day(dateandtime)=day(date())")
  373. todays=tmprs(0)
  374. set tmprs=nothing
  375. if isnull(todays) then todays=0
  376. end function%><font color="#FF0000"><%=todays()%></font></b><span class="样式3">部</span></span>
  377.                                   <!--webbot bot="HTMLMarkup" endspan i-checksum="62826" -->
  378. </td>
  379. </tr>
  380. </table>
  381. </TD>
  382. <TD align=right width="158"><IMG height=31 src="../../vod/img/7.gif" width=83></TD></TR></TBODY></TABLE>
  383. <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0><TBODY>
  384. <TR>
  386.     <TD vAlign=top align=middle width=8>
  387.       <table width="591" border="0" align="center" cellpadding="0" cellspacing="0">
  388.         <tr>
  389.           <td colspan="2"><%
  390. dim sql
  391. dim rs
  392. if typeid="所有影片" then
  393.     sql="select * from learning order by articleid desc"
  394. else
  395.    sql="select * from learning where typeid='"&typeid&"' order by articleid desc"
  396. end if   
  397. set rs=server.createobject("adodb.recordset")
  398. rs.open sql,conn,1,1
  399.  if rs.eof and rs.bof then
  400.        response.write "<script>alert('该类还没有任何影片，要想看的话请联系管理员！')</Script><script Language=Javascript>location.href = '';</script>"
  401.        response.end
  402.    else
  403.   totalPut=rs.recordcount
  404.       totalPut=rs.recordcount
  405.       if currentpage<1 then
  406.           currentpage=1
  407.       end if
  408.       if (currentpage-1)*MaxPerPage>totalput then
  409.    if (totalPut mod MaxPerPage)=0 then
  410.      currentpage= totalPut  MaxPerPage
  411.    else
  412.       currentpage= totalPut  MaxPerPage + 1
  413.    end if
  414.       end if
  415.        if currentPage=1 then
  416.            showpage totalput,MaxPerPage,"mlist.asp"
  417.             showContent
  418.             showpage totalput,MaxPerPage,"mlist.asp"
  419.        else
  420.           if (currentPage-1)*MaxPerPage<totalPut then
  421.             rs.move  (currentPage-1)*MaxPerPage
  422.             dim bookmark
  423.             bookmark=rs.bookmark
  424.            showpage totalput,MaxPerPage,"mlist.asp"
  425.             showContent
  426.             showpage totalput,MaxPerPage,"mlist.asp"
  427.         else
  428.         currentPage=1
  429.           showpage totalput,MaxPerPage,"mlist.asp"
  430.            showContent
  431.            showpage1 totalput,MaxPerPage,"mlist.asp"
  432.       end if
  433.    end if
  434.    end if
  435.    sub showContent
  438. 'Split("Sun,Mon,Tue,Wed,Thu,Fri,Sat",",")
  439. BgImg1 = "06,04,08,09"
  440. BgImg2 = "12,11,14,15"
  442.        dim i
  443.    i=0
  444.                     %>
  445.             <%i=0
  446.           do while not rs.eof
  447. If i mod 4 = 0 Then MyBgImg = BgImg1 Else MyBgImg = BgImg2
  448. MyBgImg = Split(MyBgImg,",")
  449. %></td>
  450.         </tr>
  451.         <tr>
  452.           <td valign="top">
  453.             
  454.             <table border="0" cellspacing="3" width="100%" cellpadding="0" id="table8">
  455. <tr>
  456. <td>
  457. <table width="385" height="100%" border="0" cellspacing="1" cellpadding="5" bgcolor="#DBDBDB">
  458.               <tr>
  459.                 <td bgcolor="#ffffff" width="110"><a target="_blank" title="影片名称:<%=rs("title")%>
  460. 主演：<%content=rs("name")
  461.                           if len(content)>20 then content=left(content,20)&"…"
  462.                           response.write content
  463.                             %>
  464. 上传时间：<%=rs("dateandtime")%>
  465. 观看次数：<%=rs("hits")%>次
  466. " 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>
  467.                 <td bgcolor="#ffffff" valign="top">
  468.                   <table width="100%" height="100%" border="0" cellspacing="0" cellpadding="2">
  469.                     <tr>
  470.                       <td align="center" bgcolor="#E9E9E9"><span class="style2"></span></td>
  471.                       <td align="center" bgcolor="#E9E9E9"><div align="left"><span class="style2"> <strong>
  472.                         <span class="3dfont2"><a target="_blank" title="影片名称:<%=rs("title")%>
  473. 主演：<%content=rs("name")
  474.                           if len(content)>8 then content=left(content,8)&"?-"
  475.                           response.write content
  476.                             %>
  477. 上传时间：<%=rs("dateandtime")%>
  478. 观看次数：<%=rs("hits")%>次
  479. " href="movie.asp?id=<%=rs("articleid")%>">
  480.                         <%content=rs("title")
  481.                           if len(content)>13 then content=left(content,13)&""
  482.                           response.write content
  483.                             %>
  484.                         </a></span>                      </strong></a></span></div></td>
  485.                     </tr>
  486.                     <tr>
  487.                       <td colspan="2">类别： <%=rs("typeid")%></td>
  488.                     </tr>
  489.                     <tr>
  490.                       <td colspan="2">主演： 
  491.                         <%content=rs("name")
  492.                           if len(content)>20 then content=left(content,10)&"…"
  493.                           response.write content
  494.                             %></td>
  495.                     </tr>
  496.                     <tr>
  497.                       <td colspan="2">级别：
  498.                         <% if rs("canlook")=1 then%>  
  499.  普通电影  
  500.                     <%elseif rs("canlook")=3 then%>
  501.                     黄金电影   
  502.                     <%elseif rs("canlook")=0 then%>
  503.                     免费电影  
  504.                     <%end if%></td>
  505.                     </tr>
  506.                     <tr>
  507.                       <td colspan="2">观看：<%=rs("hits")%>次</td>
  508.                     </tr>
  509.                     <tr>
  510.                       <td width="10%" align="center">　</td>
  511.                       <td width="90%" align="center"><div align="left">
  512. <table border="0" cellspacing="5" cellpadding="0" id="table9">
  513. <tr>
  514. <td><a href="movie.asp?id=<%=rs("articleid")%>" target="_blank">
  515. <img src="../../vod/img/sort_play.gif" border="0"></a></td>
  516. <td><a href="movie.asp?id=<%=rs("articleid")%>" target="_blank">
  517. <img src="../../vod/img/sort_down.gif" width="60" height="18" border="0"></a></td>
  518. <td>
  519. <img src="../../vod/img/sort_sou.gif" border="0"></td>
  520. </tr>
  521. </table>
  522. </div></td>
  523.                     </tr>
  524.                 </table></td>
  525.             </table></td>
  526. </tr>
  527. </table>
  528.             
  529.             <%rs.movenext%></td>
  530.           <td><% If not rs.eof Then %>
  531.               <table border="0" width="100%">
  532. <tr>
  533. <td>
  534. <table width="385" height="100%" border="0" cellspacing="1" cellpadding="5" bgcolor="#DBDBDB">
  535.                 <tr>
  536.                   <td bgcolor="#ffffff" width="110"><a target="_blank" title="影片名称:<%=rs("title")%>
  537. 主演：<%content=rs("name")
  538.                           if len(content)>20 then content=left(content,20)&"…"
  539.                           response.write content
  540.                             %>
  541. 上传时间：<%=rs("dateandtime")%>
  542. 观看次数：<%=rs("hits")%>次
  544. " 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>
  545.                   <td bgcolor="#ffffff" valign="top">
  546.                     <table width="100%" height="100%" border="0" cellspacing="0" cellpadding="2">
  547.                       <tr>
  548.                         <td align="center" bgcolor="#E9E9E9"><span class="style2"></span></td>
  549.                         <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")%>
  550. 主演：<%content=rs("name")
  551.                           if len(content)>8 then content=left(content,8)&"?-"
  552.                           response.write content
  553.                             %>
  554. 上传时间：<%=rs("dateandtime")%>
  555. 观看次数：<%=rs("hits")%>次
  556. " href="movie.asp?id=<%=rs("articleid")%>">
  557.                             <%content=rs("title")
  558.                           if len(content)>13 then content=left(content,13)&""
  559.                           response.write content
  560.                             %>
  561.                         </a></span> </strong></span></div></td>
  562.                       </tr>
  563.                       <tr>
  564.                         <td colspan="2">类别： <%=rs("typeid")%></td>
  565.                       </tr>
  566.                       <tr>
  567.                         <td colspan="2">主演：
  568.                             <%content=rs("name")
  569.                           if len(content)>20 then content=left(content,10)&"…"
  570.                           response.write content
  571.                             %></td>
  572.                       </tr>
  573.                       <tr>
  574.                         <td colspan="2">级别：
  575.                             <% if rs("canlook")=1 then%>
  576.             普通电影
  577.             <%elseif rs("canlook")=3 then%>
  578.             黄金电影
  579.             <%elseif rs("canlook")=0 then%>
  580.             免费电影
  581.             <%end if%></td>
  582.                       </tr>
  583.                       <tr>
  584.                         <td colspan="2">观看：<%=rs("hits")%>次</td>
  585.                       </tr>
  586.                       <tr>
  587.                         <td width="10%" align="center">　</td>
  588.                         <td width="90%" align="center"><div align="left"><div align="left">
  589. <table border="0" cellspacing="5" cellpadding="0" id="table10">
  590. <tr>
  591. <td><a href="movie.asp?id=<%=rs("articleid")%>" target="_blank">
  592. <img src="../../vod/img/sort_play.gif" border="0"></a></td>
  593. <td><a href="movie.asp?id=<%=rs("articleid")%>" target="_blank">
  594. <img src="../../vod/img/sort_down.gif" width="60" height="18" border="0"></a></td>
  595. <td>
  596. <img src="../../vod/img/sort_sou.gif" border="0"></td>
  597. </tr>
  598. </table>
  599. </div></div></td>
  600.                       </tr>
  601.                   </table></td>
  602.               </table></td>
  603. </tr>
  604. </table>
  605.               <%rs.movenext%>
  606.           </td>
  607.         </tr>
  608.         <tr>
  609.           <% End If %>
  610.         </tr>
  611.         <tr>
  612.           <td colspan="2">
  613.             <% i=i+2
  614.       if i>=MaxPerPage then exit do
  615.    loop
  616.               %>
  617.           </td>
  618.         </tr>
  619.       </table>
  620.       <%
  621. end sub 
  623. function showpage(totalnumber,maxperpage,filename)
  624. dim n
  625. if totalnumber mod maxperpage=0 then
  626. n= totalnumber  maxperpage
  627. else
  628. n= totalnumber  maxperpage+1
  629. end if
  630. %>
  631.       <table border="0" cellspacing="0" height="25" width="659" background="../../images/top-bg3.gif">
  632.         <form method=Post action="<%=filename%>?typeid=<%=typeid%>">
  633.           <tr>
  634.             <td height="25"> &nbsp;&nbsp;
  635.             <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>页
  636.             <td><div align="right">
  637.                 <%if CurrentPage<2 then%>
  638.                 <font color="888888">首页&nbsp;上一页&nbsp;&nbsp;&nbsp;
  639.                 <%else%>
  640.                 <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;
  641.                 <%
  642. end if
  643. if n-currentpage<1 then
  644. %>
  645.                 <font color="888888">下一页&nbsp;尾页&nbsp;&nbsp;&nbsp;
  646.                 <%else%>
  647.                 <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;
  648.                 <%end if%>
  649.               </font></font></font></font></font></font></div>
  650.             <font color="888888"><font color="000000"><font color="000000"><font color="888888"><font color="000000"><font color="000000">
  651.             <td align="center"><select name="page" style="color:#000000;font-size: 9pt" onchange="javascript:submit()">
  652.                 <%for i = 1 to n%>
  653.                 <option value="<%=i%>" <%if cint(CurrentPage)=cint(i) then%> selected <%end if%>>第<%=i%>页</option>
  654.                 <%next%>
  655.             </select></td>
  656.           </font></font></font></font></font></font></font></tr>
  657.         </form>
  658.       </table>
  659.       <% 
  660. end function
  661. %>
  662.       <%
  663. sub gotopage
  664. end sub
  665. %>
  666. </TABLE>
  667. </td>
  668. </tr>
  669. </table>
  670. </td>
  672. </TR></TBODY></TABLE>
  673. </TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE>
  676. <TABLE height=8 cellSpacing=0 cellPadding=0 width=993 background=../../vod/img/20.gif border=0>
  677. <TBODY>
  678. <TR>
  679. <TD width=8 bgColor=#ffffff></TD>
  680. <TD><img src height=8 width=1></TD>
  681. <TD width=8 bgColor=#ffffff>　</TD></TR></TBODY></TABLE>
  682. <TABLE height=97 cellSpacing=0 cellPadding=0 width=993 border=0>
  683. <TBODY>
  684. <TR>
  685. <TD align=right bgColor=#ffffff>　</TD>
  686. <TD bgColor=#ffffff>　</TD></TR></TBODY></TABLE>
  687. <TABLE height=8 cellSpacing=0 cellPadding=0 width=993 background=../../vod/img/20.gif border=0>
  688. <TBODY>
  689. <TR>
  690. <TD width=8 bgColor=#ffffff></TD>
  691. <TD height="9"><img src height=8 width=1></TD>
  692. <TD width=8 bgColor=#ffffff>　</TD></TR></TBODY></TABLE>
  693. <TABLE cellSpacing=0 cellPadding=0 width=993 bgColor=#ffffff border=0>
  694. <TBODY>
  695. <TR>
  696. <TD align=middle height=34><!--#include file=bottom.asp--></TD>
  697. </TR>
  698. <TR>
  700. </TR></TBODY></TABLE>
  701. </BODY></HTML>