GB汉字中文转换拼音 - 单身小熊's Blog

GB汉字中文转换拼音

单身小熊 posted @ 2009年7月04日 03:19 in ASP with tags asp , 2015 阅读


   提醒 复制代码后可点此测试代码运行效果

 

  1. <%
  2. '----------------汉字转拼音-----------------
  3. Set d = CreateObject("Scripting.Dictionary")
  4. d.Add "A", -20319
  5. d.Add "Ai", -20317
  6. d.Add "An", -20304
  7. d.Add "Ang", -20295
  8. d.Add "Ao", -20292
  9. d.Add "Ba", -20283
  10. d.Add "Bai", -20265
  11. d.Add "Ban", -20257
  12. d.Add "Bang", -20242
  13. d.Add "Bao", -20230
  14. d.Add "Bei", -20051
  15. d.Add "Ben", -20036
  16. d.Add "Beng", -20032
  17. d.Add "Bi", -20026
  18. d.Add "Bian", -20002
  19. d.Add "Biao", -19990
  20. d.Add "Bie", -19986
  21. d.Add "Bin", -19982
  22. d.Add "Bing", -19976
  23. d.Add "Bo", -19805
  24. d.Add "Bu", -19784
  25. d.Add "Ca", -19775
  26. d.Add "Cai", -19774
  27. d.Add "Can", -19763
  28. d.Add "Cang", -19756
  29. d.Add "Cao", -19751
  30. d.Add "Ce", -19746
  31. d.Add "Ceng", -19741
  32. d.Add "Cha", -19739
  33. d.Add "Chai", -19728
  34. d.Add "Chan", -19725
  35. d.Add "Chang", -19715
  36. d.Add "Chao", -19540
  37. d.Add "Che", -19531
  38. d.Add "Chen", -19525
  39. d.Add "Cheng", -19515
  40. d.Add "Chi", -19500
  41. d.Add "Chong", -19484
  42. d.Add "Chou", -19479
  43. d.Add "Chu", -19467
  44. d.Add "Chuai", -19289
  45. d.Add "Chuan", -19288
  46. d.Add "Chuang", -19281
  47. d.Add "Chui", -19275
  48. d.Add "Chun", -19270
  49. d.Add "Chuo", -19263
  50. d.Add "Ci", -19261
  51. d.Add "Cong", -19249
  52. d.Add "Cou", -19243
  53. d.Add "Cu", -19242
  54. d.Add "Cuan", -19238
  55. d.Add "Cui", -19235
  56. d.Add "Cun", -19227
  57. d.Add "Cuo", -19224
  58. d.Add "Da", -19218
  59. d.Add "Dai", -19212
  60. d.Add "Dan", -19038
  61. d.Add "Dang", -19023
  62. d.Add "Dao", -19018
  63. d.Add "De", -19006
  64. d.Add "Deng", -19003
  65. d.Add "Di", -18996
  66. d.Add "Dian", -18977
  67. d.Add "Diao", -18961
  68. d.Add "Die", -18952
  69. d.Add "Ding", -18783
  70. d.Add "Diu", -18774
  71. d.Add "Dong", -18773
  72. d.Add "Dou", -18763
  73. d.Add "Du", -18756
  74. d.Add "Duan", -18741
  75. d.Add "Dui", -18735
  76. d.Add "Dun", -18731
  77. d.Add "Duo", -18722
  78. d.Add "E", -18710
  79. d.Add "En", -18697
  80. d.Add "Er", -18696
  81. d.Add "Fa", -18526
  82. d.Add "Fan", -18518
  83. d.Add "Fang", -18501
  84. d.Add "Fei", -18490
  85. d.Add "Fen", -18478
  86. d.Add "Feng", -18463
  87. d.Add "Fo", -18448
  88. d.Add "Fou", -18447
  89. d.Add "Fu", -18446
  90. d.Add "Ga", -18239
  91. d.Add "Gai", -18237
  92. d.Add "Gan", -18231
  93. d.Add "Gang", -18220
  94. d.Add "Gao", -18211
  95. d.Add "Ge", -18201
  96. d.Add "Gei", -18184
  97. d.Add "Gen", -18183
  98. d.Add "Geng", -18181
  99. d.Add "Gong", -18012
  100. d.Add "Gou", -17997
  101. d.Add "Gu", -17988
  102. d.Add "Gua", -17970
  103. d.Add "Guai", -17964
  104. d.Add "Guan", -17961
  105. d.Add "Guang", -17950
  106. d.Add "Gui", -17947
  107. d.Add "Gun", -17931
  108. d.Add "Guo", -17928
  109. d.Add "Ha", -17922
  110. d.Add "Hai", -17759
  111. d.Add "Han", -17752
  112. d.Add "Hang", -17733
  113. d.Add "Hao", -17730
  114. d.Add "He", -17721
  115. d.Add "Hei", -17703
  116. d.Add "Hen", -17701
  117. d.Add "Heng", -17697
  118. d.Add "Hong", -17692
  119. d.Add "Hou", -17683
  120. d.Add "Hu", -17676
  121. d.Add "Hua", -17496
  122. d.Add "Huai", -17487
  123. d.Add "Huan", -17482
  124. d.Add "Huang", -17468
  125. d.Add "Hui", -17454
  126. d.Add "Hun", -17433
  127. d.Add "Huo", -17427
  128. d.Add "Ji", -17417
  129. d.Add "Jia", -17202
  130. d.Add "Jian", -17185
  131. d.Add "Jiang", -16983
  132. d.Add "Jiao", -16970
  133. d.Add "Jie", -16942
  134. d.Add "Jin", -16915
  135. d.Add "Jing", -16733
  136. d.Add "Jiong", -16708
  137. d.Add "Jiu", -16706
  138. d.Add "Ju", -16689
  139. d.Add "Juan", -16664
  140. d.Add "Jue", -16657
  141. d.Add "Jun", -16647
  142. d.Add "Ka", -16474
  143. d.Add "Kai", -16470
  144. d.Add "Kan", -16465
  145. d.Add "Kang", -16459
  146. d.Add "Kao", -16452
  147. d.Add "Ke", -16448
  148. d.Add "Ken", -16433
  149. d.Add "Keng", -16429
  150. d.Add "Kong", -16427
  151. d.Add "Kou", -16423
  152. d.Add "Ku", -16419
  153. d.Add "Kua", -16412
  154. d.Add "Kuai", -16407
  155. d.Add "Kuan", -16403
  156. d.Add "Kuang", -16401
  157. d.Add "Kui", -16393
  158. d.Add "Kun", -16220
  159. d.Add "Kuo", -16216
  160. d.Add "La", -16212
  161. d.Add "Lai", -16205
  162. d.Add "Lan", -16202
  163. d.Add "Lang", -16187
  164. d.Add "Lao", -16180
  165. d.Add "Le", -16171
  166. d.Add "Lei", -16169
  167. d.Add "Leng", -16158
  168. d.Add "Li", -16155
  169. d.Add "Lia", -15959
  170. d.Add "Lian", -15958
  171. d.Add "Liang", -15944
  172. d.Add "Liao", -15933
  173. d.Add "Lie", -15920
  174. d.Add "Lin", -15915
  175. d.Add "Ling", -15903
  176. d.Add "Liu", -15889
  177. d.Add "Long", -15878
  178. d.Add "Lou", -15707
  179. d.Add "Lu", -15701
  180. d.Add "Lv", -15681
  181. d.Add "Luan", -15667
  182. d.Add "Lue", -15661
  183. d.Add "Lun", -15659
  184. d.Add "Luo", -15652
  185. d.Add "Ma", -15640
  186. d.Add "Mai", -15631
  187. d.Add "Man", -15625
  188. d.Add "Mang", -15454
  189. d.Add "Mao", -15448
  190. d.Add "Me", -15436
  191. d.Add "Mei", -15435
  192. d.Add "Men", -15419
  193. d.Add "Meng", -15416
  194. d.Add "Mi", -15408
  195. d.Add "Mian", -15394
  196. d.Add "Miao", -15385
  197. d.Add "Mie", -15377
  198. d.Add "Min", -15375
  199. d.Add "Ming", -15369
  200. d.Add "Miu", -15363
  201. d.Add "Mo", -15362
  202. d.Add "Mou", -15183
  203. d.Add "Mu", -15180
  204. d.Add "Na", -15165
  205. d.Add "Nai", -15158
  206. d.Add "Nan", -15153
  207. d.Add "Nang", -15150
  208. d.Add "Nao", -15149
  209. d.Add "Ne", -15144
  210. d.Add "Nei", -15143
  211. d.Add "Nen", -15141
  212. d.Add "Neng", -15140
  213. d.Add "Ni", -15139
  214. d.Add "Nian", -15128
  215. d.Add "Niang", -15121
  216. d.Add "Niao", -15119
  217. d.Add "Nie", -15117
  218. d.Add "Nin", -15110
  219. d.Add "Ning", -15109
  220. d.Add "Niu", -14941
  221. d.Add "Nong", -14937
  222. d.Add "Nu", -14933
  223. d.Add "Nv", -14930
  224. d.Add "Nuan", -14929
  225. d.Add "Nue", -14928
  226. d.Add "Nuo", -14926
  227. d.Add "O", -14922
  228. d.Add "Ou", -14921
  229. d.Add "Pa", -14914
  230. d.Add "Pai", -14908
  231. d.Add "Pan", -14902
  232. d.Add "Pang", -14894
  233. d.Add "Pao", -14889
  234. d.Add "Pei", -14882
  235. d.Add "Pen", -14873
  236. d.Add "Peng", -14871
  237. d.Add "Pi", -14857
  238. d.Add "Pian", -14678
  239. d.Add "Piao", -14674
  240. d.Add "Pie", -14670
  241. d.Add "Pin", -14668
  242. d.Add "Ping", -14663
  243. d.Add "Po", -14654
  244. d.Add "Pu", -14645
  245. d.Add "Qi", -14630
  246. d.Add "Qia", -14594
  247. d.Add "Qian", -14429
  248. d.Add "Qiang", -14407
  249. d.Add "Qiao", -14399
  250. d.Add "Qie", -14384
  251. d.Add "Qin", -14379
  252. d.Add "Qing", -14368
  253. d.Add "Qiong", -14355
  254. d.Add "Qiu", -14353
  255. d.Add "Qu", -14345
  256. d.Add "Quan", -14170
  257. d.Add "Que", -14159
  258. d.Add "Qun", -14151
  259. d.Add "Ran", -14149
  260. d.Add "Rang", -14145
  261. d.Add "Rao", -14140
  262. d.Add "Re", -14137
  263. d.Add "Ren", -14135
  264. d.Add "Reng", -14125
  265. d.Add "Ri", -14123
  266. d.Add "Rong", -14122
  267. d.Add "Rou", -14112
  268. d.Add "Ru", -14109
  269. d.Add "Ruan", -14099
  270. d.Add "Rui", -14097
  271. d.Add "Run", -14094
  272. d.Add "Ruo", -14092
  273. d.Add "Sa", -14090
  274. d.Add "Sai", -14087
  275. d.Add "San", -14083
  276. d.Add "Sang", -13917
  277. d.Add "Sao", -13914
  278. d.Add "Se", -13910
  279. d.Add "Sen", -13907
  280. d.Add "Seng", -13906
  281. d.Add "Sha", -13905
  282. d.Add "Shai", -13896
  283. d.Add "Shan", -13894
  284. d.Add "Shang", -13878
  285. d.Add "Shao", -13870
  286. d.Add "She", -13859
  287. d.Add "Shen", -13847
  288. d.Add "Sheng", -13831
  289. d.Add "Shi", -13658
  290. d.Add "Shou", -13611
  291. d.Add "Shu", -13601
  292. d.Add "Shua", -13406
  293. d.Add "Shuai", -13404
  294. d.Add "Shuan", -13400
  295. d.Add "Shuang", -13398
  296. d.Add "Shui", -13395
  297. d.Add "Shun", -13391
  298. d.Add "Shuo", -13387
  299. d.Add "Si", -13383
  300. d.Add "Song", -13367
  301. d.Add "Sou", -13359
  302. d.Add "Su", -13356
  303. d.Add "Suan", -13343
  304. d.Add "Sui", -13340
  305. d.Add "Sun", -13329
  306. d.Add "Suo", -13326
  307. d.Add "Ta", -13318
  308. d.Add "Tai", -13147
  309. d.Add "Tan", -13138
  310. d.Add "Tang", -13120
  311. d.Add "Tao", -13107
  312. d.Add "Te", -13096
  313. d.Add "Teng", -13095
  314. d.Add "Ti", -13091
  315. d.Add "Tian", -13076
  316. d.Add "Tiao", -13068
  317. d.Add "Tie", -13063
  318. d.Add "Ting", -13060
  319. d.Add "Tong", -12888
  320. d.Add "Tou", -12875
  321. d.Add "Tu", -12871
  322. d.Add "Tuan", -12860
  323. d.Add "Tui", -12858
  324. d.Add "Tun", -12852
  325. d.Add "Tuo", -12849
  326. d.Add "Wa", -12838
  327. d.Add "Wai", -12831
  328. d.Add "Wan", -12829
  329. d.Add "Wang", -12812
  330. d.Add "Wei", -12802
  331. d.Add "Wen", -12607
  332. d.Add "Weng", -12597
  333. d.Add "Wo", -12594
  334. d.Add "Wu", -12585
  335. d.Add "Xi", -12556
  336. d.Add "Xia", -12359
  337. d.Add "Xian", -12346
  338. d.Add "Xiang", -12320
  339. d.Add "Xiao", -12300
  340. d.Add "Xie", -12120
  341. d.Add "Xin", -12099
  342. d.Add "Xing", -12089
  343. d.Add "Xiong", -12074
  344. d.Add "Xiu", -12067
  345. d.Add "Xu", -12058
  346. d.Add "Xuan", -12039
  347. d.Add "Xue", -11867
  348. d.Add "Xun", -11861
  349. d.Add "Ya", -11847
  350. d.Add "Yan", -11831
  351. d.Add "Yang", -11798
  352. d.Add "Yao", -11781
  353. d.Add "Ye", -11604
  354. d.Add "Yi", -11589
  355. d.Add "Yin", -11536
  356. d.Add "Ying", -11358
  357. d.Add "Yo", -11340
  358. d.Add "Yong", -11339
  359. d.Add "You", -11324
  360. d.Add "Yu", -11303
  361. d.Add "Yuan", -11097
  362. d.Add "Yue", -11077
  363. d.Add "Yun", -11067
  364. d.Add "Za", -11055
  365. d.Add "Zai", -11052
  366. d.Add "Zan", -11045
  367. d.Add "Zang", -11041
  368. d.Add "Zao", -11038
  369. d.Add "Ze", -11024
  370. d.Add "Zei", -11020
  371. d.Add "Zen", -11019
  372. d.Add "Zeng", -11018
  373. d.Add "Zha", -11014
  374. d.Add "Zhai", -10838
  375. d.Add "Zhan", -10832
  376. d.Add "Zhang", -10815
  377. d.Add "Zhao", -10800
  378. d.Add "Zhe", -10790
  379. d.Add "Zhen", -10780
  380. d.Add "Zheng", -10764
  381. d.Add "Zhi", -10587
  382. d.Add "Zhong", -10544
  383. d.Add "Zhou", -10533
  384. d.Add "Zhu", -10519
  385. d.Add "Zhua", -10331
  386. d.Add "Zhuai", -10329
  387. d.Add "Zhuan", -10328
  388. d.Add "Zhuang", -10322
  389. d.Add "Zhui", -10315
  390. d.Add "Zhun", -10309
  391. d.Add "Zhuo", -10307
  392. d.Add "Zi", -10296
  393. d.Add "Zong", -10281
  394. d.Add "Zou", -10274
  395. d.Add "Zu", -10270
  396. d.Add "Zuan", -10262
  397. d.Add "Zui", -10260
  398. d.Add "Zun", -10256
  399. d.Add "Zuo", -10254
  400.  
  401. Function g(num)
  402.     If num>0 And num<160 Then
  403.         g = Chr(num)
  404.     Else
  405.         If num< -20319 Or num> -10247 Then
  406.             g = ""
  407.         Else
  408.             a = d.Items
  409.             b = d.Keys
  410.             For i = d.Count -1 To 0 step -1
  411.                 If a(i)<= num Then Exit For
  412.             Next
  413.             g = b(i)
  414.         End If
  415.     End If
  416. End Function
  417.  
  418. 'ISblank  中间是否加空格(1=是; 0=否;)
  419.  
  420. Function ChangeToGB(Str, ISblank)
  421.     ChangeToGB = ""
  422.     For i = 1 To Len(Str)
  423.         If ISblank = 1 Then
  424.             ChangeToGB = ChangeToGB&" "& g(Asc(Mid(Str, i, 1)))
  425.         Else
  426.             ChangeToGB = ChangeToGB&g(Asc(Mid(Str, i, 1)))
  427.         End If
  428.     Next
  429. End Function
  430.  
  431. Response.Write ChangeToGB("这算不算是乱码")
  432. %>

 

 

 

  • 无匹配
Small_feed 评论 (2)
1
[回复]
전설 서구 说:
2021年3月02日 20:04

Thanks for your insight for your fantastic posting. I’m glad I have taken the time to see this. movies123

2
[回复]
civaget 说:
2024年1月18日 01:29

Your journey to relaxation and well-being begins with 펀초이스. Trust in our verified reviews for a blissful experience.


登录 *


loading captcha image...
(输入验证码)
or Ctrl+Enter
Host by is-Programmer.com | Power by Chito 1.3.3 beta | © 2007 LinuxGem | Design by Matthew "Agent Spork" McGee