<meta http-equiv="Content-Type" c>
<%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" >
<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>
为什么会没触发呢?
论坛设施
