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>