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

　2009-05-04 10:40:29　来源：WEB开发网　闂備線娼уΛ鎾箯閿燂拷

濠电姭鎷冮崨顓濈捕闂侀潧娲ゅú銊╁焵椤掍胶鈯曢柕鍥╁仧缁辩偤鏁撻敓锟�闂備線娼уΛ鎾箯閿燂拷　　闂備胶枪缁绘鈻嶉弴銏犳瀬闁绘劖顐煎☉妯锋瀻闁归偊鍓涘▔姘舵⒑閸涘⿴娈旀繛灞傚妼閳绘捇骞嬪┑鎰濡炪倖姊婚崢褏鎲撮敓锟�

核心提示：<% function htmlspecialchars(someString) htmlspecialchars = replace(replace(replace(replace(someString, "&", "&"), ">", &q

<%　
function htmlspecialchars(someString)　
htmlspecialchars = replace(replace(replace(replace(someString, "&", "&"), ">", ">"), "<", "<"), """", """)　
end function　
　
function htmlspecialchars_decode(someString)　
htmlspecialchars_decode = replace(replace(replace(replace(someString, "&", "&"), ">", ">"), "<", "<"), """, """")　
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　
%>