利用ASP获得图象的实际尺寸的示例

最新推荐文章于 2016-09-19 20:43:59 发布
最新推荐文章于 2016-09-19 20:43:59 发布
阅读量1.3k 收藏
点赞数
分类专栏： ASP 文章标签： asp hex c
<script type="text/javascript"> </script> <script src="http://pagead2.googlesyndication.com/pagead/show_ads.js" type="text/javascript"></script>
  1. <!--#include virtual="/learn/test/lib_graphicdetect.asp"--> 
  2. <html><head> 
  3. <TITLE>dbtable.asp</TITLE> 
  4. </head> 
  5. <body bgcolor="#FFFFFF"> 
  6. <% 
  7. graphic="images/learnaspiconmain.gif" 
  8. HW = ReadImg(graphic) 
  9. Response.Write graphic & " Dimensions: " & HW(0) & "x" & HW(1) & "<br>" 
  10. response.write "<img src=""/" & graphic & """" 
  11. response.write height=""" & HW(0) & """ 
  12. response.write width=""" & HW(0) & "">" 
  13. %> 
  14. </body></html> 
  15. The library that is included is: 
  16. <% 
  17. Dim HW 
  18. Function AscAt(s, n) 
  19. AscAscAt = Asc(Mid(s, n, 1)) 
  20. End Function 
  21. Function HexAt(s, n) 
  22. HexHexAt = Hex(AscAt(s, n)) 
  23. End Function 
  24. Function isJPG(fichero) 
  25. If inStr(uCase(fichero), ".JPG") <> 0 Then 
  26. isJPG = true 
  27. Else 
  28. isJPG = false 
  29. End If 
  30. End Function 
  31. Function isPNG(fichero) 
  32. If inStr(uCase(fichero), ".PNG") <> 0 Then 
  33. isPNG = true 
  34. Else 
  35. isPNG = false 
  36. End If 
  37. End Function 
  38. Function isGIF(fichero) 
  39. If inStr(uCase(fichero), ".GIF") <> 0 Then 
  40. isGIF = true 
  41. Else 
  42. isGIF = false 
  43. End If 
  44. End Function 
  45. Function isBMP(fichero) 
  46. If inStr(uCase(fichero), ".BMP") <> 0 Then 
  47. isBMP = true 
  48. Else 
  49. isBMP = false 
  50. End If 
  51. End Function 
  52. Function isWMF(fichero) 
  53. If inStr(uCase(fichero), ".WMF") <> 0 Then 
  54. isWMF = true 
  55. Else 
  56. isWMF = false 
  57. End If 
  58. End Function 
  59. Function isWebImg(f) 
  60. If isGIF(f) or isJPG(f) or isPNG(f) or isBMP(f) or isWMF(f) Then 
  61. isWebImg = true 
  62. Else 
  63. isWebImg = true 
  64. End If 
  65. End Function 
  66. Function ReadImg(fichero) 
  67. If isGIF(fichero) Then 
  68. ReadImg = ReadGIF(fichero) 
  69. Else 
  70. If isJPG(fichero) Then 
  71. ReadImg = ReadJPG(fichero) 
  72. Else 
  73. If isPNG(fichero) Then 
  74. ReadImg = ReadPNG(fichero) 
  75. Else 
  76. If isBMP(fichero) Then 
  77. ReadImg = ReadPNG(fichero) 
  78. Else 
  79. If isWMF(fichero) Then 
  80. ReadImg = ReadWMF(fichero) 
  81. Else 
  82. ReadImg = Array(0,0) 
  83. End If 
  84. End If 
  85. End If 
  86. End If 
  87. End If 
  88. End Function 
  89. Function ReadJPG(fichero) 
  90. Dim fso, ts, s, HW, nbytes 
  91. HW = Array("","") 
  92. Set fso = CreateObject("Scripting.FileSystemObject") 
  93. Set ts = fso.OpenTextFile(Server.MapPath("/" & fichero), 1) 
  94. s = Right(ts.Read(167), 4) 
  95. HW(0) = HexToDec(HexAt(s,3) & HexAt(s,4)) 
  96. HW(1) = HexToDec(HexAt(s,1) & HexAt(s,2)) 
  97. ts.Close 
  98. ReadJPG = HW 
  99. End Function 
  100. Function ReadPNG(fichero) 
  101. Dim fso, ts, s, HW, nbytes 
  102. HW = Array("","") 
  103. Set fso = CreateObject("Scripting.FileSystemObject") 
  104. Set ts = fso.OpenTextFile(Server.MapPath("/" & fichero), 1) 
  105. s = Right(ts.Read(24), 8) 
  106. HW(0) = HexToDec(HexAt(s,3) & HexAt(s,4)) 
  107. HW(1) = HexToDec(HexAt(s,7) & HexAt(s,8)) 
  108. ts.Close 
  109. ReadPNG = HW 
  110. End Function 
  111. Function ReadGIF(fichero) 
  112. Dim fso, ts, s, HW, nbytes 
  113. HW = Array("","") 
  114. Set fso = CreateObject("Scripting.FileSystemObject") 
  115. Set ts = fso.OpenTextFile(Server.MapPath("/" & fichero), 1) 
  116. s = Right(ts.Read(10), 4) 
  117. HW(0) = HexToDec(HexAt(s,2) & HexAt(s,1)) 
  118. HW(1) = HexToDec(HexAt(s,4) & HexAt(s,3)) 
  119. ts.Close 
  120. ReadGIF = HW 
  121. End Function 
  122. Function ReadWMF(fichero) 
  123. Dim fso, ts, s, HW, nbytes 
  124. HW = Array("","") 
  125. Set fso = CreateObject("Scripting.FileSystemObject") 
  126. Set ts = fso.OpenTextFile(Server.MapPath("/" & fichero), 1) 
  127. s = Right(ts.Read(14), 4) 
  128. HW(0) = HexToDec(HexAt(s,2) & HexAt(s,1)) 
  129. HW(1) = HexToDec(HexAt(s,4) & HexAt(s,3)) 
  130. ts.Close 
  131. ReadWMF = HW 
  132. End Function 
  133. Function ReadBMP(fichero) 
  134. Dim fso, ts, s, HW, nbytes 
  135. HW = Array("","") 
  136. Set fso = CreateObject("Scripting.FileSystemObject") 
  137. Set ts = fso.OpenTextFile(Server.MapPath("/" & fichero), 1) 
  138. s = Right(ts.Read(24), 8) 
  139. HW(0) = HexToDec(HexAt(s,4) & HexAt(s,3)) 
  140. HW(1) = HexToDec(HexAt(s,8) & HexAt(s,7)) 
  141. ts.Close 
  142. ReadBMP = HW 
  143. End Function 
  144. Function isDigit(c) 
  145. If inStr("0123456789", c) <> 0 Then 
  146. isDigit = true 
  147. Else 
  148. isDigit = false 
  149. End If 
  150. End Function 
  151. Function isHex(c) 
  152. If inStr("0123456789ABCDEFabcdef", c) <> 0 Then 
  153. isHex = true 
  154. Else 
  155. ishex = false 
  156. End If 
  157. End Function 
  158. Function HexToDec(cadhex) 
  159. Dim n, i, ch, decimal 
  160. decimal = 0 
  161. n = Len(cadhex) 
  162. For i=1 To n 
  163. ch = Mid(cadhex, i, 1) 
  164. If isHex(ch) Then 
  165. decimaldecimal = decimal * 16 
  166. If isDigit(c) Then 
  167. decimaldecimal = decimal + ch 
  168. Else 
  169. decimaldecimal = decimal + Asc(uCase(ch)) - Asc("A") 
  170. End If 
  171. Else 
  172. HexToDec = -1 
  173. End If 
  174. Next 
  175. HexToDec = decimal 
  176. End Function 
  177. %> 

 

