简单的下拉单读取

xk8023ppt 2009-08-05 09:35:19
我想做个下拉单
简单的
从 depart表里读出depart列的值到下拉框
下拉框选定 数据写入work表的depart列
...全文
84 点赞 收藏 5
写回复
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
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&"')"
%>
回复
xk8023ppt 2009-08-05
选定后提交在写入
回复
chenlongit 2009-08-05
你是要选定就写数据呢,还是选定后点确定再写数据
回复
发动态
发帖子
ASP
创建于2007-09-28

2.8w+

社区成员

ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
申请成为版主
社区公告
暂无公告