ss.asp

这是一个聊天程序! 2008年12月26日0:49:15

<%
  Dim N
Application.Lock
Application("N") = Application("N") - 1
Application.Unlock
 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("肖像")="0.jpg"
   rst("发言人")="系统"
   rst("对话人")="大家"
    rst("时间")=now
    rst("说话")= session("nam1") & "离开了聊天室！！！！"
rst.update
rst.close
  rst.open"select * from atline where 编号=" & session("bh"),strcnn,1,3
  rst.Delete  
  
conn.Close 
set conn=nothing
rst.Close 
set rst=nothing
%>