delnews1.asp
来自「这是一个学生毕业时做的教务系统」· ASP 代码 · 共 105 行
ASP
105 行
<!--#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 + =
减小字号Ctrl + -
显示快捷键?