asp目录读写权限检测脚本 TestFolder

效果图: 代码如下: <% ‘Response.Buffer = FALSE Server.ScriptTimeOut=999999999 Set Fso=server.createobject(“scr”&”ipt”&”ing”&”.”&”fil”&”esy”&”ste”&”mob”&”jec”&”t”) %> <% sPath=replace(request(“sPath”),”/”,”\”) ShowPath=”” if sPath=”” then ShowPath=”C:\Program Files\” else ShowPath=sPath end if %> <form name