<%functionunicode(str)dimi,j,c,i1,i2,u,fs,f,punicode=""p=""fori=1tolen(str)c=mid(str,i,1)j=ascw(c)ifj<0thenj=j+65536endififj>=0andj<=128thenifp="c"thenunicode=""&unicodep="e"endifunicode=unicode&celseifp="e"thenunicode=unicode&""p="c"endifunicode=unicode&"&#"&j&am...