ASP中取得图片宽度和高度的类（无组件）
<%
Class ImgWHInfo '获取图片宽度和高度的类，支持JPG，GIF，PNG，BMP
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...[ 查看全文 ]
2016-01-29
标签:
