对ASP+ACCESS数据库的页面添加操作。我有一个页面是这样的。
请问在hotel_add.asp这个页面中该写些什么?才能将那些文本框、下拉框、图片、文本域里的值存入到这个(hotel.mdb)数据库中。要求要有具体步骤:取值(就是前...
请问在hotel_add.asp这个页面中该写些什么?才能将那些文本框、下拉框、图片、文本域里的值存入到这个(hotel.mdb)数据库中。要求要有具体步骤:取值(就是前面的那四个)、数据库连接、添加语句,总之就是那种,我copy过来就可以用的。嘿嘿嘿.......
文本框<input name="hotelname" type="text" class="Input" id="name" size="25" maxlength="40">、
下拉框1<select name="star" class="Select" id="star" style="width:157">、
下拉框2<select name="hotelclassid" class="Select" id="classid" style="width:157">、
文本域<textarea name="info" cols="135" rows="4" id="info" class="input"> 展开
文本框<input name="hotelname" type="text" class="Input" id="name" size="25" maxlength="40">、
下拉框1<select name="star" class="Select" id="star" style="width:157">、
下拉框2<select name="hotelclassid" class="Select" id="classid" style="width:157">、
文本域<textarea name="info" cols="135" rows="4" id="info" class="input"> 展开
1个回答
展开全部
hotelname=Request.form("hotelname") '从form取值
star=Request.form("star")
hotelclassid=Request.form("hotelclassid")
info=Request.form("info")
Set Conn = Server.CreateObject("ADODB.Connection") '创建一个数据库连接
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("hotel.mdb") 'Access数据库,注意你的hotel.mdb的路径
Set Rs = Server.CreateObject( "ADODB.Recordset" ) '创建一个记录集
sql="select * from 你的数据表名"
rs.open sql,conn,1,3 '打开数据表
rs.addnew '添加新记录
rs("与hotelname对应的字段名")=hotelname
rs("star对应的字段名")=star
rs("hotelclassid对应的字段名")=hotelclassid
rs("info对应的字段名")=info
rs.update
rs.close '关闭连接,释放资源
Set Rs = Nothing
Conn.Close
Set Conn = Nothing
star=Request.form("star")
hotelclassid=Request.form("hotelclassid")
info=Request.form("info")
Set Conn = Server.CreateObject("ADODB.Connection") '创建一个数据库连接
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("hotel.mdb") 'Access数据库,注意你的hotel.mdb的路径
Set Rs = Server.CreateObject( "ADODB.Recordset" ) '创建一个记录集
sql="select * from 你的数据表名"
rs.open sql,conn,1,3 '打开数据表
rs.addnew '添加新记录
rs("与hotelname对应的字段名")=hotelname
rs("star对应的字段名")=star
rs("hotelclassid对应的字段名")=hotelclassid
rs("info对应的字段名")=info
rs.update
rs.close '关闭连接,释放资源
Set Rs = Nothing
Conn.Close
Set Conn = Nothing
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询