記錄集，換成數組/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 保留原有資料，重定義數組（一維數組）