woodlist.asp

这是一个基于WEB的树木分类专家系统asp源代码,对于初学者特别有帮助!

<%Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("tree.mdb")
set rs= server.createobject("adodb.recordset") 
rs.Open "Select * from 生长特征表1 " , conn
%>


<table width="200" height="90%" border="1">
  <tr>
    <td height="112"><img src="tree/tree.jpg" width="750" height="100"></td>
  </tr>
   <tr> 
      <td><div align="center">
      树木的生长特征数据
            <table border="1" width="42%" >
    <tr>
      <td width="13%" height="39" nowrap>序 号</td>
      <td width="23%" nowrap>树木中文名</td>
      <td width="13%" nowrap> 胸径</td>
	   <td width="12%" nowrap> 高度</td>
	    <td width="16%" nowrap>树龄</td>
		 <td width="16%" nowrap>拉丁名字</td>
        <td width="23%" nowrap> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;操 作</td>
    </tr>
 <%
  i = 0
  do until rs.eof%>
  <tr>
    <td width="13%" nowrap><%=i%>　</td>
    <td width="23%" nowrap><%=rs("treename")%>　</td>
    <td width="13%" nowrap><%=rs("xiongjing")%>　</td>
    <td width="12%" nowrap><%=rs("height")%>　</td>
    <td width="16%" nowrap><%=rs("age")%>　</td>
	<td width="16%" nowrap><%=rs("laname")%>　</td>
    <td width="23%" nowrap><a href="wooddel.asp?treename=<%=rs("treename")%>">删除</a> <a href="woodedit.asp?woodname=<%=rs("treename")%>"> 编辑</a> </td>
  </tr>
  <%
  i = i + 1
  rs.movenext
  loop%>    
    
 </table>
  <blockquote>
    <blockquote>
      <blockquote>
        <blockquote>
          <blockquote>
            <blockquote>
              <blockquote>
                <p>&nbsp;</p>
              </blockquote>
            </blockquote>
          </blockquote>
        </blockquote>
      </blockquote>
    </blockquote>
  </blockquote>
	  <p><a href="woodadd.asp" target="_blank">插入新的记录</a></p>
    </div></td>
  
</table>