") dim objFSO set objFSO = Server.createobject("Scripting.FileSystemObject") 'Response.write(objFSO.drives) if objFSO.DriveExists("c:") then Response.write("c: exists...") else Response.write("c: NOT exists...") end if if objFSO.FolderExists("/zds") then Response.write("zds exists...") else Response.write("zds NOT exists...") end if 'Response.write(objFSO.getabsolutepathname("") & "
") temp = server.mappath("/docs/images/z8_gp_block_large.jpg") Response.write("
location: " & temp & "
") if objFSO.FileExists(temp) then Response.write(temp & " file exists...") else Response.write(temp & " file NOT exists...") end if 'if fileexist("index.asp") then ' Response.write("exists...") 'else ' Response.write("NOT exists...") 'end if Response.write("Servervariables collection: " ) for each obj in request.servervariables response.write("
" & obj) response.write(": " & request.servervariables(obj)) next %>