编程论坛 → ASP技术论坛

求版主了，回话把下拉列表中不同的内容写进数据库求方法。。。。。

dhdhzzw 发布于 2008-01-07 16:16， 1042 次点击

<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")%> 等信息也得出来并使其可填进数据库。。。。求方法。。

5 回复

#2

天涯听雨2008-01-07 22:05

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

#3

madpbpl2008-01-08 02:20

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

#4

dhdhzzw2008-01-08 09:05

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

#5

yms1232008-01-08 16:39

<script language="javascript">
function selww_Change(val,txt)
{
    document.form1.ww.value=val+"--"+txt;
   //这里的form1为假设的表单名称，楼主换成自己的表单名称。
}
</script>
<form name="form1">

<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)
%>

#6

dhdhzzw2008-01-09 09:26

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

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

1