五笔字型编码反查
<% t=request("t") if t<>"" then set rs=server.CreateObject("adodb.recordset") sql="select * from wb where hz='"&t&"'" rs.open sql,conn,1,3 if rs.eof then response.write "查无此编码!" else hits=cint(rs("hits"))+0 rs("hits")=hits+1 rs.update %>|
<%=t%> 查询结果(<%=rs("hits")%>) |
|
| 汉字： | <%=t%> |
| 编码： | <%=rs("bm")%> |
| 拆分： | |