sub enter_click(sender as object,e as eventargs) Dim myString As String myString=Request("intro") '获取表单内容 myString=Replace(myString,chr(13),"<br>") '替换回车符 myString=Replace(myString,chr(32)," ") '替换空格符 myString=Replace(myString,chr(9)," ")'替换Tab缩进符为4个空格 Message.Text=myString end sub
有空格类推:
string str = 取出你数据库的内容str.replace(" "," ")
string str = 取出你数据库的内容str.replace("\r\n","<br>")str.replace(" "," ")
Dim myString As String
myString=Request("intro") '获取表单内容
myString=Replace(myString,chr(13),"<br>") '替换回车符
myString=Replace(myString,chr(32)," ") '替换空格符
myString=Replace(myString,chr(9)," ")'替换Tab缩进符为4个空格
Message.Text=myString
end sub
----------------------------
你保证在输入的时候将回车换行替换成了("/r/n"),直接输出就应该没问题