<select name="JXLB" size="1" onchange=window.open("self.asp?JXLBID="+this.options[this.selectedIndex].value,"_self")>
<%
Set step1 = Server.CreateObject("ADODB.Recordset")
strSQL="select * from 机械类别表"
step1.Open strSQL, cn
while not step1.EOF
response.write "<option value="&step1("类别ID")
if cint(step1("类别ID"))=cint(JXLBID) then
response.write " selected "
end if
response.write ">"&step1("类别名称")&"</OPTION>"
step1.MoveNext
Wend
%>
</select>*
<%
JXNBID=request("JXNBID")
%>
<select name="JXEJLB" size="1">
<%
Set step2 = Server.CreateObject("ADODB.Recordset")
strSQL="select * from 机械表 where 类别ID ="&JXLBID
step2.Open strSQL, cn
while not step2.EOF
response.write "<option value="&step2("机械ID")
if cint(step2("机械ID"))=cint(JXEJLB) then
response.write " selected "
CSSM=step2("标题参数说明")
end if
response.write ">"&step2("机械分类名称")&"</OPTION>"
step2.MoveNext
Wend
%>
</select>*