'檢查組件是否已經安裝 Function IsObjInstalled(strClassString) IsObjInstalled = False Err = 0 Dim xTestObj Set xTestObj = Server.CreateObject(strClassString) If 0 = Err Then IsObjInstalled = True Set xTestObj = Nothing Err = 0 End Function dim strFileName dim totalPut,CurrentPage,TotalPages dim TruePath,fso,theFolder,theFile,whichfile,thisfile,FileCount,TotleSize strFileName="?"
if request("page")<>"" then currentPage=cint(request("page")) else currentPage=1 end if
TruePath=Server.MapPath(UploadDir) If not IsObjInstalled("Scripting.FileSystemObject") Then Response.Write "<b><font color=red>你的服務器不支持 FSO(Scripting.FileSystemObject)! 不能使用本功能</font></b>" Else set fso=CreateObject("Scripting.FileSystemObject")
