|
新云标签使用说明
设置问题可参考下面
一：顶部频道设置问题 模板常规设置中设置显示频道菜单数和每行显示频道菜单数 二：采集不成功 采集功能只能采集文章，软件只能采集信息。已经采集过的文章或者软件不重复采集。 三：留言审核无法管理 此功能已完善，请下载最新补丁包。 四：首页加友情链接 添加完毕后要选择是否在首页显示，如果想文字与LOGO同时显示需要同时调用两个标签，一个LOGO的一个文字的。 五：下拉菜单解决方法 顶部模板中的调用JS菜单：<script src="/soft/js/classmenu.js" type="text/javascript"></script> 建议大家在解决问题时养成习惯：重新生成，更新缓存 六：下载服务器相关 下载软件是否显示下载地址(供会员使用工具下载)，可在用户组中设置 七：热门软件显示不正常： 已解决，20号前未更新的请从新官方下载补丁。 八： 如何统计其他频道的容量? 原来不支持其他频道统计， 重新下载官方提供的更新程序，覆盖inc目录即可！ 九：复制频道前台问题： 在模板管理中的"用户管理中心模板"里新增加一个菜单 然后把该菜单的ID修改为复制出来的频道ID号 模板相关： 1：友情链接审核设置： 模板样式总管理 -- 公共模板管理 -- (友情连接页面模板) 基本设置 3、申请友情连接是否需要审核 0=否,1=是 2：关于解压密码： 大家可以修改模板基本设置（有些东西不是程序问题，而是在模板中便可设置，不要忽略修改模板基本设置！） 统计标签说明 {$ReadStatistic(1,1,0,0)} 参数一、 所属模块 (0=用户，1=文章，2=软件，3=商城，4=留言，5=动画) 参数二、频道ID 参数三、所调用的分类ID或者软件类型 参数四、统计类型 (0=全部统计，1=今日更新统计，2=点击数统计，3=软件容量统计) 分享首页最新图片得滚动调用代码<td height="80" class="showbody1"><marquee οnmοuseοver="this.stop()" οnmοuseοut="this.start()">{$ReadArticlePic(1,0,0,0,10,10,12,0,120,90,1)}</marquee></td> 文章标题列表+导读内容 修改这里我将 ReadArticleList(...)增加了一个参数 ，所以如果你要使用这个函数，需要对原来调用的方式做一些修改 以上函数红色部分为我的修改部分，如果你要是用文章标题导读的功能，将以上函数覆盖原来的函数就可以了，原函数位 于 inc / cls_public.asp 中。 这里要注意的是 MainSetting(13)，MainSetting(25)，MainSetting(26) 这三个参数 MainSetting(13) 是原函数本有的参数，可以在 “常规设置 --〉模板样式总管理 --〉模板常规设置 --〉13项 这一项是文章标题列表的格式，MainSetting(25)，MainSetting(26)是新增加的, MainSetting(25)是带 导读内容 的标题 列表格式，就像我的网站的样式，可以参看一下 www.kixi.com.cn 的推荐文章的样式，MainSetting(26)是 导读内容 的 字数。因此，可能你在“模板常规设置”添加的不是25和26，所以函数当中就不能用 MainSetting(25)和MainSetting(26) 如果大家不太明白，多44吧，其实也很简单！ 最后，大家在模板中调用时，请参看下面的说明 原来的函数调用方法是： 如：{$ReadArticleList(1,0,0,1,3,36,0,0,0,2,1,hottitle1)} 修改后的调用方法 如：{$ReadArticleList(1,0,0,1,3,36,0,0,0,2,1,hottitle1,1)} 记得做好备份，出了问题不要怪我哦！ '================================================ '函数名：LoadArticleList '作 用：装载文章列表 '参 数：ClassID ----分类ID ' ChannelID ----频道ID ' SpecialID ----专题ID ' sType ----调用文章类型,0=所有最新文章，1=推荐文章，2=热门文章，3=图文文章，4=分类最新文章 ' TopNum ----显示文章列表数 ' strlen ----显示标题长度 ' ShowClass ----是否显示分类 ' ShowPic ----是否显示图文标题 ' ShowDate ----是否显示日期 ' DateMode ----显示日期模式 ' newindow ----新窗口打开 ' WithIntroduce -------是否加上导读内容 1=加上 0=不加 '================================================ Public Function LoadArticleList(ByVal ChannelID, ByVal ClassID, ByVal SpecialID, _ ByVal stype, ByVal TopNum, ByVal strLen, _ ByVal showclass, ByVal showpic, ByVal showdate, _ ByVal DateMode, ByVal newindow, ByVal styles, ByVal WithIntroduce) Dim Rs, SQL, i, strContent, foundstr Dim sTitle, sTopic, ChildStr, ListStyle, BestCode, BestString Dim ArticleTopic, ClassName, HtmlFileUrl, WriteTime, LinkTarget, HtmlFileName Dim sContent ChannelID = Newasp.ChkNumeric(ChannelID) If ClassID = "no" Then LoadArticleList = "该分类下暂时没有相关文章" Exit Function End If ClassID = Newasp.ChkNumeric(ClassID) SpecialID = Newasp.ChkNumeric(SpecialID) stype = Newasp.ChkNumeric(stype) On Error Resume Next Newasp.LoadChannel(ChannelID) If CInt(stype) >= 4 And CLng(ClassID) <> 0 Then SQL = "Select ChildStr FROM [NC_Classify] Where ChannelID=" & ChannelID & " And ClassID=" & ClassID Set Rs = Newasp.Execute(SQL) If Rs.BOF And Rs.EOF Then Set Rs = Nothing LoadArticleList = "" Exit Function Else ChildStr = Rs("ChildStr") End If Set Rs = Nothing Else ChildStr = "0" End If Select Case CInt(stype) Case 0: foundstr = "Order By A.Writetime Desc ,A.Articleid Desc" Case 1: foundstr = "And A.isBest > 0 order By A.Writetime Desc ,A.Articleid Desc" Case 2: foundstr = "Order By A.AllHits Desc ,A.Articleid Desc" Case 3: foundstr = "And (A.BriefTopic = 1 or A.BriefTopic = 2) order By A.Writetime Desc ,A.Articleid Desc" Case 4: foundstr = "And A.ClassID in (" & ChildStr & ") order By A.Writetime Desc ,A.Articleid Desc" Case 5: foundstr = "And A.ClassID in (" & ChildStr & ") And A.isBest > 0 order By A.Writetime Desc ,A.Articleid Desc" Case 6: foundstr = "And A.ClassID in (" & ChildStr & ") order By A.AllHits Desc ,A.Articleid Desc" Case 7: foundstr = "And A.ClassID in (" & ChildStr & ") And (A.BriefTopic = 1 or A.BriefTopic = 2) order By A.Writetime Desc ,A.Articleid Desc" Case Else foundstr = "Order By A.Writetime Desc ,A.Articleid Desc" End Select If CInt(stype) >= 4 And CLng(ClassID) = 0 Then foundstr = "Order By A.Writetime Desc ,A.Articleid Desc" End If If CLng(SpecialID) <> 0 Then foundstr = "And A.SpecialID =" & CLng(SpecialID) & " " & foundstr End If SQL = " A.ArticleID,A.ClassID,A.ColorMode,A.FontMode,A.title,A.BriefTopic,A.Content,80,A.AllHits,A.WriteTime,A.HtmlFileDate,A.isBest," SQL = "Select Top " & CInt(TopNum) & SQL & " C.ClassName,C.ColorModes,C.FontModes,C.HtmlFileDir,C.UseHtml FROM [NC_Article] A INNER JOIn [NC_Classify] C ON A.ClassID=C.ClassID Where A.isAccept>0 And A.ChannelID=" & ChannelID & " " & foundstr & "" 'YC Set Rs = Newasp.Execute(SQL) i = 0 If Rs.BOF And Rs.EOF Then strContent = "该分类还没有添加任何内容！" Else strContent = "<table width=""100%"" border=0 cellpadding=0 cellspacing=0>" Do While Not Rs.EOF If (i Mod 2) = 0 Then ListStyle = Trim(styles) & 1 Else ListStyle = Trim(styles) & 2 End If If Rs("isBest") <> 0 Then BestCode = 2 BestString = "<font color='" & Newasp.MainSetting(3) & "'>推荐</font>" Else BestCode = 1 BestString = "" End If If WithIntroduce = 1 Then strContent = strContent & Newasp.MainSetting(25) Else strContent = strContent & Newasp.MainSetting(13) End if If CInt(newindow) <> 0 Then LinkTarget = "target=""_blank""" Else LinkTarget = "" End If sTitle = Newasp.GotTopic(Rs("title"), CInt(strLen)) sTitle = Newasp.ReadFontMode(sTitle, Rs("ColorMode"), Rs("FontMode")) sContent = Left(Newasp.RemoveHtml(Rs("Content")),Newasp.MainSetting(26))&"..." sTopic = Newasp.ReadPicTopic(Rs("BriefTopic")) ClassName = Newasp.ReadFontMode(Rs("ClassName"), Rs("ColorModes"), Rs("FontModes")) HtmlFileName = Newasp.ReadFileName(Rs("HtmlFileDate"), Rs("ArticleID"), Newasp.ChannelHtmlExt, Newasp.ChannelPrefix, Newasp.ChannelHtmlForm, "") If CInt(Newasp.ChannelUseHtml) <> 0 Then HtmlFileUrl = Newasp.ChannelPath & Rs("HtmlFileDir") & Newasp.ShowDatePath(Rs("HtmlFileDate"), Newasp.ChannelHtmlPath) & HtmlFileName ClassName = "<a href='" & Newasp.ChannelPath & Rs("HtmlFileDir") & "index" & Newasp.ChannelHtmlExt & "'"& LinkTarget &">" & ClassName & "</a>" Else HtmlFileUrl = Newasp.ChannelPath & "show.asp?id=" & Rs("ArticleID") ClassName = "<a href='" & Newasp.ChannelPath & "list.asp?classid=" & Rs("ClassID") & "' "& LinkTarget &">" & ClassName & "</a>" End If If CInt(showclass) = 0 Then ClassName = "" If CInt(showpic) = 0 Then sTopic = "" If CInt(showdate) <> 0 Then WriteTime = Newasp.ShowDateTime(Rs("WriteTime"), CInt(DateMode)) Else WriteTime = "" End If if instr(styles,"title") <> 0 then ArticleTopic = "<a href='" & HtmlFileUrl & "'" & LinkTarget & " title='" & Newasp.ChannelModule & "标题：" & Rs("title") & " 发布时间：" & Rs("WriteTime") & " 阅览次数：" & Rs("AllHits") & "' class= " & styles & ">" & sTitle & "</a>" else ArticleTopic = "<a href='" & HtmlFileUrl & "'" & LinkTarget & " title='" & Newasp.ChannelModule & "标题：" & Rs("title") & " 发布时间：" & Rs("WriteTime") & " 阅览次数：" & Rs("AllHits") & "' class=showlist>" & sTitle & "</a>" end if strContent = Replace(strContent, "{$ArticleTopic}", ArticleTopic) strContent = Replace(strContent, "{$ArticleContent}", sContent) strContent = Replace(strContent, "{$ArticleID}", Rs("ArticleID")) strContent = Replace(strContent, "{$InstallDir}", Newasp.InstallDir) strContent = Replace(strContent, "{$ArticleTitle}", sTitle) strContent = Replace(strContent, "{$Title}", Rs("title")) strContent = Replace(strContent, "{$DateAndTitle}", Rs("WriteTime")) strContent = Replace(strContent, "{$BriefTopic}", sTopic) strContent = Replace(strContent, "{$HtmlFileUrl}", HtmlFileUrl) strContent = Replace(strContent, "{$ClassName}", ClassName) strContent = Replace(strContent, "[]", "") strContent = Replace(strContent, "{$Target}", LinkTarget) strContent = Replace(strContent, "{$WriteTime}", WriteTime) strContent = Replace(strContent, "{$AticleHits}", Rs("AllHits")) strContent = Replace(strContent, "{$ListStyle}", ListStyle) strContent = Replace(strContent, "{$BestCode}", BestCode) strContent = Replace(strContent, "{$BestString}", BestString) Rs.MoveNext i = i + 1 Loop strContent = strContent & "</table>" End If Rs.Close: Set Rs = Nothing LoadArticleList = strContent End Function '================================================ '函数名：ReadArticleList '作 用：读取文章列表 '参 数：str ----原字符串 '================================================ Public Function ReadArticleList(ByVal str) Dim strTemp, i Dim sTempContent, nTempContent Dim arrTempContent, arrTempContents, ArrayList On Error Resume Next strTemp = str If InStr(strTemp, "{$ReadArticleList(") > 0 Then sTempContent = Newasp.CutMatchContent(strTemp, "{$ReadArticleList(", ")}", 1) nTempContent = Newasp.CutMatchContent(strTemp, "{$ReadArticleList(", ")}", 0) arrTempContents = Split(sTempContent, "|||") arrTempContent = Split(nTempContent, "|||") For i = 0 To UBound(arrTempContents) ArrayList = Split(arrTempContent(i), ",") strTemp = Replace(strTemp, arrTempContents(i), LoadArticleList(ArrayList(0), ArrayList(1), ArrayList(2), ArrayList(3), ArrayList(4), ArrayList(5), ArrayList(6), ArrayList(7), ArrayList(8), ArrayList(9), ArrayList(10), ArrayList(11),ArrayList(12))) Next End If ReadArticleList = strTemp End Function 新云部分模板标签说明 {$SkinPath} 皮肤图片路径 {$ChannelRootDir} 频道目录路径 {$Version} 下载系统版本信息 {$WebSiteName} 网站名称 （在基本设置修改） {$WebSiteUrl} 网站URL （在基本设置修改） {$MasterMail} 管理员E-Meil（在基本设置修改） {$Keyword} 网站关键字 （在基本设置修改） {$Copyright} 网站版权信息 （在基本设置修改） {$Width} 定义主表格宽度 {$IndexPage} 默认首页文件名 {$Style_CSS} CSS样式 {$CurrentStation( -> )} 当前位置“()”中间是分隔符 {$PageTitle} HTML文件标题 {$TotalStatistics} 系统总统计 {$RenewStatistics} 更新信息统计 {$ReadStatistic(1,1,0,0)} {$ReadFriendLink(24,8,1,1)} {$ChannelMenu} 顶部频道菜单标签 {$ReadClassMenu(1,0,8,8,|,navbar)} {$AnnounceContent()} {$ReadGuestList(12,22,1,1,5,showlist)} {$ReadAnnounceList(0,12,22,1,1,2,1)} {$ReadClassMenubar(1,0,35,2,· )} {$ReadPopularArticle(1,0,3,24,10,1,_blank,·,showlist)} {$ReadPopularSoft(2,0,0,24,10,1,_blank,·,showlist)} {$ReadSoftType(2,国产软件,24,10,1,1,5,1,showlist)} 更多标签可以在模板管理---界面风格自动生成标签； 注： 如果觉得这些不够完整，可以参考如下方法来。 进入后台 模板样式总管理 然后进入相应的模板设置管理页面
生成标签 ，就是这里了，自己多摸索着学习下，不要动不动就问别人，相信你会有很大的收获的！ 例如你可以发现先面的一些调用函数： 最新更新{$ReadSoftList(2,0,0,0,17,36,1,1,5,1,showlist)} 1、频道ID2未知3未知4未知5、显示多少行6显示字符长度7、未知8、是否显 示日期（1=是，0=否）9、日期样式(0、1＝2006-8-20 3:13:34 2＝2006-08-20 3＝2006/08/20 4＝2006年08月20日 5＝08-19 6＝08/20 7＝08 月20日 8＝2006年08月 9＝2006-08 10＝2006/08)10、是否另打开页面(1＝另打开 0＝本页打开)11、样式名称 |
扫一扫
5677
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
