<select  name="ww">
<%
dim strsql
dim rs
set rs=server.createobject("adodb.recordset")
    strSQL="select TypeID,TypeDesc,Version,FeatureCode,Provider from ProductTypes"
    rs.Open strSQL,Conn,1,1
    do while(not rs.eof)%>
 <option  value=<%=rs("TypeID")%>><%=rs("TypeDesc")&"---(地图商>>>" & rs("Provider") & ")"&"--(版本>>>" & rs("Version") & ")"&"--(特征码>>>" & rs("Featurecode") & "）"%></option>

  <%rs.movenext()
 loop
rs.close

            %>


ww=request.form("ww")

sql = "insert into [www](TypeID,MapID,ProducerID,ProductDate)values('"&lx1&"','"&dt1&"','"&aaa&"','"& Date &"')"
    conn.Execute(sql)


因为下拉列表中对应了多个值，我想全写进数据库，但此处只能把列表中value=<%=rs("TypeID")%>的值单一写进数据库，而不能把<%rs("Version")%>等信息也写进去。因为我不知道怎样一个列表得出多个对应的值。此处我只会得到一个value对应的为typeID  <option  value=<%=rs("TypeID")%>>，我想把这个ID对应的<%rs("Version")%> 等信息也得出来并使其可填进数据库。。。。 求方法。。

看了好一会儿，不知所云！

楼主为什么要用下拉框，写成四个文本框，value值分别对应TypeID,MapID,ProducerID,ProductDate，不行吗？

可我要选择的阿，，<%=rs("TypeID")%>这个代表被选的ID不只有一条。此条信息下对应的各种信息，我想选中它之后，对应的其他信息在文本框显示出来，并写进数据库。。。。就是这意思。。。。。

<script language="javascript">
function selww_Change(val,txt)
{
    document.form1.ww.value=val+"--"+txt;
   //这里的form1为假设的表单名称，楼主换成自己的表单名称。
}
</script>
<form name="form1">
<!--这里假设表单为form1表单的其他属性(如method="post" action等)在这里省略，楼主根据自己的情况添加-->
<select  name="selww" onChange="selww_Change(this.options[this.selectedIndex].value,this.options[this.selectedIndex].text);">
<%
dim strsql
dim rs
set rs=server.createobject("adodb.recordset")
    strSQL="select TypeID,TypeDesc,Version,FeatureCode,Provider from ProductTypes"
    rs.Open strSQL,Conn,1,1
    do while(not rs.eof)%>
<option  value=<%=rs("TypeID")%>><%=rs("TypeDesc")&"---(地图商>>>" & rs("Provider") & ")"&"--(版本>>>" & rs("Version") & ")"&"--(特征码>>>" & rs("Featurecode") & "）"%></option>

  <%rs.movenext()
loop
rs.close

            %>
</select>
<input type="hidden" name="ww" >
添加代码
<%
Dim ww,tAry
ww=request.form("ww")
tAry=Split(ww,"--")
sql = "insert into [www](TypeID,MapID,ProducerID,ProductDate)values('"&tAry(0)&"','"&tAry(1)&"','"&tAry(2)&"','"& tAry(3) &"')"
    conn.Execute(sql)
%>

<input type="hidden" name="ww" >   ----//这里为什么要隐藏一个表单呢？

我想在表单中显示对应的所有信息