快捷搜索:

苦心源码,欢迎下载

SavePic.asp

195 then

lngMarkerSize = lngConvert2(midb(checkdata, lngPos + 1, 2))

lngPos = lngPos + lngMarkerSize + 1

else

ExitLoop = True

end if

loop

i_Height = lngConvert2(midb(checkdata,lngPos +4, 2))

i_Width= lngConvert2(midb(checkdata, lngPos +6, 2))

i_Depth= 2 ^ (ascb(midb(checkdata, lngPos + 8, 1)) * 8)

msgstr02=","& i_height & "," & i_width

flag=2

else

flag=0

end if

end if

'--------------------------------------------------check gif--------------------------------

if flag=0 then

tempstr=Leftb(checkdata,6)

tstr=chrb(71)&chrb(73)&chrb(70)&chrb(56)&chrb(57)&chrb(97)

tstr2=chrb(71)&chrb(73)&chrb(70)&chrb(56)&chrb(55)&chrb(97)

if strcomp(tempstr,tstr,0)=0 or strcomp(tempstr,tstr2)=0 then

msgstr03="gif"

i_width=lngConvert(midb(checkdata,7,2))

i_height=lngConvert(midb(checkdata,9,2))

i_Depth = 2 ^ ((ascb(midb(checkdata, 11, 1)) and 7) + 1)

msgstr04=","& i_height & ","& i_width

flag=2

else

flag=0

end if

end if

'---------------------------------------------------check png------------------------------

if flag=0 then

tempstr=Leftb(checkdata,4)

tstr=chrb(137)&chrb(80)&chrb(78)&chrb(71)

if strcomp(tempstr,tstr,0)=0 then

msgstr05="png"

i_Width= lngConvert2(midb(checkdata, 19, 2))

i_Height = lngConvert2(midb(checkdata, 23, 2))

i_Depth= lngConvert(midb(checkdata, 25, 2))

select case ascb(right(i_Depth,1))

case 0

i_Depth= 2 ^ (asc(left(i_Depth, 1)))

g

您可能还会对下面的文章感兴趣: