ASP中文转拼音出错，utf8格式中文转拼音

[mycilent]

直接输出文字美问题如：response.write getPinYin("中国")

但是像下面这样读取就会出问题
dim stitle
stitle=request("act")
response.write GetPy4Utf(stitle)
提示，无效的过程调用或参数: 'Mid'
也就是这句GetPy4Utf = Mid(strCHSfirstPY,(ascw(char)-19967),1) 有问题

这个行的时候，
那位高手帮解决下。

代码如下：

function GetPy4utf(char) 
if char=null or len(trim(char))=0 then exit function 
dim strCHSfirstPY 
strCHSfirstPY ="
&"CYZYXYQMYQYLTDCYYYZAZZCYMZYDLZFFFMMYCQZWZZMABTBYZTDMNZZGGDFTYPCGQYTTSSFFWFDTZQSSYSTWXJHXYTSXXYLBYQHW"_ 
.....以上代码字数太多省略.....
&"WKXHZXWZNNZZJZJJQJCCCHYYXBZXZCYZTLLCQXYNJYCYYCYNZZQYYYEWYCZDCJYCCHYJLBTZYYCQWMPWPYMLGKDLDLGKQQBGYCHJ"_ 
&"XY" 
'如果不在汉字范围内,则直接返回内容 
if ascw(char)<19968 and ascw(char)>40869 then 
 GetPy4Utf = char 
else 
'找对应首字母 
 GetPy4Utf = Mid(strCHSfirstPY,(ascw(char)-19967),1) 
end if 
end function  
'生成汉字串首字母串 
function getPinYin(str) 
for i=1 to len(str) 
 getPinYin=getPinYin & GetPy4Utf(mid(str,i,1)) 
next 
end function

[YiYanXiYin]

谁写的函数呀, js和vbs混杂

• 打赏
• 举报

回复 赞