?? news_info_list.asp
字號:
<!--#include file="admin_check.asp"-->
<%dim dbpath
dbpath="../"
%>
<!--#include file="../Conn.asp"-->
<!--#include file="../include/MyRequest.asp"-->
<!--#include file="../include/Pages.asp"-->
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>新聞信息-管理</title>
<link rel="stylesheet" type="text/css" href="style.css">
<script src="Editor/edit.js" type="text/javascript"></script>
<script language = "JavaScript">
//全選操作
function CheckAll(form) {
for (var i=0;i<form.elements.length;i++) {
var e = form.elements[i];
if (e.name != 'chkall') e.checked = form.chkall.checked;
}
}
</script>
<%
action=my_request("action",0)
if action="刪除" then
call del()
end if
//過程：批量刪除
sub del()
id=my_request("id",0)
if id<>"" then
pp=ubound(split(id,","))+1 '判斷數(shù)組news_info_id中共有幾維
for v=1 to pp
id=request("id")(v)
conn.execute ("delete from [news_info] where id="&id)
next
call ok("所選信息已成功刪除！","News_Info_List.asp")
end if
end sub
%>
</head>
<body>
<table cellspacing="1" cellpadding="4" width="100%" class="tableborder">
<tbody class="altbg2">
<tr>
<td colspan="5" class="header">新聞信息-管理</td>
</tr>
<tr class="altbg1">
<td>選中</td>
<td>信息標題</td>
<td>發(fā)布時間</td>
<td>瀏覽量/次</td>
<td>編輯</td>
</tr>
<form name="form1" action="News_Info_List.asp" method="post">
<%
set rs=server.createobject("adodb.recordset")
sql="select id,news_info_title,news_info_addtime,news_info_hitnums from news_info order by id desc"
rs.open sql,conn,1,1
if rs.eof then
response.write "<tr><td colspan=5 align=center>暫無相關(guān)新聞信息,<a href=News_Info_Add.asp>請?zhí)砑?</a></td></tr>"
else
rs.PageSize =20 '每頁記錄條數(shù)
iCount=rs.RecordCount '記錄總數(shù)
iPageSize=rs.PageSize
maxpage=rs.PageCount
page=request("page")
if Not IsNumeric(page) or page="" then
page=1
else
page=cint(page)
end if
if page<1 then
page=1
elseif page>maxpage then
page=maxpage
end if
rs.AbsolutePage=Page
if page=maxpage then
x=iCount-(maxpage-1)*iPageSize
else
x=iPageSize
end if
i=1
set id = rs(0)
set news_info_title = rs(1)
set news_info_addtime = rs(2)
set news_info_hitnums = rs(3)
while not rs.eof and i<=rs.pagesize
%>
<tr>
<td><input type="checkbox" name="id" value="<%=id%>"> </td>
<td><a href=News_Info_Modi.asp?id=<%=id%>><%=news_info_title%></a></td>
<td><%=datevalue(news_info_addtime)%> </td>
<td><%=news_info_hitnums%> </td>
<td><a href=News_Info_Modi.asp?id=<%=id%>>編輯</a> </td>
</tr>
<%
rs.movenext
i=i+1
wend
%>
<tr>
<td colspan="5">
<input type="checkbox" name="chkall" onclick="CheckAll(this.form)">全選
<input type="submit" name="action" value="刪除" onclick="{if(confirm('刪除后將無法恢復(fù)，您確定要刪除選定的信息嗎？')){this.document.form1.submit();return true;}return false;}">
<input type="button" value="新聞信息-添加" name="action1" onclick="window.location='News_Info_Add.asp'"></td>
</tr>
<input type=hidden name=pagenow value=<%=page%>>
<%
call PageControl(iCount,maxpage,page)
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
</form>
</tbody>
</table>
</body>
</html>
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -