參訪人數 <% 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 本公司版權所有盜用必究,非經正式書面同意,不得將全部或部分內容轉載。

回「新營客運」首頁 facebook 回「新營客運」首頁