<!--1.htm-->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
" http://www.w3.org/TR/html4/loose.dtd ">
<html>
<cabeça>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
</head>
<corpo>
<form name="form1" method="post" action="t.asp">
<p>
<textarea name="textarea" cols="50" rows="10"></textarea>
</p>
<p> <input type="submit" name="Enviar" value="提交">
<input type="reset" name="Submit2" value="重置">
</p>
</form>
</body>
</html>
<!--t.asp-->
< %@LANGUAGE="VBSCRIPT " CODEPAGE="936"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" " http://www.w3.org/TR/html4/loose.dtd ">
<html>
<cabeça>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
</head>
<corpo>
<%
escurecer mensagem
msg=request.Form("área de texto")
mensagem=substituir(msg,vbcrlf,"<br>")
msg=substituir(msg," "," ")
resposta.write mensagem
%>
</body>
</html>