|
參訪人數
<%
dim intCounter
dim strCounter,strOutputCounter
dim strImageExample
dim strOutput,strChar
dim i
'判斷是否已進入過網站了
if Session("sesBlnEntered")=Empty then
intCounter=kjFileCounter("/counter.txt")
Session("sesBlnEntered")=true
else
intCounter=kjReadFileCounter("/counter.txt")
end if
'將數字補成至少 8 位數
strCounter=CStr(intCounter)
if len(strCounter)<8 then
strOutputCounter=String(8-len(strCounter),"0") & strCounter
else
strOutputCounter=strCounter
end if
'組成輸出「圖片」字串
strImageExample=""
strOutput=""
for i=1 to len(strOutputCounter)
strChar=Mid(strOutputCounter,i,1)
strOutput=strOutput & Replace(strImageExample,"x",strChar)
next
'輸出
Response.Write(strOutput)
%>
在線人數
<%
'在線人數
'將數字補成至少 3 位數
strCounter=CStr(Application("appOnlinePeople"))
if len(strCounter)<3 then
strOutputCounter=String(3-len(strCounter),"0") & strCounter
else
strOutputCounter=strCounter
end if
'組成輸出「圖片」字串
strImageExample=""
strOutput=""
for i=1 to len(strOutputCounter)
strChar=Mid(strOutputCounter,i,1)
strOutput=strOutput & Replace(strImageExample,"x",strChar)
next
'輸出
Response.Write(strOutput)
%> |
地址:台南市新營區開元路144號 電話:06-6331100 傳真:06-6362081
客服時間:週一~週五,8:00am~12:00pm,13:30pm~17:30pm E-MAIL:service@singing168.com.tw
新營汽車客運股份有限公司版權所有 CopyrightcSinging Bus Co, Ltd All Rights Reserved
最佳瀏覽視窗設定 I E 1024* 768 本公司版權所有盜用必究,非經正式書面同意,不得將全部或部分內容轉載。 |
|