asp提交表单后如何把数据插入表中
高手,请教个问题!急急急。我在一个页面中通过表单提交数据,然后我想把这些数据插入到数据库的某个表中,编写的代码如下<!--#includefile="conn.asp"-...
高手,请教个问题!急急急。
我在一个页面中通过表单提交数据,然后我想把这些数据插入到数据库的某个表中,编写的代码如下
<!--#include file="conn.asp"-->
<%
dim sql,sql1,rs,rss,idnum,name,phone,dept,language
if session("uid")="" then
response.redirect"login.asp"
end if
sql="select * from user2"
set rs=server.createobject("adodb.recordset")
rs.open sql,connstr,1,1
if not rs.eof then
name=session("uid")
idnum=request.form("idnum")
phone=request.form("phone")
dept=request.form("usertype")
language=request.form("usertype1")
if name<>"" then
sql1="select * from user2"
ser rss=server.createobject("adodb.recordset")
rss.open sql1,connstr,3,2
rss.addnew
rss.("姓名")=name
rss.("身份证号")=idnum
rss.("联系方式")=phone
rss.("院系编号")=dept
rss.("语言级别代码")=language
rss.update
session("uid")=name
response.write("ok.asp?=报名成功")
end if
end if
%>
运行后显示错误Microsoft VBScript 编译器错误 (0x800A03F2)
,在 rss.("姓名")=name一行
求指点啊
OK,修改后问题出现在代码
<!--#include file="conn.asp"-->
<%
dim sql,sql1,rs,rss,idnum,name,phone,dept,language
if session("uid")="" then
response.redirect"login.asp"
end if
sql="select * from user2"
set rs=server.createobject("adodb.recordset")
rs.open sql,connstr,1,1
if not rs.eof then
name=session("uid")
idnum=request.form("idnum")
phone=request.form("phone")
dept=request.form("usertype")
language=request.form("usertype1")
if name<>"" then
sql1="select * from user2"
set rss=server.createobject("adodb.recordset")
rss.open sql1,connstr,3,2
rss.addnew
rss("姓名")=name
rss("身份证号")=idnum
rss("联系方式")=phone
rss("院系编号")=dept
rss("语言级别代码")=language
rss.update
session("uid")=name
response.write("ok.asp?=报名成功")
end if
end if
%>
错误类型:
ADODB.Recordset (0x800A0CC1)
依然在rss("姓名")=name这行 展开
我在一个页面中通过表单提交数据,然后我想把这些数据插入到数据库的某个表中,编写的代码如下
<!--#include file="conn.asp"-->
<%
dim sql,sql1,rs,rss,idnum,name,phone,dept,language
if session("uid")="" then
response.redirect"login.asp"
end if
sql="select * from user2"
set rs=server.createobject("adodb.recordset")
rs.open sql,connstr,1,1
if not rs.eof then
name=session("uid")
idnum=request.form("idnum")
phone=request.form("phone")
dept=request.form("usertype")
language=request.form("usertype1")
if name<>"" then
sql1="select * from user2"
ser rss=server.createobject("adodb.recordset")
rss.open sql1,connstr,3,2
rss.addnew
rss.("姓名")=name
rss.("身份证号")=idnum
rss.("联系方式")=phone
rss.("院系编号")=dept
rss.("语言级别代码")=language
rss.update
session("uid")=name
response.write("ok.asp?=报名成功")
end if
end if
%>
运行后显示错误Microsoft VBScript 编译器错误 (0x800A03F2)
,在 rss.("姓名")=name一行
求指点啊
OK,修改后问题出现在代码
<!--#include file="conn.asp"-->
<%
dim sql,sql1,rs,rss,idnum,name,phone,dept,language
if session("uid")="" then
response.redirect"login.asp"
end if
sql="select * from user2"
set rs=server.createobject("adodb.recordset")
rs.open sql,connstr,1,1
if not rs.eof then
name=session("uid")
idnum=request.form("idnum")
phone=request.form("phone")
dept=request.form("usertype")
language=request.form("usertype1")
if name<>"" then
sql1="select * from user2"
set rss=server.createobject("adodb.recordset")
rss.open sql1,connstr,3,2
rss.addnew
rss("姓名")=name
rss("身份证号")=idnum
rss("联系方式")=phone
rss("院系编号")=dept
rss("语言级别代码")=language
rss.update
session("uid")=name
response.write("ok.asp?=报名成功")
end if
end if
%>
错误类型:
ADODB.Recordset (0x800A0CC1)
依然在rss("姓名")=name这行 展开
4个回答
展开全部
参照下面的代码就行了,我自己写的
set rs=server.createobject("adodb.recordset")
sql="select * from news"
rs.open sql,conn,1,3
title=request.form("title")
url=request.form("url")
body=request.form("body")
img=request.form("img")
ly=request.form("ly")
zz=request.form("zz")
color=request.form("color")
ssfl=request.form("ssfl")
tuijian=request.form("tuijian")
if title="" then
response.Write("<script language=javascript>答轮携alert('新闻标题不能为清伏空!');history.go(-1)</script>")
response.end
end if
if body="" then
response.Write("<script language=javascript>alert('新闻桐茄内容不能为空!');history.go(-1)</script>")
response.end
end if
rs.addnew
rs("title")=title
rs("url")=url
rs("body")=body
rs("img")=img
rs("ly")=ly
rs("zz")=zz
rs("color")=color
rs("ssfl")=ssfl
rs("tuijian")=tuijian
rs.update
rs.close
set rs=nothing
conn.close
set rs=nothing
Response.Write "<script>alert('新闻增加成功,点击继续增加!');window.location.href='add_news.asp';</script>"
set rs=server.createobject("adodb.recordset")
sql="select * from news"
rs.open sql,conn,1,3
title=request.form("title")
url=request.form("url")
body=request.form("body")
img=request.form("img")
ly=request.form("ly")
zz=request.form("zz")
color=request.form("color")
ssfl=request.form("ssfl")
tuijian=request.form("tuijian")
if title="" then
response.Write("<script language=javascript>答轮携alert('新闻标题不能为清伏空!');history.go(-1)</script>")
response.end
end if
if body="" then
response.Write("<script language=javascript>alert('新闻桐茄内容不能为空!');history.go(-1)</script>")
response.end
end if
rs.addnew
rs("title")=title
rs("url")=url
rs("body")=body
rs("img")=img
rs("ly")=ly
rs("zz")=zz
rs("color")=color
rs("ssfl")=ssfl
rs("tuijian")=tuijian
rs.update
rs.close
set rs=nothing
conn.close
set rs=nothing
Response.Write "<script>alert('新闻增加成功,点击继续增加!');window.location.href='add_news.asp';</script>"
展开全部
rss("姓名")=name
rss("身份证号")=idnum
rss("联系方式丛坦"渗弊桐)=phone
rss("院系编号")=dept
rss("语卜行言级别代码")=language
rss("身份证号")=idnum
rss("联系方式丛坦"渗弊桐)=phone
rss("院系编号")=dept
rss("语卜行言级别代码")=language
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
插入数据的时候 要改纳哗卜戚成
rs.open sql,connstr,1,3
1,1是只洞弊行读方式
rs.open sql,connstr,1,3
1,1是只洞弊行读方式
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
rss.open sql1,connstr,3,2
这个出了问题
这个出了问题
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询