一个小问题,各位大哥帮帮忙
这是一个二级联动下拉菜单的问题,代码如下:
<!--#include file="inc/conn.asp"--><!--#include file="session2.asp"-->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="css/css.css" rel="stylesheet" type="text/css">
<script id="clientEventHandlersJS" language="javascript">
function ProductName_onblur()
{
ProductNameC.selectedIndex=ProductName.selectedIndex;
}
</script>
</head>
<body>
<P>SProduct Name <SELECT id="ProductName" name="ProductName" onchange="return ProductName_onblur()">
<%
dim rscpz
set rscpz=server.createobject("adodb.recordset")
sql="select * from tblProductName order by ucase(ProductName)"
rscpz.open sql,conn,1,1
%>
<%
do while not rscpz.eof
%>
<option selected><%=rscpz("ProductName")%></option>
<% z=z+1
if z>=rscpz.Recordcount then exit do
rscpz.movenext
loop
%>
</SELECT></P>
<P>SProduct CName<SELECT id="ProductNameC" name="ProductNameC" onblur="return ProductNameC_onblur()">
<%
dim rscp
dim sql
set rscp=server.createobject("adodb.recordset")
sql="select * from tblProductName order by ucase(ProductName)"
rscp.open sql,conn,1,1
%>
<%
do while not rscp.eof
%>
<option selected><%=rscp("ProductNamec")%></option>
<% i=i+1
if i>=rscp.Recordcount then exit do
rscp.movenext
loop
%>
</SELECT></P>
<input type=submit value="submit" class=toBtn> <input type=reset value="reset" class=toBtn>
</body>
</html>
为什么加了一个表单之后就不好使了呢,下面是加了表单的代码:
<!--#include file="inc/conn.asp"--><!--#include file="session2.asp"-->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="css/css.css" rel="stylesheet" type="text/css">
<script id="clientEventHandlersJS" language="javascript">
function ProductName_onblur()
{
ProductNameC.selectedIndex=ProductName.selectedIndex;
}
</script>
</head>
<body><form action="A1B1C1.ASP?no=eshop" method=post>
<P>SProduct Name <SELECT id="ProductName" name="ProductName" onchange="return ProductName_onblur()">
<%
dim rscpz
set rscpz=server.createobject("adodb.recordset")
sql="select * from tblProductName order by ucase(ProductName)"
rscpz.open sql,conn,1,1
%>
<%
do while not rscpz.eof
%>
<option selected><%=rscpz("ProductName")%></option>
<% z=z+1
if z>=rscpz.Recordcount then exit do
rscpz.movenext
loop
%>
</SELECT></P>
<P>SProduct CName<SELECT id="ProductNameC" name="ProductNameC" onblur="return ProductNameC_onblur()">
<%
dim rscp
dim sql
set rscp=server.createobject("adodb.recordset")
sql="select * from tblProductName order by ucase(ProductName)"
rscp.open sql,conn,1,1
%>
<%
do while not rscp.eof
%>
<option selected><%=rscp("ProductNamec")%></option>
<% i=i+1
if i>=rscp.Recordcount then exit do
rscp.movenext
loop
%>
</SELECT></P>
<input type=submit value="submit" class=toBtn> <input type=reset value="reset" class=toBtn>
</form>
</body>
</html>