代码在这里~
Function Digital(counter)
Dim i,MyStr,scounter
scounter=CStr(counter)
For i=1 To counter_lenth-Len(scounter)
MyStr=MyStr & "<IMG SRC=sc\0.gif>"
Next
For i=1 To Len(scounter)
MyStr=MyStr & "<IMG SRC=sc\" & Mid(scounter,i,1) & ".gif>"
Next
Digital=MyStr
End Function