?? delnews1.asp
字號:
<!--#include file=conn.asp -->
<%
IF Session("KEY")<>"super"THEN
response.redirect "index_face.asp"
response.end
END IF
page=Request.QueryString("page")
if page<=1 or page="" then page=1
set rs=server.CreateObject("ADODB.RecordSet")
rs.Source="select * from News order by NewsID desc"
rs.Open rs.Source,conn,1,1
rs.PageSize=50
for i=1 to rs.PageSize *( page-1)
if not rs.EOF then
rs.MoveNext
end if
next
%>
<html>
<head>
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="copyright" content="校園網（bii.huizhou.gov.cn）">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK href=style.css rel=stylesheet>
</head>
<body>
<br>
<table border="0" width="90%" align=center cellspacing="1" cellpadding="0" bgcolor="#000000">
<tr>
<td width="100%" bgcolor="#abb8d6" height="55" align="center"><b>刪 除 新 聞</b></td>
</tr>
<tr bgcolor="#FFFFFF">
<form method="POST" action="DelNews2_alert.asp" id=form1 name=form1>
<td colspan="2" bgcolor="#FFFFFF" align="center" valign="middle" height="60"><b>直接輸入新聞ID：</b>
<input type="text" name="NewsID" size="20">
<input type="submit" value="下一步>>" id=submit1 name=submit1>
</td>
</form>
</tr>
<tr>
<td bgcolor=#abb8d6 align=center height=25>其他頁(當前第<%=page%>頁)：
<%
for i=1 to rs.PageCount
Response.Write "<a href=DelNews1.asp?Page=" & i & "><font color=000000>" & i & "</font></a> "
next
%>
</td>
</tr>
<tr>
<td colspan=2 bgcolor=#abb8d6 align=center height=25>
<table width="100%" border="0" cellspacing="1" cellpadding="0" height="25">
<tr align="center" bgcolor="#FFFFFF">
<td width="6％">ID號</td>
<td width="62％">標 題</td>
<td width="20％">日 期</td>
<td width="6％">編碼</td>
<td width="6%">執行</td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="100%" bgcolor="#ffffff">
<table border="0" cellspacing="1" width="100%" cellpadding="0" bgcolor="#abb8d6">
<%
for i=1 to rs.PageSize
if not rs.EOF then
TrString="<form method=""POST"" action=""DelNews2_alert.asp""><input type=hidden name=NewsID value=" & rs("NewsID") & ">"
TrString=TrString & "<tr bgcolor=ffffff><td width=6% align=center >" & rs("NewsID") & "</td>"
TrString=TrString & "<td width=62% > <a href='../ReadNews.asp?NewsID=" & rs("NewsID") & "&BigClassName="& rs("BigClassName") &"&SmallClassName=" & rs("SmallClassName") & "&SpecialID=" & rs("SpecialId") & "' target=_blank>"& trim(rs("Title")) & "</a></td>"
TrString=TrString & "<td width=20% align=center >" & rs("UpdateTime") & "</td>"
TrString=TrString & "<td width=6% align=center >" & trim(rs("EnCode")) &"</td>"
TrString=TrString & "<td width=6% align=center ><input type=submit value=""刪除"" style=""border-style: double; border-color: #FF0000""></td>"
TrString=TrString & "</form>"
Response.Write TrString
rs.MoveNext
end if
next
%>
</table>
</td>
<tr>
<td colspan=2 bgcolor=#abb8d6 align=center height=25>其他頁(當前第<%=page%>頁)：
<%
for i=1 to rs.PageCount
Response.Write "<a href=UploadImage1.asp?Page=" & i & "><font color=000000>" & i & "</font></a> "
next
%>
</td>
</tr>
</table>
</body>
</html>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -