📄 newsupdate.asp
字号:
<!--#include file="ConnDB.asp"-->
<!--#include file="isAuthor.asp"-->
<html>
<head><title>修改新闻</title></head>
<body>
<%
'对新闻正文进行替换的函数
Function ChangeChr(str)
ChangeChr = Replace( str, "[upload]", "<div[space]align=center><img[space]src=images/")
ChangeChr=Replace( ChangeChr, "[/upload]", "[space]border=0[space]width=300></img></div>")
ChangeChr = Replace( ChangeChr, " ", " ")
ChangeChr = Replace( ChangeChr, chr(13), "<br>")
End Function
rqtContent = ChangeChr(request("txtcontent")) '替换函数
rqtContent = Replace(rqtContent,"'","‘")
'替换新闻标题中的半角单引号
Dim title
title = Request.Form("title")
title = replace(title,"'","‘")
'设置附图标记
If Request.Form("attpic")<>"" Then
attpic = 1
Else
attpic = 0
End If
'设置UPDATE语句，更新新闻信息
sql = "UPDATE News SET Posttime='" & now() &"', Attpic=" & attpic & ", Title = '" & title _
& "', CateID = " & CInt(Request("Cate")) & "," & "Content='" & rqtContent & "' WHERE Id=" & CInt(Request("Id"))
conn.Execute(sql)
Response.Write "<h2>修改成功！</h2>"
%>
</body>
<script language="javascript">
opener.location.reload();
setTimeout("window.close()",600);
</script>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -