📄 edit_update.asp
字号:
<!-- #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" -->
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -