<%do while not rs.eof
        dim shop,username,rs2
          set shop=server.CreateObject("adodb.recordset")
          shop.open "select username from [user] where userid="&rs("userid"),conn,1,1
          username=trim(shop("username")   运行时发现这里出错 (0x80020009) 发生意外
          shop.close
          %>
请各位高手帮忙修改一下

username=trim(shop("username"))
是不是少半个括号

<%do while not rs.eof
        dim shop,username,rs2
          set shop=server.CreateObject("adodb.recordset")
          shop.open "select username from [user] where userid="&rs("userid"),conn,1,1
          username=trim(shop("username"))   运行时发现这里出错 (0x80020009) 发生意外
          shop.close
          %>
  请各位高手帮忙修改一下

rs("userid")有值吗
select Id,username from

[[it] 本帖最后由 lili0610 于 2008-11-21 18:09 编辑 [/it]]