汉语字典首页 简体字典 繁体字典 名人名言

按类型查询

汉字热门查询

<%call zi()%>

汉语部首索引，按笔画排列：点击下面的数字进行汉语部首索引。

<%call tab()%>
<%if Funsql(request("py"))<>"" then%>

<%=Funsql(request("py"))%>字部，含有<%=Funsql(request("py"))%>部首的字：

<%call pinyin()%>
<%end if%>
<%sub zi() dim RndDic RndDic=35 i=0 set rs=server.createobject("adodb.recordset") sql="select top "&RndDic&" * from DicData order by rnd(id-timer()) DESC" rs.open sql,Conn,1,1 if not rs.eof then i=i+1 do while not rs.eof and i<%=hanzi%><%rs.movenext loop%>
<%else response.write "

没有找到您要查找的字！请换个字再查询，谢谢！

" exit sub end if rs.close set rs=nothing end sub sub tab()%>
<%end sub sub pinyin() dim oType,py,yinjie,hanzi,qibi,py1,py2 py=Funsql(request("py")) oType="bushou like '%"&py&"%'" set rs=server.createobject("adodb.recordset") sql="select * from DicData where "&oType&" order by zongbihuashu asc" rs.open sql,Conn,1,1 if not rs.eof then do while not rs.eof hanzi=rs("hanzi"):zongbihuashu=rs("zongbihuashu")%><%=hanzi%><%=zongbihuashu%> <%rs.movenext loop else response.write "

没有找到您要查找的字！

" end if rs.close set rs=nothing end sub%>