【bug】：文章编辑写入tags未加入模型ID
【解决方法】：admin/act_mode/act.save.asp文件第121行，原 If Tags = 1 Then Call ACTCMS.AddTags(1,Keywords)
改为：If Tags = 1 Then Call ACTCMS.AddTags(ModeID,Keywords)
【左岸意见】：请左岸答复
-----------------------------------------------------------
【建议】：{=GetTags(Tags数量,排序方式)}标签增加模型类型参数：{=GetTags(Tags数量,排序方式,模型)}，模型=0：所有模型tags,模型=-1：当前模型，模型>0:指定模型ID
【解决方法】：act_int/act.code.asp文件
第156行改为：FileContent = Replace(FileContent, HtmlLabelArr(I), GetTags(Param(0),Param(1),Param(2)))
第208行改为：Function GetTags(Num,TagType,mode)
第211行相应代码行改为：
dim sqlstr,sql,i,n,str,modesql
mode=cint(mode)
if mode<0 then modesql="ModeID="&Application(AcTCMSN & "ModeID")
if mode=0 then modesql="ModeID>0"
if mode>0 then modesql="ModeID="&mode

select case cint(tagtype)
case 1:sqlstr="select top "&Num&" TagsChar,ModeID from Tags_ACT where "&modesql&" order by hits desc"
case 2:sqlstr="select top "&Num&" TagsChar,ModeID from Tags_ACT where "&modesql&" order by ClicksTime desc,ID desc"
case 3:sqlstr="select top "&Num&" TagsChar,ModeID from Tags_ACT where "&modesql&" order by AddTime desc,ID desc"
Case Else : sqlstr="select top "&Num&" TagsChar,ModeID from Tags_ACT where "&modeslq&" order by hits desc"
【左岸意见】：请左岸答复
-----------------------------------------------------------
【建议】：tags关键词可使用空格分割，因为输入法中文输入时默认逗号为大写，很不方便，使用空格会很方便。
【解决方法】：act_int/act.main.asp文件第1216行后增加 Keyword = Replace(Keyword," ",",")
【左岸意见】：请左岸答复
-----------------------------------------------------------
【建议】：后台增加站内挂马检测（可仿科讯cms）
【左岸意见】：请左岸答复
-----------------------------------------------------------
【建议】：投票系统模板与代码分离
【左岸意见】：请左岸答复
-----------------------------------------------------------
【强烈建议】：用户中心系统模板与代码分离
【左岸意见】：请左岸答复
-----------------------------------------------------------
【强烈建议】：上传文件管理 增加一键删除无链接文件功能
【左岸意见】：请左岸答复
-----------------------------------------------------------
【建议】：自动提取内容中的图片为缩略图
【解决方法】：adimn/act_mode/act.save.asp文件中远程存图代码段： If CInt(SavePic) = 1 And CInt(actlink) <> 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)
Call GetPicUrl(Content)''自动提取内容图片为缩略图
End If

Function GetPicUrl(Byval ContentHTML)''提取内容图片生成缩略图
If PicUrl<>"" Then : Exit Function
Dim RegEx,Matches,Match,PicY,PicPath,PicName,TempStr,ext
Set RegEx = New RegExp
RegEx.Ignorecase = True
RegEx.Global = True
RegEx.Pattern = ACTCMS.ACT_C(ModeID,8)& "(.+?)\.(jpeg|gif|jpg|png|bmp)"
Set Matches =RegEx.Execute(ContentHTML)

For Each Match in Matches
If Len(Match.Value) > 0 Then
TempStr = TempStr&Match.Value&","
End If
Next
If TempStr <> "" Then
PicY = ACTCMS.ActSys&Split(TempStr,",")(0) ''取内容首个图片路径
TempStr = Split(PicY,"/")
PicName = TempStr(Ubound(TempStr)) ''取图片文件名
PicPath = Left(PicY,Len(PicY)-Len(PicName)) ''取图片路径
TempStr = Split(PicName,".") ''取图片类型
ext = TempStr(Ubound(TempStr))
PicUrl = PicPath&"Thum_"&PicName ''定义缩略图路径及名称

Dim W:Set W = New CreateView
Call W.CreateView(PicY,PicUrl,ext) ''生成缩略图文件
Set W=Nothing

PicUrl = PicPath&"Thum_"&PicName
End If
End Function

【左岸意见】：请左岸答复
-----------------------------------------------------------
【建议】：源图片比设定缩略图小而不能取得缩略图 5月3日
【解决方法】：act_int/CreateView.asp文件约492行
If ImageObj.OriginalWidth<View_ImageWidth or ImageObj.Originalheight<View_ImageHeight Then
''TempFilename = ""
''Exit Sub
''-----------------增加--------------------
View_ImageWidth=ImageObj.OriginalWidth
View_ImageHeight=ImageObj.Originalheight
End If
''--------------------------------------------
''Else
If ImageObj.Width > ImageObj.height Then
ImageObj.Width = View_ImageWidth
ImageObj.Height = ViewImage_Height(ImageObj.OriginalWidth,ImageObj.Originalheight,View_ImageWidth,View_ImageHeight)
Else
ImageObj.Width = ViewImage_Width(ImageObj.OriginalWidth,ImageObj.Originalheight,View_ImageWidth,View_ImageHeight)
ImageObj.Height = View_ImageHeight
End If
ImageObj.Sharpen 1, 120
ImageObj.Save Server.MapPath(TempFilename) ''// 生成预览文件
''End If
End Sub
-----------------------------------------------------------------------------------------------