中科新闻网全国卷英语听力材料:数据代码报错
来源：百度文库 编辑：中科新闻网 时间：2024/05/07 15:44:49
<%
set ad=server.createobject("adodb.connection")
Pathyy = Server.MapPath("eblyb.mdb")
ad.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Pathyy
Set rs = Server.CreateObject("ADODB.Recordset")
sql = "SELECT * FROM eblyb "
rs.open sql, ad, 1, 3
lyr=request.form("lyr")
xb=request.form("xb")
sr=request.form("sr1")+"年"+request.form("sr2")+"月"+request.form("sr3")+"日"
lxfs=request.form("lxfs")
xx=request.form("xx")
lynr=request.form("lynr")
rs.addnew
rs("留言人")=lyr
rs("性别")=xb
rs("生日")=sr
rs("联系方式")=lxfs
rs("形象")=xx
rs("留言内容")=lynr
rs.update
rs.close
ad.close
%>
set ad=server.createobject("adodb.connection")
Pathyy = Server.MapPath("eblyb.mdb")
ad.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Pathyy
Set rs = Server.CreateObject("ADODB.Recordset")
sql = "SELECT * FROM eblyb "
rs.open sql, ad, 1, 3
lyr=request.form("lyr")
xb=request.form("xb")
sr=request.form("sr1")+"年"+request.form("sr2")+"月"+request.form("sr3")+"日"
lxfs=request.form("lxfs")
xx=request.form("xx")
lynr=request.form("lynr")
rs.addnew
rs("留言人")=lyr
rs("性别")=xb
rs("生日")=sr
rs("联系方式")=lxfs
rs("形象")=xx
rs("留言内容")=lynr
rs.update
rs.close
ad.close
%>
Dim conn
Dim connstr
connstr="DBQ="+Server.mappath("eblyb.mdb")+"DefaultDir=DRIVER={Microsoft Access Driver (*.mdb)}"
Set conn=Server.CreateObjest("adodb.connection")
conn.open connstr
Set ad = Server.CreateObject("ADODB.Recordset")
sql = "SELECT * FROM eblyb "
ad.open sql, ad, 1, 3
lyr=request.form("lyr")
xb=request.form("xb")
sr=request.form("sr1")+"年"+request.form("sr2")+"月"+request.form("sr3")+"日"
lxfs=request.form("lxfs")
xx=request.form("xx")
lynr=request.form("lynr")
ad.addnew
ad("留言人")=lyr
ad("性别")=xb
ad("生日")=sr
ad("联系方式")=lxfs
ad("形象")=xx
ad("留言内容")=lynr
ad.update
ad.close