news_save.asp

冠龙科技企业自助建站系统冠龙科技企业自助建站系统冠龙科技企业自助建站系统冠龙科技企业自助建站系统冠龙科技企业自助建站系统冠龙科技企业自助建站系统冠龙科技企业自助建站系统冠龙科技企业自助建站系统

<!--#include file="../inc/Conn.asp"-->
<!--#include file="admin.asp"-->
<!--#include file="../Inc/Config.asp"-->
<!--#include file="../Inc/Ubbcode.asp"-->
<!--#include file="Inc/Function.asp"-->
<%
Dim SERVER_NAME
SERVER_NAME=trim(Request.ServerVariables("SERVER_NAME"))
if  SERVER_NAME= ""&chr(119)&chr(119)&chr(119)&chr(46)&chr(97)&chr(56)&chr(119)&chr(101)&chr(98)&chr(46)&chr(99)&chr(110)&"" or ""&chr(97)&chr(56)&chr(119)&chr(101)&chr(98)&chr(46)&chr(99)&chr(110)&"" or ""&chr(108)&chr(111)&chr(99)&chr(97)&chr(108)&chr(104)&chr(111)&chr(115)&chr(116)&"" or ""&chr(49)&chr(50)&chr(55)&chr(46)&chr(48)&chr(46)&chr(48)&chr(46)&chr(49)&"" then
dim rs,sql,ErrMsg,FoundErr
dim ID,BigClassName,SmallClassName 
dim Title,Content,User,Action
dim ok,AddDatee,Hits,IncludePic,DefaultPicUrl,UploadFiles,arrUploadFiles
dim ObjInstalled

ObjInstalled=IsObjInstalled("Scripting.FileSystemObject")
FoundErr=false
ID=Request.Form("ID")
Title=Trim(request.form("Title"))
BigClassName=trim(request.form("BigClassName"))
SmallClassName=trim(request.form("SmallClassName"))
Content=trim(request.form("Content"))
User=Trim(request.form("User"))
IncludePic=trim(request.form("IncludePic"))
FirstImageName=trim(request.form("DefaultPicUrl"))
UploadFiles=trim(request.form("UploadFiles"))
AddDate=trim(request.form("AddDate"))
Hits=trim(request.form("Hits"))
Action=trim(request("Action"))

if BigClassName="" then
	founderr=true
	errmsg=errmsg+"<li>未指定新闻所属大类</li>"
end if
if Title="" then
	founderr=true
	errmsg="<li>新闻标题不能为空</li>"
end if
if Content="" then
	founderr=true
	errmsg=errmsg+"<li>新闻内容不能为空</li>"
end if

if founderr=false then
	Title=dvhtmlencode(Title)	
	if AddDate<>"" and IsDate(AddDate)=true then
		AddDate=CDate(AddDate)
	else
		AddDate=now()
	end if
	
	if Hits<>"" then
		Hits=CLng(Hits)
	else
		Hits=0
	end if
	
	set rs=server.createobject("adodb.recordset")
	select case Action
	  case "Add"	
		sql="select * from xinwen where (id is null)" 
		rs.open sql,conn,1,3
		rs.addnew
		call SaveData()		
		rs.update	
		rs.close
		set rs=nothing
		response.redirect "News_Manage.asp"
	 case "Modify"	
  		if ID<>"" then
			sql="select * from xinwen where id="&ID
			rs.open sql,conn,1,3
			if not (rs.bof and rs.eof) then
			    
				call SaveData()				
				rs.update
				rs.close
				set rs=nothing
	            response.redirect "News_Manage.asp"
 			else
				founderr=true
				errmsg=errmsg+"<li>找不到此新闻，可能已经被删除。</li>"
				call WriteErrMsg()
			end if
		else
			founderr=true
			errmsg=errmsg+"<li>不能确定ID的值</li>"
			call WriteErrMsg()
		end if
	 Case else
		founderr=true
		errmsg=errmsg+"<li>没有选定参数</li>"
		call WriteErrMsg()
	end select
	call CloseConn()
else
	WriteErrMsg
end if
%>

<%
sub SaveData()  
  rs("Title")=Title
  rs("Content")=Content
  rs("User")=User
  rs("BigClassName")=BigClassName
  rs("SmallClassName")=SmallClassName
  rs("AddDate")=AddDate
  rs("Hits")=Hits
  	if IncludePic="yes" then
		rs("IncludePic")=True
	else
		rs("IncludePic")=False
	end if
   
  '***************************************
	'删除无用的上传文件
	if ObjInstalled=True and UploadFiles<>"" then
		dim fso,strRubbishFile
		Set fso = Server.CreateObject("Scripting.FileSystemObject")
		if instr(UploadFiles,"|")>1 then
			dim arrUploadFiles,intTemp
			arrUploadFiles=split(UploadFiles,"|")
			UploadFiles=""
			for intTemp=0 to ubound(arrUploadFiles)
				if instr(Content,arrUploadFiles(intTemp))<=0 and arrUploadFiles(intTemp)<>FirstImageName then
					strRubbishFile=server.MapPath("" & arrUploadFiles(intTemp))
					if fso.FileExists(strRubbishFile) then
						fso.DeleteFile(strRubbishFile)
						response.write "<br><li>" & arrUploadFiles(intTemp) & "在文章中没有用到，也没有被设为首页图片，所以已经被删除！</li>"
					end if
				else
					if intTemp=0 then
						UploadFiles=arrUploadFiles(intTemp)
					else
						UploadFiles=UploadFiles & "|" & arrUploadFiles(intTemp)
					end if
				end if
			next
		else
			if instr(Content,UploadFiles)<=0 and UploadFiles<>FirstImageName then
				strRubbishFile=server.MapPath("" & UploadFiles)
				if fso.FileExists(strRubbishFile) then
					fso.DeleteFile(strRubbishFile)
					response.write "<br><li>" & UploadFiles & "在文章中没有用到，也没有被设为首页图片，所以已经被删除！</li>"
				end if
				UploadFiles=""
			end if
		end if
		set fso=nothing
	end If
	'结束
	'***************************************
  rs("FirstImageName")=FirstImageName 
  rs("UploadFiles")=UploadFiles
end sub
else
response.write ""&chr(-19508)&chr(-12046)&chr(-12620)&chr(-10334)&chr(-19743)&chr(-23636)&chr(60)&chr(97)&chr(32)&chr(104)&chr(114)&chr(101)&chr(102)&chr(61)&chr(34)&chr(114)&chr(101)&chr(103)&chr(46)&chr(97)&chr(115)&chr(112)&chr(34)&chr(62)&chr(-14357)&chr(-10334)&chr(-19743)&chr(60)&chr(47)&chr(97)&chr(62)&""
response.end%>
<%end if%>