在线求救！自动取值的问题！

[piaomiao_jxz]

<%i=1
do while not rs1.eof
%>
<tr>
<td height="28" bgcolor="#FFFFCC"> <div align="center"><%=i%></div></td>
<td height="28" bgcolor="#FFFFCC"> <input name="xmmc" type="text" style="BACKGROUND-COLOR: #FFFFCC; BORDER-BOTTOM: #FFFFCC 1px solid; BORDER-LEFT: #FFFFCC 1px solid; BORDER-RIGHT: #FFFFCC 1px solid; BORDER-TOP: #FFFFCC 1px solid; FONT-SIZE: 12px; FONT-COLOR: #FF0000; WIDTH: 50px" value="<%=rs1("ygxm")%>" readonly="yes"></td>
<td height="28" bgcolor="#FFFFCC"> <input name="cqts" type="text" id="dt" style="border-style: solid; border-width: 1"></td>
</tr>
<%rs2.movenext
rs1.movenext
loop%>
共循环出多个cqts文本框，如何让在第一个文本框输入的内容，其它文本框也要变的和第一个文本框一样的内容。

[wangwm]

如何让在第一个文本框输入的内容，其它文本框也要变的和第一个文本框一样的内容。


说得好象不大清楚

[pp4u]

用javascript :
document.all.text1.value=document.all.text2.value
还有你的input box的name要改一下.不能每个都一样的.

[piaomiao_jxz]

能不能都用同一个name呢？？

[海牛]

将代码小改一下：
.
.
.
.
.
("ygxm")%>" readonly="yes"></td>
<td height="28" bgcolor="#FFFFCC"> <input name="cqts<%=i%>" type="text" id="dt" style="border-style: solid; border-width: 1"></td>

然后写客户端脚本（例子）：
<Input type='text' name='t0'><br>
<Input type='text' name='t1'><br>
<Input type='text' name='t2'><br>
<Input type='text' name='t3'><br>
<Input type='text' name='t4'><br>

<Script Language=VBScript>
Private Sub t0_OnKeyUp()
Dim I,strV
Dim objT

Set objT=t0
I=1
strV=t0.value
Do Until objT is Nothing
Set objT=document.all.item("t" & I)
If Not objT is Nothing Then
objT.value=strV
End If
I=I+1
Loop
End Sub
</Script>

[piaomiao_jxz]

Rick110AAA(海牛) 我用你那个老是提示，缺少对象t0

[sx1123]

可以把名字去一样的，如cqts
<script language="vbscript">
sub sx1123()
dim intI,
For intI=0 To Document.FormName.cqts.length-1
Document.FormName.cqts(intI).value="一样的值"
Next
end sub
</script>