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">&nbsp;&nbsp;&nbsp;&nbsp;<input type=submit value="  否  " name="alert_button"></td>
  </tr>
  <tr>
    <td width="100%"> </td>
  </tr>
</table>
</form>
</body>

</html>