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

原创作品，转载请保留作者，谢谢！
支持GBK汉字20901个，支持多音字，配合下面字典。
http://dl2.youkuaiyun.com/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 >