为自己的ASP网站系统构建一套标记语言

发布: 2008-6-27 11:50 | 作者: admin | 查看: 4次

　　作为动态网站在建设过程中难免遇到在线编辑文章的问题。HTML提供了一个textarea标记，但是实际上没有解决这个问题，因为从textarea的是纯文本。除非在输入的时候使用了HTML标记，否则在输出的时候将获得从头到尾毫无结构的一盘文字。Web设计中通过DHTML构建一类所见即所得的在线编辑器对这个问题有了很好的解决。

　　但是所见即所得并不是唯一的解决办法。笔者在上网过程中发现一些门户网站的在线编辑器非常有特色。它并不是所见即所得（但是提供了一个预览功能），而是一个textarea的文本域，但是又不支持HTML标记语言。而是有它自己的一套标记语言。

图1

图2

　　笔者使用觉得非常流畅，总结其优点如下：

　　第一，它的标记不多，相对于HTML而言非常简单，而且通过回车可以自动生成段落，容易被一般用户所接受。笔者认为如果使用中文标记，可以被更多国内用户接受。

　　第二，相对所见即所得的编辑器而言用户更能掌握自己的文章结构，生成乱码少。

　　第三，可见性相对于HTML而言要好得多，加上预览功能后更佳。

　　第四，由于自己的标记语言不支持脚本，因而是更安全的.

　　经过笔者一番思考和实践，现把构建这种属于自己的标记语言的方法公示：

　　首先，我们为自己的网站确定一套简单而必要的标记语言。确定时把一些不必要的省略。拿我而言，我为自己的网站确定的标记语言如下：

　　[图片]图片的网址[/图片]

　　[大标题]文字内容[/大标题]

　　[小标题]文字内容[/小标题] (考虑到用户可能会细分所以加上)

　　[粗体]文字内容[/粗体]

　　[斜体]文字内容[/斜体]

　　[链接]网址[/链接]

　　然后，提供一定的机制，让浏览器读懂我们的标记.那么，怎么让浏览器读懂我们自己确定的标记呢? 在内容显示的页面，我们需要写一个程序将我们的所有标记翻译成为标准的HTML标记，但是此前必须过滤掉用户输进来的HTML代码。

　　第一步：过滤HTML代码.

　　这个其实很简单，只要将所有的 “<” 标签替换为 “<” ，另外把所有 “>” 替换为 “>” 就可以了。在ASP中通过如下语句实现：

Content=replace(content，”<”，”<”)

Content=replace(content，”>”，”>”)

　　(以上代码中，content是储存了我们要显示的内容的变量，下文中若出现也表示一样的意思。)

　　第二步：将我们的标记翻译为HTML

　　这个相对复杂一些，因为并不是简单的将所有[标签替换为<和]替换为>然后将里面的中文（比如图片）翻译为英文（比如IMG）就可以的。原因有两个：

　　1 是我们的标记里面的内容，根据不同的分类需要做不同的处理:

　　第一类，直接显示给用户的，比如:

[大标题]文字[/大标题]

　　此时确实是只要将标签翻译成相应的英文，比如上面的标记翻译为

文字

就可以了.

　　第二类，不直接呈现给用户的，比如:

[图片]图片网址[/图片]

　　此时，标签中间的内容”图片网址”只是我们要显示的网址，在HTML中是作为标签的SRC属性，而且这个标签在HTML中是不要结尾标签的.所以直接翻译的结果是肯定错误的.

　　第三类，直接呈现同时又作为属性，比如:

　　[链接]网址[/链接]

　　2 是并非所有出项标记的地方都是要翻译的，比如，有时候用户需要用符号”[“和符号”]”来表现他们的内容，而这时候如果将这样的标记翻译为”<”和”>”肯定不是符合用户的心意的。

　　分析了出现的问题，笔者将在下面给出编写程序的思路参考和一个参考的程序.

　　由于不同的标签需要的翻译方式不一样，所以必须针对不同的标签，一个个的翻译.

　　对于任何单个的标记，一篇文章内可能出现多此，也可能一次也不出现，程序应当从头到尾首先检查某一标记的开始标记(比如对”图片]图片地址[/图片]”是”[图片]”)出现的位置，一旦检查到了，然后从那个位置开始检查结束标记，如果也检查到了，则说明这是我们要的标记;如果结束标记没有检查到，那么说明那不是我们要的标记，而只是用户自己展示的内容。检查到之后，将标记翻译为HTML标记，并根据不同类型对标记中的内容作不同的处理.坐完以后从结束标记的位置又继续检查，直到文章结束。

　　实际编写中，需要用到递归的思想.下面给出翻译[图片]图片地址[/图片]这个标记的范例程序.

Function TranslateImg(Str)

　Start=instr(str，”[图片]”) ‘检查标记的开始位置

　If start=0 then exit function ‘开始位置为0，表示没有这个标记，那么程序结束

　End=instr(start，str，”[/图片]” ‘检查继该开始位置之后所出现的结束标记位置

　If end=0 then exit function ‘结束标记出现位置为0，表示没有结束标记，程序结束

　MidStr=mid(str，start+4，end-start-4) ‘标记中间的内容

　ReplaceStr=mid(str，start，end-start+5) ‘标记中间的内容加上标记，作为将要替换的内容

　Str=replace(instr，ReplaceStr，””) ‘将标记翻译为HTML