gouzao.asp

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

<%@language=vbscript%>
<% 
     on error resume next
     dim conn,rs,sql,i,constr,temp
     Set conn = Server.CreateObject("ADODB.Connection")
     conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("tree.mdb")
     set rs= server.createobject("adodb.recordset") 
	 %>
<style type="text/css">
<!--
body,td,th {
	color: #9933CC;
}
body {
	background-image: url(tree/96.jpg);
}
.style3 {
	font-family: "华文行楷";
	font-size: 36px;
}
.style7 {
	font-size: 24px;
	font-family: "隶书";
}
.style10 {
	font-family: "华文行楷";
	font-size: 24px;
}
.style11 {font-size: 24px; font-family: "隶书"; color: #99FFCC; }
-->
</style>
<form name="form1" method="post" action="">
   <p align="center"><a href="2.html" class="style10">返回决策页</a> </p>
   <p>&nbsp; </p>
   <table width="374" height="149" border="5" align="left" bordercolor="#009966">
     <tr>
       <td width="356" height="134" class="style3"><div align="center" class="style11">
         <div align="center">
           <% 
	 dim trname,trlaname 
	 trname=request.QueryString("chname")
	 trlaname=request.QueryString("laname")
      a=response.Write (trname)
	  b=response.Write(trlaname)
	%>
           <%=a%>的宏观构造特征如下
           <%
    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 树材宏观构造特征表 where  chname='"&trname&"'"
	set base=conn.execute(sql)
    i = 0
   do while not base.eof
     chname=base("chname")
	 laname=base("laname")
	 difference =base("difference")
     wenli=base("wenli")
	 guangze=base("guangze")
	  smell=base("smell")
   %>
           </div>
       </div>

   <h1 align="center" class="style7">心边材区分： <%=difference%></h1>
   <h1 align="center" class="style7">纹理：<%=wenli%></h1>
   <h1 align="center" class="style7">光泽：<%=guangze%></h1>
 <h1 align="center" class="style7">气味：<%=smell%></h1>
   
         <div align="center">
           <%
  base.movenext
  loop
  %>
           </span>           </h1>
         </div></td>
  </tr>
</table>
<p>&nbsp;</p>
  <table width="402" height="149" border="5" align="left" bordercolor="#009966">
     <tr>
       <td width="384" height="134" class="style3"><div align="center" class="style11">
           <div align="center">
             <% 
	 dim trname2,trlaname2 
	 trname2=request.QueryString("chname")
	 trlaname2=request.QueryString("laname")
      a=response.Write (trname2)
	  b=response.Write(trlaname2)
	%>
             <%=a%>的微观构造特征如下
             <%
    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 针叶树材微观构造特征表 where  chname='"&trname&"'"
	set base=conn.execute(sql)
    i = 0
   do while not base.eof
     chname=base("chname")
	 laname=base("laname")
	earlylate =base("earlylate")
    earlylength=base("earlylength")
	 latelength=base("latelength")
	 shuzhixibao=base("shuzhixibao")
   %>
           </div>
         </div>
           <h1 align="center" class="style7">早晚材过渡： <%=earlylate%></h1>
           <h1 align="center" class="style7">早材管胞长度/um：<%=earlylength%></h1>
           <h1 align="center" class="style7">晚材管胞长度/um：<%=latelength%></h1>
           <h1 align="center" class="style7">有无树脂细胞：<%=shuzhixibao%></h1>
           <div align="center">
             <%
  base.movenext
  loop
  %>
         </div></td>
     </tr>
   </table>
   <p align="center">&nbsp;</p>