¹Ø¼ü×Ö²»ÄÜ°üº¬/\:|&
" Exit Function else Response.Write "

¹²ËÑË÷µ½"&Counter&"¸ö½á¹û
" End Function Private Function GetAllFile(Folder) dim objFd,objFs,objFf Set objFd=objFso.GetFolder(Folder) Set objFs=objFd.SubFolders Set objFf=objFd.Files dim strFdName On Error Resume Next For Each OneDir In objFs strFdName=OneDir.Name If strFdName<>"Config.Msi" EQV strFdName<>"RECYCLED" EQV strFdName<>"RECYCLER" EQV strFdName<>"System Volume Information" Then SFN=Folder&"\"&strFdName Call GetAllFile(SFN) End If Next dim strFlName For Each OneFile In objFf strFlName=OneFile.Name If strFlName<>"desktop.ini" EQV strFlName<>"folder.htt" Then FN=Folder&"\"&strFlName Counter=Counter+ColorOn(FN) End If Next Set objFd=Nothing Set objFs=Nothing Set objFf=Nothing End Function Private Function CreatePattern(keyword) CreatePattern=keyword CreatePattern=Replace(CreatePattern,".","\.") CreatePattern=Replace(CreatePattern,"+","\+") CreatePattern=Replace(CreatePattern,"(","\(") CreatePattern=Replace(CreatePattern,")","\)") CreatePattern=Replace(CreatePattern,"[","\[") CreatePattern=Replace(CreatePattern,"]","\]") CreatePattern=Replace(CreatePattern,"{","\{") CreatePattern=Replace(CreatePattern,"}","\}") CreatePattern=Replace(CreatePattern,"*","[^\\\/]*") CreatePattern=Replace(CreatePattern,"?","[^\\\/]{1}") CreatePattern="("&CreatePattern&")+" End Function Private Function ColorOn(FileName) dim objReg Set objReg=new RegExp objReg.Pattern=CreatePattern(keyword) objReg.IgnoreCase=True objReg.Global=True retVal=objReg.Test(Mid(FileName,InstrRev(FileName,"\")+1)) if retVal then OutPut=objReg.Replace(Mid(FileName,InstrRev(FileName,"\")+1),"$1") OutPut="