Help me !!waiting .......

[复制链接]

緣妢_兲紸龍

电梯直达

1^#

发表于 2010-1-14 03:14:33 | 只看该作者回帖奖励

|倒序浏览 |阅读模式

大家好，想请教一个问题：
请问怎么控制Textarea里面字体的格式呢，比如说，如果输入的文本有换行,入库后从库中读出的数据是换行的，空两格从库中读出来的数据是空两格的，请问怎么实现呢？偶先谢过啦 :)

收藏0

使用道具举报

[日青](忝)

2^#

发表于 2010-1-14 03:14:37 | 只看该作者

输入的时候认为控制（如：回车，分段等）。输出的时候用上下面的格式函数：
<%
Function HTMLcode(fString)
If Not IsNull(fString) Then
fString = replace(fString, ">", ">")
fString = replace(fString, "<", "<")
fString = replace(fString, "&#", "&#")
fString = Replace(fString, CHR(32), " ")
fString = Replace(fString, CHR(9), " ")
fString = Replace(fString, CHR(34), """)
fString = Replace(fString, CHR(39), "'")
fString = Replace(fString, CHR(13), "")
fString = Replace(fString, CHR(10) & CHR(10), " ")
fString = Replace(fString, CHR(10), " ")
HTMLcode = fString
End if
End Function
%>