[求助]asp不能插入记录

①個亼de鈊痛 · 发表于 2010-1-8 02:12:10

用的是dreamweaver8.0,所写代码如下：
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft ACCESS driver (*.mdb)};dbq="&server.mappath("a1.mdb")
name=request.form("name")
tel=request.form("tel")
message=request.form("message")
sql="insert into guestbook(name,tel,message)values('"&name&"','"&tel&"','"&message&"')"
conn.execute(sql)
conn.close
set conn=nothing
response.write"记录添加成功！"
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>无标题文档</title>
</head>
<body>
</body>
</html>
系统提示如下：
错误类型：
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][ODBC Microsoft Access Driver] 操作必须使用一个可更新的查询。
/a1/example5.asp, 第 10 行

梦缘o☆无恒 · 发表于 2010-1-8 02:12:13

阿咏 · 发表于 2010-1-8 02:12:16

sql="insert into guestbook(name,tel,message) values('"&name&"','"&tel&"','"&message&"')"
value前面加个空格

羽衣独舞 · 发表于 2010-1-8 02:12:19

name=request.form("name")
tel=request.form("tel")
message=request.form("message")
sql="insert into guestbook(name,tel,message)values('"&name&"','"&tel&"','"&message&"')"
conn.execute(sql)
conn.close
set conn=nothing
response.write"记录添加成功！"

试一下
rs.addnew
rs("name")=request.form("name")
rs("tle")=request.form("tel")
rs("message")=request.form("message")
rs.update
conn.close
rs.close
set rs=nothing
set conn=nothing
response.write"记录添加成功！"

晒月亮的蜻蜓 · 发表于 2010-1-8 02:12:22

还是不行，提示
错误类型：
Microsoft VBScript 运行时错误 (0x800A01A8)
缺少对象: ''
/a1/example5.asp, 第 6 行

第一个网页是
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>无标题文档</title>
</head>
<body>
<form id="form1" name="form1" method="post" action="example5.asp">
<table width="760" border="1" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="377"><div align="center">name</div></td>
<td width="377"><label>
<div align="center">
<input name="name" type="text" id="name" />
</div>
</label></td>
</tr>
<tr>
<td><div align="center">tel</div></td>
<td><label>
<div align="center">
<input name="tel" type="text" id="tel" />
</div>
</label></td>
</tr>
<tr>
<td><div align="center">message</div></td>
<td><label>
<div align="center">
<input name="message" type="text" id="message" value=""/>
</div>
</label></td>
</tr>
<tr>
<td><label>

<div align="center">
<input type="submit" name="Submit" value="提交" />
</div>
</label></td>
<td><label>
<div align="center">
<input type="reset" name="Submit2" value="重置" />
</div>
</label></td>
</tr>
</table>
</form>
</body>
</html>
第二个，也就是example5.asp（已经按楼上面的提示修改）是
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<%
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft ACCESS driver (*.mdb)};dbq="&server.mappath("a1.mdb")
rs.addnew
rs("name")=request.form("name")
rs("tle")=request.form("tel")
rs("message")=request.form("message")
rs.update
conn.close
rs.close
set rs=nothing
set conn=nothing
response.write"记录添加成功！"

%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>无标题文档</title>
</head>
<body>
</body>
</html>
运行后提示
错误类型：
Microsoft VBScript 运行时错误 (0x800A01A8)
缺少对象: ''
/a1/example5.asp, 第 6 行

dd.娘孓 · 发表于 2010-1-8 02:12:25

set rs=Server.CreateObject("adodb.recordset")
rs.open "select * from guestbook"
在我原来的代码加上这2句！！！

凤蔷¤蹁跹 · 发表于 2010-1-8 02:12:28

你没有打开表啊..!

爲眀天活着 · 发表于 2010-1-8 02:12:31

数据库名a0.mdb,有一个表guestbook，字段如下：
id 自动编号;name 文本; tel 文本; message 文本;time 日期/时间,默认值=now()
第一个网页
<%LANGUAGE="VBSCRIPT"%>
<html>
<head>
<title>example4</title>
</head>
<body>
<form name="form1" method="post" action="example5.asp">
name <input type="text" name="name"><br>
tel <input type="text" name="tel"><br>
message <input type="text" name="message" value=""><br>
<input type="submit" name="Submit" value="提交">
<input type="reset" name="Submit2" value="重置">
</form>
</body>
</html>
第二个网页,
<%LANGUAGE="VBSCRIPT"%>
<%
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft ACCESS driver (*.mdb)};dbq="&server.mappath("a0.mdb")
set rs=Server.CreateObject("adodb.recordset")
rs.open "select * from guestbook"
rs.addnew
rs("name")=request.form("name")
rs("tel")=request.form("tel")
rs("message")=request.form("message")
rs.update
conn.close
rs.close
set rs=nothing
set conn=nothing
response.write"记录添加成功！"
%>
<html>
<head>
<title>example5</title>
</head>
<body>
</body>
</html>
在第一个网页输入信息后
浏览器提示如下：
HTTP 错误 500.100 - 内部服务器错误 - ASP 错误
Internet 信息服务
技术信息（用于支持人员）
错误类型：
ADODB.Recordset (0x800A0E7D)
连接无法用于执行此操作。在此上下文中它可能已被关闭或无效。
/a0/example5.asp, 第 6 行

浏览器类型：
Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1)
网页：
POST 56 ??? /a0/example5.asp
POST Data:
name=afreg&tel=rggrgt&message=rttyty&Submit=%CC%E1%BD%BB
时间：
2007年7月24日, 16:33:59

老子xin坏 · 发表于 2010-1-8 02:12:34

set rs=Server.CreateObject("adodb.recordset")
rs.open "select * from guestbook"
rs.addnew
rs("name")=request.form("name")
rs("tle")=request.form("tel")
rs("message")=request.form("message")
rs.update
conn.close
rs.close
set rs=nothing
set conn=nothing
response.write"记录添加成功！"
前面加上两句试试
或
sql="insert into guestbook(name,tel,message) values('"&name&"','"&tel&"','"&message&"')"
改成
sql="insert into guestbook(name,tel,message) values('"+name+"', "+tel+" ,'"+message+"')"
主要是改标红的部分
改成这样也试试.

DJ爱有多痛DJ · 发表于 2010-1-8 02:12:37

/a1/example5.asp, 第 6 行
这第6行代码和前后是什么???

		自动登录	找回密码
密码			注册