ASP幾個實現與PHP相同功能的同名函數

<%   
function Htmlspecialchars(someString)   
Htmlspecialchars = replace(replace(replace(replace(someString, "&amp;", "&"), ">", ">"), "<", "<"), """", """)   
end function   
  
function Htmlspecialchars_decode(someString)   
Htmlspecialchars_decode = replace(replace(replace(replace(someString, "&", "&amp;"), ">", ">"), "<", "<"), """, """")   
end function   
  
sub echo(someText)   
        Response.Write Replace(someText, "\n", vbCrLf)   
end sub   
  
function nl2br(someText)   
        nl2br = Replace(someText, vbCrLf, "<br />")   
end function   
  
Function Wordwrap(str,width,breakString)   
 Dim Words   
 Dim out, temp    
 Dim i,k   
 out = ""  
 Words = Split(str," ")   
 For i = 0 To UBound(Words)   
  If Len(Words(i)) >= width Then  
   temp = ""  
   parola = Words(i)   
   For k = 1 To Len(parola)   
    temp = Left(parola,k)   
    If len(temp)>=width Then  
     out = out & temp & breakString   
     parola = Right(parola,Len(parola) - width)   
     k = 1   
     temp = ""  
    End if   
   Next  
   out = out & temp & breakString   
  Else  
   out = out & Words(i) & breakString   
  End If  
 Next  
 Wordwrap = Trim(out)   
End Function