木子屋
 

标题: textarea内容的格式控制

作者: dnawo

日期: 2007-01-10 03:30 PM

分类: Web编程

内容: textarea中能够用于格式控制的也就只有回车、换行和空格，如果不进行处理直接保存到数据库，显示在页面时这些格式将基本丢失。为了能将这些少得可怜的格式正确显示于页面上，通常我们得自定义一个函数对其传到服务器上的内容进行转换后再保存至数据库，函数如下：
复制内容到剪贴板 程序代码
Function HTMLEncode(ByVal reString)
    Dim Str:Str=reString
    If Not IsNull(Str) Then
           Str = Replace(Str, ">", ">")
        Str = Replace(Str, "<", "&lt;")
        Str = Replace(Str, CHR(9), "&#160;&#160;&#160;&#160;")
        Str = Replace(Str, CHR(32), "&nbsp;")
        Str = Replace(Str, CHR(39), "&#39;")
        Str = Replace(Str, CHR(34), "&quot;")
        Str = Replace(Str, CHR(13), "")
        Str = Replace(Str, CHR(10), "<br/>")
        HTMLEncode = Str
    End If
End Function
这样转换后在页面中总算能正常显示了，可是当要修改再将内容读取到textarea时，你会发现多了好多的<br/>、&nbsp;等字符，及不利于再次编辑，所以我们得再写一个和上面那个函数作用相反的函数来解决问题：
复制内容到剪贴板 程序代码
Function HTMLDecode(ByVal reString)
    Dim Str:Str=reString
    If Not IsNull(Str) Then
        Str = Replace(Str, "&gt;", ">")
        Str = Replace(Str, "&lt;", "<")
        Str = Replace(Str, "&#160;&#160;&#160;&#160;", CHR(9))
        Str = Replace(Str, "&nbsp;", CHR(32))
        Str = Replace(Str, "&#39;", CHR(39))
        Str = Replace(Str, "&quot;", CHR(34))
        Str = Replace(Str, "", CHR(13))
        Str = Replace(Str, "<br/>", CHR(10))
        HTMLDecode = Str
    End If
End Function
OK，这下可以保证添加、修改和显示时都是一个样子了！^_^

+ 查看当前日志评论 (1)

 

登录

────────────

木子屋

PJBlog3 v3.2.9.518 Inside.

Processed In 0.039 ms

标题: textarea内容的格式控制

你没有权限发表评论

────────────

木子屋

PJBlog3 v3.2.9.518 Inside.

Processed In 0.039 ms

暂无评论

返回

────────────

木子屋

PJBlog3 v3.2.9.518 Inside.

Processed In 0.039 ms