edit_update.asp

来自「网站的源码」· ASP 代码 · 共 30 行

<!-- #include file="Top.asp" -->

<!-- #include file="cnOpen.asp" -->
<%
Dim rsUpdate
Dim strSQL
Set rsUpdate = Server.CreateObject("ADODB.RecordSet")

If Request("txtTitle")="" OR Request("txtContent")="" Then
%>
  <p align="center"><font color="red">编辑文章时不允许无标题或内容，请重新输入</font>
  <!-- #include file="EditInfoInput.asp" -->
<%
Else
  rsUpdate.Open "SELECT * FROM Lily_Article",cn,2,3
  rsUpdate.Find "ArticleID="&Session("ArticleID")
  rsUpdate("Title") = Request("txtTitle")
  rsUpdate("Content") = Request("txtContent")
  rsUpdate("RewriteTime") = Now
  rsUpdate.Update
  rsUpdate.Close
  %>
  <p align="center"><font color="red">修改文章成功！</font>
  <!-- #include file="ShowContent.asp" -->
<%
End If
%>
<!-- #include file="cnClose.asp" -->

<!-- #include file="Bottom.htm" -->