inc.asp

此程序为网上下载

<%
Function Yushu(a)
	Yushu=(a and 31)
End Function

Sub AddMsg(Str)
	Application.Lock()
		Application("wsaxSayCount")=Application("wsaxSayCount")+1
		i="SayStr"&YuShu(Application("wsaxSayCount"))
		Application(i)=Str
	Application.UnLock()
End Sub
%>