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 + -
显示快捷键?