`
txf2004
  • 浏览: 7039770 次
  • 性别: Icon_minigender_1
  • 来自: 上海
社区版块
存档分类
最新评论

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

ASPCC++C#F# 
阅读更多
  1. <!--#includevirtual="/learn/test/lib_graphicdetect.asp"-->
  2. <html><head>
  3. <TITLE>dbtable.asp</TITLE>
  4. </head>
  5. <bodybgcolor="#FFFFFF">
  6. <%
  7. graphic="images/learnaspiconmain.gif"
  8. HW=ReadImg(graphic)
  9. Response.Writegraphic&"Dimensions:"&HW(0)&"x"&HW(1)&"<br>"
  10. response.write"<imgsrc=""/"&graphic&""""
  11. response.writeheight="""&HW(0)&"""
  12. response.writewidth="""&HW(0)&"">"
  13. %>
  14. </body></html>
  15. Thelibrarythatisincludedis:
  16. <%
  17. DimHW
  18. FunctionAscAt(s,n)
  19. AscAscAt=Asc(Mid(s,n,1))
  20. EndFunction
  21. FunctionHexAt(s,n)
  22. HexHexAt=Hex(AscAt(s,n))
  23. EndFunction
  24. FunctionisJPG(fichero)
  25. IfinStr(uCase(fichero),".JPG")<>0Then
  26. isJPG=true
  27. Else
  28. isJPG=false
  29. EndIf
  30. EndFunction
  31. FunctionisPNG(fichero)
  32. IfinStr(uCase(fichero),".PNG")<>0Then
  33. isPNG=true
  34. Else
  35. isPNG=false
  36. EndIf
  37. EndFunction
  38. FunctionisGIF(fichero)
  39. IfinStr(uCase(fichero),".GIF")<>0Then
  40. isGIF=true
  41. Else
  42. isGIF=false
  43. EndIf
  44. EndFunction
  45. FunctionisBMP(fichero)
  46. IfinStr(uCase(fichero),".BMP")<>0Then
  47. isBMP=true
  48. Else
  49. isBMP=false
  50. EndIf
  51. EndFunction
  52. FunctionisWMF(fichero)
  53. IfinStr(uCase(fichero),".WMF")<>0Then
  54. isWMF=true
  55. Else
  56. isWMF=false
  57. EndIf
  58. EndFunction
  59. FunctionisWebImg(f)
  60. IfisGIF(f)orisJPG(f)orisPNG(f)orisBMP(f)orisWMF(f)Then
  61. isWebImg=true
  62. Else
  63. isWebImg=true
  64. EndIf
  65. EndFunction
  66. FunctionReadImg(fichero)
  67. IfisGIF(fichero)Then
  68. ReadImg=ReadGIF(fichero)
  69. Else
  70. IfisJPG(fichero)Then
  71. ReadImg=ReadJPG(fichero)
  72. Else
  73. IfisPNG(fichero)Then
  74. ReadImg=ReadPNG(fichero)
  75. Else
  76. IfisBMP(fichero)Then
  77. ReadImg=ReadPNG(fichero)
  78. Else
  79. IfisWMF(fichero)Then
  80. ReadImg=ReadWMF(fichero)
  81. Else
  82. ReadImg=Array(0,0)
  83. EndIf
  84. EndIf
  85. EndIf
  86. EndIf
  87. EndIf
  88. EndFunction
  89. FunctionReadJPG(fichero)
  90. Dimfso,ts,s,HW,nbytes
  91. HW=Array("","")
  92. Setfso=CreateObject("Scripting.FileSystemObject")
  93. Setts=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. EndFunction
  100. FunctionReadPNG(fichero)
  101. Dimfso,ts,s,HW,nbytes
  102. HW=Array("","")
  103. Setfso=CreateObject("Scripting.FileSystemObject")
  104. Setts=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. EndFunction
  111. FunctionReadGIF(fichero)
  112. Dimfso,ts,s,HW,nbytes
  113. HW=Array("","")
  114. Setfso=CreateObject("Scripting.FileSystemObject")
  115. Setts=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. EndFunction
  122. FunctionReadWMF(fichero)
  123. Dimfso,ts,s,HW,nbytes
  124. HW=Array("","")
  125. Setfso=CreateObject("Scripting.FileSystemObject")
  126. Setts=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. EndFunction
  133. FunctionReadBMP(fichero)
  134. Dimfso,ts,s,HW,nbytes
  135. HW=Array("","")
  136. Setfso=CreateObject("Scripting.FileSystemObject")
  137. Setts=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. EndFunction
  144. FunctionisDigit(c)
  145. IfinStr("0123456789",c)<>0Then
  146. isDigit=true
  147. Else
  148. isDigit=false
  149. EndIf
  150. EndFunction
  151. FunctionisHex(c)
  152. IfinStr("0123456789ABCDEFabcdef",c)<>0Then
  153. isHex=true
  154. Else
  155. ishex=false
  156. EndIf
  157. EndFunction
  158. FunctionHexToDec(cadhex)
  159. Dimn,i,ch,decimal
  160. decimal=0
  161. n=Len(cadhex)
  162. Fori=1Ton
  163. ch=Mid(cadhex,i,1)
  164. IfisHex(ch)Then
  165. decimaldecimal=decimal*16
  166. IfisDigit(c)Then
  167. decimaldecimal=decimal+ch
  168. Else
  169. decimaldecimal=decimal+Asc(uCase(ch))-Asc("A")
  170. EndIf
  171. Else
  172. HexToDec=-1
  173. EndIf
  174. Next
  175. HexToDec=decimal
  176. EndFunction
  177. %>

 

分享到：
| Matrix上的三篇文章
评论
发表评论

您还没有登录,请您登录后再发表评论

相关推荐

    ASP图像上传控件

    ASP图像上传控件是.NET开发中的一个重要组成部分，它允许用户在网页上上传图片，并提供了丰富的功能，如图像预览、剪切、缩放等。在ASP.NET环境中，这样的控件通常是一个服务器端组件，用于接收客户端（通常是浏览器...

    asp.net输出条形码示例

    在这个示例中，我们创建了一个`BarCode`对象，设置了条形码的类型（Code128）和数据（"123456789012"），然后调整了图像的尺寸和质量。生成的条形码被保存到内存流中，再转换为`Image`对象，最后通过`imgBarcode....

    asp.net 旋转、反射和扭曲图像

    学习这个示例，开发者可以更好地理解如何在实际项目中实现这些图像处理功能。 为了进一步提升性能，还可以考虑使用GDI+的硬件加速特性，以及合理地使用内存和资源管理，避免因为大量图像操作导致的性能瓶颈。同时，...

    asp.net 图像的局部放大

    在示例文件"Example033-图像的局部放大"中，可能包含了完整的代码示例，展示了如何将上述步骤整合到一个实际的ASP.NET应用中。这些代码可能包含了一个处理用户交互的ASP.NET页面，以及后端C#代码来处理图像放大逻辑...

    ImageWaterMark(asp.net).rar_asp.net_图像处理logo_文字处理_水印_水印图像

    本文将深入探讨如何利用ASP.NET技术实现图像的水印添加，包括文字水印、Logo水印，以及相关的图像处理技巧。 首先，我们要理解水印的概念。水印是一种用于保护版权或增加视觉效果的技术，可以是文字、图像或者图形...

    ASP.NET 图片防盗链示例

    在这个示例中，我们将利用ASP.NET的HTTP处理器（HttpHandler）来实现图片防盗链功能。 HTTP处理器是ASP.NET中处理HTTP请求的核心组件，它们是IHttpHandler接口的实现。通过自定义HTTP处理器，我们可以拦截每个HTTP...

    ASP.NET2.0主题示例代码

    通过这个示例代码，你可以学习如何利用ASP.NET 2.0的主题功能来提升你的Web应用程序的用户体验，同时提高开发效率。无论你是教师、学生还是专业开发人员，理解和掌握这一特性都将对你的工作大有裨益。通过实际操作...

    ASP.NET 3.5 入门经典 配套示例（C#）

    通过深入学习和实践这些示例，初学者能够快速掌握ASP.NET 3.5的基本用法，并具备开发实际Web应用的能力。每个示例都是一个独立的学习点，它们将帮助你理解ASP.NET 3.5的强大功能，并逐步成长为一名熟练的ASP.NET...

    C# 图像处理 例子 代码

    通过这些示例代码，学生可以理解并学习如何在实际项目中实施图像处理功能，同时也可以为他们的学术报告提供实践案例。 总的来说，"C# 图像处理 例子 代码"这个资源提供了C#环境下的图像处理实践经验，涵盖了图像的...

    ASP在线多媒体编辑保存到数据库简单示例

    在本示例中，"ASP在线多媒体编辑保存到数据库简单示例" 是一个教学资源，旨在帮助初学者理解如何利用ASP处理多媒体内容，并将其存储到数据库中。这涉及到的关键知识点包括： 1. ASP基础：ASP是Web开发中的一个核心...

    asp.net 对图像进行浮雕处理

    下面将详细介绍如何在ASP.NET环境中利用C#实现图像的浮雕处理。 首先，我们需要了解GDI+的基本概念。GDI+是.NET Framework的一部分，提供了丰富的图形绘制和图像处理功能，包括创建、打开、显示、编辑以及保存图像...

    asp.net之摄像头+剪切图像+上传图像

    在ASP.NET开发中，结合摄像头、图像剪切和上传功能，可以实现丰富的用户交互体验，尤其是在创建个人中心、社交网络或者在线服务时。本话题主要围绕如何利用这些技术来创建一个用户可以拍摄照片，自定义裁剪并上传至...

    利用数据集在水晶报表中显示图像的_NET程序教程.zip

    在本教程中，数据集将用来存储包含图像路径或实际图像数据的记录，这些数据可以来源于数据库或其他地方。 5. **图像处理**：在报表中显示图像，可能需要处理图像的加载、缓存和显示等问题。例如，从数据库中获取...

    asp.net 轻松实现大图像浏览

    最后，关于提供的"Example029-轻松实现大图像浏览"压缩包文件，可能包含了一个完整的示例项目，包括ASP.NET的代码文件、图片资源以及相关的配置文件。通过查看和学习这个示例，可以更直观地理解上述理论知识在实际...

    asp.net 分割图像源码

    在这个特定的场景中，我们讨论的是一个利用ASP.NET实现的图像处理功能，即“图像分割”。图像分割在许多领域，如计算机视觉、图像分析和数字图像处理中都具有重要意义。它涉及到将一张图片分成多个有意义的部分或...

    ASP.NET源码——问沫验证码示例代码.zip

    ASP.NET是一种由微软开发的服务器端Web应用程序框架，用于构建动态网站、 web 应用程序和 web 服务。...通过研究源码，我们可以学习到如何利用ASP.NET的技术栈来构建安全、用户体验友好的Web应用程序。

    jpeg2swf示例(asp.net,c#)

    标题中的“jpeg2swf”是指一个工具或过程...开发者通过学习这个示例，可以了解到如何在ASP.NET和C#环境中集成不同的库和工具，实现特定的图像处理功能，这对于创建互动式Web内容或优化网络图像传输有很重要的实际意义。

    asp.net谷歌地图控件使用示例

    本文将详细介绍如何在Asp.NET项目中使用谷歌地图控件，并展示其实现各种功能的示例。 首先，谷歌地图API是Google提供的一项服务，允许开发者在网页或应用程序中嵌入交互式地图。Asp.NET版的GoogleMap控件是基于这个...

    客户端浏览器上可以直接对图像进行裁剪缩放和优化为web图像的ASP.NET控件

    标题中的“客户端浏览器上可以直接对图像进行裁剪缩放和优化为web图像的ASP.NET控件”揭示了一个关键的技术点，即使用ASP.NET创建一个能够处理图像的客户端控件。这个控件允许用户在不离开浏览器的情况下，上传、...

    ASP.NET图像的检索技术毕业设计(源代码+论文+开题报告+外文翻译+文献综述+答辩PPT).rar

    在这个毕业设计中，学生将深入学习如何利用ASP.NET实现图像检索技术，这是一个在现代互联网应用中至关重要的功能，尤其是在图片分享、搜索引擎和多媒体数据库等领域。图像检索技术允许用户通过关键词、颜色、形状或...

Magicbox
Global site tag (gtag.js) - Google Analytics