ASP表单提交问题
我有一个表单注册页面有一个表单内容无法提交到数据库,其他的表单项都没问题,麻烦大家看下这个页面有三个类型单选按扭(单选按扭的值分别是1,2,3),三个套餐菜单(菜单名分别...
我有一个表单注册页面有一个表单内容无法提交到数据库,其他的表单项都 没问题,麻烦大家看下
这个页面有三个类型单选按扭(单选按扭的值分别是1,2,3),三个套餐菜单(菜单名分别为:taocanej,taocanyr,taocansw),选择不同的类型就显示相应的套餐菜单隐藏其他2项,然后在写入数据库时使用判断语句写入,但就是无法把相应 的值存储到数据库上,麻烦帮看下是哪里出错了。
其他表单都 可以成功写入数据库,就套餐这个表单的内容无法写入数据库
<%addto=request("addto")
if addto="yes" then
Set Rs = Server.CreateObject("Adodb.recordset")
sql = " select * from [yonghu] "
Rs.open Sql,conn,1,3
rs.addnew
rs("kehuname")=request("kehuname")
rs("tel")=request("tel")
rs("cardtype")=request("cardtype")
rs("cardid")=request("cardid")
rs("bankname")=request("bankname")
rs("bankid")=request("bankid")
rs("fittype")=request("fittype")
rs("kbtel")=request("kbtel")
If request("type")="1" Then
rs("taocan")=request("taocanej")
ElseIf request("type")="2" Then
rs("taocan")=request("taocanyr")
ElseIf request("type")="3" Then
rs("taocan")=request("taocansw")
End if
rs("address")=request("address")
If request("txaddress")="" Then
rs("txaddress")=request("address")
else
rs("txaddress")=request("txaddress")
End If
rs("lxr")=request("lxr")
rs("zhongduan")=request("zhongduan")
rs("qq")=request("qq")
rs("memo")=request("memo")
If 1=2 Then
Set Rs11 = Server.CreateObject("Adodb.recordset")
sql11 = " select * from [use] where name='"&request("tgid")&"'"
Rs11.open Sql11,conn,1,3
If Not rs11.eof Then
Set Rs12 = Server.CreateObject("Adodb.recordset")
sql12 = " select * from [wage] "
Rs12.open Sql12,conn,1,3
rs12.addnew
rs12("usid")=rs11("id")
rs12("tgid")=request("tgid")
rs12("date")=Date
Set Rs22 = Server.CreateObject("Adodb.recordset")
sql22 = " select * from [taocan] where name='"&request("taocan")&"' "
Rs22.open Sql22,conn,1,1
If Not rs22.eof Then
rs12("income")=rs22("jifen")
End if
rs12("note")="推荐用户"&request("name")&"申请宽带奖励的积分"
rs12.update
rs11("zjifen")=rs11("zjifen")+rs22("jifen")
rs11.update
End if
End If
rs("tuijianid")=request("tgid")
rs("addtime")=Now()
rs("orderflag")="已受理"
randomize
ranNum=int(900*rnd)+100
rs.update
response.redirect "prosper.asp"
end if
%> 展开
这个页面有三个类型单选按扭(单选按扭的值分别是1,2,3),三个套餐菜单(菜单名分别为:taocanej,taocanyr,taocansw),选择不同的类型就显示相应的套餐菜单隐藏其他2项,然后在写入数据库时使用判断语句写入,但就是无法把相应 的值存储到数据库上,麻烦帮看下是哪里出错了。
其他表单都 可以成功写入数据库,就套餐这个表单的内容无法写入数据库
<%addto=request("addto")
if addto="yes" then
Set Rs = Server.CreateObject("Adodb.recordset")
sql = " select * from [yonghu] "
Rs.open Sql,conn,1,3
rs.addnew
rs("kehuname")=request("kehuname")
rs("tel")=request("tel")
rs("cardtype")=request("cardtype")
rs("cardid")=request("cardid")
rs("bankname")=request("bankname")
rs("bankid")=request("bankid")
rs("fittype")=request("fittype")
rs("kbtel")=request("kbtel")
If request("type")="1" Then
rs("taocan")=request("taocanej")
ElseIf request("type")="2" Then
rs("taocan")=request("taocanyr")
ElseIf request("type")="3" Then
rs("taocan")=request("taocansw")
End if
rs("address")=request("address")
If request("txaddress")="" Then
rs("txaddress")=request("address")
else
rs("txaddress")=request("txaddress")
End If
rs("lxr")=request("lxr")
rs("zhongduan")=request("zhongduan")
rs("qq")=request("qq")
rs("memo")=request("memo")
If 1=2 Then
Set Rs11 = Server.CreateObject("Adodb.recordset")
sql11 = " select * from [use] where name='"&request("tgid")&"'"
Rs11.open Sql11,conn,1,3
If Not rs11.eof Then
Set Rs12 = Server.CreateObject("Adodb.recordset")
sql12 = " select * from [wage] "
Rs12.open Sql12,conn,1,3
rs12.addnew
rs12("usid")=rs11("id")
rs12("tgid")=request("tgid")
rs12("date")=Date
Set Rs22 = Server.CreateObject("Adodb.recordset")
sql22 = " select * from [taocan] where name='"&request("taocan")&"' "
Rs22.open Sql22,conn,1,1
If Not rs22.eof Then
rs12("income")=rs22("jifen")
End if
rs12("note")="推荐用户"&request("name")&"申请宽带奖励的积分"
rs12.update
rs11("zjifen")=rs11("zjifen")+rs22("jifen")
rs11.update
End if
End If
rs("tuijianid")=request("tgid")
rs("addtime")=Now()
rs("orderflag")="已受理"
randomize
ranNum=int(900*rnd)+100
rs.update
response.redirect "prosper.asp"
end if
%> 展开
3个回答
展开全部
数据不雹渣吵能入库的原因可能有很多种。但排查的方法,大源侍至相同。
可以慢慢的梁歼添加字段。
比如可以在入库的时候,先添一两个字段,看可不可以入库,可以入库的话,再添一两个字段。
可以慢慢的梁歼添加字段。
比如可以在入库的时候,先添一两个字段,看可不可以入库,可以入库的话,再添一两个字段。
追问
其他字段都可以入加,就这个字段无法入库
If request("type")="1" Then
rs("taocan")=request("taocanej")
ElseIf request("type")="2" Then
rs("taocan")=request("taocanyr")
ElseIf request("type")="3" Then
rs("taocan")=request("taocansw")
End if
展开全部
Rs22.open Sql22,conn,1,1貌似有问题, 你要对数据库进行写入乎消,我觉得尘顷哪应该是派码
Rs22.open Sql22,conn,1,3
Rs22.open Sql22,conn,1,3
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
你的if语句看起来有点多,你看看有没有写多了,或有没有语法错误
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询