juece2.asp

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

<title>juece</title>

 <style type="text/css">
<!--
body {
	background-color: #6666CC;
}
.style4 {font-family: "华文行楷"}
.style6 {font-family: "华文行楷"; font-size: 18px; }
body,td,th {
	color: #000033;
	font-size: 36px;
}
.style7 {font-size: 24px}
.style8 {font-family: "华文行楷"; font-size: 24px; }
-->
 </style><p>&nbsp; </p>

 
 <form name="form" method="post"  action="2b.asp">
   <p class="style7"><span class="style4">1.请选择针叶树材宏观心边材区分状况</span>： 
        <select name="difference">
          <option>不明显</option>
          <option>明显</option>
          <option>甚明显</option>
          <option>不明显或略明显</option>
        </select>
   </p>
   <p class="style7"><span class="style4">2.请选择针叶树材宏观纹理状况</span>： 
     <select name="wenli">
       <option>通直</option>
       <option>多斜行</option>
       <option>直或斜</option>
     </select>
   </p>
   <p class="style7"><span class="style4">3.请选择针叶树材宏观光泽</span>： 
     <select name="guangze">
       <option>有</option>
       <option>略有光泽</option>
       <option>略强</option>
       <option>较弱</option>
     </select>
   </p>
   <p><span class="style8">4.针叶树材的气味</span><span class="style7">：</span>     
     <select name="smell">
      <option>不明显</option>
      <option>略微香味</option>
      <option>柏木香味</option>
      <option>松脂气味</option>
      <option>较微臭味</option>
     </select>
   </p>
   <p>
     <input name="button" type="submit" class="style6"  value="提交并查看决策结果"   >     
   <font color="#FF9999"><a href="2.html"><img src="../image/title_bg_hide.gif" width="158" height="25" border="0"></a></font></p>
 </form>
 <p>
   <%@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") 
    dim b,c,d,e
     
     b=request.Form("difference")
     c=request.Form("wenli")
     d=request.Form("guangze")
     e=request.Form("smell")

     sql="select * from 针叶树材宏观构造特征表 where  difference='"&b&"' and wenli='"&c&"' and  guangze='"&d&"' and smell='"&e&"'"
    
     rs.open sql,conn
     if not rs.eof then
              temp1=rs("chname")
			  temp2=rs("laname")   
              
    else
             temp="Sorry！请选择恰当的决策条件！因为你还未决策或没有你所选决策条件的决策结果！请重新选择!谢谢!"
     end if
 
%>
  
   <textarea name="answer" cols="60" rows="20" wrap="virtual" style="font-family: 宋体; font-size: 10pt; line-height: 25px; color: rgb(255,0,255)">
        你的决策结论
 
  树木的中文名字决策结果为:      <%=temp1 %>
  
  树木的拉丁名字决策结果为:      <%=temp2 %>
  
  决策结果的其它情况:   <%=temp%>
   
   </textarea>
   <font color="#FF9999"></font> </p>
 <p><font color="#FF9999"> </font>
   <!--<div style="background-color:#CCCCCC " style="border-bottom-color:#3333FF ">你的决策结论:<%=temp%></div>-->
    
</p>