asp数组的定义 
[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]
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 %>
<%=cValue%>
<%=Request.Form(cValue)%>'显示值
<% Next %>
for each x in rs.Fields
strLine= strLine & x.value & chr(9)
next
帮朋友改了点东西,留点代码做纪念!
strLine= strLine & x.value & chr(9)
next
gzip压缩处理js文件
js 重新整理
