?? admin_massage.asp
字號:
<!--#include file="conn_db.asp"-->
</script>
<link rel="stylesheet" href="style.css" type="text/css">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"></head>
<%if session("newsyhm")="" then%>
<script language="javascript">
alert("還沒有登陸!");
window.location="cm86login.asp";
</script>
<%end if
' 按所選擇的文章ID號刪除文章
if not IsEmpty(Request.Form("del")) then ' 如果選擇了文章
if not IsEmpty(Request.Form("delete")) then ' 如果單擊了刪除按鈕
' 根據所選文章的ID號執行刪除操作
db.Execute "delete from article where ID = " & Request.Form("del")
end if
end if
%>
<html><head>
<title>刪除公告</title>
</head><body>
<h4 align="center">刪除公告</h4>
<center>
<FORM ACTION="" METHOD=POST>
<table width="464" border="1" bordercolor="#000000" style="border-collapse: collapse" cellpadding="0" cellspacing="0">
<tr align="center">
<td width="37" bgcolor="#C0C0C0">選擇</td>
<td width="37" bgcolor="#C0C0C0">序號</td>
<td width="224" bgcolor="#C0C0C0">標題</td>
<td width="80" bgcolor="#C0C0C0">作者</td>
<td width="74" bgcolor="#C0C0C0">發言時間</td>
</tr>
<%
dim sql,rs
sql="select * from article where layer=1 order by submit_date desc"
set rs=Server.CreateObject("ADODB.Recordset")
rs.Open sql,db,1
if not rs.bof and not rs.eof then
dim page_size
dim page_no
dim page_total
page_size=6
if Request("page_no")="" then
page_no=1
else
page_no=Request("page_no")
end if
session("page_no")=page_no
rs.pagesize=page_size
page_total=rs.pagecount
rs.absolutepage=page_no
dim i,j
i=0
j=page_size
do while not rs.eof and j>0
i=i+1
j=j-1
%>
<tr align="center">
<td width="37"><input type=radio name=del value=<%=rs("ID")%>><td width="37">
<%=(page_no-1)*page_size+i%> <td width="224"><a href="hit_num.asp?id=<%=rs("id")%>"><%=rs("title")%></a> </td>
<td width="80"><%=rs("name")%> </td>
<td width="74"><%=rs("submit_date")%> </td>
</tr>
<%
rs.movenext
loop
end if
%>
</table>
<p align="center">
[本頁是第<%=page_no%>/<%=page_total%>頁]
<% if int(page_no)>1 then %>
[<a href="sdbbsindex.asp?page_no=<%=cstr(int(page_no)-1)%>">上一頁</a>]
<% end if%>
<% if int(page_no)<int(page_total) then %>
[<a href="admin.asp?page_no=<%=cstr(int(page_no)+1)%>">下一頁</a>]
<%end if%><input type=submit name="Delete" value="刪除"></p>
</FORM>
</p>
<p> </p>
<p> </p>
<p> </p>
<p> </p>
<p> </p>
<p> </p>
<p align="center">Copyright 2006-2008 http://cm86.vicp.net All Rights Reserved </p>
<p align="center"><font color="#E3E9F1" size="6" face="華文行楷">CM 新 聞 發 布 系 統 V 1。0</font> </p>
<p> </p>
</center>
</body></html>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -