Question

HTML保存用户输入的文本并输出文件保存到服务器

求这样的代码，可以保存成TXT格式的

Answer 1

<meta charset=gb2312> <% if request("aa")<>"" and request("bb")<>"" then dim fso,f,forappending forappending=8 Set fso = Server.CreateObject("Scripting.FileSystemObject") Set f = fso.OpenTextFile(Server.Mappath("aa.txt"), forappending, True) f.WriteLine request("aa") f.WriteLine request("bb") f.Close() set f=nothing set fso=nothing response.redirect Request.ServerVariables("HTTP_REFERER") else %> <form name="form1" method="post" action=""> <p> <input name="aa" type="text"> </p> <p> <input name="bb" type="text"> </p> <p> <input type="submit" name="Submit" value="提交"> </p> </form> <%end if%>