28,408
社区成员
发帖
与我相关
我的任务
分享为什么 select 的 onchange 事件没有被触发?
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
<%Response.Expires=0%>
<html>
<head>
<link rel="stylesheet" href="../putong_1t.css">
<!-- #include file="../Share/connectdb.asp" -->
<script language="vbscript">
sub change_area
frmXX.submit
end sub
</script>
<%
dim sqlstr
del_id=trim(request("del_id"))
zone_id=trim(request("zone_id"))
if del_id="" then
response.redirect "customer_man.asp"
end if
set rsone=server.CreateObject("ADODB.recordset")
set rs=server.CreateObject("ADODB.recordset")
sqlstr="select a.cust_id,a.cust_name,a.AREA_ID,a.ZONE_ID,a.CITY_ID,a.TRADE_ID,b.AREA_name,c.ZONE_name,d.CITY_name,e.ITEM_name from dbo.CUSTOMER as a inner join dbo.CUST_AREA as b on a.AREA_ID=b.AREA_ID inner join dbo.CUST_ZONE as c on a.ZONE_ID=c.ZONE_ID inner join dbo.CUST_CITY as d on a.CITY_ID=d.CITY_ID inner join dbo.CUST_TRADE as e on a.TRADE_ID=e.ITEM_ID where a.cust_id in(" & del_id & ")"
rs.open sqlstr,conn,3,1
%>
</head><body><div class="TitleBar">客户资料修改</div>
<table width="583" class="tableframe" border="0">
<form id=fromXX name=fromXX method=post action="cust_dochange.asp">
<tr class=Listtitle>
<td width="97" class=listcelltitle>客户名称:</td>
<td width="670" class=listcelltitle><%=server.HTMLEncode(rs("cust_name") & "")%></td>
</tr>
<tr class=listrow1>
<td>区域:</td>
<td><select id=zone_id name=zone_id size="1" onChange="vbscript:change_area">
<option value=""></option>
<%
rsone.Open "select * from CUST_ZONE",conn,3,1
do while not rsone.EOF
%>
<option value="<%=rsone("zone_id")%>" <%if cstr(rsone("zone_id"))=cstr(rs("zone_id")) then Response.Write "selected"%>><%=server.HTMLEncode(rsone("zone_NAME"))%></option>
<%
rsone.MoveNext
loop
rsone.Close
%>
</select></td>
</tr>
<tr class=listrow1>
<td>城市:</td>
<td><select id=CITY_ID name=CITY_ID size="1">
<option value=""></option>
<%
rsone.Open "select * from CUST_CITY",conn,3,1
do while not rsone.EOF
%>
<option value="<%=rsone("CITY_ID")%>" <%if cstr(rsone("CITY_ID"))=cstr(rs("CITY_ID")) then Response.Write "selected"%>><%=server.HTMLEncode(rsone("CITY_name"))%></option>
<%
rsone.MoveNext
loop
rsone.Close
%>
</select></td>
</tr>
<tr class=listrow1>
<td>行业:</td>
<td><select id=TRADE_ID name=TRADE_ID size="1">
<option value=""></option>
<%
rsone.Open "select * from CUST_TRADE",conn,3,1
do while not rsone.EOF
%>
<option value="<%=rsone("item_id")%>" <%if cstr(rsone("item_id"))=cstr(rs("TRADE_ID")) then Response.Write "selected"%>><%=server.HTMLEncode(rsone("ITEM_name"))%></option>
<%
rsone.MoveNext
loop
rsone.Close
%>
</select></td>
</tr>
<tr class=Listtitle align="center">
<td colspan="2"><input type=hidden id=cust_id name=cust_id value="<%=rs("cust_id")%>"><input type=submit class=button value="提交" id=bQuery name=bQuery></td>
</tr>
</form>
</table>
</body>
</html>
为什么会没触发呢?
<%Response.Expires=0%>
<html>
<head>
<link rel="stylesheet" href="../putong_1t.css">
<!-- #include file="../Share/connectdb.asp" -->
<script language="vbscript">
sub change_area
frmXX.submit
end sub
</script>
<%
dim sqlstr
del_id=trim(request("del_id"))
zone_id=trim(request("zone_id"))
if del_id="" then
response.redirect "customer_man.asp"
end if
set rsone=server.CreateObject("ADODB.recordset")
set rs=server.CreateObject("ADODB.recordset")
sqlstr="select a.cust_id,a.cust_name,a.AREA_ID,a.ZONE_ID,a.CITY_ID,a.TRADE_ID,b.AREA_name,c.ZONE_name,d.CITY_name,e.ITEM_name from dbo.CUSTOMER as a inner join dbo.CUST_AREA as b on a.AREA_ID=b.AREA_ID inner join dbo.CUST_ZONE as c on a.ZONE_ID=c.ZONE_ID inner join dbo.CUST_CITY as d on a.CITY_ID=d.CITY_ID inner join dbo.CUST_TRADE as e on a.TRADE_ID=e.ITEM_ID where a.cust_id in(" & del_id & ")"
rs.open sqlstr,conn,3,1
%>
</head><body><div class="TitleBar">客户资料修改</div>
<table width="583" class="tableframe" border="0">
<form id=fromXX name=fromXX method=post action="cust_dochange.asp">
<tr class=Listtitle>
<td width="97" class=listcelltitle>客户名称:</td>
<td width="670" class=listcelltitle><%=server.HTMLEncode(rs("cust_name") & "")%></td>
</tr>
<tr class=listrow1>
<td>区域:</td>
<td><select id=zone_id name=zone_id size="1" onChange="vbscript:change_area">
<option value=""></option>
<%
rsone.Open "select * from CUST_ZONE",conn,3,1
do while not rsone.EOF
%>
<option value="<%=rsone("zone_id")%>" <%if cstr(rsone("zone_id"))=cstr(rs("zone_id")) then Response.Write "selected"%>><%=server.HTMLEncode(rsone("zone_NAME"))%></option>
<%
rsone.MoveNext
loop
rsone.Close
%>
</select></td>
</tr>
<tr class=listrow1>
<td>城市:</td>
<td><select id=CITY_ID name=CITY_ID size="1">
<option value=""></option>
<%
rsone.Open "select * from CUST_CITY",conn,3,1
do while not rsone.EOF
%>
<option value="<%=rsone("CITY_ID")%>" <%if cstr(rsone("CITY_ID"))=cstr(rs("CITY_ID")) then Response.Write "selected"%>><%=server.HTMLEncode(rsone("CITY_name"))%></option>
<%
rsone.MoveNext
loop
rsone.Close
%>
</select></td>
</tr>
<tr class=listrow1>
<td>行业:</td>
<td><select id=TRADE_ID name=TRADE_ID size="1">
<option value=""></option>
<%
rsone.Open "select * from CUST_TRADE",conn,3,1
do while not rsone.EOF
%>
<option value="<%=rsone("item_id")%>" <%if cstr(rsone("item_id"))=cstr(rs("TRADE_ID")) then Response.Write "selected"%>><%=server.HTMLEncode(rsone("ITEM_name"))%></option>
<%
rsone.MoveNext
loop
rsone.Close
%>
</select></td>
</tr>
<tr class=Listtitle align="center">
<td colspan="2"><input type=hidden id=cust_id name=cust_id value="<%=rs("cust_id")%>"><input type=submit class=button value="提交" id=bQuery name=bQuery></td>
</tr>
</form>
</table>
</body>
</html>
为什么会没触发呢?
...全文
请发表友善的回复…
发表回复
never1983 2006-11-22
- 打赏
- 举报
ok ... 给分
碧海情天-赵亮 2006-11-22
- 打赏
- 举报
sub change_area()
fromXX.submit
end sub
也可以。
马虎问题，没大毛病。
fromXX.submit
end sub
也可以。
马虎问题，没大毛病。
碧海情天-赵亮 2006-11-22
- 打赏
- 举报
改了一下，现在是没问题的了，楼主挑着复制粘贴一下就行了：
<script language="vbscript">
sub change_area()
document.all.fromXX.submit
end sub
</script>
<select id=zone_id name=zone_id size="1" onChange="vbscript:call change_area()">
<option value="2">ddd</option>
<option value="1">444</option>
</select>
<form id=fromXX name=fromXX method=post action="cust_dochange.asp">
<input type=hidden id=cust_id name=cust_id value="2">
<input type=submit class=button value="提交" id=bQuery name=bQuery>
</form>
<script language="vbscript">
sub change_area()
document.all.fromXX.submit
end sub
</script>
<select id=zone_id name=zone_id size="1" onChange="vbscript:call change_area()">
<option value="2">ddd</option>
<option value="1">444</option>
</select>
<form id=fromXX name=fromXX method=post action="cust_dochange.asp">
<input type=hidden id=cust_id name=cust_id value="2">
<input type=submit class=button value="提交" id=bQuery name=bQuery>
</form>
明珠佩佩 2006-11-22
- 打赏
- 举报
建议改成JAVASCRIPT版本的
Eddie005 2006-11-22
- 打赏
- 举报
看起来至少会触发事件...
myvicy 2006-11-22
- 打赏
- 举报
为什么不用js做呢？
