'VBScript 程式碼
'轉換CounterValue所記錄的數值成為對應的圖形組合,設計條件如下:
'CounterValue記錄數值的變數
'Counter_bits設定輸出圖形的位元數
'Path設定圖形的預設儲存位置

Function G_Transfor(CounterValue, Counter_bits, Path)
for i = 1 to Counter_bits

     '從CounterValue變數所記錄的數值中分出單一位元的整數資料
     G=mid(CounterValue,i,1)

     '依據G所取得的單一數值資料產生對應的圖形元件標籤
     if G = "" then 
         G = 0
         ImgTag = "<img src='" & Path &"/" & G &".gif' width='15' height ='15'>" & ImgTag
     else     
         ImgTag =  ImgTag & "<img src='" & Path &"/" & G &".gif' width='15' height ='15'>"
     end if
next

'將最後產生的圖形標籤資料回存在G_Transfor之中回傳
G_Transfor = ImgTag
End Function