如何获知页面上的图象的实际尺寸?


下面两个文件:
<!--#include virtual="/intels/chunfeng/graphicdetect.asp"-->
<html>
<head>
<TITLE>图像尺寸</TITLE>
</head>
<body bgcolor="#FFFFFF">
<%
graphic="images/intels.gif"
HW = ReadImg(graphic)
Response.Write graphic & " Dimensions: " & HW(0) & "x" & HW(1)
& "<br>"
response.write "<img src=""/" & graphic & """"
response.write height=""" & HW(0) & """
response.write width=""" & HW(0) & "">"
%>
</body>
</html>

------------------------
graphicdetect.asp
<%
Dim HW

Function AscAt(s, n)
AscAt = Asc(Mid(s, n, 1))
End Function

Function HexAt(s, n)
HexAt = Hex(AscAt(s, n))
End Function

Function isJPG(fichero)
If inStr(uCase(fichero), ".JPG") <> 0 Then
isJPG = true
Else
isJPG = false
End If
End Function

Function isPNG(fichero)
If inStr(uCase(fichero), ".PNG") <> 0 Then
isPNG = true
Else
isPNG = false
End If
End Function

Function isGIF(fichero)
If inStr(uCase(fichero), ".GIF") <> 0 Then
isGIF = true
Else
isGIF = false
End If
End Function

Function isBMP(fichero)
If inStr(uCase(fichero), ".BMP") <> 0 Then
isBMP = true
Else
isBMP = false
End If
End Function

Function isWMF(fichero)
If inStr(uCase(fichero), ".WMF") <> 0 Then
isWMF = true
Else
isWMF = false
End If
End Function

Function isWebImg(f)
If isGIF(f) Or isJPG(f) Or isPNG(f) Or isBMP(f) Or isWMF(f)
Then
isWebImg = true
Else
isWebImg = true
End If
End Function

Function ReadImg(fichero)
If isGIF(fichero) Then
ReadImg = ReadGIF(fichero)
Else
If isJPG(fichero) Then
ReadImg = ReadJPG(fichero)
Else
If isPNG(fichero) Then
ReadImg = ReadPNG(fichero)
Else
If isBMP(fichero) Then
ReadImg = ReadPNG(fichero)
Else
If isWMF(fichero) Then
ReadImg = ReadWMF(fichero)
Else
ReadImg = Array(0,0)
End If
End If
End If
End If
End If
End Function

Function ReadJPG(fichero)
Dim fso, ts, s, HW, nbytes
HW = Array("","")
Set fso = CreateObject("Scripting.FileSystemObject")
Set ts = fso.OpenTextFile(Server.MapPath("/" & fichero), 1)
s = Right(ts.Read(167), 4)
HW(0) = HexToDec(HexAt(s,3) & HexAt(s,4))
HW(1) = HexToDec(HexAt(s,1) & HexAt(s,2))
ts.Close
ReadJPG = HW
End Function

Function ReadPNG(fichero)
Dim fso, ts, s, HW, nbytes
HW = Array("","")
Set fso = CreateObject("Scripting.FileSystemObject")
Set ts = fso.OpenTextFile(Server.MapPath("/" & fichero), 1)
s = Right(ts.Read(24), 8)
HW(0) = HexToDec(HexAt(s,3) & HexAt(s,4))
HW(1) = HexToDec(HexAt(s,7) & HexAt(s,8))
ts.Close
ReadPNG = HW
End Function

Function ReadGIF(fichero)
Dim fso, ts, s, HW, nbytes
HW = Array("","")
Set fso = CreateObject("Scripting.FileSystemObject")
Set ts = fso.OpenTextFile(Server.MapPath("/" & fichero), 1)
s = Right(ts.Read(10), 4)
HW(0) = HexToDec(HexAt(s,2) & HexAt(s,1))
HW(1) = HexToDec(HexAt(s,4) & HexAt(s,3))
ts.Close
ReadGIF = HW
End Function


Function ReadWMF(fichero)
Dim fso, ts, s, HW, nbytes
HW = Array("","")
Set fso = CreateObject("Scripting.FileSystemObject")
Set ts = fso.OpenTextFile(Server.MapPath("/" & fichero), 1)
s = Right(ts.Read(14), 4)
HW(0) = HexToDec(HexAt(s,2) & HexAt(s,1))
HW(1) = HexToDec(HexAt(s,4) & HexAt(s,3))
ts.Close
ReadWMF = HW
End Function

Function ReadBMP(fichero)
Dim fso, ts, s, HW, nbytes
HW = Array("","")
Set fso = CreateObject("Scripting.FileSystemObject")
Set ts = fso.OpenTextFile(Server.MapPath("/" & fichero), 1)
s = Right(ts.Read(24), 8)
HW(0) = HexToDec(HexAt(s,4) & HexAt(s,3))
HW(1) = HexToDec(HexAt(s,8) & HexAt(s,7))
ts.Close
ReadBMP = HW
End Function

Function isDigit(c)
If inStr("0123456789", c) <> 0 Then
isDigit = true
Else
isDigit = false
End If
End Function

Function isHex(c)
If inStr("0123456789ABCDEFabcdef", c) <> 0 Then
isHex = true
Else
ishex = false
End If
End Function

Function HexToDec(cadhex)
Dim n, i, ch, decimal
decimal = 0
n = Len(cadhex)
For i=1 To n
ch = Mid(cadhex, i, 1)
If isHex(ch) Then
decimal = decimal * 16
If isDigit(c) Then
decimal = decimal + ch
Else
decimal = decimal + Asc(uCase(ch)) - Asc("A")
End If
Else
HexToDec = -1
End If
Next
HexToDec = decimal
End Function
%>



相关阅读:
Linux系统自带Mysql、Apache、Php卸载
JavaScript中使用正则匹配多条,且获取每条中的分组数据
Linux系统硬盘的维护及优化
Windows7系统语音识别功能控制电脑操作
javascript css styleFloat和cssFloat
css 解决浏览器兼容问题
利用MS AJAX注册Javascript命名空间并创建类
robots.txt详细介绍
MSSQL数据库的定期自动备份计划。
Safari 4浏览器的一些新特性
Linux系统快速定位web路径方法
PHPEclipse 安装
IIS的性能优化
用CSS进行网页布局的好处
快速导航
PHP MySQL HTML CSS JavaScript MSSQL AJAX .NET JSP Linux Mac ASP 服务器 SQL jQuery C# C++ java Android IOS oracle MongoDB SQLite wamp 交通频道 作文范文 油茶示范林整地合同书 享受一个人的圣诞节:泰国苏梅岛 我的爸爸作文950字 小学五年级作文2200字:DOS年代 暑假北京行之最后一站十三陵 很小,很温暖 人生格言座右铭:青春一经典当即永不再赎 孤独时,自给自足 高中作文财富 夜行船 简爱精彩段落摘抄大全 一个鸡蛋:很多障碍不是来自障碍的本身 2015中秋节几号 读《幻城》有感1200字 “金黄的奶酪”作文300字 人教版九年级下册第五单元试题(会员上传) 好朋友维基 没有什么人能一路单纯到底 学会学习演讲稿 圣诞节祝福语给弟弟 小学生周记:成大器必先独立 初中初一作文750字:假 如 风 有 颜 色 漫话高考(1) 关于强化检察机关法律监督职能的思考 悟为人处世 思兴华精神 行政部门的工作计划 如果做到更多的如果 高中高二作文900字:阳光无处不在 我的冬天不相信眼泪 大学生入党申请书3000字范文 我的小天地200字 实用汽车的转让合同 幼师夜话21人生杂谈 “辫子姐姐”的突然袭击 《观蛇舞》同步练习(无答案) 班主任九月份工作总结 房屋中介实习报告 唯美的爱情句子:爱不是简单的喜欢,而是永恒的感动 人大:加强地方人大监督能力建设 自我颀赏作文700字 高一年级部工作计划 最新版优秀入团申请书格式 2015基层领导参加深圳经理学院培训学习心得体会 村民自治工作经验材料 蓝苹果想珍惜作文 描写秋天景色的句子_描写秋天景色句子摘抄 五一劳动节精选作文——快乐“五一节” 小学一年级作文500字:我爱我的爷爷 十万个为什么读后感 300字 我再也不捉蜻蜓了150字

Copyright © 2016 phpStudy |