把电话号变成图片

<%
Dim N,M,i
N=13866669999
for i=1 to Len(N)
M=mid(N,i,1)
Response.write "<img src='"&M&".png'>"
next
%>