为什么还没有点击按钮表单就自动提交?烦!
<%
set conn=Server.CreateObject("ADODB.Connection")
'conn.open "Provider=Microsoft.JET.OLEDB.4.0;Data Source= "&server.MapPath("sonyon.mdb")
'conn= "Provider=Microsoft.JET.OLEDB.4.0;Data Source= "&server.MapPath("mdb/enterprise.mdb")
StrCnn = "Provider=SQLOLEDB;Server=ahui;UID=sa;PWD=;Database=enterprise"
conn.open strcnn
Set rs= Server.CreateObject("ADODB.Recordset")
sql="select distinct area1 from citys"
rs.open sql,conn,1,1
'while not rs.eof
'if request.form("c")=rs("group") then
if request.Form("c")<>"" then
Set rs1= Server.CreateObject("ADODB.Recordset")
dim c
c=request.Form("c")
sqlstr="select area2 from citys where area1='"&c&"'"
'response.Write(sqlstr)
'response.End()
rs1.open sqlstr,conn,1,1
end if
%>
<html>
<head>
<title>综合大搜索</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body>
<FORM ACTION="results.asp" NAME="form1" method=post>
<TABLE CELLPADDING="1" BORDER="0">
<TR vALIGN="top">
<TD width="108" CLASS="cfont-9">
<div align="center"></div>
</TD>
<TD width="159" CLASS="cfont-9"> </TD>
<TD width="159" rowspan="2" CLASS="cfont-9"> <div align="center"> <FONT
color=red><br>
</FONT> </div>
<div align="center"> </div></TD>
</TR>
<TR vALIGN="top">
<TD height="59" CLASS="cfont-9">
<div align="center"></div>
</TD>
<TD CLASS="cfont-9"> </TD>
</TR>
<SCRIPT LANGUAGE="JAVASCRIPT">
<!--
function checkCountry()
{
form1.submit();
}
-->
</SCRIPT>
</table>
<table width="75%" border="1" cellspacing="0" cellpadding="1">
<tr>
<td>编号:</td>
<td> </td>
<td><font size="2">名称:</font></td>
<td> </td>
<td>电话号码:</td>
<td> </td>
</tr>
<tr>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
</tr>
<tr>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
</tr>
<tr>
<td>城市</td>
<td>
<select name="c" size="1"
>
<option value="" selected>-请选择分组-</option>
<% do while not rs.eof%>
<option value="<%=rs("area1")%>"
<%if request.form("c")=rs("area1") then
response.Write("selected")
end if%>><%=rs("area1")
%></option>
<%rs.movenext
loop%>
</select>
</td>
<td>地/县</td>
<td>
<select NAME = "select" size= "1" onChange="checkCountry();">
<% if request.Form("c")<>"" then %>
<% do while not rs1.eof%>
<option value="<%=rs1("area2") %>"> <%=rs1("area2")%> </option>
<%rs1.movenext
loop
end if%>
</select>
</td>
<td> </td>
<td> </td>
</tr>
<tr>
<td> </td>
<td> </td>
<td> </td>
<td><FONT
color=red>
<input type="submit" name="Submit" value="查询">
</FONT></td>
<td> </td>
<td> </td>
</tr>
</table>
<p> </p>
</FORM>
</body>
</html>