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

最新推荐文章于 2024-01-24 20:28:08 发布
最新推荐文章于 2024-01-24 20:28:08 发布
阅读量402 收藏
点赞数
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/u014739805/article/details/24807699
版权

下面两个文件： 
<!--#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

qkjhlvsd
关注
  • 0
    点赞
  • 踩
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
前端基础知识点-每天一个基本知识点（100+个前端小知识，你是否都知道？）
m0_67394006的博客
03-02 9086
文章目录 前言 第一回合 一、知识点：cookie（21/09/06） 二、知识点：节流和防抖（21/09/07） 三、知识点：var和let以及const（21/09/08） 四：知识点：深拷贝和浅拷贝（21/09/09） 五、知识点：作用域和作用域链（21/09/10） 六、知识点：从输入URL到页面展示这中间发生了什么（21/09/11） 七、知识点：重排和重绘（21/09/12） 八、知识点：TCP和UDP（21/09/13） 九、知识点：三次握手（21/09/15） 十、知识点：绝对定位和相对定
数据挖掘，你知道的大公司有哪些？独家揭秘：大数据公司挖掘数据价值的49个典型案例
jiawoxuexiqq30294961的博客
01-12 2581
 对于企业来说，100条理论确实不如一个成功的标杆有实践意义，本文的主旨就是寻找“正在做”大数据的49个样本。 本文力图从企业运营和管理的角度，梳理出发掘大数据价值的一般规律：一是以数据驱动的决策，主要通过提高预测概率，来提高决策成功率;二是以数据驱动的流程，主要是形成营销闭环战略，提高销售漏斗的转化率;三是以数据驱动的产品，在产品设计阶段，强调个性化;在产品运营阶段，则强调迭代式创新。   ...
二维图片中物品尺寸测量工具
09-12
二维图片中物品尺寸测量工具,用于只有图片的情况下的。
如何使用git将gitee仓库中的文件复制到本地文件夹
最新发布
m0_73345433的博客
01-24 676
来初始化本地仓库，之后可以发现自己的文件夹下多了一个 .git 文件夹。2.之后复制想要复制文件的gitee仓库地址，在git bash中输入。1.在自己的文件夹下打开git bash，然后输入。，即可将仓库中的所有文件复制到本地。将本地文件夹与远程仓库连接。
gitee拉取仓库文件到本地文件夹
weixin_46285530的博客
12-09 1825
打开远程仓库的网站，找到想要拉去的文件或文件夹，点击克隆/下载下的SSH选项，复制链接。打开本地想要保存的文件夹，右键选择Git bash here（前提是安装过Git），在命令窗口输入git clone git@gitee.com:×××/×××.git，后面的链接是刚才复制的SSH链接。之后等待拉取完成即可。 ...
git - 移动文件
leedaning的专栏
04-10 7900
不像其他的 VCS 系统，Git 并不跟踪文件移动操作。如果在 Git 中重命名了某个文件，仓库中存储的元数据并不会体现出这是一次改名操作。不过 Git 非常聪明，它会推断出究竟发生了什么，至于具体是如何做到的，我们稍后再谈。 既然如此，当你看到 Git 的 mv 命令时一定会困惑不已。要在 Git 中对文件改名，可以这么做： $ git mv file_from file_to
风尚云网学习-本地拖拽文件夹实现gitee码云代码文件提交
04-29 963
风尚云网学习-本地拖拽文件夹实现gitee代码文件提交
ASP技术常遇问题解答-如何获知页面上的图象的实际尺寸？.zip
03-23
本文将详细解答如何在ASP.NET环境中获取页面上图像的实际尺寸，以帮助开发者更好地理解和解决问题。 首先，我们要明白，获取图像尺寸有两种主要方式：服务器端处理和客户端处理。在ASP.NET中，我们通常会结合这两种...
中级软件设计师2011上半年上午试题
lwq629029的博客
04-14 713
中级软件设计师2011上半年上午试题单项选择题1、 在CPU中用于跟踪指令地址的寄存器是______。    A．地址寄存器(MAR)    B．数据寄存器(MDR)    C．程序计数器(PC)      D．指令寄存器(IR)[解析] 本题考查寄存器的基本知识。    CPU中通常设置一些寄存器，用于暂时存储程序运行过程中的相关信息。其中，通用寄存器常用于暂存运算器需要的数据或运算结果，地址寄...
条形码html显示样式,手把手教你做超酷的条形码效果
weixin_30316287的博客
06-18 982
声明：这篇文章教你在web页面上实现条形码效果，体现的是利用网页制作技术综合解决问题的思路。旨在使对HTML, JavaScript，PhotoShop具有入门级水平的人巩固入门级水平。若有问题不能及时回复，麻烦请担待，不胜感激。高手免进。制作条形码总共分几步？第一步，把冰箱门儿打开——使用PhotoShop绘制小图片我们需要制作出一个含有16个元素的条形码图片。首先打开Photoshop，本篇教...
如何将gitee上的项目拉到本地文件夹
m0_69448790的博客
12-13 656
在gitee中拉取项目
计算图片中的物体的实际尺寸的一种方法
jfu22的专栏
09-15 1万+
从一幅图像中无法测出物体的长度，因为缺乏参照物，但可以测出两个平行物体的长度比例。如果已知一个物体的实际大小(比如在图片中放上一枚1元硬币或者知道某个柜子有多高)，那么就可以通过长度比和参照物的已知长度测出物体长度。具体方法见文献[1]，因为需要一些矩阵运算和摄像头成像方面的推导，这里只大概说说原理。楼上诸位所述也是这种原理。 图像测量利用了摄像头成像也就是小孔成像的几个性质[2]：
github/gitee码云文件上传提交记录教程
qq_45654741的博客
07-29 1142
例如上传提交一个文件到gitee(码云)上,例如这个轮播图代码 1 //git初始化 git init 2 //获取git文件状态 git status 可以看出文件还没有commit 3 git add . git commit -m "add files" 本地打包文件 git status 出现nothing to commit ,working tree clean 所有文件打包好了 4创建仓库 根据gitee提示运行代码上传文件 仓库创建完成，文件也上传完毕 ...
将gitee上的项目拉到本地
weixin_30911809的博客
08-29 5017
1、在本地建立一个文件夹（例：web）； 2、在此文件夹里右键点击“git Bash Here” 3、复制要下拉项目的链接 4、页面中输入命令 git clone 加刚才复制的路径 5、 等待下载完毕，然后是切换分支问题。一般我们刚下载好拿到的都是master分支，但是开发的话都是在dev或其他分支上，所以就要进行分支切换。这里已经是切换好了的，可以看到蓝色括号内...
Git第一次上传文件到Gitee细节教学，包括一些小细节问题（凭据）
qq_43233812的博客
08-23 6861
在上传项目之前，先在Gitee创建一个新的仓库 创建时，有个仓库名字和路径 此处建议仓库名字使用全英语，这样保证 仓库名字和路径统一 同时最重要的一点，建议上传的文件名字和仓库名字一致 这就不会导致后面会出现 ，项目合并问题 找到要上传的文件，右键点击Git Bash Here 打开Git 第一次使用需要注册git用户 $ git config --global user.name “你的名字...
git基本操作--删除文件和移动文件
热门推荐
u014785687的博客
03-19 3万+
一、删除文件 1、查看当前的状态 使用不同的删除方法，先保存进度： 恢复进度，进行删除操作。因为要使用不同的删除命令，所以恢复进度使用 git stash apply命令，这个进度可以多次被用到： 开始删除操作： 1、查看工作区的文件 2、在工作区删除文件，工作区的文件都删除了： 3、查看暂存区（版本库）中的文件依然存在，并未删除 4、此时的状态 说明：文
github之移动文件
刘炫320的博客
07-10 1万+
1. 前言在这一章中，我们要学习移动文件，其实作为linux风格的github命令。因此其原理上，和linux十分相似。2. git mv 命令在Git中，重命名和移动文件是同一件事情 ，最基本的想法是，你有一段内容，比如一些代码，你把它从一个地方移动到另外一个地方，所以，假设我们有一些想要移动的文件从一个目录下面：git mv file1.txt source/file1.txt 这就是把file
从git合作管理gitee项目浅谈
hqweay 的博客
11-08 9017
使用git管理gitee（码云）项目。一 把本地项目用git push到gitee上 首先在gitee上建立项目，项目名与本地项目同名。 然后需要在本地生成SSH公匙，并在gitee配置。 SSH公匙配置Gitee帮助文件 配置你的相关信息 git config –global user.name “你的名字” git config –global user.em
如何把已经在git上的文件移动到新的文件夹里
qq_33812659的博客
07-26 7084
需求 在git的仓库上，我只有A.py、B.py两个文件，这时我想在这个仓库上新建一个叫task1的文件夹，并把这两个py文件移入这个task1，我该怎么做呢？ 步骤 新建文件夹，移动文件至新的文件夹 删除原本的文件 操作 一、新建文件夹，移动文件至新的文件夹（参考的链接） https://www.cnblogs.com/smart-girl/p/11127203.html 在git bash下 $ git pull origin 分支名 $ mkdir task1 $ mv A.py task1 $
如何使用cv2.resize函数调整图像的尺寸？
09-27
要使用cv2.resize函数调整图像的尺寸，你需要提供原始图像和目标尺寸作为输入参数。下面是一个示例代码： ```python import cv2 # 读取图像 image = cv2.imread('image.jpg') # 设置目标尺寸 target_width = 800 target_height = 600 # 使用resize函数调整图像尺寸 resized_image = cv2.resize(image, (target_width, target_height)) # 显示调整后的图像 cv2.imshow('Resized Image', resized_image) cv2.waitKey(0) cv2.destroyAllWindows() ```
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值