【ASP】GBK汉字转拼音程序，支持多音字

原创作品，转载请保留作者，谢谢！
支持GBK汉字20901个，支持多音字，配合下面字典。
http://dl2.csdn.net/down4/20070731/31152458133.rar
这个字典是无音调版。

<%
Set fso=Server.CreateObject("Scripting.FileSystemObject")
Set d = server.CreateObject("Scripting.Dictionary") 
Set f=fso.OpenTextFile(Server.MapPath&"table_ISCCD_no_tune_no_repeat.txt")
Do While f.AtEndOfLine <> True
    r=f.readline
    rr=Split(r,":")
    d.add rr(0),Right(rr(1),Len(rr(1))-1)
Loop
f.close
hz=request("hz")
lhz= Len(hz)
For i=1 To lhz
    dhz=Mid(hz,i,1)
    If d.Exists(dhz) then
        ItemDemo = d.Item(dhz)
        response.write ItemDemo
    Else
        response.write dhz
    End if
next
%>
<form method=post> 
请在此处输入中文：<input name=hz> 
</form>
</body>
</html>