11.asp ASP+ACCESS在线教育系统设计(源代码+论文) - ASP源码程序

www.gusucode.com > ASP+ACCESS在线教育系统设计(源代码+论文) > ASP+ACCESS在线教育系统设计(源代码+论文)\王智_在线教育系统\chat\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>