inc.asp

来自「此程序为网上下载」· ASP 代码 · 共 14 行

<%
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
%>