我有个mdb数据库文件,怎么在网页中读取、修改、删除.mdb 数据啊。
我有个mdb数据库文件,怎么在网页中读取、修改、删除.mdb数据啊。用一个asp文件http://www.jingrikeji.cn/book/db1.mdb就是读写这个...
我有个mdb数据库文件,怎么在网页中读取、修改、删除.mdb 数据啊。用一个asp文件
http://www.jingrikeji.cn/book/db1.mdb 就是读写这个数据库 用一个asp文件。 展开
http://www.jingrikeji.cn/book/db1.mdb 就是读写这个数据库 用一个asp文件。 展开
2个回答
展开全部
我来试着写一个
<%
dim db,conn,myconn
db="data/db.mdb" '数据库文件
Set Conn = Server.CreateObject("ADODB.Connection")
myconn="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"")
Conn.Open MyConn
'添加数据
set rs=server.createobject("adodb.recordset")
rs.open "select * from news",conn,1,3
rs.addnew
rs("lei")=trim(request.form("lei"))'lei字段名
rs("title")=trim(request.form("title"))'title字段名
rs("body")=request.form("body")'body字段名
rs.update
rs.close
set rs=nothing
response.write"<script>alert('添加成功');location.href='addnews.asp'</script>"
end if
'修改数据库
id=request.querystring("id")
set rs1=server.createobject("adodb.recordset")
rs1.open"select * from news where id="&id,conn,1,3
rs1.update
rs1("lei")=trim(request.form("lei"))
rs1("title")=trim(request.form("title"))
rs1("body")=trim(request.form("body"))
rs1.update
rs1.close
set rs1=nothing
conn.close
set conn=nothing
response.write"<script>alert('修改成功');location.href='update.asp'</script>"
end if
'删除数据
id=request.querystring("id")
set rs=server.createobject("adodb.recordset")
rs.open"select * from news where id="&id,conn,1,3
rs.delete
rs.update
rs.close
set rs=nothing
conn.close
set conn=nothing
response.write"<script>alert('删除成功');location.href='update.asp'</script>"
end if
%>
<%
dim db,conn,myconn
db="data/db.mdb" '数据库文件
Set Conn = Server.CreateObject("ADODB.Connection")
myconn="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"")
Conn.Open MyConn
'添加数据
set rs=server.createobject("adodb.recordset")
rs.open "select * from news",conn,1,3
rs.addnew
rs("lei")=trim(request.form("lei"))'lei字段名
rs("title")=trim(request.form("title"))'title字段名
rs("body")=request.form("body")'body字段名
rs.update
rs.close
set rs=nothing
response.write"<script>alert('添加成功');location.href='addnews.asp'</script>"
end if
'修改数据库
id=request.querystring("id")
set rs1=server.createobject("adodb.recordset")
rs1.open"select * from news where id="&id,conn,1,3
rs1.update
rs1("lei")=trim(request.form("lei"))
rs1("title")=trim(request.form("title"))
rs1("body")=trim(request.form("body"))
rs1.update
rs1.close
set rs1=nothing
conn.close
set conn=nothing
response.write"<script>alert('修改成功');location.href='update.asp'</script>"
end if
'删除数据
id=request.querystring("id")
set rs=server.createobject("adodb.recordset")
rs.open"select * from news where id="&id,conn,1,3
rs.delete
rs.update
rs.close
set rs=nothing
conn.close
set conn=nothing
response.write"<script>alert('删除成功');location.href='update.asp'</script>"
end if
%>
参考资料: 好好答题,天天加分
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询