<%dim rs1  
set rs1=server.CreateObject("adodb.recordset")
rs1.open "select * from yongsheng_products where id="&id,conn,1,1
anclassid=rs1("anclassid")
nclassid=rs1("nclassid")
%>
<form name="myform" method="post" action="pro_saveaddbook.asp?action=edit&id=<%=rs1("id")%>">
<table width="95%"  border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#D1DDF5" id="f">
  <tr>
    <td height="29" colspan="2" align="left" valign="middle" bgcolor="#E4EDF9"><table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
      <tr>
        <td width="366">&nbsp;</td>
        <td width="411">修改新产品</td>
      </tr>
    </table></td>
  </tr>
  <tr>
    <td height="31" align="center" valign="middle" bgcolor="#F1F3F5">选择分类：</td>
    <td bgcolor="#F1F3F5">
    <%
rs.open "select * from yuzhiguo_anclass order by anclassidorder",conn,1,1
if rs.eof and rs.bof then
response.write "请先添加分类"
response.end
else
%>
<select name="anclassid" class="wenbenkuang" size="1" id="anclassid" onChange="changelocation(document.myform.anclassid.options[document.myform.anclassid.selectedIndex].value)">
<%
do while not rs.eof
%>
<option value="<%=rs("anclassid")%>" <%if anclassid=rs("anclassid") then%>selected<%end if%>><%=trim(rs("anclass"))%></option>
<%
rs.movenext
loop
end if
rs.close
%>
</select>
<%
if nclassid="" then
%>
<select name="Nclassid">
<option value="">未选小类</option>
</select>
<%
else
set rss=server.CreateObject("adodb.recordset")
rss.open "select * from yuzhiguo_nclass where anclassid="&int(anclassid)&"" ,conn,1,1   //错误
%>
<select name="Nclassid">
<option value="">未选小类</option>
<%
do while not rss.eof
nclass=rss("nclass")
%>
<option value="<%=rss("nclassid")%>" <%if int(rss("nclassid"))=int(nclassid) then response.Write("selected") %>><%=nclass%></option>
<%
rss.movenext
loop
%>
</select>
<%end if%>
    </td>
  </tr>
  <tr>
    <td height="31" align="center" bgcolor="#F1F3F5">产品名称:</td>
    <td width="604" align="left" valign="middle" bgcolor="#F1F3F5"><input name="cpmc" type="text" class="wenbenkuang" id="bookname" value="<%=rs1("cpmc")%>" size="30"></td>
  </tr>
  <tr>
    <td height="31" align="center" valign="middle" bgcolor="#F1F3F5">产品编号:</td>
    <td align="left" valign="middle" bgcolor="#F1F3F5"><input name="cpbh" type="text" class="wenbenkuang" id="pingpai" value="<%=rs1("cpbh")%>" size="25">
      <a href="<%=rs1("pic")%>" target="_blank"></a> </td>
  </tr>
  <tr>
    <td height="31" align="center" valign="middle" bgcolor="#F1F3F5">所属分类:</td>
    <td align="left" valign="middle" bgcolor="#F1F3F5"><input name="e_cpmc" type="text" class="wenbenkuang" id="cpbh" value="<%=rs1("e_cpmc")%>" size="25"></td>
  </tr>
  <tr>
    <td height="31" align="center" valign="middle" bgcolor="#F1F3F5">产品图片:</td>
    <td align="left" valign="middle" bgcolor="#F1F3F5"><table width="605" border="0" cellspacing="0" cellpadding="0">
      <tr>
        <td width="124" align="center"><img src="<%=rs1("pic")%>" width="100" height="100" border="0"></td>
        <td width="481"><input name="pic" type="text" class="wenbenkuang" id="zhuang" value="<%=rs1("pic")%>" size="40" maxlength="255">
&nbsp;&nbsp;
<input type="button" name="Submit2" class="go-wenbenkuang" value="上传图片" onClick="window.open('pro_upload_flash.asp?formname=myform&editname=zhuang&uppath=../up_product&filelx=jpg','','status=no,scrollbars=no,top=20,left=110,width=420,height=165')">
<br>
<br>
(不更改图片请不要修改上面的路径！图片大小请不要超过200KB,宽度不要超过500像素。) </td>
      </tr>
    </table></td>
  </tr>
  <tr>
    <td height="31" align="center" valign="middle" bgcolor="#F1F3F5">产品介绍:</td>
    <td align="left" valign="middle" bgcolor="#F1F3F5">
    <textarea name="e_intro" style="display:none"><%=rs1("e_intro")%></textarea>
<IFRAME ID="eWebEditor1" SRC="ewebeditor/ewebeditor.asp?id=e_intro&style=s_coolblue1" FRAMEBORDER="0" SCROLLING="no" WIDTH="650" HEIGHT="500"></IFRAME>    </td>
  </tr>
  <tr>
    <td height="31" align="center" valign="middle" bgcolor="#F1F3F5">是否隐身:</td>
    <td align="left" valign="middle" bgcolor="#F1F3F5"><input name="show" type="checkbox" id="show" value="1" <%if rs1("show")=True  then%>checked<%end if%>>
(勾选后只能在后台显示,前台不可见!)</td>
  </tr>
  <tr>
    <td height="31" align="center" valign="middle" bgcolor="#F1F3F5">产品排序:</td>
    <td align="left" valign="middle" bgcolor="#F1F3F5"><input name="sort" type="text" id="sort" value="<%=rs1("sort")%>" size="10" maxlength="10">
(只能为数字!数字越小,排序越靠前!)</td>
  </tr>
  <tr>
    <td height="31" align="center" valign="middle" bgcolor="#F1F3F5">&nbsp;</td>
    <td align="left" valign="middle" bgcolor="#F1F3F5"><div align="left">
      <input type="submit" name="Submit" value=" 修 改 " class="go-wenbenkuang" onClick="return check();">
    </div></td>
  </tr>
  <tr>
    <td height="31" colspan="2" align="right" valign="middle" bgcolor="#F1F3F5">&nbsp;</td>
  </tr>
</table>
</form>
<%rs1.close
set rs1=nothing
conn.close
set conn=nothing%>
<br>
</body>
</html>
<%
function HTMLEncode(fString)
    fString = Replace(fString, "</P><P>", CHR(10) & CHR(10))
    fString = Replace(fString, "<BR>", CHR(10))
    HTMLEncode = fString
end function
%>

请老师提示我一下，我还是没有改正确，老师帮忙改一下，谢谢

rss.open "select * from yuzhiguo_nclass where anclassid="&int(anclassid)&"" ,conn,1,1   //错误

先response.write(anclassid)，看是否有值，读出来的值是否是你想要的值
然后将上面语句改为
rss.open "select * from yuzhiguo_nclass where anclassid="&(anclassid)&"" ,conn,1,1
这样未必还不行？

谢谢老师，问题解决了