VBScript HTML Encode

John Doherty

Rate me:

2.20/5 (4 votes)

4 Feb 2009CPOL

76.7K

Server.HTMLEncode for VBScript (handles null strings)

Introduction

This function is a replacement for the Server.HTMLEncode method found in Classic ASP with one major difference... It accepts null strings without throwing errors!

The side effect is HTML Encoding for VBScript.

Background

I wrote this to overcome the common IsNull, IsNothing, IsEmpty string nightmare experienced when calling Server.HTMLEncode from Classic ASP.

Using the Code

VBScript

Function HTMLEncode(ByVal sVal)

    sReturn = ""

    If ((TypeName(sVal)="String") And (Not IsNull(sVal)) And (sVal<>"")) Then
    
        For i = 1 To Len(sVal)
        
            ch = Mid(sVal, i, 1)

            Set oRE = New RegExp : oRE.Pattern = "[ a-zA-Z0-9]"

            If (Not oRE.Test(ch)) Then
                ch = "&#" & Asc(ch) & ";"
            End If

            sReturn = sReturn & ch
            
            Set oRE = Nothing
        Next
    End If
    
    HTMLEncode = sReturn
End Function

VBScript

HTMLEncode("This is a & test!")

History

4^th February, 2009: Initial post

License

This article, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

Written By

John Doherty

Chief Technology Officer MammothWorkwear.com

United Kingdom

Senior Web Developer, Systems Architect and Entrepreneur. Technical Director of MammothWorkwear.com. More information is available at http://www.johndoherty.info/

Function HTMLEncode(ByVal data) HTMLEncode = "" If TypeName(data)="String" Then With (New RegExp) .Pattern = "[^ a-zA-Z0-9]" .IgnoreCase = False .Global = True HTMLEncode = .Replace( data , GetRef("HTMLEncodeReplace") ) End With End If End Function Function HTMLEncodeReplace( sChar , nPos , sText ) HTMLEncodeReplace = "&#" & AscW(sChar) & ";" End Function

Use Ctrl+Left/Right to switch messages, Ctrl+Up/Down to switch threads, Ctrl+Shift+Left/Right to switch pages.