<%function contentstr(content)
dim strbig,tstrbig,strsma,tstrsma
strbig="ＡＢＣＤＥＦＧＨＩＪＫＬＭＮＯＰＱＲＳＴＵＶＷＸＹＺ＇ａｂｃｄｅｆｇｈｉｊｋｌｍｎｏｐｑｒｓｔｕｖｗｘｙｚ０１２３４５６７８９"
tstrbig="ABCDEFGHIJKLMNOPQRSTUVWXYZ'abcdefghijklmnopqrstuvwxyz0123456789"
for i=1 to 67
content=Replace(content,mid(strbig,i,1),mid(tstrbig,i,1))
next
contentstr=content
end function
Response.write(Contentstr("ＡＢＣＤＥａｂ０１２"))
%>