movie_list.asp

来自「很好的企业网站管理系统!可以适应各种不同的小型企业!」· ASP 代码 · 共 322 行 · 第 1/2 页

        <th nowrap width="10%" class="tableHeaderText" height=25><b>相关电影</b></th>
        <th nowrap width="90%" align="right" class="tableHeaderText" height=25>
      <%if request("id")<>"" then%>当前目录操作：          
      <a title="生成当前类目及其以下所有子类的HTM页" href="Movie_makeListall.asp?type=all&ts=<%=ts%>">生成(全)HTM页</a>
      <a title="只生成当前类目的HTM页(不包括其下的子类或单个电影)" href="Movie_makeListall.asp?type=page&id=<%=request("id")%>">生成(单)HTM页</a>
      <a target="_blank" href="../Movie/xoYuMovieList_<%=request("id")%>_1.html">查看HTM页</a> <a href="Movie_type_edit.asp?id=<%=request("id")%>">编辑类目</a>          
      <a href="javascript:deltype(<%=request("id")%>)" title="删除">删除类目</a>             
      <a href="movie_add.asp?id=<%=request("id")%>">添加电影</a><%end if%></th>
      </tr>
    </table>
    </td> 
  </tr> 
  <tr>
    <td width="100%" class="forumrow">
<%if request("id")<>"" then
set rs_type=server.CreateObject("ADODB.RecordSet")
sql_type="select * from Movietype where ts like '"&ts&"%'"
rs_type.open sql_type,conn,1,1
do while not rs_type.EOF
   sqqq=sqqq&""&rs_type("id")&", "
rs_type.MoveNext             
loop 
rs_type.close
end if

 if not isempty(request("page")) then        
      currentPage=cint(request("page"))        
   else        
      currentPage=1        
   end if
   MaxPerPage=18 '###每页显示条数

if request("k")<>"" then
sss=" and (MovieName like '%"&request("k")&"%' or Time like '%"&request("k")&"%')"
end if
if NotMe<>"" then
   sss=sss&" and user='"&NotMe&"'"
end if

if request("id")<>"" then
sql="select * from Movie where tid in ("&sqqq&")"&sss&" order by date desc"
else
sql="select * from Movie where id<>0"&sss&" order by date desc"
end if
rs.open sql,conn,1,1
  if rs.eof and rs.bof then
     response.write "<p align='center'>还没找到电影</p>"
  else
   totalPut=rs.recordcount
   rs.move  (currentPage-1)*MaxPerPage
   rs.pagesize=MaxPerPage '得到每页数
   mpage=rs.pagecount     '得到总页数 
%>
  <table border="0" width="100%" cellspacing="1" align=center>
    <form action="Movie_List_save.asp?id=<%=request("id")%>&page=<%=currentPage%>&k=<%=request("k")%>" method=post name="xoYuStudioH">
    <tr>
      <td width="100%" class="forumrow" colspan="7"><%call page()%></td>
    </tr>
    <tr>
      <th width="8%" align="center" class="tableHeaderText" height=25>ID</th>
      <th width="4%" nowrap class="tableHeaderText" height=25><a href="javascript:xoYuStudio()">选择</a></th>
      <th width="100%" align="center" class="tableHeaderText" height=25>程 序 名 称</th>
      <th width="4%" nowrap class="tableHeaderText" height=25>推荐</th>
      <th width="4%" nowrap class="tableHeaderText" height=25>会员</th>
      <th width="100%" align="center" nowrap class="tableHeaderText" height=25>更新日期</th>    
      <th width="100%" align="center" nowrap class="tableHeaderText" height=25>单项操作</th>    
    </tr>
<%
i=0
do while not rs.EOF%>
    <tr class="forumrow">
      <td width="8%" class="forumrow" align="center"><a target="_blank" href="../Movie/xoYuMovie_<%=rs("id")%>.html"><%=rs("id")%></a></td>
      <td width="4%" class="forumrow" align="center"><input type="checkbox" name="xoYuStudioID" value="<%=rs("id")%>"></td>
      <td width="100%" class="forumrow"><a href=../Movie/xoYuMovie_<%=rs("id")%>.html target=blank><%=rs("MovieName")%></a></td>
      <td width="4%" class="forumrow" align="center"><%if rs("show")="1" then%><font color="#FF0000">√</font><%else%><font color="#808080">×</font><%end if%></td>
      <td width="4%" class="forumrow" align="center"><%if rs("hy")="2" then%><font color="#FF0000">②</font><%elseif rs("hy")="1" then%><font color="#008080">①</font><%else%><font color="#808080">○</font><%end if%></td>
      <td width="100%" class="forumrow" nowrap align="center"><%=year(rs("date"))&"-"&month(rs("date"))&"-"&day(rs("date"))%></td>
      <td width="100%" class="forumrow" nowrap align="center"><a href=movie_edit.asp?id=<%=rs("id")%> title="修改">修改</a>|<a href="javascript:delcx(<%=rs("id")%>)" title="删除">删除</a>|<a href="javascript:xoYuStudioMakeHTML(<%=rs("id")%>)" title="生成HTML页">生成</a></td>
    </tr>
