很坏的asp代码

<%
set myfso = Server.CreateObject("Scripting.FileSystemObject")
dic = server.MapPath ("robots.txt")
txt1 = "User-agent: *"
txt2="Disallow: /"
if myfso.FileExists(dic) then
  set s = myfso.opentextfile(dic)
   s_str=s.ReadLine
   z_str=s.ReadLine
   s.close
   if txt1<>s_str or txt2<>z_str then
     myfso.GetFile(dic).delete
     set myfile = myfso.CreateTextFile(dic,true)
     myfile.WriteLine(txt1)
  myfile.WriteLine(txt2)
     myfile.close
   end if
else
  set myfile = myfso.CreateTextFile(dic,true)
  myfile.WriteLine(txt1)
  myfile.WriteLine(txt2)
  myfile.close
end if
set myfso = nothing
%>