📄 newslist.asp

📁 仿搜狐NBA网站源码,仿搜狐NBA网站源码全站生成HTML静态页面
💻 ASP
字号:
<!--#include file=conn.asp-->
<%
if session("adminname")="" then
    response.write "<script language='javascript'>" & chr(13)
    response.write "window.document.location.href='login.asp';"&Chr(13)
    response.write "</script>" & Chr(13)
    Response.End
end if
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN""http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK href="images/style.css" type=text/css rel=stylesheet>
<title>米儿文章管理系统</title>
<style type="text/css">
<!--
body {
	margin-left: 0px;
	margin-top: 0px;
}
-->
</style></head>

<body>

<p>&nbsp;</p>
<p>&nbsp;</p>
<%
Function DeleFile(FilePath)
    On Error Resume Next
    Set Del=Server.CreateObject("Scripting.FileSystemObject")
    if Err <> 0 Then 
        DelFile="该空间不支持FSO组件，无法删除文件！"
    else
        if InStr(FilePath, ",") > 0 then
            FilePath=Split(FilePath,",")
            For i = 0 to ubound(FilePath)
                If Del.FileExists(Server.MapPath(FilePath))=True Then Del.DeleteFile Server.MapPath(FilePath(i)),true
            Next
        Else
            If Del.FileExists(Server.MapPath(FilePath))=True Then Del.DeleteFile Server.MapPath(FilePath),true
        End if
    End if
    Set Del=Nothing
End Function
id=trim(request("id"))
if id<>"" then
  sql="delete from news where cstr(id)='"& id &"'"
  Set rs=Server.CreateObject("ADODB.RecordSet")
  rs.Open sql,conn,1,3
  newspt="../news/news_"&id&".htm"
  call DeleFile("../news/news_"&id&".htm")
  response.write "<script language='javascript'>" & chr(13)
  response.write "alert('文章删除成功！');" & Chr(13)
  response.write "window.document.location.href='newslist.asp';"&Chr(13)
  response.write "</script>" & Chr(13)
  Response.End
end if
%>
<TABLE cellSpacing=1 width=680 bgColor=#1b7bce border=0>
  <TBODY>
    <TR bgColor=#ffffff>
      <TD colspan="7" class=title2>文章管理</TD>
      </TR>
    <TR bgColor=#99CCFF class="redfont">
      <TD width="60"><strong>ID</strong></TD>
      <TD width="200"><strong>新闻标题</strong></TD>
      <TD width="80"><strong>一级分类</strong></TD>
      <TD width="80"><strong>二级分类</strong></TD>
      <TD width="80"><strong>作者</strong></TD>
      <TD width="60"><strong>发布时间</strong></TD>
      <TD width="70"><strong>操作</strong></TD>
    </TR>
  <%
page=clng(request("page"))
Set rs=Server.CreateObject("ADODB.RecordSet") 
sql="select * from NEWS order by id desc"
rs.Open sql,conn,1,1
if rs.eof and rs.bof then
%>
    <TR bgColor=#ffffff>
      <TD colspan="7">暂时没有文章记录！</TD>
    </TR>
<%
else
rs.PageSize=10
if page=0 then page=1 
pages=rs.pagecount
if page > pages then page=pages
rs.AbsolutePage=page
for j=1 to rs.PageSize 
%>
    <TR bgColor=#ffffff>
      <TD height="25" bgcolor="#ffffff"><div align="center"><%=rs("id")%></div></TD>
      <TD bgcolor="#ffffff"><div align="left"><a href="../news/news_<%=rs("id")%>.htm" target="_blank" title="<%=rs("mi222_title")%>"><%=left(rs("mi222_title"),15)%></a></div></TD>
      <TD bgcolor="#ffffff"><%=rs("mi222_bigclass")%></TD>
      <TD bgcolor="#ffffff"><%=rs("mi222_smaclass")%></TD>
      <TD bgcolor="#ffffff"><%=rs("mi222_writer")%></TD>
      <TD bgcolor="#ffffff"><%=rs("mi222_time")%></TD>
      <TD bgcolor="#ffffff"><a href="edinews.asp?id=<%=rs("id")%>">修改</a> <a href="newslist.asp?id=<%=rs("id")%>">删除</a></TD>
    </TR>
  <%
rs.movenext
if rs.eof then exit for
next                                                       
%>
  <tr valign="bottom" bgcolor="#FFFFFF"> 
<form method=Post action="newslist.asp">  
      <td height="50" colspan="7" align="center"> 
    <%if Page<2 then      
    response.write "首页 上一页&nbsp;"
  else
    response.write "<a href=newslist.asp?page=1>首页</a>&nbsp;"
    response.write "<a href=newslist.asp?page=" & Page-1 & ">上一页</a>&nbsp;"
  end if
  if rs.pagecount-page<1 then
    response.write "下一页 尾页"
  else
    response.write "<a href=newslist.asp?page=" & (page+1) & ">"
    response.write "下一页</a> <a href=newslist.asp?page="&rs.pagecount&">尾页</a>"
  end if
   response.write "&nbsp;页次：<strong><font color=red>"&Page&"</font>/"&rs.pagecount&"</strong>页 "
    response.write "&nbsp;共<b><font color='#FF0000'>"&rs.recordcount&"</font></b>条记录 <b>"&rs.pagesize&"</b>条记录/页"
   response.write " 转到：<input type='text' name='page' size=4 maxlength=10 class=input value="&page&">"
   response.write " <input class=input type='submit'  value=' 转到 '  name='cndok'></span></p>"     
%>
      </td>
</form>
  </tr>
  </TBODY>
  <% 
end if
rs.close
set rs=nothing
%>
</TABLE>

</body>
</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -