大家可以仔细看看现在本BBS的换行,不仅可以分段,而且可以有一定的缩进。这其实就是把留言中的特殊字符(如换行、空格、Tab等)替换为合适的字符。比如,换行(回车)符号的ASCII码为13,chr(13)就表示换行符号,但是HTML中并不认识换行符号chr(13)。所以就需要利用Replace函数将其中的chr(13)替换为HTML中的换行符号<br>或者<p>。例如:
content=replace(rs("bbscontent"),chr(13),"<br>")
考虑到一般开头需要空两格,所以会加一些空格进去。
content=" "&replace(trim(rs2(2)),chr(13),"<br> ")
这里, 是HTML标记中的空格。
上面替换完以后,能换行了,但是所有的段落都从第二个字符开始,可能有时候,对于程序代码,就没有正确缩进,所以还要将其中的空格(chr(32))再替换为 ,如:
content=replace(content,chr(32)," ")
但是,还有的缩进是利用Tab键进行的,在EditPlus中,一般有4个空格,所以,还要将其中的Tab键(chr(9))替换为 。如:
content=replace(content,chr(9)," ")
最后,还有一种需要考虑的,如果对方填写了HTML代码,在HTML中是会解释执行的,而我们通常不希望执行对方的代码。所以可以将其中的<转化为转义字符<,将>转换为>。如:
content=replace(content,"<","<")
content=replace(content,">",">")
将以上5句合起来就是我们现在的风格。
留言区(共0条)