新云系统使用技巧大全

1、如何让大类列表的文章标题显示该文章所属的小类名称？

标签：{$ClassifyName}。

2、文章标题后面跟分类名称或分类注释是怎么做的？

标签: {$CurrentClass}，只能放在信息页。列表页可采用{$PageTitle}，后面可以加上相关信息，在列表页模板的基本设置第11项相关信息。

3、软件简介在列表页去掉空格的问题（英文空格去掉了，中文好像没问题）

简介去掉空格的问题，在inc/cls_main.asp
找到HtmlStr = Replace(HtmlStr, " ", "")
替换为
HtmlStr = Replace(HtmlStr, " ", " ")

4、让一级分类和二级分类列表显示相同的效果

在当前模板 (软件列表页面模板) 基本设置

是否树型显示父类列表；0=否，1=是 （改为 9）

最多显示多少父级分类   (改为 999)

文章频道设置方法相同。

5、在采集设置第一步里设置“内容过滤设置”无效的问题

在采集设置第一步里设置“内容过滤设置” SCRIPT IFARME OBJECT APPLET DIV FONT SPAN A IMG FORM

HTML。但采集回来一个都没过滤掉。原因：admin/Admin_SoftGather.asp第2个“Dim

RemoveCode, startcode, lastcode”，RemoveCode是记录要过滤的内容的变量，这里重新定义了一次，

使得原内容清空了。解决方法：把第二个“Dim RemoveCode, startcode, lastcode”改为“Dim startcode,

lastcode” OK。3.0最新版的也有问题，经过测试有效。

6、怎么让新云系统支持UTF-8字符以及多国语扩展？

把所有的文本文件转成UTF-8格式,计本修改的方法是：用计事打开一个文件，另存为，编码改UTF-8

然后打开conn.asp修改第一行，CodePage = 936改为CodePage = 65001

然后打开inc/cls_main.asp找到CreatedTextFile函数，改为CreatedTextFile2

再查找CreatedTextFiles改为CreatedTextFile，将里面的GB2312改为UTF-8

然后打其它的文件将里面的GB2312全部改为UTF-8（这要你一个个的去找了，也可以找一个字符串替换的

功能来完成）

最后修改模板，把里面的GB2312改为UFT-8

如果你懂一点点ASP就非常简单，不懂就慢慢消化吧

以上操作可以用工具完成，字符串替换工具和文件转换工具（ANSI转UTF-8），工具可以到网上去找

祝您好运~~!

这是新云老大的原话，不过我按他的方法改了以后，基本正常，还是有少量的问题，后台我仔细考虑了一下，我根本不需要把所有的文件都换成utf-8，我只需要我生成的静态html是utf-8编码就ok了啊

所以只需要改这里：打开inc/cls_main.asp找到CreatedTextFile函数，改为CreatedTextFile2

再查找CreatedTextFiles改为CreatedTextFile，将里面的GB2312改为UTF-8。ok了。

7、采集软件的时候，设定了软件大小的采集，但是有时仍然出问题？

我今天碰到的问题，问题出在哪里呢？有一个采集站开始采集是可以采集软件大小的，后来不行了，我再去看没有成功的页面，源代码，哦，原来那边开始大小是这样写的 123KB，123MB，这样是没有问题了，可是以前是这样写的123(Kbytes)，123(Mbytes)，这样就出问题了哈，那就是采集过滤函数的问题了，找到/admin/include/collection.asp里面的相关函数，

'格式化文件大小KB
Public Function FormatSize(ByVal strFileSize)

Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(UCase(strFileSize), "BYTE", ""), "K", ""), "M", ""), "G", ""), "B", ""), "S", ""), " ", ""), " ", ""), vbNewLine, ""), Chr(-24159), ""), Chr(9), ""), Chr(11), "")

替换为

valFileSize = Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(UCase(strFileSize), Chr(41), ""), Chr(40), ""), "BYTE", ""), "K", ""), "M", ""), "G", ""), "B", ""), "S", ""), " ", ""), " ", ""), vbNewLine, ""), Chr(-24159), ""), Chr(9), ""), Chr(11), "")

yes，少过滤了2个括号就出问题了，加上就好了，知道原理就好办了，以后要还有什么多余的没过滤就再加。

文章来自: 本站原创
引用通告: 查看所有引用 | 我要引用此文章
Tags:
相关日志: