代码如下：
set conn=server.createobject("adodb.connection")

conn.Open "driver={microsoft access driver (*.mdb)};uid='管理员';pwd='';dbq="&server.mappath("idpwd.mdb")

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

sql="select ID from ID where ID="&zhanghao

rs.Open sql,conn

错误类型：
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][ODBC Microsoft Access Driver]常见错误 不能打开注册表关键字 'Temporary (volatile) Jet DSN for process 0x644 Thread 0x768 DBC 0x10f30fc Jet'。

请教大侠，不知道何解？

标记了颜色的部分好象没有带属性哦!
改为:rs.open sql,conn,1,1 试一下.

按照大侠的指点改了以后是如下错误：
错误类型：
Microsoft OLE DB Provider for ODBC Drivers (0x80040E21)
ODBC 驱动程序不支持所需的属性。
/zhuce1.asp, 第 20 行

conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("idpwd.mdb")&";Persist Security Info=False"
这样写呢?

这样改的话，提示下面的错误：
错误类型：
Microsoft JET Database Engine (0x80040E10)
至少一个参数没有被指定值。
/zhuce1.asp, 第 22 行

做一一些改动，最后成了这个样子：
<%
zhanghao=request("ID")
mima1=request("PWD1")
mima2=request("PWD2")
if zhanghao=""then
response.write "请输入有效名字！"
elseif mima1<>mima2 Then
response.write "两次输入密码不一致！"
else
set conn=server.createobject("adodb.connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("idpwd.mdb")&";Persist Security Info=False"

'conn.Open "driver={microsoft access driver (*.mdb)};uid='管理员';pwd='';dbq="&server.mappath("idpwd.mdb")
set rs=server.createobject("adodb.recordset")
sql="select ID from IDs where ID='"&zhanghao&"'"

response.write sql
rs.Open sql,conn,1,1

if rs.RecordCount=0 then 'rs.EOF and rs.BOF
sql="insert into ID (ID,PWD) values ('"&zhanghao&"'',''"&mima1&"')"
response.write sql
rs.open sql,conn,1,1
end if
end if
%>
最后提示错误如下：
错误类型：
ADODB.Recordset (0x800A0E79)
对象打开时，不允许操作。
/zhuce1.asp, 第 28 行
这样第一个OPEN通过了，第二个却不行~~~

if rs.RecordCount=0 then 'rs.EOF and rs.BOF
sql="insert into ID (ID,PWD) values ('"&zhanghao&"'',''"&mima1&"')"
response.write sql
rs.close
rs.open sql,conn,1,1
end if

这样看看!

加rs.close以后运行是如下错误：
错误类型：
Microsoft JET Database Engine (0x80040E14)
查询值的数目与目标字段中的数目不同。
/zhuce1.asp, 第 29 行
可是我数据库里明明只设置了ID和PWD两个字段呀，没有加索引段，也没有主键。

if rs.RecordCount=0 then 'rs.EOF and rs.BOF
sql="insert into ID (ID,PWD) values ('"&zhanghao&"'',''"&mima1&"')"
response.write sql
conn.execute(sql)
end if