原来写过，但忘了，求帮助
 <%
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)%>
 
                     <option value=<%=rs("Type")%>><%=rs("Type")%></option>
                     <% rs.movenext()
 loop
rs.close            %>
例如数据库的内容为   长虹 、新科、 海尔
现在想让他们以英文显示   即  当下拉框选择长虹时 （数据库字段值） ，下拉框看到的值为  changhong   
请问该怎么做？我忘掉了，现在已是写不出来。

[[it] 本帖最后由 dhdhzzw 于 2008-7-22 15:25 编辑 [/it]]

想起来了，解决，版主封帖，谢谢。。。。

不好意思，说一下解决方法，不然版主要发彪。
下面是一个可以写入的下拉框代码，但由于数据库字段内容为中文，而现在要做英文版，又不想重新复制一个表，。所以只要把下拉框里显示的中文变成英文就可以了

<select  name="SelMType"tabindex="1"
 onchange="SelMType.value=SelMTypeselect.value;SelMType.select();SelMType.focus();"                                             style="height:22px;  background:; width:235px;font-size :14px; CLIP: rect(0px 235px 26px 217px);">
                     <option   selected value=""></option>
                     <%
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)%>
                     <option value=<%=rs("TypeDesc")%>>    --这里代码有问题，    即使下面变成英文选择后还会变成中文        去掉可写入功能到可以。。。    
                           <% if rs("TypeDesc")="多普达" then %>Dopod <%end if%>
        <% if rs("TypeDesc")="神达" then %>Shenda <%end if%>
        <% if rs("TypeDesc")="其它" then %>Others <%end if%>                    
                    
                    
                     </option>
                     <% rs.movenext()
 loop
rs.close            %>
                   </select>

[[it] 本帖最后由 dhdhzzw 于 2008-7-22 17:06 编辑 [/it]]

不错，版主说的方法也可以。

没关系，想到就讲出来，各有各的长处。。。