📄 user_update.asp
字号:
<!--#include file="chkuser.asp"-->
<!--#include file="inc/conn.asp"-->
<!--#include file="inc/user.asp"-->
<%
if request("action")="update" then
sql="select * from [host] where id="&request("groups")
rs.open sql,conn,1,1
if request("groups")=rsuser("groups") then
Response.Write("<script language=javascript>alert('对不起，您已经是"&rs("name")&"用户了！');location.href='javascript:history.back()'</script>")
Response.end
end if
if request("payway")="point" then
if rsuser("point")<cint(rs("point")) then
Response.Write("<script language=javascript>alert('对不起，您的帐户积分不足，升级失败！\n\n当前帐户积分："&rsuser("point")&"点\n\n支付此次升级需要："&rs("point")&"点');location.href='javascript:history.back()'</script>")
Response.end
end if
end if
if rshost("type")="free" and rs("type")="free" then
Response.Write("<script language=javascript>alert('对不起，您是免费用户，只可以升级成为付费用户！');location.href='javascript:history.back()'</script>")
Response.end
end if
if rshost("price")>rs("price") then
Response.Write("<script language=javascript>alert('对不起，您只可以升级为更高等级！');location.href='javascript:history.back()'</script>")
Response.end
end if
if rs("ifreg")=False then
Response.Write("<script language=javascript>alert('对不起，此类型空间已经暂停注册！');location.href='javascript:history.back()'</script>")
Response.end
end if
if request("payway")="money" then
if rsuser("money")<rs("price") then
Response.Write("<script language=javascript>alert('对不起，您的帐户余额不足，升级失败！\n\n当前帐户余额：￥"&rsuser("money")&"元\n\n支付此次升级需要：￥"&rs("price")&"元');location.href='javascript:history.back()'</script>")
Response.end
end if
end if
set rsup2=server.createobject("ADODB.Recordset")
sqlup2="select * from [host] where id="&cint(request("groups"))
rsup2.open sqlup2,conn,1,1
userdir2=rsup2("userdir")
if not fso.FolderExists(userdir&Request.Cookies("username")) then
response.redirect("error.asp?error=nofolder")
response.end
end if
if fso.FolderExists(userdir2&Request.Cookies("username")) then
response.redirect("error.asp?error=userfolder")
response.end
end if
fso.copyfolder userdir&Request.Cookies("username"),userdir2,true
fso.deletefolder userdir&Request.Cookies("username"),true
fso.close
set rsup=server.createobject("ADODB.Recordset")
sqlup="select * from [user] where username='"&Request.Cookies("username")&"'"
rsup.open sqlup,conn,1,3
rsup("groups")=request("groups")
rsup("money")=rsup("money")-rs("price")
rsup("stopdate")=Date()+rsup2("usedays")
rsup("ktdate")=Date()
rsup("space")=rs("space")
rsup.update
Response.Write("<script language=javascript>alert('恭喜，您的空间已经成功升级为："&rsup2("name")&"\n\n您的帐户当前余额：￥"&rsup("money")&"元')\n\n点击[确定]查看新的帐户信息;top.location.href='member.asp'</script>")
rs.close
rsup2.close
rsup.close
end if
%>
<%
username=Request.Cookies("username")
sql="select * from host"
rs.open sql,conn,1,1
%>
<html><head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="css/style.css" rel="stylesheet" type="text/css">
<title></title>
<script language=javascript>
function check()
{
if (update.payway.value==0) {
alert("提示：\n\n请选择支付方式！");
update.payway.focus();
return false;
}
if (update.groups.value==0) {
alert("提示：\n\n请选择新的空间类型！");
update.groups.focus();
return false;
}
document.update.button.value='请稍候...'
document.update.button.disabled=true;
}
</script>
</head>
<body bgcolor="#F6ECE2">
<table width="100%" border="0" cellspacing="0" cellpadding="0" height="70%">
<tr>
<td align="center">
<fieldset style="padding: 2; width:200; height:120">
<legend><b>帐户升级</b></legend>
<table width="450" border="0" cellpadding="4" cellspacing="0">
<form name="update" action="?action=update" method="post" onSubmit="return check();">
<tr>
<td colspan="2" style="line-height:20px"><strong>提示：</strong><br>
会员在线升级功能支持<font color="#0000FF">免费用户</font>升级为<font color="#0000FF">付费用户</font>或<font color="#0000FF">付费用户</font>升级为<font color="#0000FF">更高等级</font>，请确保您的帐户有足够的余额！</td>
</tr>
<tr>
<td align="right">支付方式： </td>
<td><select name="payway" id="payway">
<option>请选择</option>
<option value="point">帐户积分支付</option>
<option value="money">帐户余额支付</option>
</select></td>
</tr>
<tr>
<td align="right">选择新的空间类型： </td>
<td><select name="groups">
<option>请选择</option>
<%do while not rs.eof%>
<option value=<%=rs("id")%>><%=rs("name")%>——<%=rs("price")%>元/年</option>
<%rs.movenext
loop
rs.close
set rs=nothing
%>
</select></td>
</tr>
<tr>
<td height="40" colspan="2" align="center"><input name="button" type="submit" class="button" value="立即升级"></td>
</tr></form>
</table>
</fieldset>
</td>
</tr>
<tr>
<td align="center"></td>
</tr>
</table>
</body></html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -