网站图片类.docVIP

网站图片扫描类Scan.inc%说明：这是我第一次编写应用类，其中不当之处请多多指教！QQ：1168064属性和方法1、ScanType：扫描的类型。默认值：1。值：0 扫描文件和数据库 1 扫描文件 2 扫描数据库。2、Conn,Table,ColImg,ColID：当扫描数据库时用到，分别为连接字符串、表名、图片列名、图片对应的ID列名3、List：显示类型。默认值：0。值：0 失效图片 1 网络图片? 2 有效图片 3 所有4、ScanText：扫描的图片类型。默认值：Asp/html/htm。值：文件扩展名，中间用/分隔。5、Path：扫描的路径：默认为网站根目录，请使用相对路径。例如/dsj6、Scan()：方法。根据设置进行扫描7、File：保存扫描的所以信息。在Scan()方法后调用8、Folders：扫描的文件夹个数9、Files：扫描的文件数。10、TotalSize：目录的总计大小。自动显示G，M，B。11、Images：扫描文件中的图片个数12、Exists：失效个数13、DbImg：数据库中图片个数14、TotalImg：扫描的所以图片个数15、RunTime：扫描过程的时间。单位毫秒16、关于File的使用：??? For Each Fn In ObjName.file …… Next??? Fn.FileName：图片名称，包含路径??? Fn.Belong：图片所在文件或数据库（文件用|分开）??? Fn.Exists：是否有效。0为失效 1 为有效 -1为非本地路径，不能判断。Option ExplicitClass MCScanImgdim? File,ScanType,Conn,Table,ColId,ColImg,FSO,Path,List,ScanText,Spath,Versiondim Folders,Files,TotalSize,Images,Exists,sFiles,Start,EndT,RunTime,DbImg,TotalImg,FilterPrivate Sub Class_Initialize Set File = Server.Createobject(Scripting.Dictionary)Set FSO = CreateObject(Scripting.FileSystemObject)ScanType=1 Conn=Table= ColImg=ColId= Path =/sPath = Server.MapPath(/)List=0 ScanText=asp/htm/html Folders=0Files=0TotalSize=0Images=0DbImg=0Exists=0sFiles=0TotalImg=0Start=TimerEndt=TimerRuntime=0Filter=src=(.[^\^\]*)(.gif|.jpg)Version=1.00End Sub Private Sub Class_Terminate? Set File=NothingSet FSO = NothingEnd Sub Public Function Scan() 开始扫描if left(path,1)=/ thenpath=SpathReplace(path,/,\)elsePath=Spath\Replace(path,/,\)end ifIf ScanType=1 thenScanfile(Path)ElseIf ScanType=2 ThenScanDb()ElseScanFile(Path)ScanDb()End IfEndT=timerRunTime=FormatNumber(EndT-Start)*1000TotalSize=shb(TotalSize)TotalImg=DbImg+ImagesEnd Function Private Sub ScanDB() 扫描数据库。这里的路径难于判断，请在InsDb中更改(If AddNum=0 后)Dim Rs,RetStr,ReBel,SQLSQL=Select ColID,ColIMG From Table Order by ColID DESCOn Error Resume NextIf Conn = OR Table= OR ColID= OR ColIMG = ThenExit SubElseSet Rs = Server.CreateObject(ADODB.RecordSet)Rs.Open SQL,conn,3,3 While Not