Question

ASP中二级联动问题，急在线等待。

下面是页面源代码，帮我看一下问题出在哪里，现在一旦更改大类的话，小类就读不到数据库中的数据。由于字数限制，部分非关键代码已删除
<%dim pid
pid=request("ArticleID")%>
<script language = "JavaScript">
var onecount;
subcat = new Array();
<%
count = 0
do while not rs.eof
%>
subcat[<%=count%>] = new Array("<%= trim(rs("SmallClassName"))%>","<%= trim(rs("BigClassName"))%>","<%= trim(rs("SmallClassName"))%>");
<%
count = count + 1
rs.movenext
loop
rs.close
%>
onecount=<%=count%>;

function changelocation(locationid)
{
document.myform.SmallClassName.length = 1;
var locationid=locationid;
var i;
for (i=0;i < onecount; i++)
{
if (subcat[i][1] == locationid)
{
document.myform.SmallClassName.options[document.myform.SmallClassName.length] = new Option(subcat[i][0], subcat[i][2]);
}
}
}
</script>
<%
sql="select * from product where id="&pid
Set rs_home= Server.CreateObject("ADODB.Recordset")
rs_home.open sql,conn,1,1
%>
<table>
<tr>
<td>
<table>
<tr>
<form name="myform" method="POST" action="productmodify.asp?mark=southidc&ArticleID=<%=rs_home("id")%>">
<td><table>
<tr>
<td>所属类别：</td>
<td>
<%rs.open "select * from BigClass",conn,1,1
if rs.eof and rs.bof then
response.write "请先添加分类。"
response.end
else%>大类
<select name="BigClassName" size="1" id="BigClassName" onChange="changelocation(document.myform.BigClassName.options[document.myform.BigClassName.selectedIndex].value)">

<option selected value="<%=rs("BigClassName")%>"><%=trim(rs("BigClassName"))%></option>
<%dim selclass
selclass=rs_home("BigClassName")
rs.movenext
do while not rs.eof%>
<option value="<%=rs("BigClassName")%>" <%if rs_home("BigClassName")=rs("BigClassName") then%>selected<%end if%>><%=rs("BigClassName")%></option>
<%rs.movenext
loop
end if
rs.close%></select>小类
<select name="SmallClassName" id="SmallClassName">
<option value="" <%if rs_home("SmallClassName")="" then response.write "selected"%>>不指定小类</option>
<%sql="select * from SmallClass where BigClassName='" & selclass & "'"
rs.open sql,conn,1,1
if not(rs.eof and rs.bof) then%>
<option value="<%=rs("SmallClassName")%>" <%if rs_home("SmallClassName")=rs("SmallClassName") then%>selected<%end if%>><%=rs("SmallClassName")%></option>
<% rs.movenext
do while not rs.eof%>
<option value="<%=rs("SmallClassName")%>" <%if rs_home("SmallClassName")=rs("SmallClassName") then%>selected<%end if%>><%=rs("SmallClassName")%></option>
<% rs.movenext
loop
end if
rs.close
set rs= nothing%></select></td>
</tr>

Answer 1

将以下代码放到<script language = "JavaScript">的前面就可以了。
<%dim pid
pid=request("ArticleID")
sql="select * from product where id="&pid
Set rs_home= Server.CreateObject("ADODB.Recordset")
rs_home.open sql,conn,1,1%>
<%
dim rs
dim sql
dim count
set rs=server.createobject("adodb.recordset")
sql = "select * from SmallClass order by SmallClassID asc"
rs.open sql,conn,1,1
%>

Answer 2

笨蛋，这个问题好解决，但不好直接回覆，有兴趣QQ(57659930)说话