write.asp

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

<%
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
      
 
 %>