movie.asp

政府网站集成OA办公考勤新闻发布网站信息管理会员管理

<!--#include file="head.asp" -->
<%
    sub navigation()
    response.write " &gt;&gt; "
    response.write "视频播放--"&a125_title
    end sub
%>

	<table border="0" cellpadding="0" cellspacing="0" width="996" height="50" bgcolor="#ffffff">
		<tr>
		<!--左边-->
			<td width="216" valign="top" background="images/2/left_bg.gif">
			
			<div align="center">
			<%call a125_tianqi()%>
			</div>
      <div align="center">
<% Call a125_acticletype(15,-2,"视频分类") %>
      </div>
	   <div align="center">
			<% call a125_Search5() %>
           </div>   
   
            <div align="center">
<% Call a125_otherInfo(1,8,20,"movie",0) %>
           </div>
		   
      </td>	
			<td width="780" valign="top">
				<div align="left" >
				<table border="0" cellpadding="0" cellspacing="0" width="580" height="20" >
					<tr>
                      <TD width="100%" height="20" ><IMG height=45 src="images/2/class_top.gif" width=780></TD>
					</tr>
				</table>
      </div>
<div align="center">
				<table border="0" cellpadding="0" cellspacing="0" width="780" height="32" background="images/2/class_bg.gif">
					<tr>
						<td style='color:#990000;font-size:14px;font-weight:bold; PADDING-TOP: 2px'>	
