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

%>