juece51.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") 
    dim a,b,c,d
     a=request.Form("shape")
     b=request.Form("diameter")
     c=request.Form("sthingin")
     d=request.Form("width")
     sql="select * from 阔叶树材微观构造特征表 where  shape='"&a&"' and diameter='"&b&"' and  sthingin='"&c&"' and width='"&d&"'"
	  rs.open sql,conn
     if not rs.eof then
              temp1=rs("chname")
              temp2=rs("laname")
              
     else
              temp="Sorry！请选择恰当的决策条件！因为没有你所选决策条件的决策结果！"
     end if
	 
%>
	 
<style type="text/css">
<!--
.style1 {
	font-family: "????";
	color: #FF9966;
	font-size: 18px;
}
.style2 {
	color: #FF66CC;
	font-size: 36px;
}
body,td,th {
	color: #CC33FF;
	font-size: 16px;
}
body {
	background-color: #CCCCFF;
}
.style4 {color: #330066}
.style5 {color: #3333CC}
-->
</style>
<p align="center" >
<h3 align="center" class="style2">查看决策结论</h3>
<hr align="center" class="style1">
<table width="687" height="321" border="0" align="center" bgcolor="#ECE9D8">
  <tr>
    <td colspan="2"><span class="style5">用户所选决策信息</span>    <hr align="center" width="750" size="6" class="style1"></td>
  </tr>
  <tr>
    <td><div align="center">决策时间:</div></td>
    <td><div align="center"><%=date%></div></td>
  </tr>
  <tr>
    <td><a name="shape"><div align="center">阔叶树材微观构造管孔形状是：</div></td>
    <td><div align="center"><%=rs("shape")%></div></td>
  </tr>
  <tr>
    <td><a name="diameter"><div align="center">阔叶树材微观构造导管壁纹直径/μm::</div>
    </a></td>
    <td>
      <div align="center"><%=rs("diameter")%></div></td>
  </tr>
  <tr>
    <td><a name="sthingin"><div align="center">阔叶树材微观构造导管内含物：:</div>
    </a></td>
    <td >
      <div align="center"><%=rs("sthingin")%></div></td>
  </tr>
  <tr>
    <td><p align="left"><a name="width"><div align="center">阔叶树材微观构造木射线宽度(列细胞)是:</div>
    </a>    
    </td>
    <td>
      <div align="center"><%=rs("width")%>     </div></td>
  </tr>
  <tr>
    <td colspan="2" ><hr class="style1"></td>
  </tr>
  <tr>
    <td colspan="2" ><span class="style5">决策结论</span>
      <hr width="750" size="6" class="style1"></td>
  </tr>
  <tr>
    <td ><div align="center">树木中文名字决策结论是：</div></td>
    <td >
      <div align="center"><a href="character.asp?chname=<%=temp1%>&laname=<%=temp2%>"><%=temp1%></a></div></td>
  </tr>
  <tr>
    <td ><div align="center">树木拉丁名字决策结论是:</div></td>
    <td >
      <div align="center"><%=temp2%></div></td>
  </tr>
<td ><div align="center">可信度为：</div></td>
<td>
      <div align="center">100%</div></td>

</table>
  <p>&nbsp;</p>
  <div style="background-color:#99CC00 " align="center" ><span class="style4">其它结论:<%=temp%>  </span></div>
 <h2 align="center"><a href="2.html" target="_self" class="style1">返回决策页面</a>
</h2>