把电话号变成图片

1 <%
2 Dim N,M,i
3 N=13866669999
4 for i=1 to Len(N)
5 M=mid(N,i,1)
6 Response.write "<img src='"&M&".png'>"
7 next
8 %>