对文件的操作--建立移动删除文件夹

下面两个文件：

<!--#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

%>

赞 (0)

相关推荐

  • 对文件的操作--建立移动删除文件夹

    下面两个文件: <!--#include virtual="/intels/chunfeng/graphicdetect.asp"--> <html> <head> <TITLE>图像尺寸</TITLE> </head> <body bgcolor="#FFFFFF"> <% graphic="images/intels.gif" HW = ReadImg(

  • C语言中建立和删除文件连接的相关函数讲解

    C语言link()函数:建立文件连接 头文件: #include <unistd.h> 定义函数: int link (const char * oldpath, const char * newpath); 函数说明:link()以参数newpath 指定的名称来建立一个新的连接(硬连接)到参数oldpath 所指定的已存在文件. 如果参数newpath 指定的名称为一已存在的文件则不会建立连接. 返回值:成功则返回0, 失败返回-1, 错误原因存于errno. 附加说明:link()所建立

  • VBS批量重命名文件并且操作前备份原有文件

    核心函数 '========================================================================== ' ' VBScript Source File -- Created with SAPIEN Technologies PrimalScript 4.0 ' ' NAME: ' ' AUTHOR: Microsoft , Microsoft ' DATE : 2014/7/9 ' ' COMMENT: '批量修改文件夹下对应的所有文件

  • PHP操作文件类的函数代码（文件和文件夹创建，复制，移动和删除）

    复制代码 代码如下: <? /** * 操纵文件类 * * 例子: * FileUtil::createDir('a/1/2/3'); 测试建立文件夹 建一个a/1/2/3文件夹 * FileUtil::createFile('b/1/2/3'); 测试建立文件 在b/1/2/文件夹下面建一个3文件 * FileUtil::createFile('b/1/2/3.exe'); 测试建立文件 在b/1/2/文件夹下面建一个3.exe文件 * FileUtil::copyDir('b','d/e')

  • Android编程之文件读写操作与技巧总结【经典收藏】

    本文实例总结了Android文件读写操作.分享给大家供大家参考,具体如下: 在Android中的文件放在不同位置,它们的读取方式也有一些不同. 本文对android中对资源文件的读取.数据区文件的读取.SD卡文件的读取及RandomAccessFile的方式和方法进行了整理.供参考. 一.资源文件的读取: 1) 从resource的raw中读取文件数据: String res = ""; try{ //得到资源中的Raw数据流 InputStream in = getResources

  • Python文件常见操作实例分析【读写、遍历】

    Python文件常见操作实例分析【读写、遍历】

    本文实例讲述了Python文件常见操作.分享给大家供大家参考,具体如下: 1.文件是什么? 文件是存储在外部介质上的数据或信息集合,程序中源程序.数据中保存的数据.图像中的像素数据等等: 文件是有序的数据序列: 2.编码: 信息从一种形式转换为另一种形式的过程:ascII码.Unicode.utf-8等等: 二进制文件ascII码:照片.音乐.视频.计算机程序... 3.文件的基本操作 1)打开文件获取文件对象 建立磁盘上的文件与源程序中的对象相关联,程序上叫打开文件,一旦文件被打开,文件的内容

  • java之File对象对文件的操作常用的几个方法(推荐)

    File对象是对文件操作最常用的类,平常工作总用的很多,贴出来了几个我工作常用的几个方法.简单总结了下 直接上代码: //构建文件对象 File file=new File("E:/android_demo/a"); File fileTest=new File("E:/android_demo/a/test.mp3"); //获取文件的父路径 File f=file.getParentFile(); System.out.println("f==&quo

  • IOS 文件读写操作详解及简单实例

    iPhone 文件读写操作 1,写文件操作 - (IBAction)btnWrite:(id)sender { //创建文件管理器 NSFileManager *fileManager = [NSFileManager defaultManager]; //获取路径 //参数 要获取的哪种路径 NSArray *paths = NSSearchPathForDirectoriesInDomains(NSDocumentDirectory, NSUserDomainMask, YES); NSSt

  • Java实现ftp上传下载、删除文件及在ftp服务器上传文件夹的方法

    一个JAVA 实现FTP功能的代码,包括了服务器的设置模块,并包括有上传文件至FTP的通用方法.下载文件的通用方法以及删除文件.在ftp服务器上传文件夹.检测文件夹是否存在等,里面的有些代码对编写JAVA文件上传或许有参考价值,Java FTP主文件代码: package ftpDemo; import java.io.DataOutputStream; import java.io.InputStream; import java.io.OutputStream; import sun.net

  • PHP文件读写操作之文件写入代码

    在PHP网站开发中,存储数据通常有两种方式,一种以文本文件方式存储,比如txt文件,一种是以数据库方式存储,比如Mysql,相对于数据库存储,文件存储并没有什么优势,但是文件读写操作在基本的PHP开发中还是时有使用,今天和大家分享如何利用PHP技术实现文件读写之文件写入操作教程,也算是对PHP文件读写操作的入门学习. 将数据写入文件的操作主要涉及三个步骤及部分文件操作函数如下: 1.打开文件(文件操作函数:fopen) 2.写入文件(文件操作函数:fwrite等) 3.关闭文件(文件操作函数:f

随机推荐