官方9.5系统支持多种风格的幻灯了，是件好事，但是这么大改动竟然还不支持广告系统幻灯，，不明白，所以自己动手修改修改，，，
环境：KesionEshop V9.5.131216 Free(UTF-8)
1、打开admin/include/addfunctionlabel.asp文件，将第53行的
<a href="Label/GetSlide.asp?from=bloginfo&FolderID=<%=FolderID%>&<%=KS.QueryParam("FolderID")%>" Target="LabelShow">博文幻灯调用</a>
修改为：
<a href="Label/GetSlide.asp?from=bloginfo&FolderID=<%=FolderID%>&<%=KS.QueryParam("FolderID")%>" Target="LabelShow">博文幻灯调用</a><br />
<a href="Label/GetSlide.asp?from=ad&FolderID=<%=FolderID%>&<%=KS.QueryParam("FolderID")%>" Target="LabelShow">广告模块幻灯调用</a>
2、打开admin/include/label/GetSlide.asp文件，在第73行If ChannelID=-1001 Then From="bloginfo"下加上：
If ChannelID=-1100 Then From="ad"
在第203行左右var DocProperty='000000';语句下加上：
<%ElseIf From="ad" then%>
var ChannelID=-1100;
var SpecialID='0';
var DocProperty='000000';
在第393行左右，.echo "<input type='checkbox' name='MutileClass' id='MutileClass' value='1'>指定多个博文分类</td></tr>"语句下面加上：
ElseIf From="ad" Then
.echo " <tr>"
.echo " <td height=""24"" colspan=""4"" style=""text-align:center""><strong>广告系统幻灯片调用标签</strong></td></tr>"
.echo " <tr id=""ClassArea"">"
.echo " <td height=""24"" colspan=""4"">指定广告位 "
.echo "<select name='ClassList' id='ClassList'>"
Set Rs = Conn.Execute("SELECT place,placename,placehei,placewid FROM KS_ADPlace ORDER BY place")
Do While Not Rs.EOF
Response.Write "<option value=""" & Rs("place") & """ "
If KS.ChkClng(ClassID)=KS.ChkClng(RS("place")) Then Response.Write "selected"
Response.Write ">"
Response.Write Rs("placename") & " (尺寸：" & RS("placewid") & "*" & RS("placewid") & ")</option>" & vbCrLf
Rs.movenext
Loop
Rs.Close
Set Rs = Nothing
.echo "</select>"
3、打开KS_Cls/Kesion.Label.FunctionCls.asp文件，在971行左右
ElseIf ModelID="-1001" Then
.
.
.
Else
的Else上面增加：
ElseIf ModelID="-1100" Then
TableName = "[KS_Advertise]" : FieldStr="id,sitename as title,sitename as intro,-1100 as channelid,gif_url as photourl,url" : Param=" Where xslei='gif' And act=1 And place="&ParamNode.getAttribute("classid")
在1041行左右，
ElseIf Cint(ModelID)=-1001 Then
LinkUrl=GetLogUrl()
语句下增加：
ElseIf Cint(ModelID)=-1100 Then
LinkUrl=Node.SelectSingleNode("@url").text
至此，修改结束，虽然可以修改好，但是还是期待官方能够支持啊，，，