conversion.asp

漂亮公司企业网站自助建站系统 .asp.rar

<!--#include file="conn.asp"-->
<!--#include file="webconfig.asp"-->
<%
if request.Cookies("cnhww")("username")="" then
response.Redirect "user.asp"
response.End
end if

set cnhw=server.CreateObject("adodb.recordset")
cnhw.open "select * from [wq_user] where username='"&request.Cookies("cnhww")("username")&"' ",conn,1,3
jf=cnhw("jifen")
yc=cnhw("yucun")
action=request("act")

if action="jifen" then
jifen=trim(request("jifen"))
if not isInteger(jifen) then
response.write"<script>alert(""非法换算结果!"");history.go(-1);</script>"
else

if jf-jifen<0 then 
response.write"<script>alert(""对不起,积分不够!"");history.go(-1);</script>"
else

cnhw("jifen")=jf-jifen
cnhw("yucun")=yc+(jifen/2)
cnhw.update
response.redirect "user.asp"
end if
end if
end if

if action="cunkuan" then
cunkuan=trim(request("cunkuan"))
if not isInteger(cunkuan) then
response.write"<script language=javascript>alert(""非法换算结果!"");history.go(-1);</script>"
else

if yc-cunkuan<0 then 
response.write"<script language=javascript>alert(""对不起,你的预存款不足!"");history.go(-1);</script>"
else

cnhw("jifen")=jf+(cunkuan*2)
cnhw("yucun")=yc-cunkuan
cnhw.update
response.redirect "user.asp"
end if
end if
end if
%>