求一段简单的asp代码
一个文本输入框，输入内容之后，在当前目录生成一个文件（如2.txt）如果已经存在这个文本就覆盖掉。...
一个文本输入框，输入内容之后，在当前目录生成一个文件（如2.txt）如果已经存在这个文本就覆盖掉。
展开
展开全部
<%
If request("content")<>"" Then
dim fso, f,order,html_body
order=server.mappath("2.txt")
html_body=request("content")
set fso = server.CreateObject("Scripting.FileSystemObject")
set f = fso.OpenTextFile(order, 8, true) '第二个参数 2 表示重写，如果是 8 表示追加
f.WriteLine(html_body)
f.Close()
set f = nothing
set fso = nothing
Response.Write "<script type='text/javascript'>alert('你的订单已经成功添加(*^__^*) ……');window.location.href='../index.html';</script>"
End if
%>
<html>
<body>
<form method="post" action="">
<input type="text" name="content" /><input type="submit" value="submit"/>
</form>
</body>
</html>
If request("content")<>"" Then
dim fso, f,order,html_body
order=server.mappath("2.txt")
html_body=request("content")
set fso = server.CreateObject("Scripting.FileSystemObject")
set f = fso.OpenTextFile(order, 8, true) '第二个参数 2 表示重写，如果是 8 表示追加
f.WriteLine(html_body)
f.Close()
set f = nothing
set fso = nothing
Response.Write "<script type='text/javascript'>alert('你的订单已经成功添加(*^__^*) ……');window.location.href='../index.html';</script>"
End if
%>
<html>
<body>
<form method="post" action="">
<input type="text" name="content" /><input type="submit" value="submit"/>
</form>
</body>
</html>
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
<body>
<form action="?action=save" method="post">
<input type="text" name="txt">
<input type="submit" value="保存">
</form>
<%
If Request.QueryString("action")="save" Then
Set ADOS = Server.CreateObject("Adodb.Stream")
With ADOS
.Type = 2
.Mode = 3
.Open
.Position = 0
.WriteText Request.Form("txt")
.SaveToFile Server.MapPath("2.txt"), 2
.Close
End With
Set ADOS = Nothing
Response.Write "已保存到文件2.txt"
End If
%>
</body>
<form action="?action=save" method="post">
<input type="text" name="txt">
<input type="submit" value="保存">
</form>
<%
If Request.QueryString("action")="save" Then
Set ADOS = Server.CreateObject("Adodb.Stream")
With ADOS
.Type = 2
.Mode = 3
.Open
.Position = 0
.WriteText Request.Form("txt")
.SaveToFile Server.MapPath("2.txt"), 2
.Close
End With
Set ADOS = Nothing
Response.Write "已保存到文件2.txt"
End If
%>
</body>
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
