usercheck.asp

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

<%Username=trim(session("username"))
  UserLevel=trim(session("userlevel"))
  if UserName="" or UserLevel="" then response.redirect "msg.asp?msg=未登陆用户，请先登陆！"

function InsertChat(str,name,towho,state,tm)
    application.lock
    c_info=application("c_info"&session("room_id"))
    for i=5 to 239
       c_info(i-5)=c_info(i)
    next
    c_info(239)=str
    c_info(238)=name
    c_info(237)=towho
    c_info(236)=state
    c_info(235)=tm
    application("c_info"&session("room_id"))=c_info
    application.unlock
  end function

%>