用一个公用变量实现多循环sql结果的收集!!

由代码实现以下sql语句:

Set rs= Server.CreateObject("ADODB.Recordset")
    sql="select zuzhi.kaishiw,zuzhi.jieshuw,zuzhi.jibie from zuzhi,guanli where guanli.zhanghao='"& zh &"' and zuzhi.jibie<guanli.jibie "
    rs.open sql,conn,1,1
 ts=rs.RecordCount

    for i=1 to ts
  
  pp=pipei(zh,cint(rs(0)),cint(rs(1)),"0")
  sq(i)="select shuxingkz.mingcheng,shuxingkz.biaoqian,shuxingkz.daima from shuxingkz  where shuxingkz.guanlizh='" & pp & "'"

将来得帐号用一定匹配规则匹配后再到数据库取属性值从而得到一sql语句数组

我想用两重叔祖实现得到结果收集

最终高高手说:: 用一个公用变量实现多循环sql结果的收集!!

dim zh
 dim ts
 dim k
 zh=request("zhanghao")

 dim sq(100)
 dim biao(1000)
 dim ming(1000)
 dim dai(1000)

 
 Set rs= Server.CreateObject("ADODB.Recordset")
    sql="select zuzhi.kaishiw,zuzhi.jieshuw,zuzhi.jibie from zuzhi,guanli where guanli.zhanghao='"& zh &"' and zuzhi.jibie<guanli.jibie "
    rs.open sql,conn,1,1
 ts=rs.RecordCount

    for i=1 to ts
  
  pp=pipei(zh,cint(rs(0)),cint(rs(1)),"0")
  sq(i)="select shuxingkz.mingcheng,shuxingkz.biaoqian,shuxingkz.daima from shuxingkz  where shuxingkz.guanlizh='" & pp & "'"
  'response.write "sql= " & sq(i)& "<BR>" 
    rs.movenext
   next
response.write ts 
      k=1
 for i=1 to ts
  Set rs= Server.CreateObject("ADODB.Recordset")
     rs.open sq(i),conn,1,1
  for j=1 to rs.RecordCount
   ming(k)=rs(0)
   biao(k)=rs(1)
   dai(k)=rs(2)
    rs.movenext
   response.write "k=" & k & "<BR>"
   k=cint(k)+1
    
    next   //这个在两循环中不断加1的k值起到了关键作用!!!
 next
 
 for i=1 to k    //读取时只要从1到k循环就o了    高高手就是高高手``````
  'response.write ming(i) & "<BR>"
 next

 

 

 

 

个人签名：烟台网站制作    烟台网站建设  烟台网络公司