dim cbid,mname,mdw,mzk,mnum,mcid
cbid=split(replace(request.Form("cbid")," ",""),",")
mname=split(replace(request.Form("mname")," ",""),",")
mnum=split(replace(request.Form("mnum")," ",""),",")
mdw=split(replace(request.Form("mdw")," ",""),",")
mzk=split(replace(request.Form("mzk")," ",""),",")
mrmb=split(replace(request.Form("mrmb")," ",""),",")
mpaya=split(replace(request.Form("mpaya")," ",""),",")
mcid=request.Form("mcid")
For i=0 To UBound(cbid)
set rs=server.createobject("adodb.recordset")
sql = "SELECT mname,mnum,mdw,mrmb,mrmb2,mzk,mer,mtime,mbz,mcid FROM maichu"
rs.Open sql,conn,1,3
rs.AddNew
rs(0)=mname(i)
rs(1)=mnum(i)
rs(2)=mdw(i)
rs(3)=mrmb(i)
rs(4)=mpaya(i)
rs(5)=mzk(i)
rs(6)=Session("uid")
rs(7)=Now()
rs(8)=request.Form("mbz")
rs(9)=mcid
rs.Update
rs.Close
set rs=nothing
Next
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)