我自己写的聊天室源代码（十_2）

<%'************************刷新,中*******************************%>
          if trim(request.form("who")) <> "所有人" then
              if isnumeric(request.form("time1")) then
             sc_who = session("ss_name")
             sc_who1 = trim(request.form("who"))
             sc_time = cstr(now)
             sc_time1 = cstr(dateadd("n",cint(request.form("time1")),now))
             sc_ss = "3"
             sc_long = trim(cstr(request.form("time1")))
             application.lock
                 sc_userout = application("ap_userout")
                 sc_point = application("ap_point")
                 sc_message = application("ap_message")
                 for i = 1 to 30
                if trim(sc_userout(i,1)) = "" then
                    sc_userout(i,1) = sc_who

补充：asp教程,高级应用