📄 newssave.asp
字号:
<!--#include file="../conndb.asp"-->
<!--#include file="isAdmin.asp"-->
<html>
<head>
<title>网上人才系统新闻</title>
</head>
<body>
<%
Function changechr(str)
changechr = Replace(str," "," ")
changechr = Replace(changechr,"'","‘")
changechr = Replace(changechr,Chr(13),"<br>")
End Function
Dim StrAction
'得到动作参数，如果为add则表示创建新闻，如果为edit则表示更改新闻
StrAction = Request.QueryString("action")
'取得新闻题目和内容
title = Trim(Request("title"))
content = changechr(Trim(Request("content")))
If StrAction="add" Then
'在数据库表News中插入新闻信息
sql = "Insert Into News(Title,Content,PostTime) Values('"&title&"','"&content&"','"&Date()&"')"
Else
'更改此新闻信息
id = Request.QueryString("id")
sql = "Update News Set Title='"&title&"',Content='"&content&"' Where id="&id
End If
'执行数据库操作
Conn.Execute(sql)
Response.Write "<h3>新闻成功保存</h3>"
%>
</body>
<script language="javascript">
// 刷新父级窗口，延迟此关闭
opener.location.reload();
setTimeout("window.close()",600);
</script>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -