fyr.asp

asp的web在线聊天室源程序,程序实现了聊天室的许多功能,特别是刷新功能,做到了实时刷新(有人说话才刷,保持.zip

<% dim ss
  ss=trim(request("fy"))
%>
  <SCRIPT LANGUAGE="VBScript">
<!--

	Dim TheForm
	Set TheForm = Document.fy
	 TheForm.ren.Value=<%=ss%>

-->
</SCRIPT>
%>