<%
sql = "select * from biao where id=1"
set rs = createobject("adodb.recordset")
rs.cursorLocation = 3
rs.open sql,conn,1,3
If Not (rs.bof and rs.eof) Then
  rs("txt") = "xxxx" '用英文试试看, 国外的服务器最好用英文版本的.mdb文件
End If
rs.update
rs.close


%>

------解决方案--------------------
改一下:
VBScript code

<%
sql = "select * from biao where id=1"
set rs = createobject("adodb.recordset")
rs.cursorLocation = 3
rs.open sql,conn,1,3
If Not (rs.bof and rs.eof) Then
  rs("txt") = "xxxx" '用英文试试看, 国外的服务器最好用英文版本的.mdb文件
  rs.update
End If
rs.close
set rs = nothing
conn.close
set conn = nothing
%>

------解决方案--------------------
IUSR_ **** 这个用户没有读写权限, 你可以询问下空间的目录权限, 应该有读写权限的.

------解决方案--------------------
提示错误 怎么变掉了？之前提示是locktype的错误。

'80004005' 就是权限问题了。要找供应商设置mdb的写权限了。