' 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
Charlie has over a decade of experience in website administration and technology management. As the site admin, he oversees all technical aspects of running a high-traffic online platform, ensuring optimal performance, security, and user experience.
