woodlist2.asp

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

<%
dim strtoday
dim weekarray(6)
dim thisyear
dim thismonth
dim thisday
 
 weekarray(0)="星期天"
 weekarray(1)="星期一"
 weekarray(2)="星期二"
 weekarray(3)="星期三"
 weekarray(4)="星期四"
 weekarray(5)="星期五"
 weekarray(6)="星期六"
 
 thisyear=year(date)&"年"
 thismonth=month(date)
 if thismonth<10 then thismonth="0"&thismonth
 thismonth=thismonth&"月"
 thisday=day(date)
 if thisday<10 then thisday="0"&thisday
  thisday=thisday&"日"
 strtoday="<font color=red>"&thisyear&thismonth&thisday
 strtoday=strtoday&" "&weekarray(weekday(date)-1)&"</font>"
 response.Write strtoday

 %>
 <style type="text/css">
<!--
body,td,th {
	color: #66CC33;
}
body {
	background-image: url();
}
.style1 {
	font-family: "华文行楷";
	font-size: 24px;
}
-->
 </style>

 </script>
 <h2 align="center">树材生长特征信息浏览</h2>
 <div align="center">
 </div>
  <table width="90%" height="136" border="1" align="center" bordercolor="#CCCC99" >
    <tr>
      <td width="11%" height="39" nowrap>树木名字</td>
      <td width="17%" nowrap>拉丁名字</td>
      <td width="11%" nowrap>胸径</td>
	   <td width="11%" nowrap>高度</td>
	    <td width="20%" nowrap> 树龄</td>
    </tr>
  <%
    Set conn = Server.CreateObject("ADODB.Connection")
       conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("tree.mdb")
    set rs= server.createobject("adodb.recordset") 
    sql= "Select * from 生长特征表 " 
	set base=conn.execute(sql)
    i = 0
   do while not base.eof
     treename=base("treename")
	 laname=base("laname")
	 xiongjing =base("xiongjing")
     height=base("height")
	 age=base("age")
	
  %>
  <tr>
    <td width="11%" nowrap><%=treename%>　</td>
    <td width="17%" nowrap><%=laname%>　</td>
    <td width="11%" nowrap><%=xiongjing%>　</td>
   <td width="11%" nowrap><%=height%>　</td>
    <td width="20%" nowrap><%=age%>　</td>
 </tr>
 <%
  base.movenext
  loop
  %> 
</table>
 <p align="center"> <a href="manage.html" target="_blank" class="style1">返回管理页</a></p>
 
<br><br><br><br>


<h2 align="center">树材宏观构造特征信息浏览</h2>
<table width="90%" height="136" border="1" align="center" bordercolor="#CCCC99" >
    <tr>
      <td width="11%" height="39" nowrap>树木名字</td>
      <td width="17%" nowrap>拉丁名字</td>
      <td width="11%" nowrap>心边材区分明显程度</td>
	  <td width="11%" nowrap>纹理</td>
	  <td width="20%" nowrap> 光泽</td>
	  <td width="20%" nowrap> 气味</td>
	
    </tr>
  <%
    Set conn = Server.CreateObject("ADODB.Connection")
       conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("tree.mdb")
    set rs= server.createobject("adodb.recordset") 
    sql= "Select * from 树材宏观构造特征表 " 
	set base=conn.execute(sql)
    i = 0
   do while not base.eof
     i=i+1
    chname=base("chname")
	 laname=base("laname")
	 difference =base("difference")
     wenli=base("wenli")
	 guangze=base("guangze")
	 smell=base("smell")
	
  %>
  <tr>
    <td width="11%" nowrap><%=chname%>　</td>
    <td width="17%" nowrap><%=laname%>　</td>
    <td width="11%" nowrap><%=difference%>　</td>
   <td width="11%" nowrap><%=wenli%>　</td>
    <td width="20%" nowrap><%=guangze%>　</td>
	    <td width="20%" nowrap><%=smell%>　</td>
 </tr>
 <%
  base.movenext
  loop
  %> 
</table>
 <p align="center"> <a href="manage.html" target="_blank" class="style1">返回管理页</a></p>
 
<br><br><br><br>

<h2 align="center">阔叶树材微观构造特征信息浏览</h2>
<table width="90%" height="136" border="1" align="center" bordercolor="#CCCC99" >
    <tr>
      <td width="11%" height="39" nowrap>树木名字</td>
      <td width="17%" nowrap>拉丁名字</td>
      <td width="11%" nowrap>管孔形状</td>
	  <td width="11%" nowrap>导管壁纹直径/μm</td>
	  <td width="20%" nowrap> 导管内含物</td>
	  <td width="20%" nowrap> 木射线宽度(列细胞)</td>
	
    </tr>
  <%
    Set conn = Server.CreateObject("ADODB.Connection")
       conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("tree.mdb")
    set rs= server.createobject("adodb.recordset") 
    sql= "Select * from 阔叶树材微观构造特征表 " 
	set base=conn.execute(sql)
    i = 0
   do while not base.eof
     i=i+1
    chname=base("chname")
	 laname=base("laname")
	 shape =base("shape")
     diameter=base("diameter")
	 sthingin=base("sthingin")
	 width=base("width")
	
  %>
  <tr>
    <td width="11%" nowrap><%=chname%>　</td>
    <td width="17%" nowrap><%=laname%>　</td>
    <td width="11%" nowrap><%=shape%>　</td>
   <td width="11%" nowrap><%=diameter%>　</td>
    <td width="20%" nowrap><%=sthingin%>　</td>
	    <td width="20%" nowrap><%=width%>　</td>
 </tr>
 <%
  base.movenext
  loop
  %> 
</table>
 <p align="center"> <a href="manage.html" target="_blank" class="style1">返回管理页</a></p>
 
<br><br><br><br>

<h2 align="center">针叶树材微观构造特征信息浏览</h2>
<table width="90%" height="136" border="1" align="center" bordercolor="#CCCC99" >
    <tr>
      <td width="11%" height="39" nowrap>树木名字</td>
      <td width="17%" nowrap>拉丁名字</td>
      <td width="11%" nowrap>早晚材过渡</td>
	  <td width="11%" nowrap>早材管胞长度/μm</td>
	  <td width="20%" nowrap> 晚材管胞长度/μm</td>
	  <td width="20%" nowrap> 有无树脂细胞</td>
	
    </tr>
  <%
    Set conn = Server.CreateObject("ADODB.Connection")
       conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("tree.mdb")
    set rs= server.createobject("adodb.recordset") 
    sql= "Select * from 针叶树材微观构造特征表 " 
	set base=conn.execute(sql)
    i = 0
   do while not base.eof
     i=i+1
    chname=base("chname")
	 laname=base("laname")
	 earlylate =base("earlylate")
     earlylength=base("earlylength")
	 latelength=base("latelength")
	 shuzhixibao=base("shuzhixibao")
	
  %>
  <tr>
    <td width="11%" nowrap><%=chname%>　</td>
    <td width="17%" nowrap><%=laname%>　</td>
    <td width="11%" nowrap><%=earlylate%>　</td>
   <td width="11%" nowrap><%=earlylength%>　</td>
    <td width="20%" nowrap><%=latelength%>　</td>
	    <td width="20%" nowrap><%=shuzhixibao%>　</td>
 </tr>
 <%
  base.movenext
  loop
  %> 
</table>
  <p align="center"> <a href="manage.html" target="_blank" class="style1">返回管理页</a></p>