www.gusucode.com > 云枫工作室企业网站源代码第五版 1.0 > docc/admin/editor/example/newssystem/addsave.asp
<!--#include file = "Startup.asp"--> <% ' ====================== ' 功能:增加新闻保存页 ' 描述:对add.asp文件提交过来的表单数据进行保存操作,有保存新闻标题,新闻内容,新闻标题图片; ' 同时保存所有此篇新闻所有相关的上传或远程获取的文件信息,有源文件名,保存文件名,保存路径文件名。 ' ====================== Call Header("增加新闻保存") Call Content() Call Footer() ' 本页内容区 Sub Content() Dim i ' 取提交过来的数据 ' 注意取新闻内容的方法,因为对大表单的自动处理,一定要使用循环,否则大于100K的内容将取不到,单个表单项的限制为102399字节(100K左右) Dim sTitle, sContent, sPicture 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 sSql = "SELECT * FROM NewsData WHERE D_ID=0" oRs.Open sSql, oConn, 1, 3 oRs.AddNew oRs("D_Title") = sTitle oRs("D_Content") = sContent oRs("D_Picture") = sPicture oRs("D_OriginalFileName") = sOriginalFileName oRs("D_SaveFileName") = sSaveFileName oRs("D_SavePathFileName") = sSavePathFileName oRs.Update sNewsID = oRs("D_ID") oRs.Close ' 输出成功保存信息 Response.Write "新闻(ID:" & sNewsID & ")增加保存成功!" End Sub %>