asp小程序_免费下载.doc

chat.asp%name=trim(request(name)if len(name)0 thensession(name)=nameitems=split(application(people),)if ubound(items)=100 thenresponse.write 人满，请稍后进入session.abandonresponse.endend ifapplication.lockapplication(people)=application(people)&name&,application(name)=欢迎&name&进入聊天室!application.unlock%请加入绿色聊天室欢迎进入聊天室您的昵名：content.asp聊天内容%name=session(name)if session(name) thenresponse.write application(name)else%请您进入聊天室main.asp 聊天室浏览不支持talker.asp聊天人员%if session(name) then%聊天者:%items=split(application(people),)response.write&-&_session(name)&-&for i=0 to ubound(items)-1if session(name)items(i)thenresponse.write&-&_items(i)&-&end ifnextelse%请你离开talking.asp%quit=request(quit)if quit=退出 thenname=session(name)items=split(application(people),)application.lockapplication(people)=for i=1 to ubond(items)-1if items(i)name thenapplication(people)=application(people)&items(i)&,end ifnextapplication(name)=application.unlocksession.abandonresponse.endelsewho=request(who)if who=all thenwho=大家end ifif request(content) thenname=session(name)str=&name  对 &who &request(face)&说：_&request(content)&items=split(application(people),)application.lockif request(who)=all thenfor i=0 to ubound(items)-1application(items(i)=str&application(items(i)nextelsefor i=0 to ubound(items)-1if items(i)=name or items(i)=who thenapplication(items(i)=str&appli