📄 newssave.asp
字号:
<!--#include File="ConnDB.asp"-->
<!--#include File="ChkPwd.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<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
'定义变量，接受从表单中传送来的数据
Dim title '新闻标题
Dim content '新闻内容
Dim category '新闻类别
Dim sql 'sql语句字符串
Dim rs '记录集变量
title = Request("title")
title = Replace(title,"'","‘")
attpic = Request("attpic")
rqtContent = ChangeChr(request("txtcontent")) '替换函数
rqtContent = Replace(rqtContent,"'","‘")
Set rs = Server.CreateObject("ADODB.RecordSet")
'定义sql语句，为插入新闻记录定义记录集
sql="SELECT * FROM News"
rs.Open sql, Conn, 1, 3
'使用AddNew和Update插入新记录
rs.AddNew
rs("CateId") = CInt(Request("Cate"))
rs("Title") = title
rs("Content") = rqtContent
rs("Posttime") = now()
rs("Poster") = Session("UserName")
rs("ReadCount") = 0
If attpic <> "" Then
rs("attpic") = attpic
End If
rs.Update
'释放资源，显示提示信息
set rs = nothing
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 + -