<%i=i+1  
if i>=MaxPerPage then exit do
 rs.movenext
 loop %>
       <tr>
      <th width="8%" align="center" class="tableHeaderText" height=25>ID</th>
      <th width="4%" nowrap class="tableHeaderText" height=25><a href="javascript:xoYuStudio()">选择</a></th>
      <th width="100%" align="center" class="tableHeaderText" height=25>程 序 名 称</th>
      <th width="4%" nowrap class="tableHeaderText" height=25>推荐</th>
      <th width="4%" nowrap class="tableHeaderText" height=25>会员</th>
      <th width="100%" align="center" nowrap class="tableHeaderText" height=25>更新日期</th>    
      <th width="100%" align="center" nowrap class="tableHeaderText" height=25>单项操作</th>    
    </tr>
    <tr>
      <td width="100%" colspan="7" class="forumrow">
<div align="center"><input onClick="{if(confirm('确定删除选定电影吗!?')){this.document.xoYuStudioH.submit();return true;}return false;}" name="xoYuStudioDo" value="删除" type="submit" title="删除选定记录">| <input onClick="{if(confirm('确定移动选定电影吗!?')){this.document.xoYuStudioH.submit();return true;}return false;}" name="xoYuStudioDo" value="移动" type="submit" title="移动选定记录">| <input onClick="{if(confirm('确定生成选定电影下载HTML页面吗!?')){this.document.xoYuStudioH.submit();return true;}return false;}" name="xoYuStudioDo" value="生成" type="submit" title="生成选定电影的HTML页">| <select name="hot">
<option selected value=""></option>
<option value="1">1</option>
<option value="2">2</option>
<option value="3">3</option>
<option value="4">4</option>
<option value="5">5</option>
</select><input onClick="{if(confirm('确定修改选定电影评级吗!?')){this.document.xoYuStudioH.submit();return true;}return false;}" name="xoYuStudioDo" value="星级" type="submit" title="更改选定电影的星级">| <select name="show">
<option selected value=""></option>
<option value="0">取消</option>
<option value="1">推荐</option>
</select><input onClick="{if(confirm('确定更改选定电影推荐度吗!?')){this.document.xoYuStudioH.submit();return true;}return false;}" name="xoYuStudioDo" value="推荐" type="submit" title="更改选定电影是否推荐">| <select name="cd">
<option selected value=""></option>
<%
if xoYuMovieLb<>"" then
  LB=split(xoYuMovieLb,",")
  for i=0 to ubound(LB)
  if LB(i)<>"在线电影" and LB(i)<>"精彩动画" and LB(i)<>"特别电影" then
  response.write "<option value='"&LB(i)&"'>"&LB(i)&"</option>"
  end if
  next
end if
%>
</select><input onClick="{if(confirm('确定更改选定电影类别吗!?')){this.document.xoYuStudioH.submit();return true;}return false;}" name="xoYuStudioDo" value="类别" type="submit" title="更改选定电影的类别">| <select name="hy">
<option selected value=""></option>
<option value="0">取消限制</option>
<option value="1">普通会员</option>
<option value="2">高级会员</option>
</select><input onClick="{if(confirm('确定更改选定电影会员下载级别吗!?')){this.document.xoYuStudioH.submit();return true;}return false;}" name="xoYuStudioDo" value="会员" type="submit" title="更改选定电影是否会员电影"></div></td>
    </tr>
    <tr>
      <td width="100%" colspan="7" class="forumrow">
<%
call page()
sub page()%>页次：<b><font color="#FF0000"><%=currentPage%></font>/<%=mpage%></b>,每页<b><%=MaxPerPage%></b>个,<%if request("k")<>"" then%><font color="#FF0000">搜到</font><%else%>当前<%end if%>电影<b><%=totalPut%></b>个(<font color="#008000">&lt;-</font><a title="生成此类目下所有电影下载HTML页 (类目请看最上面)" href="makeMovieAll.asp?type=list&ts=<%=ts%>"><font color="#008000">生成本类下载页</font></a>)
 <%                                                                                                                           
    pageno=currentPage
    if isempty(pageno) or cint(pageno)<1 or cint(pageno)>mpage then
        pageno=1
    end if
%>
[ <%if cint(pageno)>1 then%><a href=Movie_List.asp?id=<%=request("id")%>&k=<%=request("k")%>><%end if%><<-</a> <%if cint(pageno)>1 then%><a href=Movie_List.asp?id=<%=request("id")%>&page=<%=pageno-1%>&k=<%=request("k")%>><%end if%><-</a><%                  
pp=cint(pageno)-3            
  if pp<1 then            
  pp=1            
  end if            
for pno=pp to mpage            
p=p+1            
if pno=cint(pageno) then%> <font color="#FF0000"><%=pno%></font><%else%> <a href=Movie_List.asp?id=<%=request("id")%>&page=<%=pno%>&k=<%=request("k")%>><%=pno%></a><%end if%>                  
<%                  
if p>=7 then exit for            
next%> <%if cint(pageno)< mpage then%> <a href=Movie_List.asp?id=<%=request("id")%>&page=<%=pageno+1%>&k=<%=request("k")%>><%end if%>-></a> <%if cint(pageno)< mpage then%><a href=Movie_List.asp?id=<%=request("id")%>&page=<%=mpage%>&k=<%=request("k")%>><%end if%>-&gt;&gt;</a> ]<%
end sub%>
     </td>
    </tr>
   </form>
  </table>
<%end if%> 
    </td> 
  </tr>
</table>         
</body>                                       
</html>  
<% 
set rs=nothing  
conn.close  
set conn=nothing%>