一小偷类!!有兴趣的可以看看(3)

Public sub CheckFile(folderName,fileName)
    dim url
 Set fs=Server.CreateObject("Scripting.FileSystemObject")
 if fs.FolderExists(server.MapPath("./")&"\"&folderName&"\"&fileName) then 
     set fs = nothing
  url = folderName&"/"&fileName
  response.write url
  'response.redirect url
 end if
end sub

'------生成文件------'
Public sub MakeFile(folderName,fileName)
    Set fs=Server.CreateObject("Scripting.FileSystemObject")

    if folderName<>"" then
     if not fs.FolderExists(server.MapPath("/"&folderName&"/")) then 
            response.write "文件不存在"
      fs.CreateFolder(folderName)
     else
         response.write "文件存在"
        end if
 end if

    Set CrFi=fs.CreateTextFile(server.MapPath("./")&"\"&folderName&"\"&fileName)
        Crfi.Writeline(strResult)
    set CrFi=nothing
    set fs=nothing
 dim url
 url = folderName&"/"&fileName
    response.redirect url

end sub

'-------查看偷出的代码----'
public sub look()
    dim tempstr
    tempstr="<SCRIPT>function runEx(){var winEx2 = window.open("""", ""winEx2"", ""width=500,height=300,status=yes,menubar=no,scrollbars=yes,resizable=yes""); winEx2.document.open(""text/html"", ""replace""); winEx2.document.write(unescape(event.srcElement.parentElement.children[0].value)); winEx2.document.close(); }function saveFile(){var win=window.open('','','top=10000,left=10000');win.document.write(document.all.asdf.innerText);win.document.execCommand('SaveAs','','javascript.htm');win.close();}</SCRIPT><center><TEXTAREA id=asdf name=textfield rows=32  wrap=VIRTUAL cols=""120"">"&strResult&"</TEXTAREA><BR><BR><INPUT name=Button onclick=runEx() type=button value=""查看效果"">  <INPUT name=Button onclick=asdf.select() type=button value=""全选"">  <INPUT name=Button onclick=""asdf.value=''"" type=button value=""清空"">  <INPUT onclick=saveFile(); type=button value=""保存代码""></center>"
    response.Write(tempstr)