记录集，换成数组/rs.getRows()/redim Preserve 保留原有数据

 

4. 'Excel连接驱动
5. Epath="F:/web/test.xls"
6. Estr="provider=Microsoft.Jet.OLEDB.4.0; Data Source="&Epath";Extended Properties=Excel 8.0"
8. Set conn = Server.Createobject("ADODB.Connection")
9. set rs    =server.CreateObject("adodb.recordset")
10. set rsT    =server.CreateObject("adodb.recordset")
11. conn.open   Estr
13. dim aaa,aaay ,yuhui
14. aaa=Cint("00"&request("v_amount") )
15. rs.open "select * from [test$]",conn,1,1
17. yuhui=rs.getRows(rs.recordcount)
18. aaay=0
20. for fori=0 to ubound(yuhui,2)-1
21.   if aaa>=Cint(yuhui(1,fori)) and aaa <Cint(yuhui(1,fori+1)) then aaay=yuhui(2,fori) end if
22. next
23. if aaa>=Cint(yuhui(1,fori)) then aaay=yuhui(2,fori) end if 
26. rs.close 
27. sql="update 会员表 set 余额=余额+"&aaa"+"&aaay" where 用户名='"&remark1"'"
28. 'response.Write sql
29. 'conn.execute("update 会员表 set 余额=余额+"&aaa&"+"&aaay&" where 用户名='"&remark1&"'") 
31. conn.close 
32. set conn=nothing

 

 

记录集，换成数组，便于表状数据的使用。因为开始时忘了第一列是列，第二列是行，所以收录下给别人的代码~~以备后用。

 

redim Preserve 保留原有数据，重定义数组（一维数组）