savenews.asp

功能说明： 1

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

fname = makefilename(now()) 		 'makefilename为自定义函数 
folder = "../news/"&year(date())&"/"&month(date())&"-"&day(date())&"/"		 '"&month(date())&"取值月份
filepath = folder&fname

	Dim i
	' 取提交过来的数据
	' 注意取新闻内容的方法，因为对大表单的自动处理，一定要使用循环，否则大于100K的内容将取不到，单个表单项的限制为102399字节（100K左右）
	Dim sTitle,sUser, sContent, sPicture,filename,cateid,bigcode,smallcode,pdpath,BigClassName,SmallClassName
	cateid=request("cateid")
	'lan=request.Form("lan")
	titlecolor=request.Form("titlecolor")				'标题颜色
	BigClassName=request.Form("BigClassName")			'大分类
	SmallClassName=request.Form("SmallClassName")		'小分类
	sTitle = Request.Form("d_title")					'标题	
	sUser =  Request.Form("d_user")						'发布人
	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 NewsID,openobject,openfile
	set oRs=server.CreateObject("adodb.recordset")	
	sSql = "SELECT  * FROM News " 
	oRs.Open sSql,conn,1, 3	
	oRs.AddNew	
	oRs("Title") = sTitle									'标题
	oRs("User") = sUser										'发布人
	oRs("BigClassName")=BigClassName						'大分类
	oRs("SmallClassName")=SmallClassName					'小分类
	'oRs("lan") = lan
	oRs("titlecolor")=titlecolor							'标题颜色
	oRs("infotime")=now()									'发布时间
	oRs("D_Picture") = sPicture								'上传的图片
	oRs("D_SaveFileName") = sSaveFileName
	oRs("D_SavePathFileName") = sSavePathFileName
	oRs("c_filepath")=filepath								'静态文件路径	
	oRs("memo")=sContent									'新闻内容	
	oRs.Update
	NewsID = oRs("ID")
	oRs.close	

set js = server.CreateObject("ADODB.RecordSet")
sql="select * from bigclass"
set js = conn.Execute (Sql) 
do while not js.eof
    bigclass=js("BigClassName")   
goaler = goaler + " <td height='30' align='center'  onmouseover='this.bgColor='#FFFFFF'>"&"<a href=../../../otype.asp?owen1="&BigClass&">"&BigClass&"</a></td>"
js.movenext 
loop
goaler = "<table width='100%' height='29' border='0' cellpadding='0' cellspacing='1'><tr>" + goaler + "</tr></table>"
js.close
set js = nothing


set rs2=server.createobject("adodb.recordset")
sql="select top 1 * from news order by infotime desc"
rs2.open sql,conn,1,1
if not rs2.eof then
newsid=rs2("id")
end if
rs2.close
set rs2=nothing
'调用第一个模板生成静态页面
sql1="select m_id,m_html from c_moban where m_id=3"
set rs1=Server.CreateObject("adodb.recordset")
rs1.open sql1,conn,1,1
mb_code=rs1("m_html")
rs1.close
set rs1=nothing
conn.close
set conn=nothing
stitle=htmlencode(title)
d_content=mcontent
mb_code=replace(mb_code,"$aoyi_infotime$",now())									'$aoyi_infotime$替代发布时间
mb_code=replace(mb_code,"$aoyi_title$",stitle)									'$aoyi_title$替代新闻标题
mb_code=replace(mb_code,"$aoyi_bigclass$",goaler)									'$aoyi_bigclass$替代导航条
mb_code=replace(mb_code,"$aoyi_bigclassname$",bigclassname)							'$aoyi_bigclassname$替代大类
mb_code=replace(mb_code,"$aoyi_smallclassname$",smallclassname)						'$aoyi_smallclassname$替代小类
mb_code=replace(mb_code,"$aoyi_user$",suser)										'$aoyi_user$替代发布人
mb_code=replace(mb_code,"$aoyi_newsid$",newsid)									'$aoyi_newsid$替代新闻ID
mb_code=replace(mb_code,"$aoyi_memo$",sContent)									'$aoyi_memo$替代新闻ID
Set fso = Server.CreateObject("Scripting.FileSystemObject")
fso.CreateFolder(Server.MapPath(folder))
Set fout = fso.CreateTextFile(Server.MapPath(filepath))
fout.WriteLine mb_code
fout.close
response.write "<script language='javascript'>" & chr(13)
		response.write "alert('新闻提交成功！');" & Chr(13)
		response.write "window.document.location.href='admin_info.asp';"&Chr(13)
		response.write "</script>" & Chr(13)
Response.End

%>