原来写过，但忘了，求帮助 <% dim rs,sql sql="select ID,Type from Machine " set rs=Server.CreateObject("Adodb.Recordset") rs.Open strSQL,Conn,1,1 do while(not rs.eof)%>
onchange="SelMType.value=SelMTypeselect.value;SelMType.select();SelMType.focus();" style="height:22px; background:; width:235px;font-size :14px; CLIP: rect(0px 235px 26px 217px);"> <% dim strSQL,strConn strSQL="select MachineTypeID,TypeDesc from MachineTypeInfo where TypeDesc<>'Others'" dim rs set rs=Server.CreateObject("Adodb.Recordset") rs.Open strSQL,Conn,1,1 do while(not rs.eof)%> --这里代码有问题， 即使下面变成英文选择后还会变成中文 去掉可写入功能到可以。。。 <% if rs("TypeDesc")="多普达" then %>Dopod <%end if%> <% if rs("TypeDesc")="神达" then %>Shenda <%end if%> <% if rs("TypeDesc")="其它" then %>Others <%end if%>
