Please select the GIF picture you want to upload: td> | td> tr> table> form> body> html> Up.asp <% FormSize = Request.TotalBytes FormData = Request.BinaryRead (FormSize) bncrlf = chrb (13) & chrb (10) divider = leftb (formdata, instrb (formdata, bncrlf) -1) datastart = instrb (formdata, bncrlf & bncrlf) 4 dataend = instrb (datastart 1, formdata, divider) -datastart Image = midb (formdata, datastart, dataend) head_version = Ascb (midb (Image, 1,3)) head_subversion = Ascb (midb (Image, 4,3)) head_width_l = ASCB (MIDB (Image, 7, 1)) HEAD_WIDTH_H = ASCB (MIDB (Image, 8, 1)) HEAD_HEIGHT_L = ASCB (MIDB (Image, 9, 1)) HEAD_HE ight_h = Ascb (midb (Image, 10,1)) head_colors = Ascb (midb (Image, 11, 1)) head_width_h = head_width_h * 256 head_height_h = head_height_h * 256 head_colors = head_colors And & H07 Response.Write "image size" & HEAD_WIDTH_H HEAD_WIDTH_L & "X" & Head_HEight_H Head_HEight_L _ & "X" & "
转载请注明原文地址:https://www.9cbs.com/read-5453.html
|