想实现留言如果有换行的话,那么显示的时候也有换行.

[boy7420]

我做的留言本,想实现留言时是什么样子,显示时还是什么样子
咋实现?
见笑了!

[lienzhu]

显示时通过下面函数转换一下

function HTMLEncode(fString)
if isnull(fString) then
HTMLEncode =""
exit function
end if
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), "</P><P> ")
fString = Replace(fString, CHR(10), "<BR> ")
HTMLEncode = fString
end function

[888228]

我也送你个~


Function ReplaceStr(Str)
Str=Trim(Str)
Str=Replace(Str,"'","'")
Str=Replace(Str,";",";")
Str=Replace(Str," "," ")
Str=Replace(Str,"""","”")
Str=Replace(Str,"%","")
Str=Replace(Str,"__","")
Str=Replace(Str,"--","--")
Str=Replace(Str,"\","\")
Str=Replace(Str,"?","")
Str=Replace(Str,vbcrlf,"<br>")
ReplaceStr=Str
End Function

[boy7420]

谢谢两位.

[love751314]

看来我只有帮忙顶一下了！