admin_news.asp

基于asp的网站管理系统,课直接下载使用,对初学者有恨大帮助,希望对大家有用

<%
if session("admin")="" then
response.write "<br><br><br><br><center><font color=red>你还没有登录本站呢。不能进入管理后台！！</font><br><br>请先登录再进入管理后台！！谢谢合作！！</center>"
end if
%>
<%if session("admin")<>"" then%>
<%if request("action")="" then%>
<center><br><br><br><Font color=red size=+2>请选择右边的菜单进行管理。谢谢合作。</font></center>
<%end if%>
<%if request("action")="view" then%>

<%
set rs=server.createobject("adodb.recordset") 
sql="select * from news order by id desc"
rs.open sql,db,1,1
dim pagenum
rs.pagesize=18
pagecount1=rs.pagecount
if request.querystring("pagenum")=0 or request.querystring("pagenum")="" then
pagenum=1
else
pagenum=request.querystring("pagenum")
rs.absolutepage=trim(request.querystring("pagenum"))
end if

%>
<table width="100%" border="0" align="center" cellspacing="0">
  <tr align='center' bgcolor="#006699"> 
    <td width="10%"><font color="#FFFFFF">I D</font></td>
    <td width="50%" height="25" align='left'><font color="#FFFFFF">&nbsp;&nbsp;&nbsp;新闻标题</font></td>
    <td width="12%"><font color="#FFFFFF">发布人</font></td>
    <td width="12%"><font color="#FFFFFF">日　期</font></td>
    <td width="8%"><font color="#FFFFFF">修  改</font></td>
    <td width="8%"><font color="#FFFFFF">删  除</font></td>
  </tr>
  <%do while not rs.eof and i<18%>
  <tr align='center'>
    <td>&nbsp;&nbsp;<a href='readnews.asp?id=<%=rs("id")%>' target='_blank'><%=rs("id")%></a></td>
    <td align='left'><img src='images/arrow2.gif' border='0'>&nbsp;&nbsp;<a href='readnews.asp?id=<%=rs("id")%>' target='_blank'><%=rs("title")%></a></td>
    <td><%=rs("add_user")%></td>
    <td><%=rs("date")%></td>
    <td><a href='admin_news.asp?action=modifydo&id=<%=rs("id")%>'>修改</a></td>
    <td><a href='admin_news.asp?action=deldo&id=<%=rs("id")%>'>删除</a></td>
  </tr>
  <%
  i=i+1
  rs.movenext
  loop
  %>
</table>
<p align="center"><a href=admin_news.asp?action=view&pagenum=1>首页</a>
              <%if pagenum>1 then%>
			<a href=admin_news.asp?action=view&pagenum=<%=(pagenum-1)%>>上一页</a>
			<%else%>
			上一页
			<%end if%> 
			<%if pagenum < trim(pagecount1) then%>
			<a href=admin_news.asp?action=view&pagenum=<%=(pagenum+1)%>>下一页</a>
			<%else%>
			下一页
			<%end if%> <a href=admin_news.asp?action=view&pagenum=<%=pagecount1%>>尾页</a> 
</p>
<% rs.close %>

<% end if %>

<%if request("action")="add" then%>
<br><br>
 <table border=0 width='100%' cellspacing=0 cellpadding=2>
  <form name=modify action='admin_news.asp?action=addok' method=post>
  <tr valign='top'><td width='20%' align=right>新闻标题：</td><td><input type=text name='title' size=35 maxlength=80>&nbsp;&nbsp;<font color='#ff0000'>*</font></td></tr>
  <tr><td height='10'> </td></tr>
   <tr valign='top'><td align=right>新闻内容：</td><td><textarea rows=18 name='content' cols=80 maxlength=1000></textarea>&nbsp;&nbsp;<font color='#ff0000'>*</font></td></tr>
     <tr><td height='10'> </td></tr>
  <tr valign='top'><td width='20%' align=right>新闻图片：</td><td><input type=text name='photo' size=35 maxlength=80>&nbsp;&nbsp;<font color='#ff0000'>*</font>&nbsp;&nbsp;<a href='upfile.asp' target=_blank>上传图片</a></td></tr>
  <tr><td height='10'> </td></tr>
  <tr><td></td><td><input type=submit value=' 添 加 ' onclick="return news_check()">&nbsp;&nbsp; <input type=button value=' 返 回 ' onClick="document.location='admin_news.asp?action=view'"></td></tr>
  </form>
  </table>
