【www.gdgbn.com--报表/图形】

<%
":::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
"::: :::
"::: This routine will attempt to identify any filespec passed :::
"::: as a graphic file (regardless of the extension). This will :::
"::: work with BMP, GIF, JPG and PNG files. :::
"::: :::
":::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
"::: Based on ideas presented by David Crowell :::
"::: (credit where due) :::
":::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
":::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
":::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
"::: blah blah blah blah blah blah blah blah blah blah blah blah :::
"::: blah blah blah blah blah blah blah blah blah blah blah blah :::
"::: blah blah Copyright *c* MM, Mike Shaffer blah blah :::
"::: blah blah ALL RIGHTS RESERVED WORLDWIDE blah blah :::
"::: blah blah Permission is granted to use this code blah blah :::
"::: blah blah in your projects, as long as this blah blah :::
"::: blah blah copyright notice is included blah blah :::
"::: blah blah blah blah blah blah blah blah blah blah blah blah :::
"::: blah blah blah blah blah blah blah blah blah blah blah blah :::
":::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
":::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
"::: :::
"::: 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

本文来源:http://www.gdgbn.com/asp/7416/