简易的字符替换，可以用于用户自我介绍输入框，简单新闻回复& etc.

sub enter_click(sender as object,e as eventargs)

Dim myString As String

myString=Request("intro") '获取表单内容

myString=Replace(myString,chr(13),"

1<br/>

") '替换回车符

myString=Replace(myString,chr(32)," ") '替换空格符

myString=Replace(myString,chr(9),"    ") '替换Tab缩进符为4个空格

Message.Text=myString

end sub