<p><font color=red>&nbsp;&nbsp;&nbsp;添加说明：</font>带*号的为必填项，请认真填写！支持HTML语言！呵呵。</p>
<% end if %>
<%if request("action")="addok" then%>

<%
on error resume next
add_user=session("realname")
content=request("content")
title=trim(request("title"))
photo=trim(request("photo"))
date="date()"
sql="select * from news"
set rs=server.createobject("adodb.recordset")
rs.open sql,db,1,3
      rs.addnew
      rs("add_user")=add_user
      rs("content")=content
      rs("photo")=photo
      rs("date")=date
      rs("title")=title
      rs.update
%>
<%
if db.errors.count>0 then
response.write "<br><br><br><br><br><center><font color=red>保存过程中发生错误，必须重新填写！<br><br><a href='admin_news.asp?action=add'>返回重新添加</a>"
else
response.write "<br><br><br><br><br><center><font color=red>恭喜你！你已经成功添加新闻！！<br><br><a href='admin_index.asp'>返回管理首页</a>"
end if
%>
<% end if %>

<%if request("action")="modify" then%>

<%
set rs=server.createobject("adodb.recordset") 
sql="select * from news order by id desc"
rs.open sql,db,1,1
rs.pagesize=18
pagecount1=rs.pagecount
if request.querystring("pagenum")=0 or request.querystring("pagenum")="" then
pagenum=1
else
pagenum=request.querystring("pagenum")
rs.absolutepage=trim(request.querystring("pagenum"))
end if

%>
<table width="100%" border="0" align="center" cellspacing="0">
  <tr align='center' bgcolor="#006699"> 
    <td width="10%"><font color="#FFFFFF">I D</font></td>
    <td width="50%" height="25" align='left'><font color="#FFFFFF">&nbsp;&nbsp;&nbsp;新闻标题</font></td>
    <td width="15%"><font color="#FFFFFF">发布人</font></td>
    <td width="13%"><font color="#FFFFFF">日　期</font></td>
    <td width="12%"><font color="#FFFFFF">修  改</font></td>
  </tr>
  <%do while not rs.eof and i<18%>
  <tr align='center'>
    <td>&nbsp;&nbsp;<a href='readnews.asp?id=<%=rs("id")%>' target='_blank'><%=rs("id")%></a></td>
    <td align='left'><img src='images/arrow2.gif' border='0'>&nbsp;&nbsp;<a href='readnews.asp?id=<%=rs("id")%>' target='_blank'><%=rs("title")%></a></td>
    <td><%=rs("add_user")%></td>
    <td><%=rs("date")%></td>
    <td><a href='admin_news.asp?action=modifydo&id=<%=rs("id")%>'>修改</a></td>
  </tr>
  <%
  i=i+1
  rs.movenext
  loop
  %>
</table>
<p align="center"><a href=admin_news.asp?action=modify&pagenum=1>首页</a>
              <%if pagenum>1 then%>
			<a href=admin_news.asp?action=modify&pagenum=<%=(pagenum-1)%>>上一页</a>
			<%else%>
			上一页
			<%end if%> 
			<%if pagenum < trim(pagecount1) then%>
			<a href=admin_news.asp?action=modify&pagenum=<%=(pagenum+1)%>>下一页</a>
			<%else%>
			下一页
			<%end if%> <a href=admin_news.asp?action=modify&pagenum=<%=pagecount1%>>尾页</a> 
</p>
<% rs.close %>

<%end if%>

<%if request("action")="modifydo" then%>

