gwq2.asp

来自「BJXSHOP购物管理系统是一个功能完善、展示信息丰富的电子商店销售平台；针对企」· ASP 代码 · 共 30 行

<!--#include file="connection.asp"-->
<%if request.Cookies("bookshop")("username")="" then response.End
'*************************
'获得系统设置的购物券比例
'*************************
set rs=server.CreateObject("adodb.recordset")
rs.open "SELECT gwq2,Sgwq FROM shop_config",conn,1,1
dim gwq2,Sgwq			'转换比例和转换金额限制
gwq2=ccur(rs("gwq2"))
Sgwq=ccur(rs("Sgwq"))
rs.close
set rs=nothing
dim yufukuan
set rs=server.CreateObject("adodb.recordset")
rs.open "select UserGwq,yufukuan from [shop_users] where username='"&request.Cookies("bookshop")("Username")&"' ",conn,1,3
if Sgwq>int(rs("UserGwq")) then response.End
yufukuan=ccur(rs("yufukuan")) + (int(rs("UserGwq")) * (1/gwq2) )
rs("yufukuan")=yufukuan
rs("UserGwq")=0
rs.update
rs.close
set rs=nothing
conn.close
set conn=nothing
response.Write "<script language=javascript>alert('恭喜您，转换成功了！');window.location.reload('myuser.asp?action=gouwujuan')</script>"

%>
</body>
</html>