Scan.inc
　　%
　　‘************************************************‘
　　‘***********网站图片扫描器 1.00******************‘
　　‘***********魔术师杨*********************‘
　　‘***********日期：2004.5.6***********************‘
　　‘***********QQ：1168064**************************‘
　　‘************************************************‘
　　‘说明：这是我第一次编写应用类，其中不当之处请多多指教！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：扫描的路径：默认为网站根目录，请使用相对路径。例如/dsj
　　‘6、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 Explicit
　　Class MCScanImg
　　dimFile，ScanType，Conn，Table，ColId，ColImg，FSO，Path，List，ScanText，Spath，Version
　　dim Folders，Files，TotalSize，Images，Exists，sFiles，Start，EndT，RunTime，DbImg，TotalImg，Filter
　　Private Sub Class_Initialize
　　Set File = Server.Createobject
　　Set FSO = CreateObject
　　ScanType=1
　　Conn=
　　Table=
　　ColImg=
　　ColId=
　　Path =/
　　sPath = Server.MapPath
　　List=0
　　ScanText=asp/htm/html
　　Folders=0
　　Files=0
　　TotalSize=0
　　Images=0
　　DbImg=0
　　Exists=0
　　sFiles=0
　　TotalImg=0
　　Start=Timer
　　Endt=Timer
　　Runtime=0
　　Filter=Version=1.00
　　End Sub
　　Private Sub Class_Terminate
　　Set File=Nothing
　　Set FSO = Nothing
　　End Sub
　　Public Function Scan ‘开始扫描
　　if left=/ then
　　path=SpathReplace
　　else
　　Path=Spath“Replace
　　end if
　　If ScanType=1 then
　　Scanfile
　　ElseIf ScanType=2 Then
　　ScanDb
　　Else
　　ScanFile
　　ScanDb
　　End If
　　EndT=timer
　　RunTime=FormatNumber*1000
　　TotalSize=shb