📄 adminnews.asp
字号:
<!--#include file="conn.asp"-->
<%
if session("adminname")="" then
response.redirect "relogin.asp"
end if
%>
<%
if not isempty(request("selAnnounce")) then
idlist=request("selAnnounce")
if instr(idlist,",")>0 then
dim idarr
idArr=split(idlist)
dim id
for i = 0 to ubound(idarr)
id=clng(idarr(i))
call deleteannounce(id)
next
else
call deleteannounce(clng(idlist))
end if
end if
%>
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>系统管理 | 新闻管理</title>
<link rel="stylesheet" type="text/css" href="css.css">
<script language="JavaScript">
function FanAll(form){
for (var i=0;i<form.elements.length;i++){
var e = form.elements[i];
if (e.checked == false){ e.checked = true; }
else { e.checked = false;}
}}
</script>
</head>
<body>
<table border="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber2" height="25">
<tr>
<td width="100%">当前位置： <a href="adminsomething.asp">综合管理</a>
<span lang="en-us">></span> 新闻管理<span lang="en-us">
</span><a href="postnews.asp">添加新闻</a></td>
</tr>
</table>
<center>
<%
sql="select * from exam_news order by fabsj desc ,id desc"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,3,2
if rs.eof then
response.write "<center><h4><font color=red>没有新闻</font></h4></center>"
else
%><form name="viewdatabase" method="post">
<table border="1" cellspacing="1" style="border-collapse: collapse" bordercolor="#799AE1" width="523" id="AutoNumber1" height="54">
<tr class="trh">
<td width="49" align="center" bgcolor="#799AE1" height="27">
<font color="#FFFFFF"><b>序号</b></font></td>
<td align="center" bgcolor="#799AE1" width="253" height="27">
<p align="center"><font color="#FFFFFF"><b>新闻标题</b></font></td>
<td align="center" bgcolor="#799AE1" width="122" height="27">
<p align="center"><font color="#FFFFFF"><b>发表时间</b></font></td>
<td align="center" bgcolor="#799AE1" width="109" height="27">
<font color="#FFFFFF"><b>发表人</b></font></td>
<td align="center" bgcolor="#799AE1" width="82" height="27">
<font color="#FFFFFF"><b>操作</b></font></td>
<td align="center" bgcolor="#799AE1" width="55" height="27">
<font color="#FFFFFF"><input type='submit' class=s02 value='删 除'></font></td>
</tr>
<%
on error resume next
rs.PageSize = 10
Page = CLng(Request("Page"))
If Page < 1 Then Page = 1
If Page > rs.PageCount Then Page = rs.PageCount
i=page+(page-1)*9
rs.AbsolutePage = Page
For iPage = 1 To rs.PageSize
%>
<tr class="trh1">
<td align="center" height="27" width="49"><%=i%> </td>
<td align="center" width="253" height="27"><a href="updatenews.asp?id=<%=rs("ID")%>"><%=cuter(rs("title"),12)%></a></td>
<td align="center" width="122" height="27"><%=formatdatetime(rs("fabsj"),1)%> </td>
<td align="center" width="109" height="27"> <%=rs("fabr")%> </td>
<td align="center" width="82" height="27">
<a href="updatenews.asp?id=<%=rs("ID")%>">修改</a></td>
<td align="center" width="55" height="27">
<input type='checkbox' name='selAnnounce' value='<%=cstr(rs("ID"))%>'></td>
</tr>
<%
rs.MoveNext
If rs.EOF Then Exit For
i=i+1
Next
%>
<caption></caption>
</table>
</form></center>
<div ALIGN="right">
<form ACTION="<%=Myself%>" METHOD="GET">
<table>
<tr>
<td>
<p ALIGN="right"><input type=checkbox name=del_all1 value=1 onclick=FanAll(viewdatabase)>全选<span lang="en-us"> </span>
<INPUT class="s02" onclick="window.location='adminsomething.asp'" type=button value="返 回" name=close><span lang="en-us">
</span><span lang="en-us">
</span> <%If Page <> 1 Then ' 如果不是位于第一页%><a href="<%=Myself%>?Page=1">第一页</a>
<a HREF="<%=Myself%>?Page=<%=(Page-1)%>">上一页</a>
<%
End If
If Page <> rs.PageCount Then ' 如果不是位于最后一页
%> <a HREF="<%=Myself%>?Page=<%=(Page+1)%>">下一页</a>
<a HREF="<%=Myself%>?Page=<%=rs.PageCount%>">最后一页</a>
<% End If %> <font SIZE="2">输入页次:</font><input NAME="Page" SIZE="3" CLASS="s01">
<font SIZE="2">页次:</font><font COLOR="Red" SIZE="2"><%=Page%>/<%=rs.PageCount%></font></p>
<p> </td>
</tr>
</table>
</form>
</div>
<%
sub deleteannounce(id)
dim rs,sql
set rs=server.createobject("adodb.recordset")
sql="delete from exam_news where id="&id
conn.execute sql
if err.Number<>0 then
err.clear
response.write "删 除 失 败 !<br>"
else
end if
End sub
end if
%>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -