www.gusucode.com > 星云DJ舞曲 4.5a源码程序 > admin/admin_news.asp
<!--#include file="checkadmin.inc"-->
<!--#include file="conn.asp"-->
<%CheckAdmin1%>
<%
select case request("action")
case ""
call main()
case "del"
call del()
end select
sub main()
%>
<head>
<LINK href="admin_style.css" type=text/css rel=stylesheet>
<META http-equiv=Content-Type content=text/html; charset=gb2312>
<body leftmargin="2" topmargin="0" marginwidth="0" marginheight="0">
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" class="border">
<tr>
<td width="100%" height="25" align="left" valign="middle" class="topbg"> <a href="admin_addnews.asp"><font color="#FFFFFF">发布最新新闻</font></a> | <a href="admin_news.asp"><font color="#FFFFFF">管理新闻</font></a></td>
</tr>
</table>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" class="tdbg">
<tr>
<td align="center" valign="top"><table width="100%" height="20" border="0" cellpadding="0" cellspacing="0">
<tr>
<td> </td>
</tr>
</table>
<table width="90%" border="0" cellpadding="3" cellspacing="1" class=title>
<tr>
<td height="20" align="center" valign="middle">编号</td>
<td align="center" valign="middle">新闻标题</td>
<td align="center" valign="middle">发布时间</td>
<td align="center" valign="middle">编辑</td>
<td align="center" valign="middle">删除</td>
</tr><%
set rs=server.createobject("adodb.recordset")
rs.open "select * from news order by id desc",conn,1,1
IF not IsNumeric(Request("page")) Or IsEmpty(Request("page")) Then
page=1
Else
Page=Int(Abs(Request("page")))
End if
rs.pagesize=10
total=rs.recordcount
mypage=rs.pagesize
rs.absolutepage = page
if rs.eof or rs.bof then
response.write "暂无记录！"
else
do while not rs.eof and mypage>0
%>
<tr class=tdbg>
<td width="10%" height="20" align="center" valign="middle"><%=rs("id")%></td>
<td width="55%" align="left" valign="middle"><a href="../user/Read_news.asp?id=<%=rs("id")%>" target="_blank"><%=rs("title")%></a></td>
<td width="15%" align="center" valign="middle"><%=rs("time")%></td>
<td width="10%" align="center" valign="middle"><a href="admin_editnews.asp?id=<%=rs("id")%>"><img src="images/edit.gif" width="12" height="12" border="0"></a></td>
<td width="10%" align="center" valign="middle"><div align="center"><a href="?action=del&id=<%= rs("id") %>" onClick="javascript:return confirm('[ 操作提示 ]\n\n是否确认删除？删除数据将无法逆回！');"><img src="images/del.gif" width="13" height="13" border="0"></a></div></td>
</tr>
<%
rs.movenext
mypage=mypage-1
loop
end if
%>
<tr>
<td height="20" colspan="5" align="center" bgcolor="#FFFFFF">共<%=rs.recordcount%>条新闻 每页<%=rs.pagesize%>条 <a href="?page=1">首页</a> <%
if page>1 then
%> <a href="?page=<%=page-1%>">上页</a>
<%
else
response.write "上页 "
end if
%> <%
if page<rs.pagecount then
%> <a href="?page=<%=page+1%>">下页</a><%
else
response.write "下页"
end if
%> <a href="?page=<%=rs.pagecount%>">尾页</a> 页次：<%=page%>/<%=rs.pagecount%></td>
</tr>
</table></td>
</tr>
</table>
</body>
</html>
<%
end sub
sub del()
dim id
id=request("id")
sqld="delete from news where id="&id
conn.execute sqld
response.Redirect "admin_news.asp"
end sub
%>