set rs=server.CreateObject("adodb.recordset")
sql="select * from cn"
rs.open sql,conn,3,3
------开cn表
set rs1=server.CreateObject("adodb.recordset")
sqll="select * from sc"
rs1.open sqll,conn,3,3
-----开sc表
dim i,j,k,m,n,zg,rg,dg,tg,wg,aa,xi1,xi2
aa=array(90,80,70,60,50,40,30,20,10)
----定义变量，数组aa
function isArr(arr,num)
for i=0 to ubound(aa)
if num=int(arr(i)) then
isArr = true
end if
next
isArr = false
end function
-------判断数字是否在数组中，从网上考的。
function isArrr(arr,num)
for n=0 to ubound(aa)
if num=int(arr(n)) then
isArrr = true
end if
next
isArrr = false
end function
-----我菜鸟不知道引用两个是不是就要写两段
for j=1 to rs.count
xi1=rs("xi1")
xi2=rs("xi2")
for k=0 to ubound(aa)
zg=aa(k)
dg=zg-xi1-xi2
if isarr(aa,dg)=true then
for m=k+1 to ubound(aa)
rg=aa(m)
zz=rg-xi2
hz=dg-zz
wg=zg-rg
if 0
rs1.addnew
rs1.("xi1")=xi1
rs1.("xi2")=xi2
rs1.("zg")=zg
rs1.("dg")=dg
rs1.("rg")=rg
rs1.("wg")=wg
rs1.("zz")=zz
rs1.("hz")=hz
rs1.update
end if
next
end if
next
rs.movenext
next
从cn表依次读入xi1，xi2数据，从数组最大的数开始依次赋予zg，dg等于zg减xi1减xi2。
如果dg不在数组中，zg赋予下个数组值。如果dg在数组中，rg等于zg下一个要赋值的数，zz=rg-xi2，hz=dg-rg，wg=zg-rg，
如果0
否则的话，rg为数组下一数进行判断和计算。 |
d5681794
