<%
trs=5    '--------------这里显示的行数
tds=3   '--------------这里显示的列数
set rsb=server.createobject("adodb.recordset")
sql = "select * from xinxi "
rsb.open sql,conn,1,3
  if rsb.eof then
    response.write "暂无相关信息"
  else
    Response.Write "<table cellpadding=""0"" cellspacing=""0"">"&VbCrLf
 for tr=1 to trs
     Response.Write "  <tr>"&VbCrLf
        for td=1 to tds

   Response.Write "    <td><table cellpadding=""2"" cellspacing=""0"" >"&VbCrLf
   Response.Write "        <tr>"&VbCrLf
   Response.Write "          <td ><a href=x.asp?cnmai="&rsb("id")&">"&rsb("biaoti")&"</a></td>"&VbCrLf
   Response.Write "        </tr>"&VbCrLf
   Response.Write "      </table></td>"&VbCrLf
   Response.Write "    <td width=""8""></td>"&VbCrLf
       rsb.movenext
    if rsb.eof then exit for
  next
     Response.Write "  </tr>"&VbCrLf
  if rsb.eof then exit for
 next
    Response.Write "</table>"&VbCrLf
  end if
  rsb.close
  set rsb=nothing
%>