call chk(rst("mlid"),"id")
%>
--会员管理中心---联系QQ:6439358，联系邮箱vqqq59r@163.com，网站www.vqqq.com，谢谢大家对我们系统的支持
response.buffer=true
dim user
user=session("user")
sql="select * from users where regUsername='"&user&"'"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
set rsml=server.createobject("adodb.recordset")
sql="select * from vqqqmoli where moliid="&rst("mlid")&" and moliownerid=0"
rsml.open sql,conn,1,3
if rsml.eof then
response.write "alert('出错了，没有找到这个vqqq魔力！');this.location.href='vqqqmoli.asp';"
response.end
else
if rs("vqqqmoney")>=rsml("molicost") then
rs("vqqqmoney")=rs("vqqqmoney")-rsml("molicost")
rs.update
else
response.write"alert('你的现有资金不够了，请先充值！');this.location.href='vqqqmoli.asp';"
response.end
end if
rsml("moliownerid")=rs("regid")
rsml.update
%>
欢迎您， 查看信用详情
注册邮箱：
恭喜你，购买道具成功！ 继续购买 使用道具
rsml.close
set rsml=nothing
rs.close
set rs=nothing
%>
