程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> 網頁編程 >> ASP編程 >> ASP技巧 >> ASP幾個實現與PHP相同功能的同名函數

ASP幾個實現與PHP相同功能的同名函數

編輯:ASP技巧

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

  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved