各位大侠,我在向数据里添加数据里出错了,
出错如下:
无法显示网页
试图访问的网页出现问题，无法显示。

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

请尝试执行下列操作：

单击刷新按钮，或稍后重试。

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

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

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

错误类型：
Microsoft VBScript 运行时错误 (0x800A01B6)
对象不支持此属性或方法: 'dchrs.updata'
/hhl/login.asp, 第 43 行

浏览器类型：
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; TencentTraveler )

网页：
GET /hhl/login.asp

时间：
2007年10月16日, 19:12:07

详细信息：
Microsoft 支持

我的源程序如下:

<%
db="database/yhgl.mdb"
ConnStr="Provider=Microsoft.Jet.oledb.4.0;Data Source="& Server.Mappath(db)
Set Conn=Server.Createobject("ADODB.Connection")
Conn.Open Connstr

Set dchrs=server.createobject("ADODB.Recordset")
dchsql="select * from admi where id=0"
dchrs.open dchsql,conn,1,3

name=trim(request.form("user_name"))
pass=trim(request.form("user_pass"))
truename=trim(request.form("user_truename"))
sex=trim(request.form("user_sex"))
user_year=trim(request.form("user_year"))
user_month=trim(request.form("user_month"))
user_day=trim(request.form("user_day"))
address=trim(request.form("user_address"))
tel=trim(request.form("user_tel"))
eamil=trim(request.form("user_eamil"))'
web=trim(request.form("user_web"))
qq=trim(request.form("user_qq"))
wd=trim(request.form("user_wd"))
w=trim(request.form("user_w"))
d=trim(request.form("user_d"))

dchrs.addnew
dchrs("user_name")=name
dchrs("user_pass")=pass
dchrs("user_truename")=truename
dchrs("user_sex")=sex
dchrs("user_year")=user_year
dchrs("user_month")=user_month
dchrs("user_day")=user_day
dchrs("user_address")=address
dchrs("user_tel")=tel
dchrs("user_eamil")=eamil
dchrs("user_web")=web
dchrs("user_qq")=qq
dchrs("user_wd")=wd
dchrs("user_w")=w
dchrs("user_d")=d
dchrs.updata

Response.Write "<script language=javascript>alert('注册成功！');self.location=(""in_write.asp"");</script>"

dchrs.close
set dchrs=nothing
conn.close
set conn=nothing
%>

以下是引用cainiao158在2007-10-16 20:39:22的发言：
你添加数据为什么不用sql语句进行添加，这样效率高

直接使用sql语句不见得什么时候效率都很高，这个要具体问题具体分析，学习编程需要举一反三的能力，而且有时需要亲自写程序来检验。

我还是建议你把“显示友好HTML错误”勾掉在看这些错误。那样明显一些！

我已经改成dchrs.update但是又出现了这个的错误:
无法显示网页
试图访问的网页出现问题，无法显示。

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

请尝试执行下列操作：

单击刷新按钮，或稍后重试。

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

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

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

错误类型：
Microsoft JET Database Engine (0x80040E21)
无当前记录。
/hhl/login.asp, 第 45 行

浏览器类型：
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; TencentTraveler )

网页：
GET /hhl/login.asp

时间：
2007年10月17日, 11:59:03

详细信息：
Microsoft 支持



我的源代码如下:
<%
'On Error Resume Next
db="database/yhgl.mdb"
ConnStr="Provider=Microsoft.Jet.oledb.4.0;Data Source="& Server.Mappath(db)
Set Conn=Server.Createobject("ADODB.Connection")
Conn.Open Connstr

Set dchrs=server.createobject("ADODB.Recordset")
dchsql="select * from admi where id=0"
dchrs.open dchsql,conn,1,3

name=trim(request.form("user_name"))
pass=trim(request.form("user_pass"))
truename=trim(request.form("user_truename"))
sex=trim(request.form("user_sex"))
user_year=trim(request.form("user_year"))
user_month=trim(request.form("user_month"))
user_day=trim(request.form("user_day"))
address=trim(request.form("user_address"))
tel=trim(request.form("user_tel"))
eamil=trim(request.form("user_eamil"))'
web=trim(request.form("user_web"))
qq=trim(request.form("user_qq"))
wd=trim(request.form("user_wd"))
w=trim(request.form("user_w"))
d=trim(request.form("user_d"))

dchrs.addnew
dchrs("user_name")=name
dchrs("user_pass")=pass
dchrs("user_truename")=truename
dchrs("user_sex")=sex
dchrs("user_year")=user_year
dchrs("user_month")=user_month
dchrs("user_day")=user_day
dchrs("user_address")=address
dchrs("user_tel")=tel
dchrs("user_eamil")=eamil
dchrs("user_web")=web
dchrs("user_qq")=qq
dchrs("user_wd")=wd
dchrs("user_w")=w
dchrs("user_d")=d

dchrs.update

Response.Write "<script language=javascript>alert('注册成功！');self.location=(""in_write.asp"");</script>"

dchrs.close
set dchrs=nothing
conn.close
set conn=nothing
%>

添加数据不能使用查询条件的

dchsql="select * from admi where id=0"

红色部分删掉