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

mycilent 2013-02-02 06:01:21
直接输出文字美问题如: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
...全文
128 1 打赏 收藏 举报
写回复
1 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
YiYanXiYin 2013-02-03
谁写的函数呀, js和vbs混杂
  • 打赏
  • 举报
回复
发帖
ASP

2.8w+

社区成员

ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
帖子事件
创建了帖子
2013-02-02 06:01
社区公告
暂无公告