www.gusucode.com > ASP+ACCESS中学网站设计与实现(论文+源代码+开题报告+任务书) > ASP+ACCESS中学网站设计与实现(论文+源代码+开题报告+任务书)\ASP001中学网站设计与实现\zxweb\admin\ModifyNews3_update.asp
<!--#include file=conn.asp --> <!--#include file=session.asp--> <% NewsID=Request.QueryString("NewsID") Title=replace(trim(Request.Form("Title")),"'","''") if Title="" then %> <script language=javascript> history.back() alert("请填写新闻标题!") </script> <% Response.End end if Author=replace(trim(Request.Form("Author")),"'","''") Original=replace(trim(Request.Form("Original")),"'","''") Content=replace(trim(Request.Form("Content")),"'","''") if Content="" then %> <script language=javascript> history.back() alert("请输入新闻内容!") </script> <% Response.End end if sql="update News set title='" & Title & "' where NewsID=" & NewsID conn.execute sql sql="update News set Author='" & Author & "' where NewsID=" & NewsID conn.execute sql sql="update News set Original='" & Original & "' where NewsID=" & NewsID conn.execute sql sql="update News set Content='" & Content & "' where NewsID=" & NewsID conn.execute sql conn.close set conn=nothing %> <html> <head> <meta http-equiv="refresh" content="1;url=ModifyNews1.asp"> <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> <table border="0" width="450" align=center> <tr> <td width="100%"><b>修改新闻</b></td> </tr> <tr> <td width="100%"> <hr size="1"> </td> </tr> <tr> <td width="100%">已经修改该新闻!<BR>系统将在3秒钟后自动返回!</td> </tr> <tr> <td width="100%"> </td> </tr> </table> </body> </html>