这是俺输出大段文字时用的方法过程,你可以试试
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)