各位大虾，请指教！！

ye_zhy 2001-07-12 03:08:25

<%@ Language=VBScript %>
<html>
<head>
<title>List</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<%
set conn=server.CreateObject ("adodb.connection")
connstr="provider=sqloledb; data source=yzy;uid=sa;pwd=111; database=dzxt"
conn.Open connstr
sql = "select * from use_tab"
set rs = conn.execute(sql)
%>
<script language = "JavaScript">
var onecount;
onecount=0;
subcat = new Array();
<%
count = 0
do while not rs.eof
%>
subcat[<%=count%>] = new Array("<%= trim(rs("use_bz"))%>","<%= trim(rs("use_ywxt"))%>","<%= trim(rs("use_zh"))%>""<%= trim(rs("use_wd"))%>","<%= trim(rs("use_zhh"))%>");//将数据库中的内容存入数组
<%
count = count + 1
rs.movenext
loop
rs.close
set rs=nothing
%>
onecount=<%=count%>;
function changelocation(val1,val2,val3)//改变下拉框的内容
{
document.myform.small.length = 0;
var val1=val1;
var val2=val2;
var val3=val3;
var i;
document.myform.small.options[0] = new Option('====请选择====');
for (i=0;i < onecount; i++)
{
if (subcat[i][0] == val1 & subcat[i][1]==val2 & subcat[i][2]==val3)
{
document.myform.small.options[document.myform.small.length] = new Option(subcat[i][3]);
}
}

}
</script>
</head>
<body>
<form name="myform" method="post">
<select name="biglocation1" onChange="changelocation(document.myform.biglocation1.options[document.myform.biglocation1.selectedIndex].value,document.myform.biglocation2.options[document.myform.biglocation2.selectedIndex].value,document.myform.biglocation3.options[document.myform.biglocation3.selectedIndex].value)">
<%
sql1 = "select distinct use_bz from use_tab"
set rs1 = conn.Execute (sql1)
do while not rs1.eof
%>
<option value="<%=trim(rs1("use_bz"))%>"><%=trim(rs1("use_bz"))%></option>
<%
rs1.movenext
loop
rs1.close
set rs1 = nothing
'conn.Close
'set conn = nothing
%>
</select>
<select name="biglocation2" onChange="changelocation(document.myform.biglocation1.options[document.myform.biglocation1.selectedIndex].value,document.myform.biglocation2.options[document.myform.biglocation2.selectedIndex].value,document.myform.biglocation3.options[document.myform.biglocation3.selectedIndex].value)">
<%
sql1 = "select distinct use_ywxt from use_tab"
set rs1 = conn.Execute (sql1)
do while not rs1.eof
%>
<option value="<%=trim(rs1("use_ywxt"))%>"><%=trim(rs1("use_ywxt"))%></option>
<%
rs1.movenext
loop
rs1.close
set rs1 = nothing
'conn.Close
'set conn = nothing
%>
</select>
<select name="biglocation3" onChange="changelocation(document.myform.biglocation1.options[document.myform.biglocation1.selectedIndex].value,document.myform.biglocation2.options[document.myform.biglocation2.selectedIndex].value,document.myform.biglocation3.options[document.myform.biglocation3.selectedIndex].value)">
<%
sql1 = "select distinct use_zh from use_tab"
set rs1 = conn.Execute (sql1)
do while not rs1.eof
%>
<option value="<%=trim(rs1("use_zh"))%>"><%=trim(rs1("use_zh"))%></option>
<%
rs1.movenext
loop
rs1.close
set rs1 = nothing
conn.Close
set conn = nothing
%>
</select>

<select name="small">
<option selected value="">==所有关系==</option>
</select>
</form>
</body>
</html>

...全文