去掉字符串中間空格的方法

Function xuankong(str)
Dim result
Dim j
j=len(str)
result=""
Dim i
For i=1 To j
Select Case mid(str,i,1)
Case ""<""
result=result+""<""
Case "">""
result=result+"">""
Case chr(34)
result=result+""
Case ""&""
result=result+""&""'以上代???一些html??　
Case chr(255)'防止特殊空格
result=result
Case chr(13)'防止回?符
result=result+""
Case chr(32)'防止?行符　
result=result+""
Case Else
result=result+mid(str,i,1)
End Select
Next
xuankong=result
End Function

這個是ASP實現，思路可用於JSP

public String filterHtml(String value){

value=value.replaceAll("&","&");
value=value.replaceAll("<","<");
value=value.replaceAll(">",">");
value=value.replaceAll(" "," ");
value=value.replaceAll("'","'");
value=value.replaceAll("/"",""");
value=value.replaceAll("/n","
");

}

在頁面中

string temp=filterHtml(request.getParameter(temp));