汉字转拼音的ASP程序[这个也可以测试Dictionary类的效率]

下面这个要保存成gb2312的编码<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%><%Option Explicit%><%Response.CharSet="gb2312"Response.AddHeader "Pragma","no-cache"Response.AddHeader "cache-ctrol","no-cache"Response.Expires = -1Response.ExpiresAbsolute = Now() - 1Response.CacheControl = "no-cache"Session.CodePage=936%><!--#include file="Dictionary.asp"--><% Dim dSet d = New Dictionaryd.add "a",-20319,cNumber d.add "ai",-20317,cNumber d.add "an",-20304,cNumberd.add "ang",-20295,cNumberd.add "ao",-20292,cNumberd.add "ba"