piperzero
关注
专栏目录
asp获取图片高度和宽度
12-05
可处理图片放大,图片列表,防止图片变型拉伸
ImageEncryptSample:ASP.NET MVC 的图像加密示例
06-28
在IT领域，尤其是在网络安全和数据保护方面，图像加密是一个至关重要的技术。此“ImageEncryptSample”...通过学习这个示例，开发者可以增强自己在图像处理和安全领域的技能，同时了解如何将这些技术应用于实际项目。
利用ASP得到图片尺寸大小
编程开发资料库
10-25 101
这是动网论坛上一个朋友写的&lt;% imgpath="default_22.gif" set pp=new imgInfo w = pp.imgW(server.mappath(imgpath)) h = pp.imgH(server.mappath(imgpath)) set pp=nothing response.write "&lt;img src='"&amp;imgpath&am...
利用ASP获取设置图片尺寸大小
天晴雨的专栏
08-20 910
 %imgpath="default_22.gif"response.write ""&imgpath&" border=0 "&SetAutoImg(280,260,imgpath)&">宽:"&GetImgW(ImgPath)&";高:"&GetImgH(ImgPath)function GetImgW(ImgPath)    set pp=new imgInfo     w=pp.im
利用aSP获得图象的实际尺寸的示例
Air的博客
06-15 415
利用aSP获得图象的实际尺寸的示例dbtable.asp<%   graphic="images/learnaspiconmain.gif"   HW = ReadImg(graphic)   Response.Write graphic & " Dimensions: " & HW(0) & "x" & HW(1) & ""   response.writ
ImageWaterMark(asp.net).rar_asp.net_图像处理logo_文字处理_水印_水印图像
09-23
本文将深入探讨如何利用ASP.NET技术实现图像的水印添加，包括文字水印、Logo水印，以及相关的图像处理技巧。 首先，我们要理解水印的概念。水印是一种用于保护版权或增加视觉效果的技术，可以是文字、图像或者图形...
【ASP.NET编程知识】asp .net实现给图片添加图片水印方法示例.docx
最新发布
05-15
在ASP.NET中，我们可以利用C#或VB.NET等编程语言实现各种功能，包括图像处理。在本示例中，我们将探讨如何在ASP.NET中给图片添加图片水印。 首先，创建一个名为`ImageWriter`的类库，该类库包含一个名为`...
ASP.NET源码——问沫验证码示例代码.zip
10-10
ASP.NET是一种由微软开发的服务器端Web应用程序框架，用于构建动态网站、 web 应用程序和 web 服务。...通过研究源码，我们可以学习到如何利用ASP.NET的技术栈来构建安全、用户体验友好的Web应用程序。
asp.net输出条形码示例
10-31
在这个示例中，我们创建了一个`BarCode`对象，设置了条形码的类型（Code128）和数据（"123456789012"），然后调整了图像的尺寸和质量。生成的条形码被保存到内存流中，再转换为`Image`对象，最后通过`imgBarcode....
asp获取图片大小
12-13
用ASP获取图片大小，是多少KB不是长宽大小哦
上传图片asp代码（包括对图片类型、大小的判断）
02-18
asp代码，给用户上传图片。上传之前有对图片的格式、大小的判断及限制。上传后图片以二进制格式存入数据库中，显示图片也是从数据库中读出
一个获取图片宽度和高度的类
ξσ Dicky's Blog σξ
12-07 1870
Class ImgWHInfo 获取图片宽度和高度的类，支持JPG，GIF，PNG，BMP    Dim ASO    Private Sub Class_Initialize        Set ASO=Server.CreateObject("ADODB.Stream")        ASO.Mode=3        ASO.Type=1        ASO.Open    End
asp一个获取图片宽度和高度的类
itzhiren的专栏
03-12 787
  支持JPG，GIF，PNG，BMPClass ImgWHInfo     Dim ASO    Private Sub Class_Initialize        Set ASO=Server.CreateObject("ADODB.Stream")        ASO
Asp图片尺寸最高处理及AspJpeg失效设置
qq_28153317的博客
09-19 964
首先安装AspJpeg（可能先要装32位的，再装64位的，才有用），从网上找就可以了。安装时，没有什么要设置的，key的话也不需要填，之后更改注册表即可。 安装完之后，把下面的代码放进自己的代码中，调用即可 Function BuildSmallPic(Img,MaxWidth)       '检查组件是否已经注册       Dim Jpeg       Set Jpeg = Serv
ASP.NET 自带图像处理功能详解
在ASP.NET图像处理详解中，我们探讨了如何利用ASP.NET的强大功能来进行图像处理，避免了依赖第三方控件的需求。ASP.NET提供的System.Drawing命名空间内包含了丰富的图形处理类库，使得开发者能够直接操作和处理图像...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

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

抵扣说明：

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

余额充值