Aspasp Chinese characters into Hanyu Pinyin program

ASP Chinese characters converted into Hanyu Pinyin code, the following code saved as an ASP file to run the results can be seen
<%
Set d = CreateObject ("Scripting.Dictionary")
D.add "A",-20319
D.add "AI",-20317
D.add "An",-20304
D.add "Ang",-20295
D.add "AO",-20292
D.add "Ba",-20283
D.add "Bai",-20265
D.add "Ban",-20257
D.add "Bang",-20242
D.add "Bao",-20230
D.add "Bei",-20051
D.add "Ben",-20036
D.add "Beng",-20032
D.add "Bi",-20026
D.add "Bian",-20002
D.add "Biao",-19990
D.add "Bie",-19986
D.add "Bin",-19982
D.add "Bing",-19976
D.add "Bo",-19805
D.add "Bu",-19784
D.add "Ca",-19775
D.add "Cai",-19774
D.add "Can",-19763
D.add "Cang",-19756
D.add "Cao",-19751
D.add "Ce",-19746
D.add "CEng",-19741
D.add "Cha",-19739
D.add "Chai",-19728
D.add "Chan",-19725
D.add "Chang",-19715
D.add "Chao",-19540
D.add "Che",-19531
D.add "Chen",-19525
D.add "Cheng",-19515
D.add "Chi",-19500
D.add "Chong",-19484
D.add "Chou",-19479
D.add "Chu",-19467
D.add "Chuai",-19289
D.add "Chuan",-19288
D.add "Chuang",-19281
D.add "Chui",-19275
D.add "Chun",-19270
D.add "Chuo",-19263
D.add "CI",-19261
D.add "Cong",-19249
D.add "Cou",-19243
D.add "CU",-19242
D.add "Cuan",-19238
D.add "Cui",-19235
D.add "Cun",-19227
D.add "CuO",-19224
D.add "Da",-19218
D.add "Dai",-19212
D.add "Dan",-19038
D.add "Dang",-19023
D.add "DAO",-19018
D.add "de",-19006
D.add "Deng",-19003
D.add "Di",-18996
D.add "Dian",-18977
D.add "Diao",-18961
D.add "Die",-18952
D.add "Ding",-18783
D.add "Diu",-18774
D.add "Dong",-18773
D.add "Dou",-18763
D.add "Du",-18756
D.add "Duan",-18741
D.add "DUI",-18735
D.add "Dun",-18731
D.add "Duo",-18722
D.add "E",-18710
D.add "en",-18697
D.add "ER",-18696
D.add "FA",-18526
D.add "Fan",-18518
D.add "Fang",-18501
D.add "Fei",-18490
D.add "Fen",-18478
D.add "Feng",-18463
D.add "fo",-18448
D.add "Fou",-18447
D.add "Fu",-18446
D.add "GA",-18239
D.add "Gai",-18237
D.add "Gan",-18231
D.add "Gang",-18220
D.add "Gao",-18211
D.add "GE",-18201
D.add "GEi",-18184
D.add "Gen",-18183
D.add "Geng",-18181
D.add "Gong",-18012
D.add "Gou",-17997
D.add "gu",-17988
D.add "Gua",-17970
D.add "Guai",-17964
D.add "Guan",-17961
D.add "Guang",-17950
D.add "GUI",-17947
D.add "Gun",-17931
D.add "Guo",-17928
D.add "Ha",-17922
D.add "Hai",-17759
D.add "Han",-17752
D.add "Hang",-17733
D.add "Hao",-17730
D.add "he",-17721
D.add "Hei",-17703
D.add "Hen",-17701
D.add "Heng",-17697
D.add ","-17692
D.add "Hou",-17683
D.add "Hu",-17676
D.add "Hua",-17496
D.add "Huai",-17487
D.add "Huan",-17482
D.add "Huang",-17468
D.add "Hui",-17454
D.add "Hun",-17433
D.add "Huo",-17427
D.add "Ji",-17417
D.add "Jia",-17202
D.add "Jian",-17185
D.add "Jiang",-16983
D.add "Jiao",-16970
D.add "Jie",-16942
D.add "Jin",-16915
D.add "Jing",-16733
D.add "Jiong",-16708
D.add "JIU",-16706
D.add "Ju",-16689
D.add "Juan",-16664
D.add "Jue",-16657
D.add "June",-16647
D.add "Ka",-16474
D.add "Kai",-16470
D.add "Kan",-16465
D.add "Kang",-16459
D.add "Kao",-16452
D.add "Ke",-16448
D.add "Ken",-16433
D.add "Keng",-16429
D.add "Kong",-16427
D.add "Kou",-16423
D.add "Ku",-16419
D.add "Kua",-16412
D.add "Kuai",-16407
D.add "Kuan",-16403
D.add "Kuang",-16401
D.add "Kui",-16393
D.add "Kun",-16220
D.add "Kuo",-16216
D.add "La",-16212
D.add "Lai",-16205
D.add "LAN",-16202
D.add "Lang",-16187
D.add "Lao",-16180
D.add "Le",-16171
D.add "Lei",-16169
D.add "Leng",-16158
D.add "Li",-16155
D.add "Lia",-15959
D.add "Lian",-15958
D.add "Liang",-15944
D.add "Liao",-15933
D.add "Lie",-15920
D.add "Lin",-15915
D.add "Ling",-15903
D.add "Liu",-15889
D.add "Long",-15878
D.add "Lou",-15707
D.add "Lu",-15701
D.add "LV",-15681
D.add "Luan",-15667
D.add "Lue",-15661
D.add "Lun",-15659
D.add "Luo",-15652
D.add "Ma",-15640
D.add "Mai",-15631
D.add "Man",-15625
D.add "Mang",-15454
D.add "Mao",-15448
D.add "Me",-15436
D.add "Mei",-15435
D.add "Men",-15419
D.add "Meng",-15416
D.add "Mi",-15408
D.add "Mian",-15394
D.add "Miao",-15385
D.add "Mie",-15377
D.add "Min",-15375
D.add "Ming",-15369
D.add "Miu",-15363
D.add "Mo",-15362
D.add "MoU",-15183
D.add "Mu",-15180
D.add "NA",-15165
D.add "Nai",-15158
D.add "Nan",-15153
D.add "Nang",-15150
D.add "Nao",-15149
D.add "NE",-15144
D.add "Nei",-15143
D.add "nen",-15141
D.add "Neng",-15140
D.add "Ni",-15139
D.add "Nian",-15128
D.add "Niang",-15121
D.add "Niao",-15119
D.add "Nie",-15117
D.add "Nin",-15110
D.add "Ning",-15109
D.add "Niu",-14941
D.add "Nong",-14937
D.add "Nu",-14933
D.add "NV",-14930
D.add "Nuan",-14929
D.add "Nue",-14928
D.add "Nuo",-14926
D.add "O",-14922
D.add "ou",-14921
D.add "Pa",-14914
D.add "Pai",-14908
D.add "Pan",-14902
D.add "Pang",-14894
D.add "Pao",-14889
D.add "Pei",-14882
D.add "Pen",-14873
D.add "Peng",-14871
D.add "PI",-14857
D.add "Pian",-14678
D.add "Piao",-14674
D.add "Pie",-14670
D.add "Pin",-14668
D.add "Ping",-14663
D.add "Po",-146
D.add "Pu",-14645
D.add "Qi",-14630
D.add "QIA",-14594
D.add "Qian",-14429
D.add "Qiang",-14407
D.add "Qiao",-14399
D.add "Qie",-14384
D.add "Qin",-14379
D.add "Qing",-14368
D.add "Qiong",-14355
D.add "Qiu",-14353
D.add "Qu",-14345
D.add "Quan",-14170
D.add "que",-14159
D.add "Qun",-14151
D.add "ran",-14149
D.add "Rang",-14145
D.add "Rao",-14140
D.add "Re",-14137
D.add "Ren",-14135
D.add "Reng",-14125
D.add "Ri",-14123
D.add "Rong",-14122
D.add "Rou",-14112
D.add "Ru",-14109
D.add "Ruan",-14099
D.add "Rui",-14097
D.add "Run",-14094
D.add "Ruo",-14092
D.add "sa",-14090
D.add "Sai",-14087
D.add "San",-14083
D.add "sang",-13917
D.add "Sao",-13914
D.add "se",-13910
D.add "Sen",-13907
D.add "Seng",-13906
D.add "Sha",-13905
D.add "Shai",-13896
D.add "Shan",-13894
D.add "Shang",-13878
D.add "Shao",-13870
D.add "She",-13859
D.add "Shen",-13847
D.add "Sheng",-13831
D.add "Shi",-13658
D.add "Shou",-13611
D.add "Shu",-13601
D.add "Shua",-13406
D.add "Shuai",-13404
D.add "Shuan",-13400
D.add "Shuang",-13398
D.add "Shui",-13395
D.add "Shun",-13391
D.add "Shuo",-13387
D.add "Si",-13383
D.add "Song",-13367
D.add "Sou",-13359
D.add "Su",-13356
D.add "Suan",-13343
D.add "Sui",-13340
D.add "Sun",-13329
D.add "suo",-13326
D.add "Ta",-13318
D.add "Tai",-13147
D.add "Tan",-13138
D.add "Tang",-13120
D.add "Tao",-13107
D.add "TE",-13096
D.add "Teng",-13095
D.add "Ti",-13091
D.add "Tian",-13076
D.add "Tiao",-13068
D.add "Tie",-13063
D.add "Ting",-13060
D.add "Tong",-12888
D.add "Tou",-12875
D.add "Tu",-12871
D.add "Tuan",-12860
D.add "Tui",-12858
D.add "Tun",-12852
D.add "Tuo",-12849
D.add "WA",-12838
D.add "Wai",-12831
D.add "Wan",-12829
D.add "Wang",-12812
D.add "Wei",-12802
D.add "Wen",-12607
D.add "Weng",-12597
D.add "Wo",-12594
D.add "WU",-12585
D.add "Xi",-12556
D.add "Xia",-12359
D.add "Xian",-12346
D.add "Xiang",-12320
D.add "Xiao",-12300
D.add "Xie",-12120
D.add "Xin",-12099
D.add "Xing",-12089
D.add "Xiong",-12074
D.add "Xiu",-12067
D.add "Xu",-12058
D.add "Xuan",-12039
D.add "Xue",-11867
D.add "Xun",-11861
D.add "Ya",-11847
D.add "Yan",-11831
D.add "Yang",-11798
D.add "Yao",-11781
D.add "Ye",-11604
D.add "Yi",-11589
D.add "Yin",-11536
D.add "Ying",-11358
D.add "Yo",-11340
D.add "Yong",-11339
D.add "You",-11324
D.add "Yu",-11303
D.add "Yuan",-11097
D.add "Yue",-11077
D.add "Yun",-11067
D.add "Za",-11055
D.add "Zai",-11052
D.add "Zan",-11045
D.add "Zang",-11041
D.add "Zao",-11038
D.add "Ze",-11024
D.add "Zei",-11020
D.add "Zen",-11019
D.add "Zeng",-11018
D.add "Zha",-11014
D.add "Zhai",-10838
D.add "Zhan",-10832
D.add "Zhang",-10815
D.add "Zhao",-10800
D.add "Zhe",-10790
D.add "Zhen",-10780
D.add "Zheng",-10764
D.add "Zhi",-10587
D.add "Zhong",-10544
D.add "Zhou",-10533
D.add "Zhu",-10519
D.add "Zhua",-10331
D.add "Zhuai",-10329
D.add "Zhuan",-10328
D.add "Zhuang",-10322
D.add "Zhui",-10315
D.add "Zhun",-10309
D.add "Zhuo",-10307
D.add "Zi",-10296
D.add "Zong",-10281
D.add "Zou",-10274
D.add "zu",-10270
D.add "Zuan",-10262
D.add "Zui",-10260
D.add "Zun",-10256
D.add "Zuo",-10254

function g (NUM)
If Num>0 and num<160 then
G=CHR (num)
Else
If num<-20319 or num>-10247 then
G= ""
Else
A=d.items
B=d.keys
For i=d.count-1 to 0 step-1
If a (i) <=num then exit for
Next
G=b (i)
End If
End If
End Function
function C (str)
C= ""
For I=1 to Len (str)
C=C&G (ASC (str,i,1))
Next
End Function
Response.Write C (Request ("Hz"))
%>
<form method=post>
Please enter Chinese: <input name=hz> <input type= "Submit" value= "Convert" >
</form>

-->