Question

ASP中怎样实现向access数据库中添加记录啊？

我刚刚接触asp，所以对一切都不懂。出点小错还能应付，可是关键是我都不知道是出得什么错啊！可它就是不能添加记录。要气死了。
下面是conn.asp
<%
' FileName="Connection_ado_conn_string.htm"
' Type="ADO"
' DesigntimeType="ADO"
' HTTP="false"
' Catalog=""
' Schema=""
Dim MM_conn_STRING
MM_conn_STRING = "Driver={Microsoft Access Driver (*.mdb)};DBQ=d:\gcw\database\project.mdb"
%>
下面是addnew.asp
<!-- #include file="../connections/conn.asp" -->
<%
news_title=request.form("news_title")
news_shorttitle=request.form("news_shorttitle")
news_from=request.form("news_from")
news_writer=request.form("news_writer")
news_introduction=request.form("news_introduction")
news_comment=request.form("news_comment")
news_keys=request.form("news_keys")
news_pic=request.form("news_pic")
news_class=request.form("news_class")
exec="insert into new(news_title,news_shorttitle,news_from,news_writer,news_introduction,news_comment,news_keys,news_pic,news_class)values('"&news_title&"',"&news_shorttitle&"',"&news_from&"',"&news_writer&"',"&news_introduction&"',"&news_comment&"',"&news_keys&"',"&news_pic&"',"&news_class&"')"
sub closedb(conn)
conn.execute exec
conn.close
set conn=nothing
end sub
response.write "记录添加成功!"
%>
因为我做的这个网站是个含有很多栏目的网站.我静态的稍微懂点,可是这动态的我是一点也不懂.
请朋友们帮忙看下,它运行后为什么在数据库中没有添加记录啊?

Answer 1

给你几点建议
1。一般连接数据库的文件conn.asp基本内容如下：
dim connstr,conn,rs,sql
connstr="driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("db/data.mdb")
set conn=server.createobject("ADODB.CONNECTION")
set rs=server.createobject("adodb.recordset")
conn.open connstr
2。查询操作数据库如下：
sql="select * from user order by name='"&name1&"'"
rs.open sql,conn,0,3
3。你的错误在于，你把对数据库的写入操作写成了函数Sub CloseDB(Conn)，而你在后面根本就没调用这个函数，所以就根本没写数据

Answer 2

gRS.Open "select * from search order by id asc",gConn,1,1 '打开记录集
If not(gRS.BOF and gRS.EOF) then '判断是否有记录
Response.write "记录已存在。"
else
gRS.Addnew '添加新记录
gRS("表项")=Request.Querystring("stxt") '赋值
gRS.Update '更新
Response.write "记录已添加。"
end if
gRS.Close '关闭连接
gConn.Close

Answer 3

exec="insert into new(news_title,news_shorttitle,news_from,news_writer,news_introduction,news_comment,news_keys,news_pic,news_class)values('"&news_title&"',"&news_shorttitle&"',"&news_from&"',"&news_writer&"',"&news_introduction&"',"&news_comment&"',"&news_keys&"',"&news_pic&"',"&news_class&"')"

这语句有错误.!!

,"&news_shorttitle&"',象这样的..右边有单引号.左边的单引号那里去了。补上去.就可以拉. ,'"&news_shorttitle&"',

所有缺单引号的都补上去

Answer 4

可以用response.write 把exec 显示出来 看该句是否有格式错误~~

Answer 5

在不在同一个页面，不在的话就看看怎么传的值