global.asa檔案

來源:互聯網
上載者:User
<SCRIPT LANGUAGE="VBScript" RUNAT="Server">
sub Application_OnStart
DIM chatpoin,roomname,kicklist,chatdata(50,6),onliuser,chatcomm(50)
for i=0 to 50
   chatdata(i,0)=""
   chatdata(i,1)=""
   chatdata(i,2)=0
   chatdata(i,3)=""
   chatdata(i,4)=0  
   chatdata(i,5)=""
   chatcomm(i)=""
next
chatcomm(0)="'00:00:00,系統訊息,0,所有人,ff0000,0,你好,你是第一位光臨的客人'"

application.lock
  application("roomname")="溫馨情緣"
  application("onliuser")=""
  application("chatpoin")=0
  application("kicklist")=""
  application("chatdata")=chatdata
  application("chatcomm")=chatcomm
application.unlock
end sub

sub Session_onEnd
ip=session("userip")
id=session("userid")
chatdata=application("chatdata")
application.lock
  application("kicklist")=replace(application("kicklist"),",'"&chatdata(id,1)&"'","")
  application("kicklist")=replace(application("kicklist"),",'#"&chatdata(id,0)&"'","")
  application("onliuser")=replace(application("onliuser"),",'"&chatdata(id,0)&"'","")
application.unlock
for i=0 to 50
  chatdata(i,4)=(chatdata(i,4) mod 4)+4
next
chatdata(id,0)=""
chatdata(id,1)=""
chatdata(id,2)=""
chatdata(id,3)=""
chatdata(id,4)=""
chatdata(id,5)=""
application.lock
  appliation("chatdata")=chatdata
application.unlock
end sub
</SCRIPT>



相關文章

Beyond APAC's No.1 Cloud

19.6% IaaS Market Share in Asia Pacific - Gartner IT Service report, 2018

Learn more >

Apsara Conference 2019

The Rise of Data Intelligence, September 25th - 27th, Hangzhou, China

Learn more >

Alibaba Cloud Free Trial

Learn and experience the power of Alibaba Cloud with a free trial worth $300-1200 USD

Learn more >

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。