?? 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 + -