&nbsp;首页 &gt;&gt; <a href='movie.asp'>全部视频</a> 
<%
dim founderr
founderr=false
if request.querystring("cat_id")<>"" then
  if not isInteger(request.querystring("cat_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

dim keyword,cat_id,colname,totalsoft,Currentpage,totalpages,i
keyword=request("keyword")
cat_id=request("cat_id")

 if request.querystring("cat_id")<>"" then
sql="select * from a125_movie where piccat_id="&request.querystring("cat_id")&" order by piccat_id desc"
    set rs1=conn.execute(sql)
    Response.Write "&gt;&gt; <a href=""movie.asp?cat_id="&rs1("piccat_id")&""">"&rs1("piccat_name")&"</a>" 
    rs1.close 
elseif request.querystring("keyword")<>"" then 
Response.Write "&gt;&gt; 搜索结果 关键词:"&keyword  
end if
%>
	
</td>
					</tr>
				</table>
</div>

<%

sql="select id,pic_name,pic_pic,pic_count,pic_url,pic_date,pic_desc,pic_ext,author from a125_m_news order by id DESC"
if cat_id<>"" then
sql="select id,pic_name,pic_pic,pic_count,pic_url,pic_date,pic_desc,pic_ext,author from a125_m_news where piccat_id="&cat_id&" order by id DESC"
elseif keyword<>"" then
sql="select id,pic_name,pic_pic,pic_count,pic_url,pic_date,pic_desc,pic_ext,author from a125_m_news where pic_name like '%"&keyword&"%' or pic_desc like '%"&keyword&"%' order by id DESC"
end if
set rssoft=server.createobject("adodb.recordset")
rssoft.open sql,conn,1,1
%>

<div align="center">
	<table border="0" cellpadding="0" cellspacing="0" width="780" height="160" style="border: 0px solid #CECFCE"> 
		<tr>
			<td bgcolor="#FFFFFF" width="100%" valign="top">   
<!--视频列表开始-->
<div align="center">
	<table border="0" cellpadding="0" cellspacing="0" width="98%" height="112">
	  <tr align="center" height="5"><td bgcolor="#F0f0f0" height="1" colspan="3"></td></tr>
		<tr>
			<td width="780" valign="top">
			<div align="center">
				<table border="0" cellpadding="0" cellspacing="0" width="98%" height="25">
		<tr height="15"><td></td></tr>
	  <tr align="center"><td bgcolor="#F0f0f0" height="1" colspan="3"></td></tr>
<%
dim softperpage
softperpage=15
if not rssoft.eof then
rssoft.movefirst
rssoft.pagesize=softperpage
if trim(request("page"))<>"" then
   currentpage=clng(request("page"))
   if currentpage>rssoft.pagecount then
      currentpage=rssoft.pagecount
   end if
else
   currentpage=1
end if
   totalsoft=rssoft.recordcount
   if currentpage<>1 then
       if (currentpage-1)*softperpage<totalsoft then
	       rssoft.move(currentpage-1)*softperpage
		   dim bookmark
		   bookmark=rssoft.bookmark
	   end if
   end if
   if (totalsoft mod softperpage)=0 then
      totalpages=totalsoft\softperpage
   else
      totalpages=totalsoft\softperpage+1
   end if
%>
<%
i=0
do while not rssoft.eof and i<softperpage
%>

  <tr height="27" >
    <td width="17" height="27" background="images/line.gif"><div align="right"><img src="Images/a125_ico.gif" width="12" height="11" align="absmiddle"></div></td>
    <td width="650" height="27" background="images/line.gif"><div align="left"> <a href="movienews.asp?id=<%=rssoft("id")%>"  target="_blank" title="<%=rssoft("pic_name")%>">
      <% if len(rssoft("pic_name"))>46 then%>
      <%=Left(rssoft("pic_name"),44)%>...
      <%else%>
      <%response.write rssoft("pic_name")%>
      <%end if%>
    </a></div></td>
    <td width="89" height="27" background="images/line.gif"><div align="left">[<%=rssoft("pic_date")%>] </div></td>
  </tr>
	
      <%
i=i+1
rssoft.movenext
loop
else
if rssoft.eof and rssoft.bof then
%>					
					
        <tr> 
          <td height="80" colspan="5" bgcolor="#Ffffff" align="center"> 
            <%if keyword<>"" then%>没有找到包含[<b><font color=red><%=request("keyword")%></font></b>]的文件！ 
            <%else%>没有任何文件提供下载
            <%end if%> 
          </td>
        </tr>
<%end if
end if
%>

<tr bgcolor="#ffffff"><td colspan="5" height="10"><hr width="90%"></td></tr>
<tr bgcolor="#ffffff"><td colspan="5" height="30">
<TABLE width="100%" align=center border=0><TBODY>
<TR> 
<TD align=middle width="35%" height=25>&nbsp;共[<font color="#FF6666"><%=totalsoft%></font>]个作品　分[<font color="#FF6666"><%=totalpages%></font>]页</TD>
<TD width="40%" align=middle>&nbsp;<%
if CurrentPage<2 then
response.write "<font color='999966'>首页 上一页</font> "
else
response.write "<a href=movie.asp?&keyword="&request("keyword")&"&page=1&cat_id="&request.querystring("cat_id")&">首页</a> "
response.write "<a href=movie.asp?&keyword="&request("keyword")&"&page="&CurrentPage-1&"&cat_id="&request.querystring("cat_id")&">上一页</a> "
end if
if totalpages-currentpage<1 then
response.write "<font color='999966'>下一页 尾页</font>"
else
response.write "<a href=movie.asp?&keyword="&request("keyword")&"&page="&CurrentPage+1&"&cat_id="&request.querystring("cat_id")
response.write ">下一页</a> <a href=movie.asp?&keyword="&request("keyword")&"&page="&totalpages&"&cat_id="&request.querystring("cat_id")&">尾页</a>"
end if
%>
 </TD>

</TR>

</TABLE>          
</TD>
</TR>
<tr align="center"><td bgcolor="#F0f0f0" height="1" colspan="3"></td></tr>
</TABLE><br>
					
				</table>
			</div>
			</td>
		</tr>
		
		
      <%
rs1.close
set rs1=nothing
rs2.close
set rs2=nothing
%>		
		
		
		
	</table>
</div>


<%
rssoft.close
set rssoft=nothing
%>


<!-- 视频列表结束-->
</td>

		</tr>
	</table></div></td>

		</tr>
	</table>

<!--#include file="foot.asp" -->