复件 savenews.asp

功能说明： 1

<!--#include file = "adminconn.asp"-->
<!--#include file = "include/function.asp"-->
<!--#include file = "makenewpage.asp"-->
<%
  if session("aleave")="" then
      response.redirect "adminlogin.asp"
	  response.end
  end if
' ======================
' 功能：增加新闻保存页
' 描述：对add.asp文件提交过来的表单数据进行保存操作，有保存新闻标题，新闻内容，新闻标题图片；
'       同时保存所有此篇新闻所有相关的上传或远程获取的文件信息，有源文件名，保存文件名，保存路径文件名。
' ======================


Call Content()



' 本页内容区
Sub Content()
	Dim i

	' 取提交过来的数据
	' 注意取新闻内容的方法，因为对大表单的自动处理，一定要使用循环，否则大于100K的内容将取不到，单个表单项的限制为102399字节（100K左右）
	Dim sTitle, sContent, sPicture,filename,cateid,bigcode,smallcode,pdpath
	cateid=request("cateid")
	'lan=request.Form("lan")
	titlecolor=request.Form("titlecolor")	
	sTitle = Request.Form("d_title")
	sPicture = Request.Form("d_picture")    
	' 开始：eWebEditor编辑区取值-----------------
	sContent = ""
	For i = 1 To Request.Form("d_content").Count
		sContent = sContent & Request.Form("d_content")(i)
	Next
	' 结束：eWebEditor编辑区取值-----------------
	

	' 以下为所有通过编辑器上传的所有文件相关信息，包括编辑区手动上传的和自动远程上传的
	' GetSafeStr函数为过滤一些特殊字符，防止有些人恶意的破坏此演示程序
	' 上传或远程获取前的原文件名，多个以"|"分隔
	Dim sOriginalFileName
	' 上传后保存到本地服务器的文件名（不带路径），多个以"|"分隔
	Dim sSaveFileName
	' 上传后保存到本地服务器的路径文件名，多个以"|"分隔
	Dim sSavePathFileName
	sOriginalFileName = GetSafeStr(Request.Form("d_originalfilename"))
	sSaveFileName = GetSafeStr(Request.Form("d_savefilename"))
	sSavePathFileName = GetSafeStr(Request.Form("d_savepathfilename"))

	' 保存新闻内容，同时取出自增的新闻ID
	Dim sNewsID,openobject,openfile
	set oRs=server.CreateObject("adodb.recordset")	
	sSql = "SELECT  * FROM Newsinfo " 
	oRs.Open sSql,conn,1, 3	
	oRs.AddNew	
	oRs("Title") = sTitle
	'oRs("lan") = lan
	oRs("titlecolor")=titlecolor
	oRs("fbdate")=date()	
	oRs("D_Picture") = sPicture	
	oRs("D_SaveFileName") = sSaveFileName
	oRs("D_SavePathFileName") = sSavePathFileName
	oRs("memo")=sContent	
	oRs.Update
	sNewsID = oRs("ID")
	oRs.close	
	call outjs()
	call outnew(sNewsID)
	call outall()		
	response.Write("<script>alert('新闻\n（ID：" & sNewsID & "）\n增加保存成功！');window.location.href='info.asp'</script>")

End Sub

%>