<table width="95%"  border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#D1DDF5" id="f">
    <tr>
      <td height="29" colspan="7" align="left" valign="middle" bgcolor="#E4EDF9"><table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
        <tr>
          <td width="1336" align="center">产品管理</td>
          </tr>
      </table>        </td>
    </tr>
    <tr>
      <td width="45" height="31" align="center" valign="middle" bgcolor="#F1F3F5">ID</td>
      <td width="119" align="center" valign="middle" bgcolor="#F1F3F5">编号</td>
      <td width="189" align="center" valign="middle" bgcolor="#F1F3F5"><span class="main_topbg"><span class="hei">产品名称</span></span></td>
      <td width="97" align="center" valign="middle" bgcolor="#F1F3F5"><span class="main_topbg"><span class="hei">所属分类</span></span></td>
      <td width="274" align="center" valign="middle" bgcolor="#F1F3F5"><span class="main_topbg"><span class="hei">图片</span></span></td>
      <td width="51" align="center" valign="middle" bgcolor="#F1F3F5"><span class="main_topbg hei">排序</span></td>
      <td width="138" align="center" valign="middle" bgcolor="#F1F3F5"><span class="main_topbg">
        <input name="checkbox" type=checkbox onClick="this.value=check(this.form.selAnnounce)" value="全选">
全选
<input name="submit2" type='submit' value='删除'>
      <%

do while not rs.eof   
i=i+1

                                   id=rs("id")
                                  cpmc=rs("cpmc")
                                  cpbh=rs("cpbh")
                                  anclassid=rs("anclassid")
                                  nclassid=rs("nclassid")
                                  pic=rs("pic")                                 
                                  intro=rs("intro")   
                                  sort=rs("sort")   
                                  show=rs("show")
                                  Keywords=rs("Keywords")        

                                  set rss=server.createobject("adodb.recordset")

                                  sql="select * from yuzhiguo_anclass where anclassid="&anclassid&""
                                   
                                  rss.open sql,conn,1,1   //附近有语法错误   
                                  rss.close
%>
      </span></td>
    </tr>
    <tr>
      <td height="31" align="center" valign="middle" bgcolor="#F1F3F5"><font face="Arial"><%=rs("id")%></font></td>
      <td height="31" align="center" valign="middle" bgcolor="#F1F3F5"><span class="myweb_td"><font face="Arial"><%=cpbh%></font></span></td>
      <td align="center" valign="middle" bgcolor="#F1F3F5"><span class="a2"><%=cpmc%><br>
          <%if show=true then%>
          <font color="#0000FF">√隐身产品</font>
          <%end if%>
      </span></td>
      <td align="center" valign="middle" bgcolor="#F1F3F5"><span class="myweb_td"><%=rs("e_cpmc")%></span></td>
      <td align="center" valign="middle" bgcolor="#F1F3F5"><table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td height="5"></td>
        </tr>
      </table>        <span class="myweb_td"><img src="<%=rs("pic")%>" width="100" height="100" border="0"></span>
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td height="3"></td>
        </tr>
      </table></td>
      <td align="center" valign="middle" bgcolor="#F1F3F5"><span class="myweb_td"><%=sort%></span></td>
      <td align="center" valign="middle" bgcolor="#F1F3F5"><span class="myweb_td"><a href="pro_editbook.asp?id=<%=rs("id")%>" class="a2">编辑</a>
          <input type='checkbox' name='selAnnounce' value='<%=rs("id")%>'>
      </span>
        <%
    IF i>=MaxPerPage then exit do
    rs.movenext
    loop
  %></td>
    </tr>
    <tr>
      <td height="31" colspan="7" align="center" valign="middle" bgcolor="#E4EDF9">&nbsp;</td>
      </tr>
  </table>
  </center>

大家好，我是ASP新手，现在文件运行错误，
<%
do while not rs.eof   
i=i+1

                                  id=rs("id")
                                  cpmc=rs("cpmc")
                                  cpbh=rs("cpbh")
                                  anclassid=rs("anclassid")
                                  nclassid=rs("nclassid")
                                  pic=rs("pic")                                 
                                  intro=rs("intro")   
                                  sort=rs("sort")   
                                  show=rs("show")
                                  Keywords=rs("Keywords")        

                                  set rss=server.createobject("adodb.recordset")

                                  sql="select * from yuzhiguo_anclass where anclassid="&anclassid&""
                                   
                                  rss.open sql,conn,1,1   //附近有语法错误   
                                  rss.close
%>
错误在什么地方，我用的是SQL数据库，谢谢

conn未定义

此asp文件中应当有类似下面这一行吧？

<!--#include file="conn.asp" -->


看看你的conn.asp文件

<%
Dim SqlDatabaseName,SqlPassword,SqlUsername,SqlLocalName,ConnStr,Conn
        SqlDatabaseName = "wygkcnsql"      'SQL数据库名
        SqlPassword = "zmkm66"              'SQL数据库用户密码
        SqlUsername = "sa"               'SQL数据库用户名     
        SqlLocalName = "127.0.0.1"    'SQL主机IP地址（本地可用“127.0.0.1”或“(local)”，非本机请用真实IP）
        ConnStr = "Provider = Sqloledb; User ID = " & SqlUsername & "; Password = " & SqlPassword & "; Initial Catalog = " & SqlDatabaseName & "; Data Source = " & SqlLocalName & ";"
        Set conn = Server.CreateObject("ADODB.Connection")
        conn.open ConnStr
 sub CloseConn()
    conn.close
    set conn=nothing
 end sub
%>
你好，我的CONN文件是这样的，什么地方有错误，您能提示我一下吗，谢谢

CONN文件没有错
anclassid 字段是什么类型的？
sql="select * from yuzhiguo_anclass where anclassid='"&anclassid&"'"//此句加上两个单引号试试

anclassid=rs("anclassid")//检查一下这里的anclassid是不是NULL，如果是，则会出现错误
.....
sql="select * from yuzhiguo_anclass where anclassid="&anclassid&""//检查一下这里的anclassid是不是NULL，如果是，则会出现错误

上一个可以了，但是进去以后又出来问题了，Microsoft VBScript 运行时错误 (0x800A000D)类型不匹配: 'anclassid'

    <%
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%>
又出现一个问题

看下anclassid的值是否正常？

最近类似的问题都好几个了 其实是一样的
应该在程序的开头就获取参数进行判断 如果为空或者别的不符合条件 就进行跳转回首页或者上一个页面了 这样就不会有这样的语法错误的提示了