<% '計算上線人數 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 %>
新港古笨港陶華園　嘉義縣新港鄉南港村117之86號
電話：05-781-2588 　FAX：05-781-3296　E-Mail：a7812588@yahoo.com.tw
 直接進入
您是本站第 <%=sntab%> 位光臨嘉賓，如果您無法觀看FLASH動畫，請先下載 Macromedia Flash Player。　
 <<東大科技製作>>