<% '計算上線人數 Countfile=Server.MapPath("sn.txt") Set FileObject=Server.CreateObject("Scripting.FileSystemObject") Set Out=FileObject.OpenTextFile(CountFile,1,false,false) sn=Out.Readline Out.Close FOR I = 1 TO LEN(SN) SNTAB=SNTAB & "您是我們第"&sn&"位來賓" NEXT SET fileObject=Server.CreateObject("Scripting.FileSystemObject") Set Out=FileObject.CreateTextFile(Countfile,TRUE,false) Application.lock sn=sn+1 Out.writeLine(sn) Application.Unlock Out.Close %>

您是本站第 <%=sntab%> 位光臨嘉賓,如果您無法觀看FLASH動畫,請先下載 Macromedia Flash Player。 
直接進入
本站最佳瀏覽環境為1024*768
<<長龍科技製作>>