为什么我的代码无法实现数据库联动?
我希望在选择城市这个下来列表框时,在地县出现相应的地区,可是现在只在城市里看见有数据,而县里面没有.为什么呢?
<% Response.Buffer=True %>
<%Set Cnn = Server.CreateObject("ADODB.Connection")
StrCnn = "Provider=SQLOLEDB;Server=ahui;UID=sa;PWD=;Database=enterprise"
'strcnn= "Provider=Microsoft.JET.OLEDB.4.0;Data Source= "&server.MapPath("mdb/enterprise.mdb")
set rs=server.createobject("adodb.recordset")
Cnn.open StrCnn
sql="select distinct area1,area2 from company"
rs.open sql,cnn,1,1%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
</head>
<body>
<form name="form1" method="post" action="results.asp">
<table width="100%" border="0" cellpadding="0" cellspacing="0" bordercolor="#000000" background="file:///d/enterprise/image.files/bg3.jpg">
<tr>
<td width="8%">编号:</td>
<td width="22%" bordercolor="#000000"><font size="2">
<input name="id" type="text" id="id" value="<%request.form("id")%>" size="6" maxlength="6">
</font></td>
<td width="36%" bordercolor="#000000"><font size="2"> 名称:
<input name="username" type="text" id="username" value="<%request.form("username")%>" size="20" maxlength="30">
</font></td>
<td width="11%">电话号码:</td>
<td width="23%"><input name="tel" type="text" id="tel" value="<%request.form("tel")%>" size="16" maxlength="11"></td>
</tr>
<tr>
<td>城市:</td>
<td bordercolor="#000000"><select name="area1" id="area1" size="1">
<option>城市</option>
<% do while not rs.eof%>
<option value="<%=rs("area1")%>" selected <%if request.form("area1")=rs("area1") then
response.Write("selected")
end if%> ><%=rs("area1") %></option>
<%rs.movenext
loop%>
</select> </td>
<td bordercolor="#000000">县/地区:
<select name="area2" size="1" id="area2">
<option selected>县城</option>
<% do while not rs.eof%>
<option value="<%rs("area2")%>"><%rs("area2")%></option>
<%rs.movenext
loop%>
</select> </td>
<td colspan="2">所属路段:<font size="2">
<input name="area3" type="text" id="area3" value="<%request.form("area3")%>" size="16" maxlength="16">
</font></td>
</tr>
<tr>
<td colspan="3">所属行业:<font size="2">
<SELECT name=kind1 id="kind1">
<option selected>所属行业</option>
<% do while not rs.eof%>
<option value="<%rs("sort1")%>"><%rs("sort1") %></option>
</SELECT>
<%rs.movenext
loop
%>
</font> </td>
<td colspan="2">输入关键字:
<input name="key" type="text" id="key" value="<%request.form("key")%>" size="16"></td>
</tr>
<tr>
<td height="20" colspan="3"> </td>
<td colspan="2"> <div align="center">
<input type="submit" name="Submit" value="搜索" >
</div></td>
</tr>
</table>
</form>
</body>
</html>
<%rs.close
set rs=nothing
cnn.close
set cnn=nothing %>