ASP 汉字拼音首字母 查汉字 能实现吗

我想在我的搜索表单里输出，汉字的拼音的首字母就能查出相应的汉字，如果该字段内有英文也能同时查出来

我现在找到的函数用起来，只能用汉字查拼音了，哪位朋友指点一下呀‘

不知道能不能实现


下面的代码好像只能将汉字转为拼音首字母

function getpychar(char)
tmp=65536+asc(char)
if(tmp>=45217 and tmp<=45252) then getpychar= "A"
if(tmp>=45253 and tmp<=45760) then getpychar= "B"
if(tmp>=47761 and tmp<=46317) then getpychar= "C"
if(tmp>=46318 and tmp<=46825) then getpychar= "D"
if(tmp>=46826 and tmp<=47009) then getpychar= "E"
if(tmp>=47010 and tmp<=47296) then getpychar= "F"
if(tmp>=47297 and tmp<=47613) then getpychar= "G"
if(tmp>=47614 and tmp<=48118) then getpychar= "H"
if(tmp>=48119 and tmp<=49061) then getpychar= "J"
if(tmp>=49062 and tmp<=49323) then getpychar= "K"
if(tmp>=49324 and tmp<=49895) then getpychar= "L"
if(tmp>=49896 and tmp<=50370) then getpychar= "M"
if(tmp>=50371 and tmp<=50613) then getpychar= "N"
if(tmp>=50614 and tmp<=50621) then getpychar= "O"
if(tmp>=50622 and tmp<=50905) then getpychar= "P"
if(tmp>=50906 and tmp<=51386) then getpychar= "Q"
if(tmp>=51387 and tmp<=51445) then getpychar= "R"
if(tmp>=51446 and tmp<=52217) then getpychar= "S"
if(tmp>=52218 and tmp<=52697) then getpychar= "T"
if(tmp>=52698 and tmp<=52979) then getpychar= "W"
if(tmp>=52980 and tmp<=53640) then getpychar= "X"
if(tmp>=53689 and tmp<=54480) then getpychar= "Y"
if(tmp>=54481 and tmp<=52289) then getpychar= "Z"
end function
function getpy(str)
for i=1 to len(str)
getpy=getpy&getpychar(mid(str,i,1))
next
end function

13 个解决方案

#1

用数据库保存汉字和拼音，然后根据拼音检索汉字。

#2

用数据库保存汉字和拼音，然后根据拼音检索汉字。

#3

用数据库保存汉字和拼音，然后根据拼音检索汉字。

#4

汉字拼音对照表,用access存储：

http://download.csdn.net/source/988655


呵呵下一个

#5

一般都用数据库吧，我想有没有可能用正则表达式啊？？

#6

LS的是不是搞笑啊？？

正则能干这事？

#7

因为我现在的数据比较多了，修改数据库可能不太现实也容易出错想，是不是有相关的代码能够实现这样的功能，就如现在的 百度，google的搜索提示差不多，

当然我知道在表里面增加个字段来存放，相关中文拼音首字母就行了，只是现在改数据库可能不行

#8

好像一些多音字不行 我在想上面的，代码能把汉字转成拼音能不能再转回来呢这样就不能修改数据库了

#9

在数据库加一个字段也不困难啊

可以批量更新的嘛！

#10

到我的资源里去下，我那有汉字拼音互相转化的程序。

#11

http://fangfeng335.download.csdn.net/
我的资源下载地址

#12

批量更新须要,把所有的记录都要转换一次吧

#13

11数的,你那个,能将拼音首字母转换成对应的汉字吗