asp表单内容插入到数据库问题(在线等)
在这里问了几次还是没弄成功!那位大大可以留个QQ号码或给个完整的例了代码么?__________________________就是创建一个叫abc.mdb数据库里面建一...
在这里问了几次还是没弄成功!那位大大可以留个QQ号码或给个完整的例了代码么?
__________________________
就是创建一个叫abc.mdb 数据库里面建一个叫做product的表单
在product.asp 里建一个表单,里面有 性名,性别,地址这样的内容.
插入一个添加按钮,把这几个输入的内容添加到abc.mdb数据库的product表单相对应的name,sex,adds这几个字段里.. 展开
__________________________
就是创建一个叫abc.mdb 数据库里面建一个叫做product的表单
在product.asp 里建一个表单,里面有 性名,性别,地址这样的内容.
插入一个添加按钮,把这几个输入的内容添加到abc.mdb数据库的product表单相对应的name,sex,adds这几个字段里.. 展开
展开全部
'*********index.asp*****************代码如下:
<form name="form1" method="post" action="save.asp">
姓名:<input type="text" id="name" name="name"><br>
性别:<input type="text" name="sex" id="sex"><br>
地址:<input type="text" name="adds" id="adds"><br>
<input type="submit" value="提交">
</form>
'***************save.asp*****************代码如下:
<!-- #include file="conn.asp" -->
<%
dim Sname,Ssex,Sadds,Sid
Sname=request.form("name")
Ssex=request.form("sex")
Sadds=request.form("adds")
sql="select * from product where id=0"
rs.open sql,conn,1,3
rs.addnew
rs("name")=Sname
rs("sex")=Ssex
rs("adds")=Sadds
Sid=rs("id")
rs.update
rs.close
set rs=nothing
response.write "编号为" &Sid& "写入成功!"
%>
'*************conn.asp*********************代码如下:
<%
Dim Conn, Rs, Sql
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("abc.mdb")
Set Rs = Server.CreateObject( "ADODB.Recordset" )
%>
<form name="form1" method="post" action="save.asp">
姓名:<input type="text" id="name" name="name"><br>
性别:<input type="text" name="sex" id="sex"><br>
地址:<input type="text" name="adds" id="adds"><br>
<input type="submit" value="提交">
</form>
'***************save.asp*****************代码如下:
<!-- #include file="conn.asp" -->
<%
dim Sname,Ssex,Sadds,Sid
Sname=request.form("name")
Ssex=request.form("sex")
Sadds=request.form("adds")
sql="select * from product where id=0"
rs.open sql,conn,1,3
rs.addnew
rs("name")=Sname
rs("sex")=Ssex
rs("adds")=Sadds
Sid=rs("id")
rs.update
rs.close
set rs=nothing
response.write "编号为" &Sid& "写入成功!"
%>
'*************conn.asp*********************代码如下:
<%
Dim Conn, Rs, Sql
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("abc.mdb")
Set Rs = Server.CreateObject( "ADODB.Recordset" )
%>
展开全部
<!-- #include file="conn.asp" -->
<%
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
rs.addnew
rs("name")=request("name")
rs("sex")=request("sex")
rs("adds")=request("adds")
rs.update
rs.close
set rs=nothing
%>
<%
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
rs.addnew
rs("name")=request("name")
rs("sex")=request("sex")
rs("adds")=request("adds")
rs.update
rs.close
set rs=nothing
%>
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
有分追加否?
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询