·您现在的位置： 云翼网络 >> 文章中心 >> 网站建设 >> 网站建设开发 >> ASP网站建设 >> ASP几个实现与PHP相同功能的同名函数

【如有意向点此提交需求】关于我们

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

作者：佚名      ASP网站建设编辑：admin      更新时间：2022-07-23
<%   
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  
%>