但是像下面这样读取就会出问题
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