一个菜鸟问题：怎样保持框内的输入格式？

[zds0707]

[乱码]

<text area>其实提交上来的时候格式并没有变化，是在输出到html中的时候改变的。这是俺输出大段文字时用的方法过程
Sub Response.WriteHTMLCode(strValue)
'@author=乱码
'@date=2001年2月21日
'照原样输出，并按照HTML的格式编码
Dim chrTemp, bolResponse.WriteSpace
Dim i

If IsNull(strValue) Or strValue = "" Then
Response.Write " "
Exit Sub
End If
For i = 1 To Len(strValue)
chrTemp = Mid(strValue, i, 1)
Select Case chrTemp
Case Chr(32)
If bolResponse.WriteSpace Then
Response.Write " " 'Space
Else
Response.Write Chr(32)
bolResponse.WriteSpace = True
End If
Case vbTab
Response.Write "    "
bolResponse.WriteSpace = False
Case vbLf
Response.WriteLn "</br>"
bolResponse.WriteSpace = False
Case Else Response.Write Server.HTMLEnCode(chrTemp)
bolResponse.WriteSpace = False
End Select
Next 'i
End Sub 'Response.WriteHTMLCode(strValue)

[落入凡间的猪]

给你一个函数吧，用来替换的
比如content=request("content")
你可以用该函数:content=changechr(content)就可以了
<%function changechr(str)
changechr=replace(replace(replace(replace(str,"<","<"),">",">"),chr(13),"<br>")," "," ")
changechr=replace(changechr,"'","`")
end function
%>