注册 登录
编程论坛 ASP技术论坛

添加数据库不知道哪里错啦!

中国男孩 发布于 2007-10-16 19:17, 859 次点击

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

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

请尝试执行下列操作:

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

打开 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
%>

13 回复
#2
hmhz2007-10-16 19:35
dchrs.updata 改成 dchrs.update
#3
cainiao1582007-10-16 20:39
你添加数据为什么不用sql语句进行添加,这样效率高
#4
multiple19022007-10-16 20:50
英语不好好学吧……
#5
yms1232007-10-16 20:54
以下是引用cainiao158在2007-10-16 20:39:22的发言:
你添加数据为什么不用sql语句进行添加,这样效率高

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

#6
multiple19022007-10-16 21:39
虽然我不会SQL,但我还是喜欢用SQL语句操作
#7
gdk20062007-10-17 08:57

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

#8
中国男孩2007-10-17 12:08
回复:(gdk2006)我还是建议你把“显示友好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
%>

#9
威龙嘉少2007-10-17 12:54
那就是你的这个值是空的,检查下是不是值没有传过来
#10
hmhz2007-10-17 20:52

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

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

红色部分删掉

#11
中国男孩2007-10-18 16:29
回复:(hmhz)添加数据不能使用查询条件的dchsql=
已经搞好!
我以前,添加都可以用查询语句啊
#12
cainiao1582007-10-18 17:03
id=0这个有错误!!你看看是这个查询条件吗??
加个 If Not.Eof Then 试试
#13
中国男孩2007-10-18 17:21
呵呵,好象我都是用这个条件都没有错,都可以执行的
#14
那边有朵蘑菇云2007-10-18 17:24
不知所云 ……
1