📄 juece211.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
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -