📄 edit.asp
字号:
<%
Set fs = Server.CreateObject("Scripting.FileSystemObject")
File = Server.MapPath( "homepage.txt" )
Set txtf = fs.OpenTextFile( File )
If Not txtf.atEndOfStream Then ' 先确定还没有到达结尾的位置
Content = txtf.ReadAll ' 读取整个文件的信息
End If
%>
<HTML> <BODY>
<H2>个人主页编辑器<HR></H2>
<FORM Action=display.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 + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -