怎样将录入的信息“格式化”

xiantao123 2003-09-25 04:48:00

我是ASP初学者，我在编写留言板代码时遇到这样一个问题：
我想将留言内容按我输入的排版格式输入，请问怎么办？

...全文

67 5 打赏收藏转发到动态举报

写回复

用AI写文章

5 条回复

切换为时间正序

请发表友善的回复…

发表回复

xiantao123 2003-09-26

打赏
举报

谢谢家和万事兴，但是这只是把回车替换出来了，那空格怎么替换，一些html的特殊字符怎么替换，我查阅资料了，可是没找到，再次请教各位高手！！，

chonboy 2003-09-26

打赏
举报

str=Server.HTMLEnCode(str)

stefli 2003-09-26

打赏
举报

str=request.form("str")
encodestr=replace(replace(replace(replace(str,"<","<"),">",">")," "," "),vbCrLf," ")

response.write encodestr
就可以得到你所要的了。

xiantao123 2003-09-26

打赏
举报

这位大侠，你的函数好象不好使，我试过了。
我找到下面的一组代码，请麻烦帮我检查一下，我有的地方还有些看不懂，不会的地方我注释一下。
function DelHtml(str)
Dim tempStr
tempStr=str
If Not IsNull(tempStr) Then
tempStr=Replace(tempStr,"<","<")
tempStr=Replace(tempStr,">",">")
tempStr=Replace(tempStr,"&#","&#") '************
tempStr=Replace(tempStr,"'","'") '************
tempStr=Replace(tempStr,"""",""")
tempStr=Replace(tempStr,Chr(13),"") '*************
tempStr=Replace(tempStr,Chr(10)," ")
tempStr=Replace(tempStr,Chr(32)," ") '这行和下一行有什么区别
tempStr=Replace(tempStr,Chr(9)," ")
DelHtml=tempStr
End If
end function