globcount.inc

来自「asp做的新闻系统」· INC 代码 · 共 32 行

<script language=VB runat="server">
Sub GlobalGraph(Container As Object)
        Dim Img As Image
        Dim lbl As Label
        Dim count As string
        Dim graph As String
        Dim i as integer
        lbl=new Label()
        lbl.text="该站点已被访问次数："
        Container.Controls.Add(lbl)
        count =Application("GuestCounter")
        for i=1 to len(count) 
           Img=new Image()       '动态生成Image控件
           graph=Mid(count,i,1)
           Img.ImageUrl=graph & ".gif"
           Container.Controls.Add(Img)  '加载到控件容器
        next
        lbl=new Label()
        lbl.text="当前在线人数："
        Container.Controls.Add(lbl)
        count=Application("CurrentGuest")
        for i=1 to len(count) 
           Img=new Image()       '动态生成Image控件
           graph=Mid(count,i,1)
           Img.ImageUrl=graph & ".gif"
           Container.Controls.Add(Img)  '加载到控件容器
        next
End sub
</script>