📄 5-14.asp
字号:
<%Response.Expires=0%>
<html>
<head>
<title>Server对象的应用</title>
</head>
<body bgcolor=white>
<font color=red size=5>修改文本文件data.txt的内容</font>
<form method=post action="5-15.asp">
<%dim objfile
dim objstream3
set objfile=Server.CreateObject("Scripting.FileSystemObject")
'创建一个名为objfile的FileSystemObject对象实例
If (not objfile.fileExists(Server.MapPath("../book")&"\data.txt")) Then
set objstream3=objfile.createtextfile(Server.MapPath("../book")&"\data.txt")
'判断data.txt文件是否存在于当前文件夹下，若不存在，则创建一个同名新文件
objstream3.writeline()
end If
set objstream3=objfile.OpenTextFile(Server.MapPath("../book")&"\data.txt")
'取得文本文件data.txt的物理路径，并打开它
Response.Write "<TEXTAREA NAME=s1"&" ROWS=8 COLS=50>"
strtext=objstream3.readall '读取文件中的字符到变量strtext中
Response.Write strtext
Response.Write "</TEXTAREA>"
objstream3.close '关闭该文本文件
set objstream3=nothing
set objfile=nothing%>
<br><br>
<input type="submit" value=" 确定 "><input type="reset" value=" 重置 " >
</form>
</body></html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -