图形化的计算器演示程序
程序代码：<%@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>
点解无法显示图形数字
