Dx21 - UDF

Home

eZine

Coding

Software

Network Admin.

Home > Coding > Libraries > UDF / UDC Library > UDF Library

	Back
	UDC Library

User Defined Functions Library

Syntax:	HTMLEncode
Where:	strData The string to be encoded.
Constants:	None
Return Type:	String

View Function in:

Function HTMLEncode(strData)
	Dim Index, Character, Encoded

	For Index = 1 To Len(strData)
		Character = Mid(strData,Index,1)
		
		Select Case Character
			Case Chr(34):	Character = "&quot;"
			Case "&":		Character = "&amp;"
			Case "<":		Character = "&lt;"
			Case ">":		Character = "&gt;"
			Case Else:		
				If asc(Character) > 126 Then
					Character = "&#" & Asc(Character) & ";"
				End If
		End Select
		
		Encoded = Encoded & Character
	Next
			
	Encoded = Replace(Encoded,"  ", " &nbsp;")
	Encoded = Replace(Encoded,"&nbsp; ","&nbsp;&nbsp;")
	
	HTMLEncode = Encoded
End Function

Script Example

Wscript.Echo HTMLEncode("Me & <him> AZERBAÏDJAN")

Last Modification:
2/1/2007

More Information: None

	FAQs \| Terms Of Use \| Privacy Policy \| Contact Us
	Copyright © 1997 - 2010 Dx21, LLC. All rights reserved. Dx21, LLC a Washington Limited Liability Company Page Rendered at: 9/8/2010 10:01:35 PM for Unknown