<%
id=trim(request("id"))
set rs=server.createobject("adodb.recordset")
sql="select * from news where id="&id
rs.open sql,db,1,3
%>

<script language=javascript>
<!--
function news_check()
{
  if (modify.title.value=="")
  { alert("请填写 新闻标题 ！\n\n必须>=2个字符（1个汉字）且必须<=20个字符（10个汉字）"); return false; }
  if (modify.content.value=="")
  { alert("请填写 新闻内容 ！"); return false; }
  if (modify.date.value=="")
  { alert("请填写 修改时间 "); return false; }
}
-->
</script>
<br>
 <table border=0 width='100%' cellspacing=0 cellpadding=2>
  <form name=modify action='admin_news.asp?action=modifyok&id=<%=rs("id")%>' method=post>
  <tr valign='top'><td width='20%' align=right>新闻标题：</td><td><input type=text name='title' size=35 maxlength=80 value='<%=rs("title")%>'>&nbsp;&nbsp;<font color='#ff0000'>*</font></td></tr>
  <tr><td height='10'> </td></tr>
   <tr valign='top'><td align=right>新闻内容：</td><td><textarea rows=18 name='content' cols=80 maxlength=1000><%=rs("content")%></textarea>&nbsp;&nbsp;<font color='#ff0000'>*</font></td></tr>
  <tr valign='top'><td width='20%' align=right>新闻图片：</td><td><input type=text name='photo' size=35 maxlength=80 value='<%=rs("photo")%>'>&nbsp;&nbsp;<font color='#ff0000'>*</font>&nbsp;&nbsp;<a href='upfile.asp' target=_blank>上传图片</a></td></tr>
     <tr><td height='10'> </td></tr>
  <tr><td></td><td><input type=submit value=' 修　改 ' onclick="return news_check()">&nbsp;&nbsp; <input type=button value=' 返 回 ' onClick="document.location='admin_news.asp?action=modify'"></td></tr>
  </form>
  </table>
<p><font color=red>&nbsp;&nbsp;&nbsp;修改说明：</font>带*号的为必填项，请认真填写！支持HTML语言！呵呵。</p>
<% rs.close %>
<% end if %>

<%if request("action")="modifyok" then%>

<%
id=trim(request("id"))
add_user=session("realname")
content=request("content")
title=trim(request("title"))
photo=trim(request("photo"))
sql="update news set title='"&title&"',content='"&content&"',photo='"&photo&"',add_user='"&add_user&"' where id="&id
db.execute(sql)

if db.errors.count>0 then
response.write "<br><br><br><center><font color=red>保存过程中发生错误，必须重新填写！<br><br><a href='admin_news.asp?action=modify'>返回重新修改</a>"
else
response.write "<br><br><br><center><font color=red>恭喜你！你已经成功修改新闻！<br><br><a href='admin_news.asp?action=modify'>返回继续修改</a>"
end if
%>

<% end if %>

<%if request("action")="del" then%>

<%
set rs=server.createobject("adodb.recordset") 
sql="select * from news order by id desc"
rs.open sql,db,1,1
rs.pagesize=18
pagecount1=rs.pagecount
if request.querystring("pagenum")=0 or request.querystring("pagenum")="" then
pagenum=1
else
pagenum=request.querystring("pagenum")
rs.absolutepage=trim(request.querystring("pagenum"))
end if

%>
<table width="100%" border="0" align="center" cellspacing="0">
  <tr align='center' bgcolor="#006699"> 
    <td width="10%"><font color="#FFFFFF">I D</font></td>
    <td width="50%" height="25" align='left'><font color="#FFFFFF">&nbsp;&nbsp;&nbsp;新闻标题</font></td>
    <td width="15%"><font color="#FFFFFF">发布人</font></td>
    <td width="13%"><font color="#FFFFFF">日　期</font></td>
    <td width="12%"><font color="#FFFFFF">删  除</font></td>
  </tr>
  <%do while not rs.eof and i<18%>
  <tr align='center'>
    <td>&nbsp;&nbsp;<a href='readnews.asp?id=<%=rs("id")%>' target='_blank'><%=rs("id")%></a></td>
    <td align='left'><img src='images/arrow2.gif' border='0'>&nbsp;&nbsp;<a href='readnews.asp?id=<%=rs("id")%>' target='_blank'><%=rs("title")%></a></td>
    <td><%=rs("add_user")%></td>
    <td><%=rs("date")%></td>
    <td><a href='admin_news.asp?action=deldo&id=<%=rs("id")%>'>删除</a></td>
  </tr>
  <%
  i=i+1
  rs.movenext
  loop
  %>
