怎樣用ASP編寫圖片計數(shù)器_ASP教程

      編輯Tag賺U幣
      教程Tag:暫無Tag,歡迎添加,賺取U幣!

      推薦:flash結(jié)合asp制作出的顯ip,版本,登陸時間,訪問次數(shù)
      也不知道算不算原創(chuàng),反正是沒有參照任何東西,自己動手做的。 首先需要2個asp文件,1個文本文件,還有就是1個swf文件了。 -------------------info.asp---------------------------- //這里是顯示ip,版本,登陸時間的 !--#include file=num.asp-- % set user

      在Internet上,用ASP編寫的計數(shù)器到處都是,本人覺得再在這里談ASP編寫計數(shù)器已沒有多大意義。后來想想還是有必要談一下,因為這不僅僅只是在談計數(shù)器的編寫,而是在向大家介紹ASP的知識與應(yīng)用技巧。

      程序原代碼如下:

        $#@60;%countlong=8
      ′countlong定義計數(shù)器顯示位數(shù)
        On Error Resume Next
      ′ 忽略所有的錯誤
        count=server.mappath(″count.txt″)
        set cou = server.createobject(″scripting.filesystemobject″)
        set out=cou.opentextfile(count,1,false,false)
        counter=out.readline
        out.close
        ′以上代碼是打開文件count.txt并讀取一行,讀出目前計數(shù)器的值
        if session(″in″)$#@60;$#@62;″in″ then
        ′判斷用戶是否已進(jìn)入主頁,以確保他按刷新或再次來到此頁面時計數(shù)器不會再加1
        session(″in″)=″in″
        set out = cou.createtextfile(count,true,false)
        application.lock
        counter=counter+1
      ′計數(shù)器加1
        out.writeline(counter)
        application.unlock
        out.close
        ′以上代碼是建立一個新的文件count.txt并寫入一行,寫入加1后計數(shù)器的值
        end if
        co=cstr(counter)
      ′cstr函數(shù)用來把數(shù)字型變量轉(zhuǎn)換成字符型
        for i = 1 to countlong-len(co)
        response.write ″″
        next
        ′上面的循環(huán)語句是完成計數(shù)器前面的0圖片的添加
        ′len(co)函數(shù)是得到變量co的長度,countlong-len(co)就得到前面0圖片的個數(shù)
        for i= 1 to len(co)
        response.write ″″
        next
        ′mid(co,i,1)函數(shù)是用來從變量co的第i位開始讀一個字符%$#@62;
      這個計數(shù)器做得比較成功的地方是使用session防止用戶對計數(shù)器的多次刷新; 使用了文本文件記錄計數(shù)器的值,雖然代碼寫起來比較長,但比起用application對象要好得多,因為當(dāng)服務(wù)器reboot或改動global.asa時,application對象的值就會被清空; 還有就是用圖片代替了字符,看起來更美觀大方!

      計數(shù)器的圖片你可以自己設(shè)計一下,0用文件名0.gif,1用1.gif,以此類推。

      分享:ASP中20個非常有用的技巧
      1.如何用Asp判斷你的網(wǎng)站的虛擬物理路徑 答:使用Mappath方法 p align=center font size=4 face=Arial b The Physical path to this virtual website is: /b /font font color=#FF0000 size=6 face=Arial %= Server.MapPath(\)% /font /p 2.我如何知道使用者

      來源:模板無憂//所屬分類:ASP教程/更新時間:2009-05-20
      相關(guān)ASP教程