default.asp

视频源代码 视频源代码

<%response.expires=0%>
<!--#include file="../inc/conn.asp"-->
<!--#include file="../inc/vip.asp"-->
<!--#include file="../inc/category.asp"-->
<!--#include file="category.asp"-->
<!--#include file="path.asp"-->
<%
page=strFilter(request("page"),10)
if page="" then page=1
if not isnumeric(page) then page=1 else page=CCur(page)
sql="select id,title,pic,source,csize,path,otime,categoryid from news where categoryid like '%."&categoryid&".%' order by otime DESC"
rs.open sql,conn,1,1
AllNum		=rs.recordcount
rs.pagesize	=18
MaxPage		=rs.pagecount
if not rs.eof then
  if page<=MaxPage then
    rs.absolutepage=page
  else
    rs.absolutepage=MaxPage
    page	=maxpage
  end if
  newslist	=rs.getrows(18)
end if
rs.close
if page>AllNum then page=100

Set rs=nothing
Set conn=nothing
%>
<!--#include file="../inc/head.asp"-->

<table border="0" align="center" width="100%" cellpadding="2" cellspacing="1">
  <tr><td colspan="8"><font style="color:FFFFFF"><a href="../category/class.asp" style="color:FFFFFF">分类列表</a>　>>　<%=tophtml%>新闻管理</font>　>>　<a href="find.asp?categoryid=<%=categoryid%>" style="color:FFFFFF">新闻搜索</a>　　　<a href="add.asp?categoryid=<%=categoryid%>" style="color:FFFFFF">新闻添加</a></td></tr>
  <tr bgcolor="EFEFEF"><th height="20" width="10%">I D</th><th width="40%">主　题</th><th width="10%">来　源</td><th width="10%">字　节</td><th width="15%">时　间</td><th colspan="3" nowrap>进 行 操 作</td></tr>
<%
if isarray(newslist) then
  for i=0 to ubound(newslist,2)
%>
  <tr bgcolor=FFFFFF onmouseover="this.style.background='EFEFEF';" onmouseout="this.style.background='FFFFFF';">
    <th title="所属分类：&#13;&#10;<%
if newslist(7,i)><"" then
  newssort=split(newslist(7,i),".")
  if isarray(newssort) then
    for j=1 to ubound(newssort,1)-1 step 2
response.write "&#13;&#10;　"&newssort(j+1)
    next
  end if
end if%>"><%=newslist(0,i)%></th>
    <td nowrap><a href="id.asp?id=<%=newslist(0,i)%>" target="hidden" title="主题：<%=newslist(1,i)&"&#10;&#10;路径：news/news.asp?id="&newslist(0,i)&"&#13;&#10;　　　"&newslist(5,i)&newslist(0,i)&".htm"%>"><%=newslist(1,i)%></a><%if newslist(2,i)=true then%>[<font color=orange>图</font>]<%end if%></td>
    <td nowrap><%=newslist(3,i)%></td>
    <td align=right nowrap><%=formatnumber(newslist(4,i),0,0)%>&nbsp;</td>
    <td align=right nowrap><%=newslist(6,i)%></td>
    <th nowrap><a href="javascript:openwin('../news/mov.asp?id=<%=newslist(0,i)%>','move',400,150);">关系</a></th>
    <th nowrap><a href="chg.asp?id=<%=newslist(0,i)%>">编辑</a></th>
    <th nowrap><a href="del.asp?id=<%=newslist(0,i)%>">删除</a></th>
  </tr>
<%
  next
  for i=ubound(newslist,2) to 16
    response.write "  <tr bgcolor=""FFFFFF""><td>　</td><td></td><td></td><td></td><td></td><td></td><td></td><td></td></tr>"&vbcrlf
  next
  Set newslist=nothing
else
  for i=0 to 16
    response.write "<tr bgcolor=""FFFFFF""><td>　</td><td></td><td></td><td></td><td></td><td></td><td></td><td></td></tr>"
  next
end if
%>
</table>
<script src="../js/page.js"></script>
<script>page('../news/default.asp?categoryid=<%=categoryid%>',<%=AllNum%>,<%=MaxPage%>,<%=Page%>,0);</script>
<iframe name="hidden" width="100%" height="0" frameborder="0"></iframe>

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