| 以下是代码片段： <% '----------Html转换为文本:编辑时拿来做转换 Function Html2Text(Str1) If isNULL(Str1) Then Html2Text="" Exit Function End If Str1=Replace(Str1,"<"," <") Str1=Replace(Str1,">",">") Str1=Replace(Str1,"<br>",VBcrlf) Str1=Replace(Str1,""",chr(34)) Str1=Replace(Str1," "," ") Str1=Replace(Str1,"&","&") Html2Text=Str1 End Function '-------------------文本转换为Html:写入数据库时使用--------------- Function Text2Html(Str1) If isNULL(Str1) Then Text2Html="" Exit Function End If Str1=Replace(Str1,"&","&") Str1=Replace(Str1," <","<") Str1=Replace(Str1,">",">") Str1=Replace(Str1,VBcrlf,"<br>") Str1=Replace(Str1,chr(34),""") Str1=Replace(Str1,chr(9)," ") Str1=Replace(Str1," "," ") Text2Html=Str1 End Function %> |
留言反馈