textarea中的文本如何保存到文件

meteorlg 2003-11-29 06:59:45

要做的是将一个文件中的文本在textarea中显示，待用户修改后再保存回文件中，这个保存该如何做？请指教！
显示的那段我是这样写的
<%@ Language=VBScript %>
<HTML>
<HEAD>
<title>修改模板</title>
</HEAD>
<BODY>
<textarea name="txttemplate" id="txttemplate" COLS="100" ROWS="10">
<%
Set MyFileObject=Server.CreateObject("Scripting.FileSystemObject")
Set MyTextFile=MyFileObject.OpenTextFile(Server.MapPath("template.txt"))
tempstr=""
while not MyTextFile.AtEndOfStream
tempstr=tempstr+MyTextFile.ReadLine
wend
MyTextFile.Close
Response.Write(tempstr)
%>
</textarea><br>
<input type=button value=保存>
</BODY>
</HTML>

...全文

197 4 打赏收藏转发到动态举报

写回复

用AI写文章

4 条回复

切换为时间正序

请发表友善的回复…

发表回复

bamboo2000 2003-11-29

打赏
举报

<%@ Language=VBScript %>
<HTML>
<HEAD>
<title>修改模板</title>
</HEAD>
<BODY>
<form action="" method=post>
<textarea name="txttemplate" id="txttemplate" COLS="100" ROWS="10">
<%on error resume next
Set MyFileObject=Server.CreateObject("Scripting.FileSystemObject")
if err.number<>0 then response.write "服务器不支持FSO，不能完成操作!"
if request.form("submit")<>"" then
Set MyTextFile=MyFileObject.OpenTextFile(Server.MapPath("template.txt"),2,true)
if err.number<>0 then response.write err.description
MyTextFile.Write Request.Form("txttemplate")
if err.number=0 then Response.Write "保存成功" else response.write "保存出错"
else
Set MyTextFile=MyFileObject.OpenTextFile(Server.MapPath("template.txt"),1,true)
if err.number<>0 then response.write err.description
Response.Write MyTextFile.ReadAll
if err.number<>0 then Response.Write "读取文件时出错"
end if
MyTextFile.Close
Set MyFileObject=Nothing
%>
</textarea><br>
<input type=submit value=保存>
</BODY>
</HTML>

meteorlg 2003-11-29

打赏
举报

这个我清楚，我不清楚的是如何把这个写在按钮事件中和如何在按钮事件中得到textarea中的文本
我曾经写
sub updatetemplate()
end sub
然后把上边你写的代码写在sub里边
然后<input type=button onclick=updatetemplate() value="保存">
可是会报错

aspczlover 2003-11-29

打赏
举报

如下：
Set objFSO = CreateObject("Scripting.FileSystemObject")
set mytextfile=objfso.OpenTextFile("要保存到的绝对路径，比如(c:\1.txt)",2,true)
mytextfile.Write("你textarea中的文本")
你应该清楚了～

lsaturn 2003-11-29