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

2019-11-17 04:14:18

字体：大中小

来源：转载

供稿：网友

<%
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
%>

上一篇：PHP编程:巧妙获得网站访客的真实IP

下一篇：Apache下,*.php.rar格式的文件被当成php执行？