<% dim msg msg=request.Form("textarea") '将表单中TEXTAREA控件中的值赋给变量 msg=replace(msg,vbcrlf,"<br>") '将字符串中的所有回车换行替换成 <br> msg=replace(msg," "," ") '将字符串中所有空格替换成 response.write msg '打印 %>
28,390
社区成员
357,068
社区内容
加载中
试试用AI创作助手写篇文章吧