Bokstäver > bilder

En smart funktion för att byta ut bokstäver mot bilder.

Function ConvertStringToImage(ByVal sString)
	
	Dim sBasePath, i, sLetter
	
	sBasePath = "images/"
	
	For i = 1 To Len(sString)
		sLetter = Mid(sString, i, 1)
		ConvertStringToImage = ConvertStringToImage & "<img src=""" & sBasePath & Asc(sLetter) & ".gif"" border=""0"" alt=""" & Server.HTMLEncode(sLetter) & """>"
	Next 'i
	
End Function

Response.Write ConvertStringToImage("foo")

Denna ger bilderna 1.gif, 2.gif...255.gif. Bara att döpa därefter. :)

	1.gif
	2.gif
	3.gif
	4.gif
	5.gif
	6.gif
	7.gif
	8.gif
		9.gif //vbTab

	10.gif //vbLf
	11.gif
	12.gif

	13.gif //vbCr
	14.gif
	15.gif
	16.gif
	17.gif
	18.gif
	19.gif
	20.gif
	21.gif
	22.gif
	23.gif
	24.gif
	25.gif
	26.gif
	27.gif
	28.gif
	29.gif
	30.gif
	31.gif
 	32.gif //space
!	33.gif
"	34.gif
#	35.gif
$	36.gif
%	37.gif
&	38.gif
'	39.gif
(	40.gif
)	41.gif
*	42.gif
+	43.gif
,	44.gif
-	45.gif
.	46.gif
/	47.gif
0	48.gif
1	49.gif
2	50.gif
3	51.gif
4	52.gif
5	53.gif
6	54.gif
7	55.gif
8	56.gif
9	57.gif
:	58.gif
;	59.gif
<	60.gif
=	61.gif
>	62.gif
?	63.gif
@	64.gif
A	65.gif
B	66.gif
C	67.gif
D	68.gif
E	69.gif
F	70.gif
G	71.gif
H	72.gif
I	73.gif
J	74.gif
K	75.gif
L	76.gif
M	77.gif
N	78.gif
O	79.gif
P	80.gif
Q	81.gif
R	82.gif
S	83.gif
T	84.gif
U	85.gif
V	86.gif
W	87.gif
X	88.gif
Y	89.gif
Z	90.gif
[	91.gif
\	92.gif
]	93.gif
^	94.gif
_	95.gif
`	96.gif
a	97.gif
b	98.gif
c	99.gif
d	100.gif
e	101.gif
f	102.gif
g	103.gif
h	104.gif
i	105.gif
j	106.gif
k	107.gif
l	108.gif
m	109.gif
n	110.gif
o	111.gif
p	112.gif
q	113.gif
r	114.gif
s	115.gif
t	116.gif
u	117.gif
v	118.gif
w	119.gif
x	120.gif
y	121.gif
z	122.gif
{	123.gif
|	124.gif
}	125.gif
~	126.gif
	127.gif
&#8364;	128.gif
	129.gif
&#8218;	130.gif
&#402;	131.gif
&#8222;	132.gif
&#8230;	133.gif
&#8224;	134.gif
&#8225;	135.gif
&#710;	136.gif
&#8240;	137.gif
&#352;	138.gif
&#8249;	139.gif
&#338;	140.gif
	141.gif
&#381;	142.gif
	143.gif
	144.gif
&#8216;	145.gif
&#8217;	146.gif
&#8220;	147.gif
&#8221;	148.gif
&#8226;	149.gif
&#8211;	150.gif
&#8212;	151.gif
&#732;	152.gif
&#8482;	153.gif
&#353;	154.gif
&#8250;	155.gif
&#339;	156.gif
	157.gif
&#382;	158.gif
&#376;	159.gif
&#160;	160.gif
&#161;	161.gif
&#162;	162.gif
&#163;	163.gif
&#164;	164.gif
&#165;	165.gif
&#166;	166.gif
&#167;	167.gif
&#168;	168.gif
&#169;	169.gif
&#170;	170.gif
&#171;	171.gif
&#172;	172.gif
&#173;	173.gif
&#174;	174.gif
&#175;	175.gif
&#176;	176.gif
&#177;	177.gif
&#178;	178.gif
&#179;	179.gif
&#180;	180.gif
&#181;	181.gif
&#182;	182.gif
&#183;	183.gif
&#184;	184.gif
&#185;	185.gif
&#186;	186.gif
&#187;	187.gif
&#188;	188.gif
&#189;	189.gif
&#190;	190.gif
&#191;	191.gif
&#192;	192.gif
&#193;	193.gif
&#194;	194.gif
&#195;	195.gif
&#196;	196.gif
&#197;	197.gif
&#198;	198.gif
&#199;	199.gif
&#200;	200.gif
&#201;	201.gif
&#202;	202.gif
&#203;	203.gif
&#204;	204.gif
&#205;	205.gif
&#206;	206.gif
&#207;	207.gif
&#208;	208.gif
&#209;	209.gif
&#210;	210.gif
&#211;	211.gif
&#212;	212.gif
&#213;	213.gif
&#214;	214.gif
&#215;	215.gif
&#216;	216.gif
&#217;	217.gif
&#218;	218.gif
&#219;	219.gif
&#220;	220.gif
&#221;	221.gif
&#222;	222.gif
&#223;	223.gif
&#224;	224.gif
&#225;	225.gif
&#226;	226.gif
&#227;	227.gif
&#228;	228.gif
&#229;	229.gif
&#230;	230.gif
&#231;	231.gif
&#232;	232.gif
&#233;	233.gif
&#234;	234.gif
&#235;	235.gif
&#236;	236.gif
&#237;	237.gif
&#238;	238.gif
&#239;	239.gif
&#240;	240.gif
&#241;	241.gif
&#242;	242.gif
&#243;	243.gif
&#244;	244.gif
&#245;	245.gif
&#246;	246.gif
&#247;	247.gif
&#248;	248.gif
&#249;	249.gif
&#250;	250.gif
&#251;	251.gif
&#252;	252.gif
&#253;	253.gif
&#254;	254.gif
&#255;	255.gif