非常感谢江湖游客的帮助，在此把源码贴出来，希望对大家有所帮助。
<%
if request.querystring="search" then
set rs=server.Create
Object("adodb.recordset") '制作 Recordset 对象
sql="SELECT * FROM ping where (hao1 <=" & Request.Form("hao") & ") AND (" & Request.Form("hao") & "<=hao2)"'条件
rs.Open sql,conn,1,1 '打开Recordset 对象
if rs.EOF then
RESPONSE.WRITE "<B>抱歉 ! 资料库中没有 "& Request.Form("hao") & "的资料"
else
RESPONSE.WRITE "<P><B>凭 证 号 : "& Request.Form("hao") & "<BR>"
RESPONSE.WRITE "<P><B>领取人姓名 : " & rs("name") & "<BR>"
RESPONSE.WRITE "<P><B>领取日期 : " & rs("riqi") & "<BR>"
RESPONSE.WRITE "<HR>"
end if
rs.close
end if
%>
注意：hao1和hao2的属性是数字。
再次感谢江湖游客！！！
