devxlogo

HTMLEncode – Encode a string so that it can be displayed in a browser

HTMLEncode – Encode a string so that it can be displayed in a browser

' Encode an string so that it can be displayed correctly' inside the browser.'' Same effect as the Server.HTMLEncode method in ASPFunction HTMLEncode(ByVal Text As String) As String    Dim i As Integer    Dim acode As Integer    Dim repl As String    HTMLEncode = Text    For i = Len(HTMLEncode) To 1 Step -1        acode = Asc(Mid$(HTMLEncode, i, 1))        Select Case acode            Case 32                repl = " "            Case 34                repl = """            Case 38                repl = "&"            Case 60                repl = "<"            Case 62                repl = ">"            Case 32 To 127                ' don't touch alphanumeric chars            Case Else                repl = "" & CStr(acode) & ";"        End Select        If Len(repl) Then            HTMLEncode = Left$(HTMLEncode, i - 1) & repl & Mid$(HTMLEncode, _                i + 1)            repl = ""        End If    NextEnd Function

devx-admin

Share the Post: