2.8w+
社区成员
- 主页
简单的下拉单读取
我想做个下拉单
简单的
从 depart表里读出depart列的值到下拉框
下拉框选定 数据写入work表的depart列
简单的
从 depart表里读出depart列的值到下拉框
下拉框选定 数据写入work表的depart列
...全文
请发表友善的回复…
发表回复
mailbao 2009-08-05
'先查詢選定值
<%
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&"')"
%>
xk8023ppt 2009-08-05
我的下拉单里的内容是从数据库里面读取的
chenlongit 2009-08-05
<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&"')"
%>
<option>aaa</option>
<option>bbb</option>
<option>ccc</option>
</select>
<%
dim a
a=request.form("st")
sql="insert into table (lie) values('"&a&"')"
%>
xk8023ppt 2009-08-05
选定后提交在写入
chenlongit 2009-08-05
你是要选定就写数据呢，还是选定后点确定再写数据