asp生成一个文本文件（非常简单）

一个文本输入框
提交文本内容之后在当前目录生成一个123.txt
123.txt里面的内容就是输入的内容。
如果本身就存在123.txt 就覆盖之前的123.txt

推荐答案 2011-06-07

asp创建文件有两种方法，可以用fso,也可以用stream,这里给你一个stream的例子
=====代码=======

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>无标题文档</title>
</head>

<body>
<%
'使用stream对象输出内容至文件
Function SaveTOFile(ByVal FileName,ByRef Content,ByVal Chrset)
On Error Resume Next
dim stm:set stm=Server.CreateObject("ADODB.Stream")
stm.Type=2
stm.Mode=3
stm.CharSet=Chrset
stm.Open
stm.WriteText content
stm.SaveToFile Server.MapPath(FileName),2
stm.Flush
stm.Close
Set stm=Nothing
If Err Then
WriteTOFile = False
Else
WriteTOFile = True
End If
End Function
If Request.Form<>"" Then
SaveTOFile "123.txt",Request.Form("text"),"gb2312"
Response.Write("文件保存成功!")
End If
%>
<form method="post">
文件内容:
<textarea name="text">
</textarea>
<br />
<input type="submit" value="提交" />
</form>
</body>
</html>

温馨提示：答案为网友推荐，仅供参考

当前网址：http://55.wendadaohang.com/zd/FL88LQ888.html

其他回答

第1个回答 2011-06-07

<%
Dim fso,htmlwrite
Dim strTitle,strContent,strOut
'// 创建文件系统对象
Set fso=Server.CreateObject("Scripting.FileSystemObject")
if fso.FileExists(server.MapPath("123.txt")) then
fso.deleteFile(server.MapPath(("123.txt"))
end if
strContent=request.form("content")
strOut=strContent
fileName = "123.txt"
Set htmlwrite=fso.CreateTextFile(Server.MapPath(fileName),true)
'// 写入内容
htmlwrite.WriteLine strOut
'// 关闭
htmlwrite.close
'// 释放文件系统对象
set htmlwrite=Nothing
set fso=Nothing
%>

第2个回答推荐于2018-04-21

<%
'下面是保存函数
Function SaveToFile(ByVal strBody, ByVal File)
Dim objStream
Dim RText
RText = Array(0, "")
Set objStream = Server.CreateObject("ADODB.Stream")
With objStream
.Type = 2
.Open
.Charset = "utf-8"
.Position = objStream.Size
.WriteText = strBody
On Error Resume Next
.SaveToFile Server.MapPath(File), 2
If Err Then
RText = Array(Err.Number, Err.Description)
SaveToFile = RText
Err.Clear
Exit Function
End If
.Close
End With
RText = Array(0, "保存文件成功!")
SaveToFile = RText
Set objStream = Nothing
End Function

%>
调用 SaveToFile(文本内容,文件路径）
剩下的自己会写了吧本回答被网友采纳

第3个回答 2011-06-07

<%
txtcontent=request.form("content")
PromotionPath = "123.txt"
WriteToHtml PromotionPath,txtcontent

Function WriteToHtml(Fpath,Templet)
Dim FSO,FCr
Set FSO = CreateObject("Scripting.FileSystemObject")
if FSO.FILEExists(Fpath) then
FSO.deleteFILE Fpath
end if

Set FCr = FSO.CreateTextFile(Server.MapPath(Fpath), True)
FCr.Write(Templet)
FCr.Close
Set FCr = Nothing
Set FSO = Nothing
End Function
%>

第4个回答 2011-06-07

既然非常简单，我就不用说了。呵呵

相似回答

asp生成一个文本文件(非常简单)答：<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> 无标题文档 < '使用stream对象输出内容至文件 Function SaveTOFile(ByVal FileName,ByRef Content,ByVal Chrset)On Error Resume Next dim stm:set stm=...

怎么创建asp文件怎么创建asp文件库视频时间 55:88

怎么通过访问asp创建txt文本!答：objFile.Close Set objFile = Nothing Set objFso = Nothing >

用ASP实现输入文本,生成TXT文件答：1 利用word生成相应的word文件，如固定格式的表格等，然后用“另存为”功能存成htm格式。2 使用记事本等打开，可看见html源码。3 将代码开始处的以下内容：改为基本html代码：

怎么让asp生成UTF-8格式的文本---菜鸟求救答：这里Set MyFile = fso.CreateTextFile(xmlfile,True)再加上一个参数值"true"就行了，就这样 Set MyFile = fso.CreateTextFile(xmlfile,True,true)

大家正在搜

asp文件文本框 asp生成ppt asp生成json数据类 asp获取文本值并传值 asp文本加密 asp富文本编辑器 asp输入文本并显示 asp弹出文本输入框 javascript传值asp