asp 汉字生成拼音

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

function GetPy(str)
	for i=1 to len(str)
		GetPy=GetPy&GetPyChar(mid(str,i,1))&".html"
	next
end function