必威注册电子书籍教程中心网文荟萃客户留言繁體中文
设为首页
加入收藏
联系必威注册
您当前的位置:92动力网 -> 教程中心 -> 技术学院 -> ASP学院 -> 教程内容 退出登录 用户管理
栏目导航
· SMS学院· .Net专栏
· ASP学院· PHP学院
· CGI学院· XML学院
· SQL学院· JSP学院
· Script学院
热门教程
· 如何在Visual Basic...
· 使用Visual Basic操...
· 使用VB6.0设计Activ...
· VB动态调用外部函数...
· 建立一个程序员自己...
· 如何编写高质量的VB...
· [图文] 为更新到Visual Bas...
· 再谈在VB中调用VC++...
· 用VB语言编程实现JP...
· 用DTS实现SQL数据库...
相关教程

判断gif图像尺寸的方法
作者:Admin聽聽来源:ASP教程聽聽发布时间:2004-9-10 11:27:56聽聽发布人:siforgern

减小字体 增大字体

这里是我根据gif图像格式想出来的判断gif图像尺寸的方法,请大家给点意见

up.htm





聽聽
聽聽聽聽
聽聽聽聽
聽聽
请选择您要上传的gif图片:
聽聽聽聽聽







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_height_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 "图像大小为" & head_width_h + head_width_l & "x" & head_height_h + head_height_l _
聽聽聽聽聽聽聽聽& "x" &聽聽2^( head_colors + 1 )
聽聽聽聽

%>

[] [返回上一页] [打 印] [收 藏]
∷相关教程评论∷    (评论内容只代表网友观点,与本站立场无关!) [更多评论...]
关于本站 - 网站帮助 - 广告合作 - 下载声明 - 网站地图 - 管理登录
Copyright 2019 必威注册. All Rights Reserved .
浙ICP备05047688号