这段代码怎么写呢？

snowkojo 2002-07-25 04:04:12

一个表格：
<table><tr>
<td></td>
<td>
<select name="select1">
<option value="PreSel4"></option>
<option value="PreSel5"></option>
</select>
</td>
</tr></table>
两个服务器端函数：
<%
Sub PreSel4()
Response.Write "<input name='TextVal'>"
End Sub
Sub PreSel5()
Response.Write "<select name='TextVal'>"
Response.Write "<option value='医疗'>医疗</option>"
Response.Write "<option value='其他'>其他</option>"
Response.Write "</select>"
End Sub
%>
我想当select1进行onChange事件时，根据select1中的值调用相应的函数，
以便在表格的第一个单元格内填入相应的控件（文本框或下拉框）。
请各位大侠指教，谢谢！

...全文

53 6 打赏收藏转发到动态举报

写回复

用AI写文章

6 条回复

切换为时间正序

请发表友善的回复…

发表回复

snowkojo 2002-07-26

打赏
举报

谢谢！

glassprogrammer 2002-07-25

打赏
举报

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<TITLE> New Document </TITLE>
<META NAME="Generator" CONTENT="EditPlus">
<META NAME="Author" CONTENT="">
<META NAME="Keywords" CONTENT="">
<META NAME="Description" CONTENT="">
</HEAD>
<Script>
function SwapTD(val) {
var td=document.getElementById('toDo');
switch (val) {
case 'PreSel4':
td.innerHTML = "<input name='TextVal'>" ;
break ;
case 'PreSel5':
td.innerHTML = "<select name='TextVal'>" +
" <option value='医疗'>医疗</option>" +
" <option value='其他'>其他</option>" +
"</select>" ;
break ;
default:
td.innerHTML = 'Nothing' ;
}
}
</Script>
<BODY>
<table><tr>
<td id="toDo">Nothing</td>
<td>
<select name="select1" onchange="SwapTD(this.value);">
<option value="Nothing"></option>
<option value="PreSel4">这是 PreSel4</option>
<option value="PreSel5">这是 PreSel5</option>
</select>
</td>
</tr></table>

</BODY>
</HTML>

snowkojo 2002-07-25