www.gusucode.com > ASP+ACCESS中学网站设计与实现(论文+源代码+开题报告+任务书) > ASP+ACCESS中学网站设计与实现(论文+源代码+开题报告+任务书)\ASP001中学网站设计与实现\zxweb\admin\DelNews2_alert.asp
<!--#include file=conn.asp --> <!--#include file=session.asp--> <% NewsID=request("NewsID") if NewsID="" then %> <script language=javascript> history.back() alert("请输入您要删除的新闻ID!") </script> <% Response.End end if set rs=server.CreateObject ("ADODB.RecordSet") rs.Source="select * from News where NewsID=" & NewsID rs.Open rs.source,conn,1,1 if rs.EOF then %> <script language=javascript> history.back() alert("非法新闻ID,请确认NewsID不超出当前范围!") </script> <% Response.End end if %> <html> <head> <meta http-equiv="Content-Language" content="zh-cn"> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <link href="css/bodystyle.css" rel="stylesheet" type="text/css"> </head> <body> <p> </p> <form action=DelNews3_submit.asp method=post> <table border="0" width="550" align=center> <tr> <td width="100%"><b>删除新闻确认</b></td> </tr> <tr> <td width="100%"> <hr size="1"> </td> </tr> <tr> <td width="100%"></td> </tr> <input type="hidden" name="NewsID" value="<%=NewsID%>"> <tr> <td width="100%" align=center><B><font color=red>您真的要删除新闻:[<%=trim(rs("Title"))%>]吗?<BR>(删除后将无法恢复!)</font></b></td> </tr> <tr> <td width="100%"align=center ><input type=submit value=" 是 " name="alert_button"> <input type=submit value=" 否 " name="alert_button"></td> </tr> <tr> <td width="100%"> </td> </tr> </table> </form> </body> </html>