<html> <head> <meta http-equiv="Content-Type" content="text/html; charset=big5" /> <title>Untitled-1</title> <script language="VBScript"> sub Submit_onClick() Dim fso, tf, a a = form1.text.Value Set fso = CreateObject("Scripting.FileSystemObject") Set tf = fso.CreateTextFile("C:\exobudpl.js", True) tf.WriteLine(a) tf.WriteBlankLines(3) tf.Close End Sub </script> </head> <body> <form id="form1" name="form1"> <label> <textarea name="text" cols="100" rows="30" id="text"></textarea> </label><br> <input type="submit" name="Submit" value="submit"> </form> </body> </html>