Código ASP, haga clic en el botón 1 para escribir "1" en el Bloc de notas. Haga clic en el botón 2 para sobrescribir "2" y escríbalo en el Bloc de notas.

lt;

num=Request.QueryString("num")

si numlt;gt;"" entonces

fileName= Server.MapPath("num.txt")

Establecer fs= Server.CreateObject("Scripting.FileSystemObject")

Si no es fs.FileExists(fileName) entonces

fs.CreateTextFile fileName, True, True

Establecer txt=fs.OpenTextFile(fileName, 2, True)

txt.Write 1

else

Establecer txt=fs.OpenTextFile(fileName, 2, True)