2个回答
展开全部
先建立数据库连接:
<%
db="db/db1.mdb"
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
'如果你的服务器采用较老版本Access驱动,请用下面连接方法
'connstr="driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath(db)
conn.Open connstr
function CloseDatabase
Conn.close
Set conn = Nothing
End Function
%>
再从表单中提取数据:
dim mingzi,nianling
mingzi=Request.Form("sname")
nianling=Request.Form("sage")
set rs=server.CreateObject("ADODB.Recordset")
sqlstr="insert into db (sname,sage) values('"&mingzi&"','"&nianling&"')"
rs.open sqlstr,conn,1,3
set rs=nothing
conn.close
response.Redirect("index.asp")
做个按钮提交就可以了
<%
db="db/db1.mdb"
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
'如果你的服务器采用较老版本Access驱动,请用下面连接方法
'connstr="driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath(db)
conn.Open connstr
function CloseDatabase
Conn.close
Set conn = Nothing
End Function
%>
再从表单中提取数据:
dim mingzi,nianling
mingzi=Request.Form("sname")
nianling=Request.Form("sage")
set rs=server.CreateObject("ADODB.Recordset")
sqlstr="insert into db (sname,sage) values('"&mingzi&"','"&nianling&"')"
rs.open sqlstr,conn,1,3
set rs=nothing
conn.close
response.Redirect("index.asp")
做个按钮提交就可以了
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询