liao.asp

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

<%
response.buffer=true
response.clear
session("fp")="no"
  dim nam
  dim pass
  nam=trim(request("name"))
   session("tim")=now
  session("nam1")=nam
  session("count")=0
 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 ",strcnn,1,3
 dim bh
 bh=0
 if rst.eof=true then
  bh=1
else
  rst.movelast

  bh=rst("编号") + 1
end if
rst.Close 
session("bh")=trim(bh) 
 rst.open"select * from atline ",strcnn,1,3
 rst.addnew
    rst("编号")=bh
   rst("肖像")=session("ts")
   rst("名字")=nam
rst.update
conn.Close 
set conn=nothing
rst.Close 
set rst=nothing
Dim N
Application.Lock
Application("N") = Application("N") + 1
Application.Unlock
session("atline")=Application("N")
session("me")=1
 %>
<p><%=nam%></p>
<%
  response.redirect "/liaotian/tian.htm" 
  %>