</table>
<p align="center"><a href=admin_news.asp?action=del&pagenum=1>首页</a>
              <%if pagenum>1 then%>
			<a href=admin_news.asp?action=del&pagenum=<%=(pagenum-1)%>>上一页</a>
			<%else%>
			上一页
			<%end if%> 
			<%if pagenum < trim(pagecount1) then%>
			<a href=admin_news.asp?action=del&pagenum=<%=(pagenum+1)%>>下一页</a>
			<%else%>
			下一页
			<%end if%> <a href=admin_news.asp?action=del&pagenum=<%=pagecount1%>>尾页</a> 
</p>
<% rs.close %>

<% end if %>

<%if request("action")="deldo" then%>

<%
id=trim(request("id"))
set rs=server.createobject("adodb.recordset")
sql="select * from news where id="&id
rs.open sql,db,1,3
%>

<br>
 <table border=0 width='100%' cellspacing=0 cellpadding=2>
  <form name=modify action='admin_news.asp?action=delok&id=<%=rs("id")%>' method=post>
  <tr valign='top'><td width='20%' align=right>新闻标题：</td><td><input type=text name='title' size=35 maxlength=80 value='<%=rs("title")%>'>&nbsp;&nbsp;<font color='#ff0000'>*</font></td></tr>
  <tr><td height='10'> </td></tr>
   <tr valign='top'><td align=right>新闻内容：</td><td><textarea rows=18 name='content' cols=80 maxlength=1000><%=rs("content")%></textarea>&nbsp;&nbsp;<font color='#ff0000'>*</font></td></tr>
     <tr><td height='10'> </td></tr>
  <tr><td></td><td><input type=submit value=' 删 除 '>&nbsp;&nbsp; <input type=button value=' 返 回 ' onClick="document.location='admin_news.asp?action=del'"></td></tr>
  </form>
  </table>
<%rs.close%>
<% end if %>
<%if request("action")="delok" then%>
<%
id=trim(request("id"))
sql="delete * from news where id="&id
db.execute(sql)

if db.errors.count>0 then
response.write "<br><br><br><center><font color=red>删除过程中发生错误，必须重新删除！<br><br><a href='admin_news.asp?action=del'>返回重新删除</a>"
else
response.write "<br><br><br><center><font color=red>恭喜你！你已经成功删除新闻！<br><br><a href='admin_news.asp?action=del'>返回继续删除</a>"
end if
%>

<% end if %>

<% end if %>
</td>
<td align="left" width="4" background="images/sidebox-content-right.gif"><img src="images/sidebox-content-right.gif" width="4" height="1" alt=""></td>
</tr>
</table>
</td>

<table width="780" cellpadding="0" cellspacing="0" border="0" align="center">
<tr valign="top">
<td><img src="images/column-footer.gif" width="780" height="16" border="0" alt=""></td>
</tr>
</table>


<table width="780" cellpadding="0" cellspacing="0" border="0" align="center">
<tr valign="top">
<td><img src="images/footer.gif" width="780" height="20" border="0" alt=""></td>
</tr>
</table>

<!-- footer -->
<table width="780" cellpadding="0" cellspacing="0" border="0" align="center">
<tr align="center">
<td width="100%" colspan="3"><%
set rs=server.createobject("adodb.recordset") 
sql="select top 1 copyright from system order by id desc"
rs.open sql,db,1,1
%>
<%=rs("copyright")%>
<% rs.close %>
</td>
</tr>
</table>

</body>
</html>