<%
'更新用户余额
dim xinjine
xinjine=cint(zcje) + cint(jinee)
sql="select top 1 id,zcdj,zcje,zcmc,zcmm,zcqq,zcrq,zcsj,zctx,zcwx,zczt from zc Where 1=1 And id = " & usid & " order by id asc"
Set Rs3 = Server.CreateObject("Adodb.Recordset")
Rs3.Open sql,Conn,1,3
Rs3("zcje") = xinjine
Rs3.Update
Rs3.Close
Set Rs3 =Nothing
%>