简单的下拉单读取

[xk8023ppt]

我想做个下拉单
简单的
从 depart表里读出depart列的值到下拉框
下拉框选定 数据写入work表的depart列

[MR丶CHAN]

你是要选定就写数据呢，还是选定后点确定再写数据

[xk8023ppt]

选定后提交在写入

[MR丶CHAN]

<select id="st" >
<option>aaa</option>
<option>bbb</option>
<option>ccc</option>
</select>
<%
dim a
a=request.form("st")
sql="insert into table (lie) values('"&a&"')"
%>

[xk8023ppt]

我的下拉单里的内容是从数据库里面读取的

[mailbao]

'先查詢選定值
<%
set rs = Server.CreateObject("ADODB.recordset")
rs.Open "SELECT depart FROM [depart]", conn,1,1
do while not rs.eof
%>
<select id="depart" > 
<option value="<%=rs("depart")%>"><%=rs("depart")%></option> 
</select> 
<%
rs.MoveNext
loop
rs.close
conn.close
%>


'後獲取保存
<% 
dim depart 
depart=request.form("depart") 
sql="insert into [depart] (depart) values('"&depart&"')" 
%>