【原創】燒喔~計數器語法

墮夜

簡易計數器

一、基本式

＜%
application("count")瀏覽人數加1
application("count") = application("count") + 1
%＞

＜HTML＞
＜BODY＞
………
………
………
瀏覽人數：＜% =application("count")%＞ 顯示瀏覽人數
＜/HTML＞
＜/BODY＞

二、加入"防止重複"

＜%
application("count")瀏覽人數加1前先鎖定
application.Lock
application("count") = application("count") + 1
application.UnLock 鎖定解除
%＞

三、加入"防止重新整理加1" ＜%
color="#999999">
如果session("login")是空白表示未瀏覽 , application("count")瀏覽人數加1
</FONT>if isEmpty(session("login")) then
application.Lock
application("count") = application("count") + 1
application.UnLock
session("login")=True 將session("login")設為真值True , 表示該使用者已瀏覽
end if
%＞


----------------------------------------------------

這樣的計數器不會像Frontpage一樣可以自行設定初始值

也就是所謂的"灌水計數"

還有...黃色字樣是註解

複製的時候不要也打進去啊XD

墮夜

[QUOTE=Arima](舉起左手...)那...數字會不會因為破表然後亂掉...!?
以前好像看到某個網站的計數記顯示的數字都歪七扭八的...
大概是人數太多的樣子...剛好想起來。[/QUOTE]
不會!

因為這不是圖形化的計數器

它使用的是長整數(Long)

所以不會有整數(Integer)那樣只有32767

Arima

(舉起左手...)那...數字會不會因為破表然後亂掉...!?
以前好像看到某個網站的計數記顯示的數字都歪七扭八的...
大概是人數太多的樣子...剛好想起來。

墮夜

插入/製作方法:

先開個新檔案取名為: global.asa

然後請確定你們用的是"VB架站"

然後把樓上的語法自行組合後貼進去

存檔後放置在和你"網頁存檔資料夾同一個目錄下"

不然網頁會讀不到global

插入時在HTML模式輸入<%application("count")%>

(記得在你要的位置點一下後再進去HTML)