| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 478 人关注过本帖
标题:[求助]请教如何在选择转换时文本框内容不被清除-->lmhllr转移
只看楼主 加入收藏
nbsyf
Rank: 1
等 级:新手上路
帖 子:382
专家分:0
注 册:2006-7-31
结帖率:90.7%
收藏
 问题点数:0 回复次数:4 
[求助]请教如何在选择转换时文本框内容不被清除-->lmhllr转移
我的程序如下:这程序有问题,即把“选择一”的选项加入文本框,后点击“选择二”时,我的愿望要保留在文本框原先的内容,再在其后加一“选择二”的选项。但点击“选择二”时,文本框原先内容被清除了,只能加入“选择二”的选项。请教有什么方法能使在“选择一”和“选择二”之间切换时能保留文本框的原先内容,即文本框的原先内容不被清除。
<%
Set rs = Server.CreateObject("ADODB.Recordset")
xhm=request.form("xhh")
bj=4
sql="select * from g1bgd where len(rtrim(xh))='3'and left(rtrim(XH),1)='"&bj&"'"
rs.open sql,conn,1,3
bt=request.querystring("s")
if bt="" then
bt="ztyx"
end if
Set xs = Server.CreateObject("ADODB.Recordset")
sql="select "&bt&" from [bzrpy] "
xs.open sql,conn,1,1
%>
<body>
<%
pgsize=1
page=request.querystring("page")
rs.pagesize=pgsize
pgnm=rs.pagecount
if page=""or clng(page)<1 then page=1
if clng(page)>pgnm then page=pgnm
if pgnm>0 then rs.absolutepage=page
count=0
do while not xs.eof and count<xs.pagesize
%>
<script language="javascript">
function addnew()
{ if(checked_check("s1") != true)
{ alert("Please s1 a option!");
return false; }
var t=document.all.s1;
var text=t.options[t.selectedIndex].innerText;
var value=t.options[t.selectedIndex].value;
form1.text2.value=form1.text2.value+value
t.selectedIndex = 0;
}
function checked_check(idname)
{
var checkobject = document.getElementById(idname);
var coun = checkobject.length;
for(i=0;i<coun;i++)
{
if(checkobject.options[i].selected == true)
return true; }
return false;}
</script>
<form id="form1" name="form1" method="post" action="">
<table width="500" border="0" align="center">
<tr>
<td colspan="3"><p><a href=zs.asp?s=<%="ztyx"%>>选择一</a>&nbsp;&nbsp;<a href=zs.asp?s=<%="sk"%>>选择二</a>&nbsp;</p></td>
</tr>
<tr>
<td width="281"><select name="select" size="6" id="s1">
<%
while not xs.eof
%>
<option value=<%=xs.fields.Item(bt).Value%>><%=xs.fields.Item(bt).Value%></option>
<%
xs.movenext
wend
%>
</select></td>
<td><div align="center">
<input type="button" name="Submit3" onclick="addnew()" value=">" />
</div></td>
<td><label>
<textarea name="text2" cols="40" rows="6" id="s2"></textarea>
</label></td>
</tr>
</table>
</form>
<div align="center">
<%count=count+1
rs.movenext
loop
%>
<a href=zs.asp?page=1>第一页</a>
<a href=zs.asp?page=<%=pgnm%>>最末页</a>
<a href=zs.asp?page=<%=page+1%>>下一页</a>
<a href=zs.asp?page=<%=page-1%>>上一页</a>
</div>
</body>
搜索更多相关主题的帖子: lmhllr 文本 选择 
2007-08-01 15:37
lmhllr
Rank: 8Rank: 8
等 级:贵宾
威 望:44
帖 子:1504
专家分:42
注 册:2005-5-12
收藏
得分:0 
好多ASP代码,顶上去!
2007-08-01 16:15
nbsyf
Rank: 1
等 级:新手上路
帖 子:382
专家分:0
注 册:2006-7-31
收藏
得分:0 
首先非常感谢您能帮助我。其次,您讲的“好多ASP代码,顶上去!”是什么意思,我不理解,能稍微详细些指点吗?
2007-08-01 20:43
ayue222
Rank: 3Rank: 3
等 级:新手上路
威 望:6
帖 子:341
专家分:0
注 册:2007-7-25
收藏
得分:0 
冷汗。。。。。。。。。看得眼花。。。。顶下了事~~。。
2007-08-02 11:10
nbsyf
Rank: 1
等 级:新手上路
帖 子:382
专家分:0
注 册:2006-7-31
收藏
得分:0 
简化如下:“选择一”和“选择二”是把表[bzrpy]某字段的所有记录作为选择项放在列表框供选择,按钮“>”是把列表选中的内容放入右边的文本框,这功能由函数function addnew()完成。问题是在按“选择一”时把选中项用按钮“>”移入文本框后,再按“选择二”时,本想文本框在原先内容的基础上再加入“选择二”的选项。但是,一按“选择二”文本框原先的内容被清除了。即不能连续加文本框内容。
<%
bt=request.querystring("s")
if bt="" then
bt="ztyx"
end if
Set xs = Server.CreateObject("ADODB.Recordset")
sql="select "&bt&" from [bzrpy] "
xs.open sql,conn,1,1
%>
<body>
<script language="javascript">
function addnew()
{ if(checked_check("s1") != true)
{ alert("Please s1 a option!");
return false; }
var t=document.all.s1;
var text=t.options[t.selectedIndex].innerText;
var value=t.options[t.selectedIndex].value;
form1.text2.value=form1.text2.value+value
t.selectedIndex = 0;
return value
}
function checked_check(idname)
{
var checkobject = document.getElementById(idname);
var coun = checkobject.length;
for(i=0;i<coun;i++)
{
if(checkobject.options[i].selected == true)
return true; }
return false;}
</script>
<form id="form1" name="form1" method="post" action="">
<table width="500" border="0" align="center">
<tr>
<td colspan="3"><p><a href=zs5.asp?s=<%="ztyx"%>>选择一</a>&nbsp;&nbsp;<a href=zs5.asp?s=<%="sk"%>>选择二</a>&nbsp;</p></td>
</tr>
<tr>
<td width="281"><select name="select" size="6" id="s1">
<%
while not xs.eof
%>
<option value=<%=xs.fields.Item(bt).Value%> selected="selected"><%=xs.fields.Item(bt).Value%></option>
<%
xs.movenext
wend
%>
</select></td>
<td><div align="center">
<p> input type="button" name="Submit3" onclick="addnew()" value=">" /></p>
</div></td>
<td><label>
<textarea name="text2" cols="40" rows="6" id="s2"><%= Request.Form("text2") %></textarea>
</label></td>
</tr>
</table>
</form>
</body>
</html>
2007-08-02 14:45
快速回复:[求助]请教如何在选择转换时文本框内容不被清除-->lmhllr转移
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.033793 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved