<% '計算上線人數 ' 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 & "
" ' 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%>位光臨嘉賓
中文版
ENGLISH
長龍科技製作
網站建置中！
![您是我們第"&sn&"位來賓](http://sales.ho.net.tw/sn/01/"&MID(SN,I,1)&".GIF){kind=small}
"
' 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
%>