pjblog352版本ubb编辑器下code插入代码无法正常显示的解决方法

2010-01-17 1 条评论 5,805 次阅读 被赞了 0 次
本文发布于：2010-01-17，最后更新于：2017-03-23，如果内容失效请留言告知。

如题，pjblog352版本ubb编辑器下code插入代码无法正常显示，HTML标签会被解析。临时解决方法如下：（反正目前这个问题牵涉比较多，自己暂时就这样折中修改了）

编辑common/function.asp文件，查找如下函数代码：

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
Function UnCheckStr(ByVal Str)
    If IsNull(Str) Then
        UnCheckStr = ""
        Exit Function
    End If
    Str = Replace(Str, "'", "'")
    Str = Replace(Str, """, """")
    Str = Replace(Str, "<", "<")
    Str = Replace(Str, ">", ">")
    Dim re
    Set re = New RegExp
    re.IgnoreCase = True
    re.Global = True
    re.Pattern = "(w)(here)"
    Str = re.Replace(Str, "$1here")
    re.Pattern = "(s)(elect)"
    Str = re.Replace(Str, "$1elect")
    re.Pattern = "(i)(nsert)"
    Str = re.Replace(Str, "$1nsert")
    re.Pattern = "(c)(reate)"
    Str = re.Replace(Str, "$1reate")
    re.Pattern = "(d)(rop)"
    Str = re.Replace(Str, "$1rop")
    re.Pattern = "(a)(lter)"
    Str = re.Replace(Str, "$1lter")
    re.Pattern = "(d)(elete)"
    Str = re.Replace(Str, "$1elete")
    re.Pattern = "(u)(pdate)"
    Str = re.Replace(Str, "$1pdate")
    re.Pattern = "(s)(or)"
    Str = re.Replace(Str, "$1or")
    Set re = Nothing
    Str = Replace(Str, "&", "&")
    UnCheckStr = Str
End Function
</code>
在其下面添加如下函数代码：
<code>
Function UnCheckStr0(ByVal Str)
    If IsNull(Str) Then
        UnCheckStr0 = ""
        Exit Function
    End If
    Str = Replace(Str, "'", "'")
    Str = Replace(Str, """, """")
    Dim re
    Set re = New RegExp
    re.IgnoreCase = True
    re.Global = True
    re.Pattern = "(w)(here)"
    Str = re.Replace(Str, "$1here")
    re.Pattern = "(s)(elect)"
    Str = re.Replace(Str, "$1elect")
    re.Pattern = "(i)(nsert)"
    Str = re.Replace(Str, "$1nsert")
    re.Pattern = "(c)(reate)"
    Str = re.Replace(Str, "$1reate")
    re.Pattern = "(d)(rop)"
    Str = re.Replace(Str, "$1rop")
    re.Pattern = "(a)(lter)"
    Str = re.Replace(Str, "$1lter")
    re.Pattern = "(d)(elete)"
    Str = re.Replace(Str, "$1elete")
    re.Pattern = "(u)(pdate)"
    Str = re.Replace(Str, "$1pdate")
    re.Pattern = "(s)(or)"
    Str = re.Replace(Str, "$1or")
    Set re = Nothing
    Str = Replace(Str, "&", "&")
    UnCheckStr0 = Str
End Function

编辑文件class/cls_logAction.asp 查找以下代码：

查找如下代码：

       Temp1 = Replace(Temp1, "<$ArticleContent$>", UnCheckStr(UBBCode(HtmlEncode(log_View("log_Content")), Mid(log_View("log_ubbFlags"), 1, 1), Mid(log_View("log_ubbFlags"), 2, 1), Mid(log_View("log_ubbFlags"), 3, 1), Mid(log_View("log_ubbFlags"), 4, 1), Mid(log_View("log_ubbFlags"), 5, 1))))

修改为如下代码：(有两处)

Temp1 = Replace(Temp1, "<$ArticleContent$>", UnCheckStr0(UBBCode(HtmlEncode(log_View("log_Content")), Mid(log_View("log_ubbFlags"), 1, 1), Mid(log_View("log_ubbFlags"), 2, 1), Mid(log_View("log_ubbFlags"), 3, 1), Mid(log_View("log_ubbFlags"), 4, 1), Mid(log_View("log_ubbFlags"), 5, 1))))

查找：

Temp2 = Replace(Temp2, "<$log_Intro$>", UnCheckStr(UBBCode(log_View("log_Intro"), Mid(log_View("log_ubbFlags"), 1, 1), Mid(log_View("log_ubbFlags"), 2, 1), Mid(log_View("log_ubbFlags"), 3, 1), Mid(log_View("log_ubbFlags"), 4, 1), Mid(log_View("log_ubbFlags"), 5, 1))))

修改为：

Temp2 = Replace(Temp2, "<$log_Intro$>", UnCheckStr0(UBBCode(log_View("log_Intro"), Mid(log_View("log_ubbFlags"), 1, 1), Mid(log_View("log_ubbFlags"), 2, 1), Mid(log_View("log_ubbFlags"), 3, 1), Mid(log_View("log_ubbFlags"), 4, 1), Mid(log_View("log_ubbFlags"), 5, 1))))

在文件common/class.asp查找：

UnCheckStr

修改为：

UnCheckStr0

保存上传文件，后台更新缓存，静态重新生成

相关文章:

Default ThumbnailpjBlog升级附件基本设置出错Invalid use of Null: 'split'原因及解决 Default Thumbnailpjblog日志内分页功能 Default Thumbnailpjblog彻底删除验证码的方法 Default Thumbnailpjblog3中给每篇日志右下角加上"返回顶部" Default ThumbnailPJBlog3上传图片水印功能的修改方法 Default Thumbnailpjblog超酷的防刷Flash MP3 播放器插件(8-10增加对侧边栏是否防刷页面判断) Default Thumbnailpjblog安装插件时发生错误,错误代码: -2147024893 Default Thumbnail教你实现pjblog博客日志自动朗读的功能 Default Thumbnailpjblog实现文章页动态关键字 Default Thumbnailpjblog添加使用FCK编辑器增强版+谷歌地图插件 Default Thumbnailpjblog352版本文章内JavaScript等脚本无法正常显示之临时解决办法 Default Thumbnailpjblog全静态化与动态/半静态模式互相转换后的URL网址跳转处理问题
点赞 (0)
知识共享许可协议
本作品采用 知识共享署名-相同方式共享 4.0 国际许可协议 进行许可
  1. 啊啊啊说道：
    2011年12月12日 9:02 下午

    这是什么啊…一点留言就换成这样了.楼主的BBLOG程序有问题….另外…你最后那个代码好像写错了,

    把UnCheckStr0

    改成UnCheckStr0

    ???我看不出来有什么变化呢.
    [reply=任侠,2011-12-14 10:04 AM]确实，笔误
    这里其实就是把对UnCheckStr函数的调用改为新添加的UnCheckStr0函数[/reply]

    回复

发表回复

您的邮箱地址不会被公开。 必填项已用 * 标注

Captcha Code