ASP开发中几个实现与PHP相同功能的同名函数

<%    O96中国设计秀
function htmlspecialchars(someString)    O96中国设计秀
htmlspecialchars = replace(replace(replace(replace(someString, "&amp;", "&"), ">", ">"), "<", "<"), """", """)    O96中国设计秀
end function    O96中国设计秀
   O96中国设计秀
function htmlspecialchars_decode(someString)    O96中国设计秀
htmlspecialchars_decode = replace(replace(replace(replace(someString, "&", "&amp;"), ">", ">"), "<", "<"), """, """")    O96中国设计秀
end function    O96中国设计秀
   O96中国设计秀
sub echo(someText)    O96中国设计秀
        Response.Write Replace(someText, "n", vbCrLf)    O96中国设计秀
end sub    O96中国设计秀
   O96中国设计秀
function nl2br(someText)    O96中国设计秀
        nl2br = Replace(someText, vbCrLf, "<br />")    O96中国设计秀
end function    O96中国设计秀
   O96中国设计秀
Function wordwrap(str,width,breakString)    O96中国设计秀
 Dim words    O96中国设计秀
 Dim out, temp     O96中国设计秀
 Dim i,k    O96中国设计秀
 out = ""   O96中国设计秀
 words = Split(str," ")    O96中国设计秀
 For i = 0 To UBound(words)    O96中国设计秀
  If Len(words(i)) >= width Then   O96中国设计秀
   temp = ""   O96中国设计秀
   parola = words(i)    O96中国设计秀
   For k = 1 To Len(parola)    O96中国设计秀
    temp = Left(parola,k)    O96中国设计秀
    If len(temp)>=width Then   O96中国设计秀
     out = out & temp & breakString    O96中国设计秀
     parola = Right(parola,Len(parola) - width)    O96中国设计秀
     k = 1    O96中国设计秀
     temp = ""   O96中国设计秀
    End if    O96中国设计秀
   Next   O96中国设计秀
   out = out & temp & breakString    O96中国设计秀
  Else   O96中国设计秀
   out = out & words(i) & breakString    O96中国设计秀
  End If   O96中国设计秀
 Next   O96中国设计秀
 wordwrap = Trim(out)    O96中国设计秀
End Function   O96中国设计秀
%>O96中国设计秀