原创作品,转载请保留作者,谢谢!
支持GBK汉字20901个,支持多音字,配合下面字典。
http://dl2.csdn.net/down4/20070731/31152458133.rar
这个字典是无音调版。
支持GBK汉字20901个,支持多音字,配合下面字典。
http://dl2.csdn.net/down4/20070731/31152458133.rar
这个字典是无音调版。
<
%
Set fso = Server.CreateObject( " Scripting.FileSystemObject " )
Set d = server.CreateObject( " Scripting.Dictionary " )
Set f = fso.OpenTextFile(Server.MapPath & " table_ISCCD_no_tune_no_repeat.txt " )
Do While f.AtEndOfLine <> True
r = f.readline
rr = Split (r, " : " )
d.add rr( 0 ), Right (rr( 1 ), Len (rr( 1 )) - 1 )
Loop
f.close
hz = request( " hz " )
lhz = Len (hz)
For i = 1 To lhz
dhz = Mid (hz,i, 1 )
If d.Exists(dhz) then
ItemDemo = d.Item(dhz)
response.write ItemDemo
Else
response.write dhz
End if
next
% >
< form method = post >
请在此处输入中文: < input name = hz >
</ form >
</ body >
</ html >
Set fso = Server.CreateObject( " Scripting.FileSystemObject " )
Set d = server.CreateObject( " Scripting.Dictionary " )
Set f = fso.OpenTextFile(Server.MapPath & " table_ISCCD_no_tune_no_repeat.txt " )
Do While f.AtEndOfLine <> True
r = f.readline
rr = Split (r, " : " )
d.add rr( 0 ), Right (rr( 1 ), Len (rr( 1 )) - 1 )
Loop
f.close
hz = request( " hz " )
lhz = Len (hz)
For i = 1 To lhz
dhz = Mid (hz,i, 1 )
If d.Exists(dhz) then
ItemDemo = d.Item(dhz)
response.write ItemDemo
Else
response.write dhz
End if
next
% >
< form method = post >
请在此处输入中文: < input name = hz >
</ form >
</ body >
</ html >