write.asp

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

<%
response.buffer=true
response.clear
  dim sp
  dim s
  s=session("nam1")
  sp=trim(request("speak"))
  strcnn="provider=Microsoft.Jet.OLEDB.4.0;Data source=" & server.MapPath("liaotian.mdb")
  set conn=server.CreateObject("ADODB.Connection")
  conn.open strCnn
  set rst=server.CreateObject("ADODB.Recordset")
  rst.open"select * from liao ",strcnn,1,3
   rst.addnew 
   rst("肖像")=session("ts")
   rst("发言人")=s
   rst("对话人")=request("ren")
    rst("时间")=now
    rst("说话")=sp
rst.update

conn.Close 
set conn=nothing
rst.Close 
set rst=nothing
      
 
 %>