<!--#include file="conn.asp"-->
<!--#include file="config.asp"-->
<%
select case Request.QueryString("action")

case "vipscore"
vipscore

case "uptovip"
uptovip

case "chgscore"
chgscore

end select

sub vipscore
%>
<title><%=webname%>--VIP會員資格和推薦會員獎勵</title>
<%
set rs=server.CreateObject("adodb.recordset")
rs.open "select webimg11,webimg13,webimg14 from config",conn,1,1
%> 
<table width="350" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor=<%=bgclr1%>>
  <tr> 
    <td HEIGHT="20" align="center" bgcolor="<% = bgclr1 %>"> <FONT COLOR=#ffffff>VIP會員資格和推薦會員獎勵</FONT> </td>
  </tr>
  <tr height="120"> 
    <td valign="top" BGCOLOR=#FFFFFF><br>
      &nbsp;申請<b>VIP</b>會員需要積分： <font color="red"><%=trim(rs("webimg14"))%></font>&nbsp;分 <br>
      &nbsp;推薦一個會員獎勵積分：  <font color="red"><%=trim(rs("webimg13"))%></font>&nbsp;分 <br>
	  &nbsp;VIP會員享受的服務：<%=trim(rs("webimg11"))%></td>
  </tr>
</table>
<%rs.close
set rs=nothing

end sub

sub uptovip
dim strvipscore,strscore
set rs=server.CreateObject("adodb.recordset")
rs.open "select webimg14 from config",conn,1,1
strvipscore = CLng(rs("webimg14"))
rs.close
rs.open "select score,vip from [user] where username='"&request.cookies("timesshop")("username")&"' ",conn,1,3
if rs("vip")=true then
response.Write "<script language=javascript>alert('您已經是VIP用戶，不用再升級！');history.go(-1);</script>"
response.End
else
strscore = CLng(rs("score"))
if strscore>=strvipscore then
rs("vip")=true
rs("score")=strscore-strvipscore
rs.update
response.Write "<script language=javascript>alert('恭喜您，升級成功！');history.go(-1);</script>"
else
response.Write "<script language=javascript>alert('您的積分不夠，請繼續(xù)努力賺積分！');history.go(-1);</script>"
end if
end if
rs.close
set rs = nothing
end sub

sub chgscore
dim strdeposit,strscore,strchg
strchg=CLng(request.form("strchg"))
set rs=server.CreateObject("adodb.recordset")
rs.open "select score,deposit from [user] where username='"&request.cookies("timesshop")("username")&"' ",conn,1,3
strscore=CLng(rs("score"))
strdeposit=rs("deposit")
if strchg>strscore then
response.Write "<script language=javascript>alert('你的積分不夠！');history.go(-1);</script>"
response.End
else
rs("deposit")=strdeposit+strchg
rs("score")=strscore-strchg
rs.update
response.Write "<script language=javascript>alert('積分轉預存款成功！');history.go(-1);</script>"
end if
rs.close
set rs = nothing
end sub
%>