作为动态网站在建设过程中难免遇到在线编辑文章的问题。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 是我们的标记里面的内容，根据不同的分类需要做不同的处理:
第一类，直接显示给用户的，比如:
[大标题]文字[/大标题]
此时确实是只要将标签翻译成相应的英文，比如上面的标记翻译为<h1>文字</h1>就可以了.
第二类，不直接呈现给用户的，比如:
[图片]图片网址[/图片]
此时，标签中间的内容”图片网址”只是我们要显示的网址，在HTML中是作为<IMG>标签的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，”<img src=”&MidStr&”>”) ‘将标记翻译为HTML TranslateImg Str ‘递归执行该函数 End Function |
