<!--#include file="cms_pinyin.asp"-->
<%
' +----------------------------------------------------------------------
' | KCMS [ 启点在线网站管理系统 ]
' | Copyright (c) 2018 http://www.kelvinvt.com All rights reserved.
' | Licensed ( http://www.kelvinvt.com )
' | Author: kelvinvt <kelvinvt@qq.com>
' +----------------------------------------------------------------------
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
%>