无标题.txt

来自「一个基于ASP＋access技术的b/s模式的CRM（客户关系管理）系统」· 文本 代码 · 共 13 行

do while not rs.EOF

ming=rs("mingcheng")
  
  for i=1 to n
   t=Request.Form("t"&i&"") 
    if t=1 then 
  cnn.execute("insert into userdom (bianhao,yonghuming,dom)" & _
            " values ('009','" & szname & "','" & ming & "'") 
    end if 
  next     

loop