| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1277 人关注过本帖, 1 人收藏
标题:动态添加表单项,并向两个表存数据
取消只看楼主 加入收藏
度乐
Rank: 1
等 级:新手上路
帖 子:14
专家分:0
注 册:2010-1-5
结帖率:33.33%
收藏(1)
已结贴  问题点数:16 回复次数:5 
动态添加表单项,并向两个表存数据
我现在是有两个表,一个是产品表,一个是价格表;我想在添加产品表里把各项都写全了,在处理页分别存到数据库中。
试了几个方法都 是不行。而且产品价格是一个动态的。一个产品分三六九等,票价不同。票价还不能定死了,得动态添加。
保存到数据库的时候好像这又涉及到一个批量数据处理吧,搞不明白了,望高手教我!!!
最好能举个例子,能详细点是最好了,多谢了!
搜索更多相关主题的帖子: 数据 动态 单项 
2010-01-18 17:20
度乐
Rank: 1
等 级:新手上路
帖 子:14
专家分:0
注 册:2010-1-5
收藏
得分:0 
<!--#include file="conn.asp"-->
<%
if request("bookname")="" then
response.Write "对不起,添加失败,请用正确的方式添加票品!"
response.End
end if
function HTMLEncode2(fString)
    fString = Replace(fString, CHR(13), "")
    fString = Replace(fString, CHR(10) & CHR(10), "</P><P>")
    fString = Replace(fString, CHR(10), "<BR>")
    HTMLEncode2 = fString
end function
dim bookdate,dazhe
dazhe=trim(request("huiyuanjia"))
dim action,bookid
bookid=request.QueryString("id")
action=request.QueryString("action")
shjianame=request.cookies("cnhww")("shjianame")
select case action
case "add"
set rs=server.CreateObject("adodb.recordset")
rs.Open "select * from products",conn,1,3
rs.AddNew
rs("mch")=trim(request("mch"))
rs("pp")=trim(request("pp"))
rs("isbn1")=trim(request("isbn1"))
rs("jj")=trim(request("jj"))
rs("jg")=trim(request("jg"))
rs("zl")=trim(request("zl"))
rs("tp")=trim(request("tp"))
rs("nr")=trim(request("nr"))
rs("bh")=trim(request("bh"))
rs("anclassid")=int(request("anclassid"))
rs("nclassid")=int(request("nclassid"))
rs("bookname")=trim(request("bookname"))
rs("grade")=trim(request("grade"))
rs("pingpai")=trim(request("pingpai"))
rs("isbn")=trim(request("isbn"))
rs("jssj")=trim(request("jssj"))
rs("bookchuban")=trim(request("bookchuban"))
rs("huiyuanjia")=trim(request("huiyuanjia"))
rs("vipjia")=trim(request("vipjia"))
rs("dazhe")=dazhe  
rs("bookpic")=trim(request("bookpic"))
rs("zhuang")=trim(request("zhuang"))
rs("qwtp")=Trim(request("qwtp"))
rs("ditu")=Trim(request("ditu"))
rs("bookcontent")=htmlencode2(trim(request("bookcontent")))  
 
if request("bestbook")=1 then  
rs("bestbook")=1
else
rs("bestbook")=0
end if
if request("newsbook")=1 then  
rs("newsbook")=1
else
rs("newsbook")=0
end if
if request("tejiabook")=1 then  
rs("tejiabook")=1
else
rs("tejiabook")=0
end If
if request("huigubook")=1 then  
rs("huigubook")=1
else
rs("huigubook")=0
end if

rs("liulancount")=0  
rs("adddate")=now()  
rs("pingji")=0  
rs("pingjizong")=0
rs.Update
bookid=rs("bookid")
rs.Close
set rs=Nothing

set rs1=server.CreateObject("adodb.recordset")
rs1.Open "select * from piaojiab",conn,1,3
rs1.AddNew
rs1("piaojia")=trim(request("shichangjia1"))
rs1("kucun")=trim(request("kucun"))
rs1("chengjiaocount")=Trim(request("chengjiaocount"))  
rs1("leiyanbid")=bookid
rs1("piaojiaid")=bookid
rs1("jifen")=trim(request("yeshu"))
rs1.close
Set rs1=nothing

response.Write "<script language=javascript>alert('添加成功!');history.go(-2);</script>"
response.End

case "edit"
set rs=server.CreateObject("adodb.recordset")
rs.Open "select * from products where bookid="&bookid,conn,1,3
rs("mch")=trim(request("mch"))
rs("pp")=trim(request("pp"))
rs("isbn1")=trim(request("isbn1"))
rs("jj")=trim(request("jj"))
rs("jg")=trim(request("jg"))
rs("zl")=trim(request("zl"))
rs("tp")=trim(request("tp"))
rs("nr")=trim(request("nr"))
rs("bh")=trim(request("bh"))
rs("anclassid")=int(request("anclassid"))
rs("nclassid")=int(request("nclassid"))
rs("bookname")=trim(request("bookname"))
rs("pingpai")=trim(request("pingpai"))
rs("grade")=trim(request("grade"))
rs("isbn")=trim(request("isbn"))
rs("jssj")=trim(request("jssj"))
rs("bookchuban")=trim(request("bookchuban"))
rs("huiyuanjia")=trim(request("huiyuanjia"))  
rs("vipjia")=trim(request("vipjia"))
rs("dazhe")=dazhe  
rs("bookpic")=trim(request("bookpic"))  
rs("zhuang")=trim(request("zhuang"))
rs("qwtp")=trim(request("qwtp"))
rs("ditu")=trim(request("ditu"))
rs("bookcontent")=trim(request("bookcontent"))  
if request("bestbook")=1 then  
rs("bestbook")=1
else
rs("bestbook")=0
end if
if request("newsbook")=1 then  
rs("newsbook")=1
else
rs("newsbook")=0
end if
if request("tejiabook")=1 then  
rs("tejiabook")=1
else
rs("tejiabook")=0
end If
if request("huigubook")=1 then  
rs("huigubook")=1
else
rs("huigubook")=0
end if
rs.Update
rs.Close
set rs=Nothing

set rs1=server.CreateObject("adodb.recordset")
rs1.Open "select * from piaojiab",conn,1,3
rs1("piaojia")=trim(request("piaojia"))
rs1("kucun")=trim(request("kucun"))
rs1("chengjiaocount")=Trim(request("chengjiaocount"))  
rs1("leiyanbid")=bookid
rs1("piaojiaid")=bookid
rs1("jifen")=trim(request("jifen"))
rs1.close
Set rs1=Nothing

response.Write "<script language=javascript>alert('修改成功!');history.go(-2);</script>"
response.End
end select
%>
这个是数据存储页,请高手看下,哪儿错了要改!!!
2010-01-19 11:20
度乐
Rank: 1
等 级:新手上路
帖 子:14
专家分:0
注 册:2010-1-5
收藏
得分:0 
先谢谢两位!
我也是这样想的,用数组
我设计了一个表,包含 :价格编号,价格,库存,成交量,产品编号
因为同一个产品,可能有多个价格,所以我想用动态的添加这个
对我来说这里有一个难题了,动态添加价格,调用js,我试了几个不行,呵呵!
还有就是上边我写出来的这个代码,不知道是怎么回事,就是保存不了
2010-01-20 15:22
度乐
Rank: 1
等 级:新手上路
帖 子:14
专家分:0
注 册:2010-1-5
收藏
得分:0 
找到部分原因了,上边代码保存不了数据是因为少了rs.updata,呵
2010-01-22 18:12
度乐
Rank: 1
等 级:新手上路
帖 子:14
专家分:0
注 册:2010-1-5
收藏
得分:0 
动态添加表单项这个问题还没有解决,唉!

2010-01-22 18:14
度乐
Rank: 1
等 级:新手上路
帖 子:14
专家分:0
注 册:2010-1-5
收藏
得分:0 
路过的,没想过留下点什么吗?
2010-01-23 16:28
快速回复:动态添加表单项,并向两个表存数据
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.017596 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved