下拉框赋值的问题。。。！！求解
原来写过，但忘了，求帮助<%
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]] “选择的”和“看到的”有什么区别？
哈哈~我看了半天也不知道他想实现什么？
怕很深层次问题自己理解简单了。但是一个下拉框不应该很深啊，哈哈哈 想起来了，解决，版主封帖，谢谢。。。。 [em02] 能不能讲讲你是怎么解决的？ 我也正打算做做下拉，不知道如何办。。。。。 这个楼主特别喜欢自己解决了拍拍屁股走人…… 不好意思，说一下解决方法，不然版主要发彪。下面是一个可以写入的下拉框代码，但由于数据库字段内容为中文，而现在要做英文版，又不想重新复制一个表，。所以只要把下拉框里显示的中文变成英文就可以了
<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)%>
[color=Sienna][b] <option value=<%=rs("TypeDesc")%>>[/b][/color] [color=Navy]--这里代码有问题， 即使下面变成英文选择后还会变成中文 [/color] 去掉可写入功能到可以。。。
[b]<% if rs("TypeDesc")="多普达" then %>Dopod <%end if%>
<% if rs("TypeDesc")="神达" then %>Shenda <%end if%>
<% if rs("TypeDesc")="其它" then %>Others <%end if%>[/b]
</option>
<% rs.movenext()
loop
rs.close %>
</select>
[[it] 本帖最后由 dhdhzzw 于 2008-7-22 17:06 编辑 [/it]] [em12] 哈哈！！[em09] 版主够幽默
就是加了临时判断？
我想到就没敢答，哈哈哈 我的想法是数据库里 中文名和英文名各一个字段。 不错，版主说的方法也可以。斑竹想到的我也没说
2个办法同时想到，说实话初到贵地，我就没敢多冒泡。。哈哈哈哈 没关系，想到就讲出来，各有各的长处。。。 程序设计是一种非常自由的工作，因为完成一个目标的方法非常多。呵呵~以后我会胆子大一点，步子快一点，
主要是怕误会LZ的思路。多交流！页:
[1]