查询最大值（MAX)并显示
工作不能太累，生活不能无味，人生就是这样多姿多彩。呵呵，其实世界很美好，关键就是你有没有发现。
<%
myprc = Request.form("keywords") 'keywords为你从表单<form action=""...>传送来的查询关键词
Set rs = Server.CreateObject("ADODB.RecordSet")
'读取查询信息
sql = "Select top 1 * From 表名 Where 物料编码 = '"& myprc &"' order by 版本号 desc"
Set rs = Conn.Execute(sql)
if not rs.eof or not rs.bof then
Do While Not rs.EOF
%>