作者：未知 来源：月光软件站 加入时间：2005-6-5　月光软件站

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),"&nbsp;")    '替换空格符

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

                     Message.Text=myString

end sub

相关软件：