列表框和文本框互动的问题??在线急等???

dclovewj 2003-12-15 09:52:55

我的列表框中的数据是从数据库中table表中取出的，我想实现当我选择列表框中的一条内容时，文本框的内容也随之改变，文本框的内容要求也是

从table表中取得的另一个字段的内容，要与列表框中的记录对应。请高手指教。
即：
table表中有字段如下
name id
joe 1|2|3

tom 4|5

列表框中已有
joe

tom
当我选择joe时显示三个文本框第一个文本框显示1 第二个文本框显示 2 第三个文本框显示 3

当我选择tom时显示二个文本框，第一个文本框显示4 第二个文本框显示 5

<script language="javascript">
function setid(str)
{
ary=str.split(" ¦");
for (i=0;i<=ary.length;i++)
str1+="<input type=\"text"\ name=\"ud\" value=\""&ary[i]&"\"><br>";
window.upid.innerHTML=str1;
}
</script>

<tr> <td>
<% Set rs = conn.Execute ("SELECT * FROM table")
If not rs.EOF Then%>
<select name="name" onchange="setid(this.value);">
<%do while not rs.eof
Response.Write "<option value=""" & rs("id") & """>" & rs("name") & "</option>"
rs.MoveNext
Loop %>
</select>
<%
end if
rs.close
set rs=nothing
conn.close
set conn=nothing%>
</td></tr>
<tr><td ><span id=upid></span></td></tr>

...全文

67 12 打赏收藏转发到动态举报

写回复

用AI写文章

12 条回复

切换为时间正序

请发表友善的回复…

发表回复

zjiangbo 2003-12-15

打赏
举报

我找到了些，但是是JS，如果数据库里调出的东西不多，到也可以用用

dclovewj 2003-12-15

打赏
举报

我已经搜了.没有这样的.我现在已经能做出一点来了.但是代码好像有问题.不能实现联动

bzscs 2003-12-15

打赏
举报

请用“连动”进行搜索

zjiangbo 2003-12-15

打赏
举报

我也是遇到这样的问题
我打算做个注册页面，用分院下拉框，调出相应的系部下拉选项，以及专业的下拉选项，
我刚开始学ASP，希望大家帮忙解决这个问题！
谢了

dclovewj 2003-12-15

打赏
举报

连动怎么动不起来呢.代码不知道是哪块有错误了.请大家帮忙看一下吧???

billywg 2003-12-15

打赏
举报

你上面建立记录集对象了吗？
少了
dim rs
Set rs=Server.CreateObject("ADODB.RecordSet")

dclovewj 2003-12-15

打赏
举报

谢谢.好了.

nchen123 2003-12-15

打赏
举报

调试完毕的:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>

<script language="vbscript">
function check()
dim str, arr, str2, i
str = document.all.select1.value
arr = split(str, "|")
for i = 0 to ubound(arr)
str2 = str2 & "<input value='" & arr(i) & "'>"
next
div1.innerHTML = str2
'msgbox(str)
end function
</script>
</head>

<body>

<%
'连接数据库
dim conn, strConn
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Password="""";Data Source=" & server.MapPath("db1.mdb") & ";Persist Security Info=True"
set conn = server.CreateObject("ADODB.Connection")
conn.open strConn

dim sql, rs
sql = "select name, id from tbl"
set rs = conn.execute(sql)
%>

<select name="select1" onChange="vbscript:check()">
<%
do while not rs.eof
response.write "<option value='" & rs("id") & "'>" & rs("name") & "</option>"
rs.movenext
loop
%>
</select>
<div id="div1"></div>
</body>
</html>

dclovewj 2003-12-15