📄 11.asp
字号:
<%@ Language=VBScript %>
<HTML>
<HEAD>
</HEAD>
<BODY bgColor=#fdf5e6>
<center>
<font color=red size=10 face=隶书><FONT color=palevioletred>实</FONT>时答疑</font><br>
</center>
<%
dim fileobject
dim textfile
dim filepath
filepath = server.MapPath("1.txt")
set fileobject = server.CreateObject("Scripting.FileSystemObject")
'下面是写入过程
if fileobject.FileExists(filepath) then
'如果记录文件已经存在
set textfile = fileobject.OpenTextFile(filepath,8,true,0)
if request("sentence")="" then
else
textfile.writeline "<font color='palevioletred'>" & request("user") & "</font>" & "("&now()&")" & ":" & "<font color='blue'>" &request("sentence") & "</font>"
end if
textfile.close
else
'如果记录文件不存在
set textfile = fileobject.CreateTextFile(filepath)
textfile.WriteLine(now())
textfile.close
end if
'下面是读出过程
set textfile = fileobject.OpenTextFile(filepath,1,false,0)
do while not textfile.AtEndOfStream
Response.Write textfile.readline&"<br>"
loop
textfile.close
%>
<a name="tail"></a>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -