echat_finder.asp

聊天

<%
Dim MyFinder,str
Set MyFinder = Server.CreateObject("FINDER.FindData")

MyFinder.LogPath = request("LogPath")
MyFinder.UserName = request("UserName")
MyFinder.BeginTime = request("BeginTime")
MyFinder.EndTime = request("EndTime")
MyFinder.Find()

do
	str = MyFinder.ReadLine()
	response.write str
loop while str <> ""

set MyFinder = Nothing
%>