admin_news.asp

本实例为一个完整的网上购物商城的完整例子程序,里面有所以的源代码.希望对大家学习有用.

<!--#include file="conn.asp"-->
<%
if session("admin_name")="" then response.end
        %>
<%
'添加公告
if request.QueryString("action")="add" then
        message=replace(request("message"), ">", "&gt;")
message=replace(message, "<", "&lt;")
message=replace(message, "'","’")
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from 56770_news", conn, 3, 3
rs.addnew
rs("subject")=trim(request("subject"))
if request("syxs")="on" then
        rs("syxs")=true
else
        rs("syxs")=false
end if
rs("from")=trim(request("from"))
rs("addname")=trim(request("addname"))
rs("message")=message
rs("newstype")="news"
rs("idate")=now()
rs("hits")=50
rs.update
rs.close
set rs=nothing
'修改成功返回
url="admin_edit.asp"
response.write "<br><br><br><center><font size=-1>成功添加,本页2秒钟后返回.<br><br>谢谢您使用本系统</font></center>"
response.write "<meta http-equiv=refresh content=2;url=" & url & ">"
response.end
end if
%>
<%
'开始删除操作
if request("del")="true" then
        conn.execute "delete * from 56770_news where id=" & request("id")
url="admin_news.asp?page=" & request("page")
response.redirect url
end if
%>
<center>
<table width="100%" bordercolor="#FFFFFF">
<tr>
<td width="60%" bordercolor="#ffcc99" rowspan="2" align="center">
<table width="100%" border="0" cellspacing="1" height="200" bgcolor="#FFFFFF" cellpadding="3">
<form method="post" action="admin_news.asp?action=add" name="admin_news">
<tr>
<td background="images/admin_bg_1.gif" height="25" align="center" colspan="3">
<font color="#FFFFFF">添加新闻</font> </td>
</tr>
<tr bordercolor="#FFFFFF">
<td bordercolor="#FFFFFF" bgcolor="#D6DFF7" width="27%">
<div align="center">新闻主题：</div>
</td>
<td bordercolor="#FFFFFF" bgcolor="#D6DFF7" width="25%">
<input type="text" name="subject" value="">
</td>
<td bordercolor="#FFFFFF" bgcolor="#D6DFF7" width="48%">
<input type="radio" name="syxs" >
是否首页显示</td>
</tr>
<tr bordercolor="#FFFFFF">
<td bordercolor="#FFFFFF" bgcolor="#D6DFF7" width="27%">
<div align="center">新闻来源</div>
</td>
<td bordercolor="#FFFFFF" bgcolor="#D6DFF7" width="25%">
<input type="text" name="from" >
</td>
<td bordercolor="#FFFFFF" bgcolor="#D6DFF7" width="48%"> 添加人
<input type="text" name="addname">
</td>
</tr>
<tr bordercolor="#FFFFFF">
<td bordercolor="#FFFFFF" bgcolor="#D6DFF7" width="27%">
<div align="center">详细内容：</div>
</td>
<td bordercolor="#FFFFFF" bgcolor="#D6DFF7" colspan="2">
<textarea name="message" cols="68" rows="8"></textarea>
</td>
</tr>
<tr bordercolor="#FFFFFF">
<td bordercolor="#FFFFFF" bgcolor="#D6DFF7" colspan="3">
<div align="center">
<input type="submit" name="Submit" value="确 定">
<input type="reset" name="Submit" value="取 消">
</div>
</td>
</tr>
</form>
</table>
<table width="100%" border="0" cellspacing="1" bgcolor="#FFFFFF" cellpadding="3">
<%Set rs= Server.CreateObject("ADODB.Recordset")
sql="select * from 56770_news where newstype='news' order by id desc "
rs.open sql, conn, 1, 1
if not isempty(request("page"))then
        pagecount=cint(request("page"))
else
        pagecount=1
end if
rs.pagesize=10
rs.AbsolutePage=pagecount
do while not rs.eof %>
<tr>
<td background="images/admin_bg_1.gif">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="58%"><font color="#FFFFFF">标题：<%=rs("subject")%></font></td>
<td height="20" width="42%"><font color="#FFFFFF">添加时间：<%=rs("idate")%>
</font> </td>
</tr>
</table>
</td>
<td bgcolor="#D6DFF7" width="16%" align="center" background="images/admin_bg_1.gif">
<a href="admin_news.asp?del=true&id=<%=rs("id")%>&page=<%=cstr(pagecount)%>"><font color="#FFFFFF">删除</font></a></td>
</tr>
<tr bgcolor="#D6DFF7">
<td colspan="2" style="word-break:break-all;"><%=rs("message")%></td>
</tr>
<% rs.movenext
i=i+1
if i >= rs.pagesize then exit do
        loop
%>
</table>
<table border="0" cellspacing="1" cellpadding="2" width="65%" align="left">
<tr >
<td> 页次: <b><font color=red><%=pagecount%></font>/<%=rs.pagecount%></b>
<% if pagecount=1 and rs.pagecount<>pagecount and rs.pagecount<>0 then%>
<a href="admin_news.asp?page=<%=cstr(pagecount+1)%>"> <font color="#000000">下一页</font></a>
<% end if %>
<% if rs.pagecount>1 and rs.pagecount=pagecount then %>
<a href="admin_news.asp?page=<%=cstr(pagecount-1)%>"> <font color="#000000">上一页</font></a>
<%end if%>
<% if pagecount<>1 and rs.pagecount<>pagecount then%>
<a href="admin_news.asp?page=<%=cstr(pagecount-1)%>"> <font color="#000000">上一页</font></a>
<a href="admin_news.asp?page=<%=cstr(pagecount+1)%>"> <font color="#000000">下一页</font></a>
<% end if%>
</td>
</tr>
</table>
<br>
注意:一定要保留最少一个信息</td>
</tr>
</table>
</center>
</body>
</html>