兄弟帮忙啊,联动的问题不知出现什么错误

<%
newsd1=request("newsd1")
newsd2_5=request("newsd3")
'response.write(newsd1)
'response.write(newsd2)
'response.end
d3=request("d3")
newsd3=request("newsd3")
newsdd1=request("newsdd1")
newsdd2=request("newsdd2")
newsdd2_5=request("newsdd2_5")
newsdd3=request("newsdd3")
response.write(newsdd1)
response.write(newsdd2)
response.write(newsdd3)
if newsdd1<>"" then
set rsd3=server.createobject("adodb.recordset")
sqld3="select * from newsd3"
rsd3.open sqld3,conn,1,3
'if not rsd3.eof then
rsd3.addnew
rsd3("newsd1")=newsdd1
rsd3("newsd2")=newsdd2
rsd3("newsd2_5")=newsdd2_5
rsd3("newsd3")=newsdd3
rsd3.update
response.redirect("newsaddd4.asp?d3=1")
'end if
end ifid=request("id")
if id<>"" then
set rsdel=server.createobject("adodb.recordset")
sqldel="select * from newsd3 where id="&id
rsdel.open sqldel,conn,1,3
if not rsdel.eof then
del=rsdel("newsd3")
rsdel.delete
rsdel.update
end ifset rsdel2=server.createobject("adodb.recordset")
sqldel2="select * from news where newsd3='"&del&"'"
rsdel2.open sqldel2,conn,1,3
do while not rsdel2.eofiddd=rsdel2("id")
if iddd<>"" thenset rscom=server.createobject("adodb.recordset")
sqlcom="select * from comment where newsID="&iddd
rscom.open sqlcom,conn,1,3
response.write(iddd)
'response.end
do while not rscom.eof
rscom.delete
rscom.update
rscom.movenext
loop
set rscom=nothing
end if
rsdel2.delete
rsdel2.update
rsdel2.movenext
loop
set rsdel2=nothing
response.redirect("newsaddd4.asp?d3=1")
end ifnewsd1up=request("newsd1up")
newsd3up=request("newsd3up")
if newsd1up<>"" and newsd3up<>"" then
set rs2=server.createobject("adodb.recordset")
sql2="select * from newsd3 where newsd1='"&newsd1up&"' and newsd3='"&newsd3up&"'"
rs2.open sql2,conn,1,3
if not rs2.eof then
response.Write("<script language=javascript>alert('您添加内容已经被录入过，请您重新添加!');history.back();</script>")else
'set rs2=nothingidup=request("idup")
if idup<>"" then
set rsupover=server.createobject("adodb.recordset")
sqlupover="select * from newsd3 where id="&idup
rsupover.open sqlupover,conn,1,3
if not rsupover.eof then
rsupover("newsd1")=newsd1up
rsupover("newsd3")=newsd3up
rsupover.update
end if
response.redirect("newsaddd3.asp?d3=1")
end if
end if
end if
'set rsupover=nothing
dim rs3
dim rs4
dim sql3
dim sql4
dim count2
dim count1
set rs3=server.createobject("adodb.recordset")
  sql3="select * from newsd2"
  rs3.open sql3,conn,1,3
  set rs4=server.CreateObject("adodb.recordset")
  sql4="select * from newsd2_5"
  rs4.open sql4,conn,1,3
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=name1%></title>
<script language="JavaScript">
function aa()
{
if(!confirm("您确定删除这条记录吗？此操作不可回复！"))
return false
}function add()
{if (form2.newsdd1.value=="")
  {
  alert("请选择一类一级栏目！")
  form2.newsdd1.focus()
  return false
  }

  if (form2.newsdd2.value=="")
  {
  alert("此一级栏目没有子栏目，请先添加二级栏目！")
  form2.newsdd2.focus()
  return false
  }

  if (form2.newsdd3.value=="")
  {
  alert("请添加三级栏目！")
  form2.newsdd3.focus()
  return false
  }
  return true
}
</script><script language="JavaScript">
var onecount;
onecount=0;
subcat = new Array();
<%
count = 0
do while not rs3.eof
%>
subcat[<%=count%>] = new Array("<%= trim(rs3("newsd2"))%>","<%= trim(rs3("newsd1"))%>","<%= trim(rs3("newsd2"))%>");<%
count = count + 1
rs3.movenext
loop
rs3.close
%>
onecount=<%=count%>;
function changelocation(locationid)
{
document.form2.newsdd2.length = 0;var locationid=locationid;
var i;
for (i=0;i < onecount; i++)
{
if (subcat[i][1] == locationid)
{
document.form2.newsdd2.options[document.form2.newsdd2.length] = new Option(subcat[i][0], subcat[i][2]);
}
}}
</script>
<script language="JavaScript">

</script>
<script language="JavaScript">
function changeselect(location1,location2)
{
response.Write("dsfdsfsd")
var onecount1;
onecount1=0;
subcat1 = new Array();
<%
count = 0
do while not rs4.eof
%>
subcat1[<%=count%>] = new Array("<%= trim(rs4("newsd2_5"))%>","<%= trim(rs4("newsd1"))%>","<%=trim(rs4("newsd2"))%>","<%= trim(rs4("newsd2_5"))%>");
<%
count = count + 1
rs4.movenext
loop
rs4.close
%>
onecount1=<%=count%>;
document.form2.newsdd2_5.length = 0;
var location1=location1;
var location2=location2;
var i;
for (i=0;i < onecount1; i++)
{
if ((subcat1[i][1] == location1) && (subcation1[i][2]==location2))
{
document.form2.newsdd2_5.options[document.form2.newsdd2_5.length] = new Option(subcat1[i][0],subcat1[i][3]);
}
}}
</script>

<link href="css.css" rel="stylesheet" type="text/css">
</head><body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table width="95%" border="0" align="center" cellpadding="3" cellspacing="1">
  <tr>
    <td width="160" valign="top" bgcolor="#e5e5e5"></td>
    <td valign="top">
<br>
      <br>
<table width="97%" border="0" align="center" cellpadding="3" cellspacing="1" class="border">
        <tr>
          <td height="60" align="center" bgcolor="<%=color%>">
            <strong><font color="#FFffff">公司网站 --
            <%if d3=1 then%>
            添加四级栏目
            <%else
    if d3=2 then%>
            更新四级栏目
            <%else%>
            添加文章
            <%end if
  end if%>
            </font></strong></td>
        </tr>
        <tr>
          <td height="200" align="center" valign="top">
            <%if d3=1 then%>
            <table width="94%" border="0" cellspacing="0" cellpadding="0">

              <tr>
                <td>
<%
set rsd1=server.createobject("adodb.recordset")
  sqld1="select * from newsd1"
  rsd1.open sqld1,conn,3,3
  if not rsd1.eof then
  rsd111=rsd1("newsd1")
%>
<form name="form2" method="post" action="newsaddd4.asp" onsubmit="return add()">
                    <table width="500" border="0" align="left" cellpadding="0" cellspacing="0">
                      <tr>
                        <td width="70" align="center">添加四级栏目：</td>
                        <td width="79"><select name="newsdd1" id="newsdd1" onChange="changelocation(document.form2.newsdd1.options[document.form2.newsdd1.selectedIndex].value)">
                          <option value="" selected>一级栏目</option>
                          <%
  for t=1 to rsd1.recordcount
  %>
                          <option value="<%=rsd1("newsd1")%>"><%=rsd1("newsd1")%></option>
                          <%rsd1.movenext
next%>
                        </select></td>
                        <td width="79"><select name="newsdd2" id="newsdd2"  onChange="changeselect(document.form2.newsdd1.options[document.form2.newsdd1.selectedIndex].value,document.form2.newsdd2.options[document.form2.newsdd2.selectedIndex].value)">
                          <option selected value="">二级栏目</option>
                        </select> </td>
<td width="79"><select name="newsdd2_5" id="newsdd2_5">
                          <option selected value="">三级栏目</option>
                        </select> </td>
                        <td width="120"><input name="newsdd3" type="text" id="newsdd3"></td>
                        <td width="80"><input type="submit" name="Submit" value="添加"></td>
                      </tr>
                    </table>
                  </form>
</td>
              </tr>
              <tr>
                <td height="5" bgcolor="#efefef"></td>
              </tr>
              <tr>
                <td>
                  <%
  set rs=server.createobject("adodb.recordset")
  sql="select * from newsd3 order by id desc"
  rs.open sql,conn,3,3
  if not rs.eof then
  %>
                  <table width="100%" border="0" cellspacing="1" cellpadding="2">
                    <tr>
                      <td align="center">一级栏目名称</td>
                      <td align="center">二级栏目名称</td>
                      <td align="center">三级栏目名称</td>
  <td aling="center">四级栏目名称</td>
                      <td width="90" align="center">更　新</td>
                      <td width="90" align="center">删　除</td>
                    </tr>
                    <%
for i=1 to rs.recordcount
%>
                    <tr bgcolor="#E3E3E3">
                      <td align="center"><%=rs("newsd1")%></td>
                      <td align="center"><%=rs("newsd2")%></td>
                      <td align="center"><%=rs("newsd2_5")%></td>
  <td align="center"><%=rs("newsd3")%></td>
                      <td align="center"><a href="newsaddd4_up.asp?d3=2&id3=<%=rs("id")%>" class="line">更　新</a></td>
                      <td align="center" bgcolor="#E3E3E3"><a href="newsaddd4.asp?id=<%=rs("id")%>" class="line" onclick="return aa()">删　除</a></td>
                    </tr>
                    <%rs.movenext
next%>
                  </table>
                  <%else%>
                  您还没有录入记录！
                  <%end if
  end if%>
                </td>
              </tr>
            </table>
            <%else%>
            <br>
            <table width="90%" height="200" border="0" align="center" cellpadding="0" cellspacing="0">
              <tr>
                <td align="center" valign="middle"> <form name="form1" method="post" action="newsadd1.asp">
                    <table width="90%" border="0" cellspacing="0" cellpadding="3">
                      <tr>
                        <td height="50" align="center"> 请选择四级栏目名称：
                          <select name="newsd4" id="select">
                            <%
  set rs=server.createobject("adodb.recordset")
  sql="select * from newsd3 where newsd2_5='"&newsd2_5&"'"
  rs.open sql,conn,3,3
  if not rs.eof then
  %>
                            <%
  for t=1 to rs.recordcount
  %>
                            <option value="<%=rs("newsd3")%>"><%=rs("newsd3")%></option>
                            <%rs.movenext
next%>
                            <%else%>
                            <option value="">您还没有录入记录</option>
                            <%end if%>
                          </select> </td>
                      </tr>
                      <tr>
                        <td height="30" align="center"><input name="newsd1" type="hidden" id="newsd1" value="<%=newsd1%>">
                          <input type="button" name="Submit72" value="返回" onclick="javascript:history.back()">
                          <input type="submit" name="Submit8" value="添加文章">
                          <input name="newsd2" type="hidden" id="newsd2" value="<%=newsd2%>"> </td>
                      </tr>
                    </table>
                  </form></td>
              </tr>
            </table>
<%end if
%>
          </td>
        </tr>
        <tr>
          <td height="30" bgcolor="<%=color%>"> </td>
        </tr>
      </table></td>
  </tr>
</table>
<p> </p>
</body>
</html>

调试易

兄弟帮忙啊,联动的问题不知出现什么错误

解决方案 »