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

来源:asp之家 时间:2009-11-24 20:50:00 

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

见下面的两个asp文件:

<!--#include virtual="/intels/chunfeng/graphicdetect.asp"-->
<html>
<head>
<TITLE>asp之家asp教程之获知图像尺寸</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
%>

标签:图片,尺寸,asp
0
投稿

猜你喜欢

  • Python实现多进程的四种方式

    2022-03-14 10:48:46
  • Python计算不规则图形面积算法实现解析

    2022-03-14 21:04:17
  • 如何通过Django使用本地css/js文件

    2022-04-28 22:04:33
  • 微信小程序canvas写字板效果及实例

    2024-04-19 09:44:03
  • 本地文件上传到七牛云服务器示例(七牛云存储)

    2023-09-17 09:00:05
  • SqlServer表死锁的解决方法分享

    2011-09-30 11:16:16
  • 详解JavaScript实现异步Ajax

    2024-04-16 10:42:25
  • 最新MySql8.27主从复制及SpringBoot项目中的读写分离实战教程

    2024-01-19 15:40:27
  • Golang共享变量如何解决问题

    2024-04-26 17:34:09
  • MySQL高可用架构之MHA架构全解

    2024-01-25 03:15:23
  • Python基础之字符串操作常用函数集合

    2023-11-26 23:26:12
  • python删除字符串中指定字符的方法

    2022-12-02 18:32:44
  • Javascript之Date对象详解

    2024-06-07 15:53:58
  • yolov5特征图可视化的使用步骤

    2022-07-22 01:25:40
  • scrapy结合selenium解析动态页面的实现

    2023-11-11 17:16:51
  • 基于Python实现的扫雷游戏实例代码

    2023-06-26 12:29:34
  • python如何保存文本文件

    2021-10-27 23:16:25
  • PHP htmlentities()函数用法讲解

    2023-06-04 14:47:30
  • Python实现检测服务器是否可以ping通的2种方法

    2023-06-07 20:18:14
  • Go语言omitempty选项的实现

    2024-04-25 15:12:40
  • asp之家 网络编程 m.aspxhome.com