<%@ CodePage=65001 Language="VBScript"%> <% Option Explicit %> <% dim fs, f Server.MapPath("test.txt") set fs=Server.CreateObject("Scripting.FileSystemObject") set f=fs.CreateTextFile("test.txt",true) f.WriteLine("Hello World!") f.Close set f=nothing set fs=nothing %>