new.asp

asp

<%response.expires=0%>
<!--#include file="../inc/conn.asp"-->
<%
userid=Session("userid")
userlevel=Session("userlevel")
if userid="" or userlevel="" then
  call msgbox("请重新登陆！",0)
end if
if not isnumeric(userid) or not isnumeric(userlevel) then
  call msgbox("请重新登陆！",0)
end if
userid=CCur(userid)
userlevel=CCur(userlevel)

page=request("page")
if page="" then page=1
if not isnumeric(page) then page=1 else page=CCur(page)
'ACCESS
sql="select id,title,author,source,csize,otime,categoryid from article order by id DESC"
'SQL
'sql="select id,title,author,source,csize,convert(varchar(20),otime,20) as otime,categoryid from article order by id DESC"
rs.open sql,conn,1,1
AllNum		=rs.recordcount
rs.pagesize	=20
MaxPage		=rs.pagecount
if not rs.eof then
  if page<=MaxPage then
    rs.absolutepage=page
  else
    rs.absolutepage=MaxPage
    page	=maxpage
  end if
  articlelist	=rs.getrows(20)
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="1" cellspacing="1">
  <tr><td colspan="8"><font style="color:FFFFFF"><a href="../category/class.asp" style="color:FFFFFF">分类列表</a>　>>　新添的文章管理</font></td></tr>
  <tr class="menutitle"><th width="2%">ID</th><th width="40%">主题</th><th width="10%">作者</td><th width="10%">来源</td><th width="5%">字节</td><th width="20%">时间</td><th colspan="3">进行操作</td></tr>
<%
if isarray(articlelist) then
  for i=0 to ubound(articlelist,2)
%>
  <tr bgcolor="#FFFFFF">
    <td><%=articlelist(0,i)%></td>
    <td title="所属分类：&#13;&#10;<%
if articlelist(6,i)><"" then
  articlesort=split(articlelist(6,i),".")
  if isarray(articlesort) then
    for j=1 to ubound(articlesort,1)-1 step 2
response.write "&#13;&#10;　"&articlesort(j+1)
    next
  end if
end if%>"><a href="../article.asp?id=<%=articlelist(0,i)%>" target="_blank"><%=articlelist(1,i)%></td>
    <td nowrap><%=articlelist(2,i)%></td>
    <td nowrap><%=articlelist(3,i)%></td>
    <td nowrap><%=articlelist(4,i)%></td>
    <td align=right nowrap><%=articlelist(5,i)%></td>
    <th nowrap><a href="javascript:openwin('mov.asp?id=<%=articlelist(0,i)%>','move',400,400);">关系</a></th>
    <th nowrap><a href="chg.asp?id=<%=articlelist(0,i)%>">编辑</a></th>
    <th nowrap><a href="del.asp?id=<%=articlelist(0,i)%>">删除</a></th>
  </tr>
<%
  next
  for i=ubound(articlelist,2) to 20
    if i mod 2=0 then bg="F0F0F0" else bg="FFFFFF" end if
    response.write "<tr bgcolor=""#"&bg&"""><td>　</td><td></td><td></td><td></td><td></td><td></td><td></td><td></td><td></td></tr>"
  next
  Set articlelist=nothing
else
  for i=0 to 20
    if i mod 2=0 then bg="F0F0F0" else bg="FFFFFF" end if
    response.write "<tr bgcolor=""#"&bg&"""><td>　</td><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('../article/new.asp?',<%=AllNum%>,<%=MaxPage%>,<%=Page%>,0);</script>


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