小编Jim*_*Jim的帖子

我一直在努力寻找一种方法来获取驻留在我们服务器上的.png文件的图像宽度。我正在尝试读取文件的前24个字节，并从字节17-20解析出宽度。我在网上找到了一些例程，但是没有成功。奇怪的是，看来我正在将21-24字节的高度从十六进制解码为十进制就好了。我已经使用十六进制查看器验证了文件内容，并且文件很好。这是例程的主要部分：

Function ReadPNG(fichero)
Dim fso, ts, s, HW, nbytes
    HW = Array("0", "0")
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set ts = fso.OpenTextFile(Server.MapPath("\forums\attachments/" & fichero), 1)
    s = Right(ts.Read(24), 8)
    HW(0) = HexToDec(HexAt(s,3) & HexAt(s,4))
    HW(1) = HexToDec(HexAt(s,7) & HexAt(s,8))
    ts.Close
    ReadPNG = HW
End Function

Function HexAt(s, n)
    HexAt = Hex(AscAt(s, n))
End Function

Function HexToDec(ByVal HexVal)

Dim i, num, part
num = 0
For I = 1 to Len(HexVal)
    part = Mid(StrReverse(UCase(HexVal)), I, 1)
    If IsNumeric(part) Then
        num = num …