act.save.asp

PDA,若你死昂师傅你说的附件是打开附件上课的附件四度空间就大方快速减肥

<!--#include file="../ACT.Function.asp"-->
<!--#include file="../../act_Inc/Md5.asp"-->
<!--#include file="../../ACT_inc/ACT.SLT.asp"-->
<%
response.Write "<link href=""../Images/css1/css.css"" rel=""stylesheet"" type=""text/css"">"
Dim Save_SQL,ShowErr
Dim Title,IntactTitle,ChangesLinkUrl,ChangesLink,Intro,Content
Dim Hits,Keywords,author,CopyFrom,UpdateTime,TypeTitleFont,rs3
Dim IsTop,rev,StrMakeHtml,SpecialID,ClassID,FileName,filenametype
Dim ArticlePic,PicUrl,TemplateUrl,SavePic,Slide,authorRs,Field2,Field
Dim Tags,binding,IF_NULL,ModeID,ID,I,ATT
Dim Tmps,TmpUs
Dim url,GroupID_ACT,Score_ACT
	 ModeID = ACTCMS.ChkNumeric(Request("ModeID"))
	 if ModeID=0 or ModeID="" Then ModeID=1
	ID = ACTCMS.ChkNumeric(Request("ID"))
	IF_NULL=ACTCMS.Act_MX_Arr(ModeID)
	If IsArray(IF_NULL) Then
		For I=0 To Ubound(IF_NULL,2)
		 If IF_NULL(2,I)=0 And Trim(ACTCMS.S(IF_NULL(0,I)))="" Then  Call  ACTCMS.ALERT(IF_NULL(1,I)&"不能为空","")
		Next
	End If
	Tags = ACTCMS.ChkNumeric(Request.Form("Tags"))
	Title = Request.Form("Title")'简短标题
	IntactTitle = Request.Form("IntactTitle")'完整标题
	ChangesLinkUrl = Request.Form("ChangesLinkUrl")'转向链接地址
	ChangesLink = ACTCMS.ChkNumeric(Request.Form("ChangesLink"))'是否使用转向链接
	ClassID = Request.Form("ClassID")'所属栏目ID
	IsTop = ACTCMS.ChkNumeric(Request.Form("IsTop"))'固顶
	rev = ACTCMS.ChkNumeric(Request.Form("rev"))'是否允许评论
	FileName = Request.Form("FileName")'生成文件名
	StrMakeHtml = ACTCMS.ChkNumeric(Request.Form("MakeHtml"))
	Intro = Request.Form("Intro")'文章导读
	Content = Request.Form("Content")'文章内容
	Hits = ACTCMS.ChkNumeric(Request.Form("Hits"))'初始点击数
	Keywords = Request.Form("Keywords")'关键字
	author = Request.Form("author")'文章作者
	CopyFrom = Request.Form("CopyFrom")'文章来源
	UpdateTime = Request.Form("UpdateTime")'添加日期
	filenametype = Request.Form("filenametype")
	PicUrl = Request("PicUrl")'图片地址
	TemplateUrl = Request("TemplateUrl")'模板ID
	Slide = ACTCMS.ChkNumeric(Request("Slide"))
	ArticlePic = ACTCMS.ChkNumeric(Request("ArticlePic"))
	ATT = ACTCMS.ChkNumeric(Request("ATT"))
	GroupID_ACT = Trim(ACTCMS.S("GroupID_ACT"))
	Score_ACT = ACTCMS.ChkNumeric(Request("Score_ACT"))
	SavePic = ACTCMS.ChkNumeric(Request("SavePic"))'是否远程存图
	If IsDate(UpdateTime) =False Then UpdateTime=Date()
	If Keywords="" Then Keywords="0"
	If Actcms.ACT_C(ModeID,12) > 0 Then 
		Content=Replace(Content,"[NextPage]","")
		Content=actcms.AutoSplitPage(Content,"[NextPage]", Actcms.ACT_C(ModeID,12))
	End If 
	Dim WatermarkSetting,WatermarName
		WatermarkSetting = Actcms.ACTEXE("Select ActCMS_WatermarkSetting from Config_Act")(0)
		WatermarkSetting=Split(WatermarkSetting,"^@*&*@^")(0)
	If ArticlePic=1 And ACTCMS.ChkNumeric(Request("slt"))="1" And WatermarkSetting<"3" Then 
		Select Case WatermarkSetting
			Case "1":WatermarName="Persits.Jpeg"'组建名称
			Case "2":WatermarName="wsImage.Resize"'组建名称
			Case "3":WatermarName="SoftArtisans.ImageGen"'组建名称
		End Select 
		If WatermarName=True Then 
			Dim Path,DateDir,Tmpss,TmpUss,PicPreview
			If Instr(PicUrl,".")>0 Then '截取扩展名
				Tmpss = Split(PicUrl,".") : TmpUss = Tmpss(Ubound(Tmpss))
			End If 
			Dim rndpic
			rndpic=ACTCMS.GetRandomize(10)
			Path = ACTCMS.ReturnChannelUpFilesDir(ModeID)
			DateDir = Year(Now()) & Right("0" & Month(Now()), 2) & "/"
			Path =ACTCMS.ActSys& Path & "/" & DateDir
			Call ACTCMS.CreateFolder(Path)
			PicPreview=Path&ModeID&rndpic&Year(Now()) & Right("0" & Month(Now()), 2) &"_Pic."&TmpUss
			Dim W:Set W=New Watermark
			Call W.CreateThumbs(PicUrl,PicPreview)
			Set W=Nothing
			PicUrl=	Path&ModeID&rndpic&Year(Now()) & Right("0" & Month(Now()), 2) &"_Pic."&TmpUss
		End If 
	End If 

	IF Trim(Title) = ""  Then
		ShowErr = "<li>请填写简短标题</li>"
		Response.Redirect("../Error.asp?Errs="&Server.URLEncode(ShowErr)&"&ErrorUrl="&"&Title=1")
		Response.End
	End if

	IF Trim(ClassID) = ""  Then
		ShowErr = "<li>请选择一个栏目</li>"
		Response.Redirect("../Error.asp?Errs="&Server.URLEncode(ShowErr)&"&ErrorUrl="&"&Title=1")
		Response.End
	End if


    If ACTCMS.ChkNumeric(Request("addauthor")) = 1 And  author<>"" Then 
		 Set authorRs = Server.createobject("Adodb.Recordset")
		 Field = Split(author,"-")
		 If UBound(Field)>0 Then author=Field(0):Field2=Field(1)
		 authorRs.Open "Select * From AC_ACT Where Field1 ='" & author & "' And Types =1",Conn,1,3
		 If authorRs.Eof Then
			 authorRs.AddNew
			 authorRs("Field1") =author
			 authorRs("Field2") = Field2
			 authorRs("Types") = 1
			 authorRs.Update
		 End If:authorRs.Close
	End If 


	If ACTCMS.ChkNumeric(Request("addCopyFrom")) = 1 And CopyFrom<>"" Then 
		 Set authorRs = Server.createobject("Adodb.Recordset")
		 Field = Split(CopyFrom,"-")
		 If UBound(Field)>0 Then CopyFrom=Field(0):Field2=Field(1)
		 authorRs.Open "Select * From AC_ACT Where Field1 ='" & CopyFrom & "' And Types =0",Conn,1,3
		 If authorRs.Eof Then
			 authorRs.AddNew
			 authorRs("Field1") = CopyFrom
			 authorRs("Field2") = Field2
			 authorRs("Types") = 0
			 authorRs.Update
		 End If:authorRs.Close
	End If 

	If Tags = 1 Then Call ACTCMS.AddTags(1,Keywords)
	If  TemplateUrl="" Then'继承栏目设置
		TemplateUrl=ACTCMS.ACT_L(ClassID,5)
	Else
		TemplateUrl=TemplateUrl
	End If 
	If filenametype="0" Then filenametype=ACTCMS.ACT_L(ClassID,7)

	If CInt(SavePic) = 1 And CInt(ChangesLink) <> 1 Then
		Dim SaveFilePath
		If CStr(ActCMS.ActCMS_Other(7)) = "0" Then
		  SaveFilePath = ACTCMS.actsys & ActCMS.ActCMS_Other(6) & Year(Now()) & "-" & Right("0" & Month(Now()), 2) & "/"
		Else
		  SaveFilePath = ACTCMS.actsys & ActCMS.ActCMS_Other(6)
		End If
		  Call ACTCMS.CreateFolder(SaveFilePath)
		  Content = ACTCMS.ReplaceUrl(Content, SaveFilePath)
	End If


	If ACTCMS.ChkNumeric(Request("dellink")) =1  Then Content=RemoveHref(Content)

    
	Function RemoveHref(HTMLstr)
		Dim ra
		Set ra = New RegExp
		ra.IgnoreCase = True
		ra.Global = True
		ra.Pattern = "<a[^>]+>(.+?)<\/a>"
		RemoveHref= ra.replace(HTMLstr,"$1")
	End Function

	
	Set Save_SQL = server.CreateObject("adodb.recordset")
	IF Request("Action") = "add" Then '添加
		If Not ACTCMS.ACTCMS_QXYZ(ModeID,"2",ClassID) Then  Call Actcms.Alert("对不起，您没有该栏目下添加内容的权限！","")
		Dim ChkFileName,strFileName
		If  Request.Form("FileName")="" Then '获取文件名并且解析
			strFileName=ACTCMS.ACT_C(ModeID,10)
			If Instr(strFileName,"{y}") > 0 Then strFileName = Replace(strFileName,"{y}",Right("0" & Year(Now), 2))
			If Instr(strFileName,"{yy}") > 0 Then strFileName = Replace(strFileName,"{yy}", Year(Now))
			If Instr(strFileName,"{m}") > 0 Then strFileName = Replace(strFileName,"{m}",Right("0" & Month(Now), 2))
			If Instr(strFileName,"{d}") > 0 Then strFileName = Replace(strFileName,"{d}",Right("0" & Day(Now), 2))
			If Instr(strFileName,"{date}") > 0 Then strFileName = Replace(strFileName,"{date}",Year(Now) & "-" & Month(Now) & "-" & Day(Now))
			If Instr(strFileName,"{enname}") > 0 Then strFileName = Replace(strFileName,"{enname}",Actcms.ACT_L(classid,1))
			If Instr(strFileName,"{md5}") > 0 Then strFileName = Replace(strFileName,"{md5}",MD5(Now))
			If Instr(strFileName,"{rnd}") > 0 Then strFileName = Replace(strFileName,"{rnd}",ACTCMS.GetRandomize(10))
			If Instr(strFileName,"{pinyin}") > 0 Then strFileName = Replace(strFileName,"{pinyin}",ACTCMS.GetEn(ACTCMS.PinYin(ACTCMS.CloseHtml(Title))))
		Else
			strFileName=Request.Form("FileName")
		If Instr(strFileName,".")>0 Then '截取扩展名
			Tmps = Split(strFileName,".") : TmpUs = Tmps(Ubound(Tmps)-1)
			strFileName=TmpUs
		Else
			strFileName=strFileName
		End If 

		End If 
		If Right(strFileName,1)="/" Then 
			strFileName=Left(strFileName, Len(strFileName) - 1)
		End If 
	
		If InStr(strFileName, "//") > 0   Then
			strFileName = Replace(strFileName, "//","/")
		End If