asp数组的定义

Else , 2008/05/17 14:35 , 积累些，自己也写些 , 评论(0) , 阅读(5878) , Via 本站原创

[codes=vb]    sql="select * from tableaaa order by id"
    rs.open sql,conn,1,1
    dim aitem()
  dim ysss()
    ccc1=rs.recordcount
    redim aitem(ccc1)
   redim ysss(ccc1)
    ii=1
    rs.movefirst
    for ii=1 to ccc1
     aitem(ii)=rs("item_name")
     ysss(ii)=rs("state1")
      rs.movenext
    next
    rs.close[/codes]

<% For Each cValue in Request.Form %>
<%=cValue%>
<%=Request.Form(cValue)%>'显示值
<% Next %>

  for each x in rs.Fields
    strLine= strLine & x.value & chr(9)
  next

帮朋友改了点东西,留点代码做纪念!

Tags: asp