AscW
The AscW function is provided for 32-bit platforms that use Unicode characters. It will return the "wide character code" for a Unicode character. When passed a string, AscW will return the Unicode of the first character found in the string.
Dim oFSO, oFile, sContents
Const ForReading = 1
' read data from a file and determine the wide ascii
' code for the first character
Set oFSO = Server.CreateObject("Scripting.FileSystemObject")
Set oFile = oFSO.OpenTextFile("C:image1.gif", ForReading)
nUnicode = AscW(sContents)
|
 |
|
