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
...全文
205 1 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
1 条回复
切换为时间正序
请发表友善的回复…
发表回复
YiYanXiYin 2013-02-03
  • 打赏
  • 举报
回复
谁写的函数呀, js和vbs混杂

28,409

社区成员

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