Help me !!waiting .......
大家好,想请教一个问题:请问怎么控制Textarea里面字体的格式呢,比如说,如果输入的文本有换行,入库后从库中读出的数据是换行的,空两格从库中读出来的数据是空两格的,请问怎么实现呢?偶先谢过啦 :)
输入的时候认为控制(如:回车,分段等)。输出的时候用上下面的格式函数:
<%
Function HTMLcode(fString)
If Not IsNull(fString) Then
fString = replace(fString, ">", ">")
fString = replace(fString, "<", "<")
fString = replace(fString, "&#", "<I>&#</I>")
fString = Replace(fString, CHR(32), "<I></I> ")
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), "</P><P> ")
fString = Replace(fString, CHR(10), "<BR> ")
HTMLcode = fString
End if
End Function
%>