获取字符串的每个中文字符拼音首字母的ASP函数

本函数是获取某个字符串中的每个中文字符的拼音首字母，如果不是中文字符，则用原字符替换.这种函数的功能可用于多方面。比如在制作搜索功能时，输入拼音首字母即可查询相关的关键字等。

下面先发一下函数：

function oflink_getszm2(char)
     dim tmp
      tmp=65536+asc(char)
      if(tmp>=45217 and tmp<=45252) then 
      oflink_getszm2= "A"
      elseif(tmp>=45253 and tmp<=45760) then
      oflink_getszm2= "B"
      elseif(tmp>=45761 and tmp<=46317) then
      oflink_getszm2= "C"
      elseif(tmp>=46318 and tmp<=46825) then
      oflink_getszm2= "D"
      elseif(tmp>=46826 and tmp<=47009) then 
      oflink_getszm2= "E"
      elseif(tmp>=47010 and tmp<=47296) then 
      oflink_getszm2= "F"
      elseif(tmp>=47297 and tmp<=47613) then 
      oflink_getszm2= "G"
      elseif(tmp>=47614 and tmp<=48118) then
      oflink_getszm2= "H"
      elseif(tmp>=48119 and tmp<=49061) then
      oflink_getszm2= "J"
      elseif(tmp>=49062 and tmp<=49323) then 
      oflink_getszm2= "K"
      elseif(tmp>=49324 and tmp<=49895) then 
      oflink_getszm2= "L"
      elseif(tmp>=49896 and tmp<=50370) then 
      oflink_getszm2= "M"
      elseif(tmp>=50371 and tmp<=50613) then 
      oflink_getszm2= "N"
      elseif(tmp>=50614 and tmp<=50621) then 
      oflink_getszm2= "O"
      'www.361du.net
      elseif(tmp>=50622 and tmp<=50905) then
      oflink_getszm2= "P"
      elseif(tmp>=50906 and tmp<=51386) then 
      oflink_getszm2= "Q"
      elseif(tmp>=51387 and tmp<=51445) then 
      oflink_getszm2= "R"
      elseif(tmp>=51446 and tmp<=52217) then 
      oflink_getszm2= "S"
      elseif(tmp>=52218 and tmp<=52697) then 
      oflink_getszm2= "T"
      elseif(tmp>=52698 and tmp<=52979) then 
      oflink_getszm2= "W"
      elseif(tmp>=52980 and tmp<=53640) then 
      oflink_getszm2= "X"
      elseif(tmp>=53689 and tmp<=54480) then 
      oflink_getszm2= "Y"
      elseif(tmp>=54481 and tmp<=62289) then
      oflink_getszm2= "Z"
      else '如果不是中文，则不处理
      oflink_getszm2=char
      end if
      end function
      function getpy(str)
      for i=1 to len(str)
      getpy=getpy&oflink_getszm2(mid(str,i,1))
      next
  end function
  
 function oflink_getszm(str)
  dim i
  for i=1 to len(str)
  oflink_getszm=oflink_getszm&oflink_getszm2(mid(str,i,1))
  next
 end function