level 3
按键用户
楼主
<%
'读取“Submit.asp”的内容
Public Function ReadText()
set fs=server.createobject("scripting.filesystemobject")
file=server.mappath(request.form("Text1"))
set txt=fs.opentextfile(file,1,true)
if not txt.atendofstream then
ReadText=txt.ReadAll
'response.write line
end if
End Function
'保存为“1.txt”
Public Function WriteTxtFile()
set fso = server.createobject("scripting.filesystemobject")
set f2=fso.opentextfile(server.mappath("1.txt"),2,true)
f2.write request.form("content")
f2.close
End Function
%>
<html>
<form method="post">
<p>帐号：<input type="text" name="Text1" value="Submit.asp" size="10"></p>
<p><input type="submit" value="确定" onClick="return ReadText()" >
</form>
<form method="post"onClick=<% WriteTxtFile()%>>
<textarea name="content" rows="16" cols="80" onpropertychange="if(this.scrollHeight>80)
this.style.posHeight=this.scrollHeight+5"><% =ReadText%></textarea>
<p><input type="submit" value="确定" >
<input type="reset" value="取消">
</form>
</html>
2012年11月25日 15点11分
1
'读取“Submit.asp”的内容
Public Function ReadText()
set fs=server.createobject("scripting.filesystemobject")
file=server.mappath(request.form("Text1"))
set txt=fs.opentextfile(file,1,true)
if not txt.atendofstream then
ReadText=txt.ReadAll
'response.write line
end if
End Function
'保存为“1.txt”
Public Function WriteTxtFile()
set fso = server.createobject("scripting.filesystemobject")
set f2=fso.opentextfile(server.mappath("1.txt"),2,true)
f2.write request.form("content")
f2.close
End Function
%>
<html>
<form method="post">
<p>帐号：<input type="text" name="Text1" value="Submit.asp" size="10"></p>
<p><input type="submit" value="确定" onClick="return ReadText()" >
</form>
<form method="post"onClick=<% WriteTxtFile()%>>
<textarea name="content" rows="16" cols="80" onpropertychange="if(this.scrollHeight>80)
this.style.posHeight=this.scrollHeight+5"><% =ReadText%></textarea>
<p><input type="submit" value="确定" >
<input type="reset" value="取消">
</form>
</html>