cfg.asp

一个用vb开发的比较好的聊天系统

<%
Application("chat_mdb")="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("mdb.mdb")
Set conn=Server.CreateObject("ADODB.CONNECTION")
Set rs=Server.CreateObject("ADODB.RecordSet")
conn.open Application("chat_mdb")     
if application("LoginFirst"&session("room_id"))<>2 then
        dim c_info(240)
        application("c_info"&session("room_id"))=c_info
        application("Host")=request.ServerVariables("Local_addr")   '语音服务器地址，默认为WEB服务器地址
        application("Port")=701                                     '语音通讯端口
        application("ChatInfo")="锐迅网络语音聊天室"                '聊天室名称
        application("GbookAdmin")="admin"                           '留言板管理员
        application("GbookPWD")="admin"                             '留言板管理员密码
        application("LoginFirst"&session("room_id"))=2
      end if
  
  function db_close()
     conn.close
     set rs=nothing
     set conn=nothing
  end function
 
%>