<table border="1" width="80%">
  <% 
dim rsname,i
i=0
rsname=request("name")
rsname=Trim(request("name"))
set rs=server.CreateObject("adodb.recordset")  '(建立recordset对象) 
sqlstr="select * from pinmu  where GOODSITEMNAME like'%"&rsname&"%' order by id desc" 
  '---->(message为数据库中的一个数据表即你要显示的数据所存放的数据表) 
rs.open sqlstr,conn,1,3         '---->(表示打开数据库的方式) 
rs.movefirst                    '---->(将指针移到第一条记录) 
while not rs.eof                  '---->(判断指针是否到末尾) 
%>

<%if i Mod 2 = 0 then%>
<tr><td>
<a href="javascript:()"> 
  <%
response.write(rs("GOODSITEMNAME"))      '---->(显示数据表message中的name字段) 
%>
  </a>
  </td>
  <%else%>
  <td>
   <a href="javascript:()"> 
   <%
response.write(rs("GOODSITEMNAME"))      '---->(显示数据表message中的name字段) 
%>
 </a>
</td></tr>
<%
end if
i=i+1
%>
 <%
rs.movenext                    ' ---->(将指针移动到下一条记录) 
wend %> 
</table>
<%                          ' ---->(循环结束) 
'------------------------------------------------------         
rs.close 
conn.close                    '这几句是用来关闭数据库 
set rs=nothing 
set conn=nothing 
'