求一个纯ASP代码判断图片尺寸的方法

来源：百度知道 编辑：UC知道 时间：2024/05/21 11:08:58
Gif代码在问题补充里，这个代码只能判断Gif图片，无法判断JPG图片大小。求纯ASP判断代码。无意义的回答将被投诉，谢谢合作！
看来是没希望了，百度知道的高手越来越少了

<%
Class ImgWHInfo
Dim ASO
Private Sub Class_Initialize
Set ASO=Server.CreateObject("ADODB.Stream")
ASO.Mode=3
ASO.Type=1
ASO.Open
End Sub
Private Sub Class_Terminate
Err.Clear
Set ASO=Nothing
End Sub

Private Function Bin2Str(Bin)
Dim I, Str
For I=1 To LenB(Bin)
clow=MidB(Bin,I,1)
If ASCB(clow)<128 Then
Str = Str & Chr(ASCB(clow))
Else
I=I+1
If I <= LenB(Bin) Then Str = Str & Chr(ASCW(MidB(Bin,I,1)&clow))
End If
Next
Bin2Str = Str
End Function

Private Function Num2Str(Num,Base,Lens)
Dim Ret
Ret = ""
While(Num>=Base)
Ret = (Num Mod Base) & Ret