asp 簡單讀取數據表並列出來

　　call opendb()
         rsopen sqlconn
      do while not rseof
      %>
      <tr>
        <td height="" align="left" bgcolor="#FFFFFF"><a href="displayasp?id=<%=rs("id")%>&table_s=hot_lm" target="_blank" class="prodcut">&nbsp;&nbsp;<img src="index_files/dot_emailgif" width="" height="" border="" />&nbsp;&nbsp;<%=rs("title")%></a></td>
        <td height="" bgcolor="#FFFFFF"><%=rs("send_date")%></td>
        <td height="" align="center" bgcolor="#FFFFFF">專題報道</td>
      </tr>
      <%rsmovenext
      loop
      else%>
      <tr>
        <td align="right">
          <%responsewrite("暫時沒有相關內容或你是非法進入！")%>
        </td>
      </tr>
    </table>
    <%
   
    end if
    call closedb()%>

From:http://tw.wingwit.com/Article/program/net/201311/14308.html