📄 juece1.asp
字号:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>juece</title>
<style type="text/css">
<!--
body {
background-color: #6666CC;
}
-->
</style></head>
<body>
<form name="form"action="juece1.asp" method="post" >
<p>1.请选择树木的胸径:
<select name="xiongjing">
<option>20-30cm</option>
<option>1-1.5m</option>
<option>20cm左右</option>
<option>1.5m</option>
<option>30cm左右</option>
</select>
</p>
<p>
2.请选择树木的高度:
<select name="height">
<option>3-9m</option>
<option>20m左右</option>
<option>20-25m</option>
<option>50m</option>
<option>25-30m</option>
<option>30-40m</option>
</select>
</p>
<p>3.请选择树龄:
<select name="age">
<option>80年左右</option>
<option>100-150年</option>
<option>200年</option>
<option>200-300年</option>
<option>300-400年</option>
</select>
</p>
<p> </p>
<p>
<input name="Submit" type="submit" value="已经选好,看看结论!">
<a href="2.html"><img src="../image/title_bg_hide.gif" width="158" height="25" border="0"></a><br>
</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 x,y,z,t
x=request.form("xiongjing")
y=request.Form("height")
z=request.Form("age")
sql="select * from 生长特征表 where xiongjing='"&x&"' and height='"&y&"' and age='"&z&"'"
rs.open sql,conn
if not rs.eof then
temp1=rs("treename")
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>
</p>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -