<%
  ':::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  ':::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  '::: BMP, GIF, JPG and PNG :::
  ':::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  ':::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  '::: :::
  '::: This function gets a specified number of bytes from any :::
  '::: file, starting at the offset (base 1) :::
  '::: :::
  '::: Passed: :::
  '::: flnm => Filespec of file to read :::
  '::: offset => Offset at which to start reading :::
  '::: bytes => How many bytes to read :::
  '::: :::
  ':::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  function GetBytes(flnm, offset, bytes)
  Dim objFSO
  Dim objFTemp
  Dim objTextStream
  Dim lngSize
  on error resume next
  Set objFSO = CreateObject("Scripting.FileSystemObject")
  
  ' First, we get the filesize
  Set objFTemp = objFSO.GetFile(flnm)
  lngSize = objFTemp.Size
  set objFTemp = nothing
  fsoForReading = 1
  Set objTextStream = objFSO.OpenTextFile(flnm, fsoForReading)
  if offset > 0 then
  strBuff = objTextStream.Read(offset - 1)
  end if
 

[1] [2] [3] [4] [5] [6] 下一页

在google里搜索更多利用FSO取得BMP，JPG，PNG，GIF文件信息

	Web www.51ec.org

上一篇信息学院： 使用Cookie来跟踪用户

下一篇信息学院： 使用NextRecordset通过一个Connection输出多个select查询