quitchat.asp

2002年夏天为一个同学制作得班级同学录程序

<%@ LANGUAGE = "VBScript" %>
<%response.buffer=true%>

<%


application.lock
Application("UserNum")=Application("UserNum")-1
Application("show")="<p><font color='#1e90ff'>"&session("UserName") &"</font> 离开聊天室...(Leave this chat room)</p>" &Application("show")
application.unlock

str="<OPTION value="&session("UserName")&">"&session("UserName")&"</option>"

if instrrev(application("listname"),str)<>0 then

del_start=instr(application("listname"),str)-1

del_end=del_start+len(str)

str_start=left(application("listname"),del_start)

str_end=right(application("listname"),len(application("listname")) -del_end)

application.lock
application("listname")=str_start+str_end
application.unlock

end if

Session("Leave")=true

'Session.Abandon
response.redirect "enter.asp"

%>