character.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: "隶书";
}
.style9 {font-size: 36px; font-family: "隶书"; }
.style10 {
	font-family: "华文行楷";
	font-size: 24px;
}
-->
</style>
<form name="form1" method="post" action="">
   <p>&nbsp;</p>
   <p>&nbsp; </p>
   <table width="453" height="149" border="5" align="center" bordercolor="#009966">
     <tr>
       <td width="386" height="134" class="style3"><div align="center" class="style7">
         <% 
	 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  treename='"&trname&"'"
	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")
   %>
         </div>

   <h1 class="style7">胸径为： <%=xiongjing%></h1>
   <h1 class="style7">高度是：<%=height%></h1>
   <h1 class="style9"><span class="style7">树龄为：<%=age%>
       <%
  base.movenext
  loop
  %>
   </span>    </h1>
    </td>
  </tr>
</table>
 

 
    
    

   <p align="center"><a href="2.html" class="style10">返回决策页</a> </p>