- 'Excel连接驱动
- Epath="F:/web/test.xls"
- Estr="provider=Microsoft.Jet.OLEDB.4.0; Data Source="&Epath";Extended Properties=Excel 8.0"
- Set conn = Server.Createobject("ADODB.Connection")
- set rs =server.CreateObject("adodb.recordset")
- set rsT =server.CreateObject("adodb.recordset")
- conn.open Estr
- dim aaa,aaay ,yuhui
- aaa=Cint("00"&request("v_amount") )
- rs.open "select * from [test$]",conn,1,1
- yuhui=rs.getRows(rs.recordcount)
- aaay=0
- for fori=0 to ubound(yuhui,2)-1
- if aaa>=Cint(yuhui(1,fori)) and aaa <Cint(yuhui(1,fori+1)) then aaay=yuhui(2,fori) end if
- next
- if aaa>=Cint(yuhui(1,fori)) then aaay=yuhui(2,fori) end if
- rs.close
- sql="update 会员表 set 余额=余额+"&aaa"+"&aaay" where 用户名='"&remark1"'"
- 'response.Write sql
- 'conn.execute("update 会员表 set 余额=余额+"&aaa&"+"&aaay&" where 用户名='"&remark1&"'")
- conn.close
- set conn=nothing
记录集,换成数组,便于表状数据的使用。因为开始时忘了第一列是列,第二列是行,所以收录下给别人的代码~~以备后用。
redim Preserve 保留原有数据,重定义数组(一维数组)