edittxt.asp

来自「Active Server Pages 网页制作教程看之前请传到ASP空间。或者」· ASP 代码 · 共 23 行

ASP
23
字号
<%
Set fs = Server.CreateObject("Scripting.FileSystemObject")
File = Server.MapPath( "Sample.txt" )

Set txtf = fs.OpenTextFile( File )
If Not txtf.atEndOfStream Then	' 先确定还没有到达结尾的位置
    Content = txtf.ReadAll	' 读取整个文件的信息
End If
%>
<HTML>
<BODY>
<H2>Sample.txt 编辑网页<HR></H2>
<FORM Action=EditDsp.asp Method=POST>
   <TEXTAREA Rows=10 Cols=60 Name=Sample><%=Content%>
   </TEXTAREA><P>
   <INPUT Type=Submit Value=" 提交">
</FORM>
</BODY>
</HTML>



⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?