<!--#include file="../../config/cms_Config.asp"-->
<!--#include file="../../inc/cms_pinyin.asp"-->
<%
dim PY_ARRAY,CN_STRING

function pinYin(byval s)
	dim i,ss
	PY_ARRAY = split(PY_DATA,"|")
	for i=1 to len(s)
		ss = ss & pinYinOne(mid(s,i,1))
	next
	pinYin = ss
end function

function pinYinOne(ByVal s)
	dim i
	if instr("~!@#$%^&*()\-+;:'""<>,.\\，。；：“‘、 　]+$",s)>0 then 	pinYinOne = ""	: exit 	function
	i = instr(PY_LIST,s)
	if i>0 then
		pinYinOne = PY_ARRAY(i)
	elseif instr(PY_LIST,"ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789_- ")>0 Then 
		pinYinOne = lcase(s)
	else
		pinYinOne = s
	end if
end function

CN_STRING = trim(request.QueryString("cn_string"))
response.Write pinYin(CN_STRING)
%>