📄 act.save.asp
字号:
set ChkFileName = conn.execute("select ID From "&ACTCMS.ACT_C(ModeID,2)&" where ClassID ='"& ClassID &"' and FileName='"& strFileName &"' order by ID desc")
if Not ChkFileName.eof then
ShowErr = "<li>文件名意外重复,请返回保存,如果还发现这种情况,请确认生成规则是否正确</li>"
Response.Redirect("../Error.asp?Errs="&Server.URLEncode(ShowErr)&"&ErrorUrl="&"&Title=1")
Response.end
End If
Dim sqlstr
SqlStr = "select * from " & ACTCMS.ACT_C(ModeID,2) &" where 1=0"
Save_SQL.Open SqlStr, conn, 1, 3
Save_SQL.AddNew
Save_SQL("ClassID") = ClassID
Save_SQL("Title") = Title'简短标题
Save_SQL("IntactTitle")= IntactTitle'完整标题
Save_SQL("Intro") = Intro'文章导读
Save_SQL("author") = author'作者
Save_SQL("IsTop") = IsTop'置顶
Save_SQL("isAccept") = 0
Save_SQL("userid") = 0
Save_SQL("Slide") = Slide'幻灯片
Save_SQL("ATT") = ATT
Save_SQL("Hits") = Hits
Save_SQL("ArticlePic") = ArticlePic
Save_SQL("Score_ACT") = Score_ACT
Save_SQL("GroupID_ACT") = GroupID_ACT
if Clng(ChangesLink) = 1 then '如果是转向链接,则文件名是转向地址
Save_SQL("ChangesLink") = 1
Save_SQL("FileName") = ChangesLinkUrl
Else
If Instr(strFileName,"{id}") > 0 Then strFileName = Replace(strFileName,"{id}",Save_SQL("id"))
Save_SQL("FileName") = strFileName'文件名
End IF
Save_SQL("TemplateUrl") = TemplateUrl'内容
Save_SQL("Content") = Content'内容
Save_SQL("CopyFrom") = CopyFrom'文章来源
Save_SQL("Keywords") = Keywords'关键字
Save_SQL("rev") = rev'评论
Save_SQL("UpdateTime") = UpdateTime
Save_SQL("PicUrl") = PicUrl'图片文章地址
Save_SQL("ArticleInput") = ACTCMS.RSQL(Request.Cookies(AcTCMSN)("AdminName"))
If IsArray(IF_NULL) Then
For I=0 To Ubound(IF_NULL,2)
If IF_NULL(3,I)="NumberType" Then
Save_SQL("" & IF_NULL(0,I) & "" )= ACTCMS.ChkNumeric(ACTCMS.S(IF_NULL(0,I)))
ElseIf IF_NULL(3,I)="DateType" Then
If IsDate(ACTCMS.S(IF_NULL(0,I)))=False Then
Save_SQL("" & IF_NULL(0,I) & "")= Now()
Else
Save_SQL("" & IF_NULL(0,I) & "")=ACTCMS.S(IF_NULL(0,I))
End If
Else
Save_SQL("" & IF_NULL(0,I) & "")=ACTCMS.S(IF_NULL(0,I))
End If
Next
End If
Save_SQL.update
Session("ClassName")=AcTCMS.CloseHtml(ACTCMS.ACT_L(ClassID,2))
Session("ClassID")=ClassID
ElseIF Request("Action") = "edit" Then
If Not ACTCMS.ACTCMS_QXYZ(ModeID,"3",ClassID) Then Call Actcms.Alert("对不起，您没有该栏目下修改内容的权限！","")
dim Save_SQL1
Save_SQL1= "Select * from "&ACTCMS.ACT_C(ModeID,2)&" where ID="& ACTCMS.ChkNumeric(ID) &""
Save_SQL.Open Save_SQL1,Conn,1,3
Save_SQL("ClassID") = ClassID
Save_SQL("Title") = Title'简短标题
Save_SQL("IntactTitle")= IntactTitle'完整标题
Save_SQL("Intro") = Intro'文章导读
Save_SQL("IsTop") = IsTop'置顶
Save_SQL("author") = author'作者
Save_SQL("Slide") = Slide'幻灯片
Save_SQL("ATT") = ATT
Save_SQL("Hits") = Hits
Save_SQL("ArticlePic") = ArticlePic
Save_SQL("Score_ACT") = Score_ACT
Save_SQL("GroupID_ACT") = GroupID_ACT
if Clng(ChangesLink) = 1 then '如果是转向链接,则文件名是转向地址
Save_SQL("ChangesLink") = 1
Save_SQL("FileName") = ChangesLinkUrl
Else
If Save_SQL("ChangesLink") = 1 And Clng(ChangesLink) = 0 then '如果是转向链接,则文件名是转向地址
Save_SQL("ChangesLink") = 0
End If
End IF
Save_SQL("TemplateUrl") = TemplateUrl'内容
Save_SQL("Content") = Content'内容
Save_SQL("CopyFrom") = CopyFrom'文章来源
Save_SQL("Keywords") = Keywords'关键字
Save_SQL("rev") = rev'评论
Save_SQL("UpdateTime") = UpdateTime
Save_SQL("PicUrl") = PicUrl'图片文章地址
If Request.QueryString("actcms")="sh" Then
Call ACTCMS.isAcceptOK(ModeID,Save_SQL("userid"),Save_SQL("ArticleInput"),Save_SQL("Title"))
Save_SQL("isAccept") = 0
Save_SQL("userid") = 0
End If
ClassID=Save_SQL("ClassID")
If IsArray(IF_NULL) Then
For I=0 To Ubound(IF_NULL,2)
If IF_NULL(3,I)="NumberType" Then
Save_SQL("" & IF_NULL(0,I) & "" )= ACTCMS.ChkNumeric(ACTCMS.S(IF_NULL(0,I)))
ElseIf IF_NULL(3,I)="DateType" Then
If IsDate(ACTCMS.S(IF_NULL(0,I)))=False Then
Save_SQL("" & IF_NULL(0,I) & "")= Now()
Else
Save_SQL("" & IF_NULL(0,I) & "")=ACTCMS.S(IF_NULL(0,I))
End If
Else
Save_SQL("" & IF_NULL(0,I) & "")=ACTCMS.S(IF_NULL(0,I))
End If
Next
End If
Save_SQL.update
End If
ID = Save_SQL("ID")
Call UpDateFile(Content ,id ,ClassID)
Function UpDateFile(Byval ContentHTML,Byval ArtileID,Byval ClassID)
Dim RegEx,Matches,Match,Save_SQL2,Save_SQL3,ext
Set RegEx = New RegExp
RegEx.Ignorecase = True
RegEx.Global = True
RegEx.Pattern = ACTCMS.ACT_C(ModeID,8)& "(.+?)\.(jpeg|gif|jpg|png|bmp|mp3|wma|rmvb|rm|rar|asf|avi|wmv|swf|ra|exe|zip|doc|xls)"
Set Save_SQL3 = server.CreateObject("adodb.recordset")
Set Matches = RegEx.Execute(ContentHtml)
Save_SQL2= "Select * from Upload_Act where ArtileID="& ArtileID
Save_SQL3.Open Save_SQL2,Conn,1,3
For Each Match In Matches
If Len(Match.Value) > 0 Then
IF Request("Action") = "add" Then Save_SQL3.AddNew
If Save_SQL3.eof Then Save_SQL3.AddNew
ext=Split(Match.Value,".")
Save_SQL3("ArtileID") = ArtileID'内容
Save_SQL3("UpfileDir") = ACTCMS.ActSys&Replace(Match.Value,"'","")
Save_SQL3("Extension") =ext(1)
Save_SQL3("ModeID") =ModeID
Save_SQL3("UpdateTime") =Now()
Save_SQL3.update
End If
Next
Save_SQL3.close:set Save_SQL3 = Nothing
End Function
If CLng(StrMakeHtml) = 1 Then '立即生成Html
response.Write "<div style=""margin-top:15px;border: #E7E7E7;height:296; overflow: auto; width:100%"">"
If ACTCMS.ACT_C(ModeID,3) = 0 Or Trim(ACTCMS.ACT_L(ClassID,6))<>"" Then
response.Write "<div style=""margin-left:179;height:25px""><li>由于文章中心没有启用生成HTML的功能，所以ID号为 <font color=red>" & Save_SQL("ID") & "</font> 的文章没有生成!</li></div> "
response.Write "<div style=""margin-left:179;height:25px""><li>由于文章中心没有启用生成HTML的功能，所以ID号为 <font color=red>" & Save_SQL("classid") & "</font> 的栏目没有生成!</li></div> "
URL=ACTCMS.ActCMS_Sys(2)&ACTCMS.ActSys&"Article/TypeArticle.asp?ModeID="&ModeID&"&ID="&Save_SQL("ID")
Else
If ChangesLink = 0 Then
response.Write "<div align=center><iframe src=""../include/ACT.MakeMode.asp?ModeID="&ModeID&"&"" width=""0"" height=""0"" frameborder=""0""></iframe></div>"
Response.Write "<div align=center><iframe src=""../Include/ACT.C.asp?ModeID="&ModeID&"&RefreshFlag=ID&ID=" & Save_SQL("ID") &""" width=""100%"" height=""40"" frameborder=""0""></iframe></div>"
Dim PrevArticle
set PrevArticle = Conn.execute("select ID From Article_ACT where ClassID ='"& Save_SQL("classid") &"' and id<"& Save_SQL("ID") &" and isAccept=0 AND delif=0 order by ID desc")
If Not PrevArticle.eof Then
Response.Write "<div align=center><iframe src=""../Include/ACT.C.asp?ModeID="&ModeID&"&RefreshFlag=ID&ID=" & PrevArticle("id") &""" width=""98%"" height=""0"" frameborder=""0""></iframe></div>"
response.Write "<div style=""margin-left:179;height:25px""><li>系统已经生成了静态文件.同时更新了上一篇文章链接</li></div> "
End If
URL = Save_SQL("FileName")
If Right(ACTCMS.ACT_C(ModeID,10),1)<>"/" Then
URL= ACTCMS.ActCMS_Sys(2)&ACTCMS.ActCMS_Sys(3)&ACTCMS.ACT_C(ModeID,6)&URL&ACTCMS.ACT_C(ModeID,11)
Else
URL= ACTCMS.ActCMS_Sys(2)&ACTCMS.ActCMS_Sys(3)&ACTCMS.ACT_C(ModeID,6)&URL&"/"
End If
Else
response.Write "<div style=""margin-left:179;height:25px""><li>文章是转向链接.系统没有生成</li></div> "
URL = Save_SQL("FileName")
End If
If ACTCMS.ACT_C(ModeID,9) = 2 Then
Dim FolderIDArr:FolderIDArr=Split(ACTCMS.GetClassNavStr(Save_SQL("ClassID")),",")
For I=0 To Ubound(FolderIDArr)
response.Write "<div align=center><iframe src=""../Include/ACT.L.asp?ModeID="&ModeID&"&RefreshFlag=ID&CID=" & FolderIDArr(i) &""" width=""0"" height=""0"" frameborder=""0""></iframe></div>"
Next
End If
End If
response.write "<div style=""margin-left:179;height:25px""><li>地址:<a target=""_blank"" href="&URL&">"&URL&"</a></div>"
ElseIf CLng(StrMakeHtml) = 0 Then
response.Write "<div style=""margin-left:179;height:25px""><li>系统没有选中立即生成 ID号为<font color=red>" & ID & "</font> 的文章没有生成!</li></div> "
Else
response.Write "<div style=""margin-left:179;height:25px""><li>系统未知错误</li></div> "
End If
if ACTCMS.ACT_C(ModeID,9)=>2 And Split(ACTCMS.ActCMS_Sys(4),".")(1)<>"asp" Then
response.Write "<div align=center><iframe src=""../include/MakeIndex.asp"" width=""0"" height=""0"" frameborder=""0""></iframe></div>"
End If
response.write "<div style=""margin-left:179;height:25px""><li>文章保存成功! <a href=ACT.Add.asp?ModeID="&ModeID&"><b>添加新文章</b></a> <a href=ACT.Manage.asp?ModeID="&ModeID&"><b><font color=red>返回管理首页</font></b></a></li></div>"
Save_SQL.close:set Save_SQL = Nothing
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -