请教各位一个插入数据表的问题

[icejd]

有一充值系统,因为涉及到二级分类充值,所以有些麻烦
当小类为空时,将大类里面的ID用DO WHILE的方式插入到充值表里,现在的问题是,如果我为此大类中的一个小类充过值时,那么我再为此大类充值,可是如何来实现将已存在的小类更新,将不存在的小类插入到表中的一个新记录呢
比方说,父类是 小学一年级,他下面的子类为语文.数学,我以前已经为语文这个子类充过值,那么现在我又想为父类小学一年级充值,那么如何来更新子类语文这条记录,而将数学这条记录插入表中呢,源码如下:
if unitid="0" then '当子类为空时,为大类下所有子类充值
set Rs3=server.CreateObject("adodb.recordset")
sql3="select * from userczjl where username='"&username&"' and cznj="&type1&" and czkb="&unitid&"" '获取充值表中是否存在此大类下某小类ID
Rs3.open sql3,conn,1,1
if rs3.bof and rs3.eof then '不存在小类,将大类下所有子类插入充值表
set RsSort=server.createobject("adodb.recordset")
sqlSort="select * from NC_SoftSort where parentid="&type1&""
RsSort.open SqlSort,conn,1,1
Do while not RsSort.eof
set rs4=server.CreateObject("adodb.recordset")
Sql4="select * from userczjl"
Rs4.open Sql4,conn,1,3
Rs4.addnew
Rs4("username")=username
Rs4("cztime")=now
Rs4("cznj")=type1
Rs4("czkb")=RsSort("Sortid")
Rs4("dqtime")=now+rs("day")
Rs4("czfs")="A"
Rs4.update
Rs4.close
RsSort.movenext
loop
Else '存在小类,更新已存在的小类
set rs4=server.CreateObject("adodb.recordset")
Sql4="update userczjl set dqtime=dqtime+"&rs("day")&" where username='"&username&"' and cznj="&type1&""
Rs4.open Sql4,conn,1,3

end if
else '子类不为空,为该子类充值
set Rs3=server.CreateObject("adodb.recordset")
sql3="select * from userczjl where username='"&username&"' and cznj="&type1&" and czkb="&unitid&""
Rs3.open sql3,conn,1,1
if rs3.bof and rs3.eof then '判断是否已存在该子类ID,无,则插入一条新记录
set rs4=server.CreateObject("adodb.recordset")
Sql4="select * from userczjl"
Rs4.open Sql4,conn,1,3
Rs4.addnew
Rs4("username")=username
Rs4("cztime")=now
Rs4("cznj")=type1
Rs4("czkb")=unitid
Rs4("dqtime")=now+rs("day")
Rs4("czfs")="A"
Rs4.update
Rs4.close
Else '已存在,更新该条记录
set rs4=server.CreateObject("adodb.recordset")
Sql4="update userczjl set dqtime=dqtime+"&rs("day")&" where username='"&username&"' and cznj="&type1&" and czkb="&unitid&""
Rs4.open Sql4,conn,1,3

end if
end if
response.Write "<script>alert('恭喜,充值成功!');history.back();</Script>"

[icejd]

谢谢,我刚刚去了一趟学校,回来的晚了,我试试

[icejd]

十分感谢风之石大哥,非常感谢

[dh20156]

问题描述得还不是很清楚感觉。你把表结构贴出来，然后说说要实现怎样的效果会更好，贴代码只会让人头晕！

[icejd]

这里涉及了两个表
一个是类别表
NC_SoftSort
sortid SortName parentid
1 小学一年级 0
2 语文 1
3 数学 1
另一个是充值表
userczjl

ID username cztime cznj czkb
1 icejd 2005-09-16 1 2

[icejd]

请帮忙

[icejd]

帮忙帮忙继续顶

[dh20156]

要实现怎样的效果?

[icejd]

比方说,父类是 小学一年级,他下面的子类为语文.数学,我以前已经为语文这个子类充过值,那么现在我又想为父类小学一年级充值,那么如何来更新子类语文这条记录,而将数学这条记录插入表中呢

[itzhiren]

那就判断所有父类是小学一年级的记录，如果找到了相应科目，就更新，如果没找到，就插入

[dh20156]

1.判断充值表中是否有 小学一年级 的记录(自己先将它的资料取出来)
Select top 1 * from userczjl where cznj=0 and czkb=1
如果没有记录就插入
2.判断充值表中是否有 小学一年级 下的所有科目的记录
select czkb from userczjl where cznj=1
然后判断czkb,没有的就插入
Insert into userczjl Select '"&username&"','"&cztime&"','1',sortid From NC_SoftSort Where sortid no in (select czkb from userczjl where cznj=1)
更新已存在的记录
Update userczjl Set cztime='"&cztime&"' where cznj=1

先进行更新的操作，再进行插入的操作!