用ASP实现汉字转拼音的功能 - ASP教程

function g(num)
if num>0 and num<160 then
  g=chr(num)
else
  if num<-20319 or num>-10247  then
   g=""
  else
   a=d.Items
   b=d.keys
   for i=d.count-1 to 0 step -1
    if a(i)<=num then exit for
   next
   g=b(i)
  end if
end if
end function
function c(str)
c=""
for i=1 to len(str)
  c=c&g(asc(mid(str,i,1)))
next
end function
response.write c(request("hz"))
%>
<form method=post>
请在此处输入中文：<input name=hz><input type="submit">
</form>

（编辑：源码网）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!