juece211.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 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
 
%>