function.asp

基于ASP开发的聊天室源码

<%
function saveword(w1,w2,w3,w4,w5)

Application.Lock
 oldsay=Application("zzbird_words")
 line=Application("zzbird_line")
 Application("zzbird_line")=line+1
 dim newsay(240)
 for i=1 to 234
 newsay(i)=oldsay(i+6)
 next
 newsay(235)=line+1
 newsay(236)=w1
 newsay(237)=w2
 newsay(238)=w3
 newsay(239)=w4
 newsay(240)=w5
 Application("zzbird_words")=newsay
 Application.UnLock

end function
%>