图形化的计算器演示程序 - 编程论坛

程序代码：

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>

<%
  function Digital(counter)
   dim i,MyStr,sCounter

   sCounter=CStr(counter)'转换字符型
   for i=1 to 8-Len(sCounter)
     MyStr=MyStr&"<img src=0.gif>"
   next

   for i=1 to len(sCounter)
    MyStr=MyStr&"<img src="&mid(sCounter,i,1)&".gif>"
   next

   digital=MyStr
  end function

  Application.Lock()
  Application("counter")=Application("counter")+1
  Application.UnLock()

%>

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.>
<html xmlns="http://www.>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>图形化的计算器</title>
</head>

<body>
<h2 align="center"><font color="#00FF66"></font></h2>
<hr color="#00FFFF" />
<p align="center">您是本站<%=Digital(Application("counter"))%>位访客，欢迎光临</p>
<hr />
</body>
</html>

点解无法显示图形数字