<!--#include file="Conn.asp"-->
<!--#include file="session.asp"-->
<%
set rs=server.createobject("adodb.recordset")
sql="select * from L_paydetail"
rs.open sql,conn,1,3

arrl_price=split(request.form("l_price"),",")
arrl_number=split(request.form("l_number"),",")
arrtext=split(request.form("text"),",")
arrL_payinfo=split(request.form("L_payinfo"),",")

for i=0 to ubound(arrl_price)'for 循环开始
response.Write arrtext(i)
if arrtext(i)<>"" then
rs.addnew

rs("L_payout")=arrtext(i)'这两句直接迷糊了呀？哈哈
rs("l_sum")=arrtext(i)
else 
rs.addnew

rs("l_price")=arrl_price(i)
rs("l_number")=arrl_number(i)
rs("l_sum")=arrl_price(i)*arrl_number(i)
rs("L_payout")=arrl_price(i)*arrl_number(i)

end if
[color=#FF0000]if arrL_payinfo(i)<>"" then[/color]
rs("L_payinfo")=arrL_payinfo(i)
end if
rs("L_paytype")=request.Form("select")
rs("L_payusername")=session("username")
rs.update

next 'for循环结束

rs.close
set rs=nothing
conn.close
set conn=nothing

response.Redirect "index.asp" 
%>