日期:2014-05-16 浏览次数:20932 次
Sql="Select T_users.id,T_users.maygo_shopmoney, T_Ballot.TenderID,T_Ballot.shijian,T_Ballot.sxqx,T_Ballot.fenlei,T_Ballot.leibie From T_Ballot , T_users where T_users.id = T_ballot.userid"
SetRs Rs,Sql,conn,1,3
if rs("MayGo_Shopmoney")<100 then
response.write "<script>alert('余额不足,请充值后再提交!!');location.href='index.asp';</Script>"
else
conn.execute "Update T_users Set maygo_shopmoney=maygo_shopmoney-10 Where UserName='"&Session("DjbUserName")&"' "
Rs("TenderID")=TenderID
RS("fenlei")=fenlei
RS("leibie")=leibie
RS("shijian")=shijian
RS("sxqx")=sxqx
Rs.Update
DisRs Rs
Call CloseDatabase
Call Success("投标信息提交成功!",Request.ServerVariables("HTTP_REFERER"))
end if
SetRs Rs,Sql,conn,1,3
response.write "
------解决方案--------------------
"&rs("MayGo_Shopmoney")&"
------解决方案--------------------
"