<DIV class='Cont'>
    <div class='TabCon'>
          <form id="form5_15" name="form5_15" method="post" action="/productserch.asp">
          <ul class='flo l_main' style='height:24px;width:100%;background-color:#E8F2FC;'>
          <li style='width:30px;background:url(/imgs/mqzs_min01.gif) no-repeat;margin:3 0 0 10px;'></li>
          <li style='color:#f00;font-weight:bold;padding-top:7px;font-size:14px;'>产 品  </li>
          <li style='color:#015B8D;font-weight:bold;padding-top:7px;font-size:14px;'>搜索快速通道： </li>
          <li style='margin-top:-1px;'>
          <select name="ptype">
          <%
          Set rs=Server.CreateObject("ADODB.RecordSet")
          sql="select * from bigclass"
          rs.open sql,conn,1,1
          do while not rs.eof
          %>
          <option value="<%= rs("id") %>"><%= rs("name") %></option>
          <%
          rs.movenext
          loop
          set rs=nothing
          %>
          </select>
          </li>
          <li style='margin-left:6px;'><input name="textfield_find" type="text" style="margin-top:-2px;width:220px"/></li>
          <li style='margin:-3 0 0 6px;'><input name="Submit2" type="submit"  value="搜索" ></li>
          <ul>
    </div>
</DIV>
<DIV class='Cont' >
    <div class='TabCon' style='float:left;width:600px;text-align:left;'>
        <ul class='flo' style='margin:5 0 0 5px;width:100%;'>
        <li style='color:#07519A;font-weight:bold;'><img src='/imgs/cpdq_min02.gif'> <%=kkk%> <li><li>小类：</li>
         </ul>
        <ul class='flo' style='width:100%;'>
        <%
        set rc=server.createobject("adodb.recordset")
        sql="select did,classname,id from smallclass where did="&ddd&" order by id asc"
        set rc=conn.execute (sql)
        if rc.eof then
        response.write"  暂时没有分小类"
        else
        i=1
        while not rc.eof
        set id=rc(0)
        set classname=rc(1)
        dim xtype
        xtype=rc("id")
        set rs2=server.createobject("adodb.recordset")
        sql2="select count(id) as idCount from Product where xtype="&xtype
        rs2.open sql2,conn,1,1
        idCount=rs2("idCount")
        rs2.close
        response.write "<li style='width:119px;height:22px;color:#f00;'> <A href='product.asp?ddd="&ddd&"&kkk="&kkk&"&mmm="&rc("classname")&"&xxx="&rc("id")&"' class='lan_'>"&rc("classname")&"</A>("&idCount&")</li>"
        rc.movenext
        i=i+1
        wend
        rc.close
        set rc=nothing
        end if
        %>
        </ul>
        <ul class='l_main' style='width:100%;margin-top:5px;height:600px;text-align:center;'>
            <div style='border-bottom:3px solid #03559E;width:100%;height:24px;background-color:#F0F5FB;color:#07519A;font-weight:bold;padding-top:5px;'>
            <ul class='flo' style='margin-left:10px;'>图片</ul>
            <ul class='flo' style='margin-left:120px;'>代应信息/公司</ul>
            <ul class='flo' style='margin-left:190px;'>所在位置</ul>
            </div>
            <%  
            set rt=Server.CreateObject("adodb.recordset")
            sql="select * from Product as U where dtype="&ddd&" order by id desc"
            rt.open sql,conn,1,1
            if rt.eof and rt.bof then
            response.write"<ul>---当前目录下暂无产品---</ul>"
            end if
            %>
<% dim mmm,t,i,sel,tol,rec1,rec2
 i=0
 nnn=9
 rt.pagesize=nnn
 tol=rt.recordcount
 rec1=tol/nnn
 rec2=int(tol/nnn)
 if rec1<>rec2 then rec=rec2+1
 if rec1=rec2 then rec=rec2
 If mmm=int(request("mmm"))   就是这句出现的错误
 if mmm=0 then mmm=1
 if not rt.eof then rt.AbsolutePage=mmm
%>
            <%do while not rt.eof
               set rs2=server.createobject("adodb.recordset")
               sql2="select id,uName from UnitInfo where id="&rt("Uid")
               rs2.open sql2,conn,1,1
               if not rs2.eof then
               uName=rs2("uName")
               else
               uName="----------------"
               end if
               rs2.close
            %>  
  Microsoft VBScript 运行时错误 错误 '800a000d'  

类型不匹配: '[string: "阀体"]'  

/product.asp，行 412  


是上面代码的这句 请高手解决下 If mmm=int(request("mmm"))