<% '-------------------------------------------------------- ' page (此程式要計算counter的網頁名稱) ' style(counter要顯示的樣式號碼) '-------------------------------------------------------- page=Trim(Request.QueryString("page")) style=trim(request.querystring("style")) '-------------------------------------------------------- ' weburl (此網站的url) ' scriptpath (counter.asp的路徑) ' counterfile(紀錄counter次數的檔案路徑) '-------------------------------------------------------- weburl=Request.ServerVariables("SERVER_NAME") scriptpath=Request.ServerVariables("SCRIPT_NAME") counterfile=server.mappath("page/counter."&page&".txt") '-------------------------------------------------------- ' 若該紀錄counter次數的檔案不存在,則將來訪各數設為 1 '-------------------------------------------------------- Set fs = CreateObject("Scripting.FileSystemObject") if fs.FileExists(counterfile) then Set thefile = fs.OpenTextFile(counterfile) visitors=thefile.readline thefile.close else visitors = 1 end if '-------------------------------------------------------- ' 將來訪人數用圖片顯示出來 '-------------------------------------------------------- counterlen=len(visitors) for i=1 to counterlen gif=mid(visitors,i,1) gifurl="http://"&weburl&Left(scriptpath,(len(scriptpath)-11))&style&"/"&gif %> document.write('') <% next '-------------------------------------------------------- ' 將來訪人數加1後回存檔案 '-------------------------------------------------------- application.lock visitors=visitors+1 Set out=fs.CreateTextFile(counterfile) out.WriteLine(visitors) out.close set fs=nothing application.unlock %>