<%
dim conn,rs,qq
set conn=server.createobject("adodb.connection")
qq="driver={microsoft access driver (*.mdb)};dbq=" & server.mappath("mdb.mdb")
 Conn.Open qq,conn,1
 Set rs=Conn.Execute("update jbzl set name='ycl' where id='bhzz005'")
 if (rs.bof and rs.eof) then
response.write "no records found"
end if
%>
<table border="1" cellpadding="2" cellspacing="1" width="100%" valign='top'>
<tr valign=top>
　　　　 <% For I = 0 to rs.fields.count-1 %>
　　　　 <td>
            <%response.write "rs(I).Name" %>
　　　　 </td>
　　 <% Next %>
　　　 </tr>
　　<% Do While Not rs.EOF %>
　　 <tr valign=top>
　　　 <% For I = 0 to rs.Fields.Count-1 %>
　　　　 <td>
　　　　　　<% = rs(I) %>
　　　　　</td>  
　　　 <% Next %>
　　 </tr>
　　<% rs.MoveNext %>
　 <% Loop %></table><%rs.Close%><%Conn.Close%>



出现的错误为：
本页无法显示 
试图访问的网页出现问题，无法显示。 

--------------------------------------------------------------------------------

请尝试以下方法：

单击 刷新按钮或者梢候再试。

打开 localhost 主页，然后查找与所需信息相关的链接。 
HTTP 500.100 - 内部服务器错误 - ASP 错误
Internet 信息服务

--------------------------------------------------------------------------------

技术信息（适用于支持人员）

错误类型：
ADODB.Recordset (0x800A0E78)
/default.asp, 第 7 行


浏览器类型：
Mozilla/4.0 (compatible; MSIE 5.01; Windows NT 5.0) 

页：
GET /default.asp 

时间：
2003年10月10日, 9:53:12 


详细信息：
Microsoft 支持 
 




但把qq换成select * from jbzl 就可以了，我已经更改数据库权限iusr_ibm了，又把数据库所在的文件夹权限完全共享了，还不行，求救！！！