sub enter_click(sender as object,e as eventargs) Dim myString As String myString=Request("intro") '获取表单内容 myString=Replace(myString,chr(13)," ") '替换回车符 myString=Replace(myString,chr(32)," ") '替换空格符 myString=Replace(myString,chr(9)," ") '替换Tab缩进符为4个空格 Message.Text=myString end ...[ 查看全文 ]