📄 user_update.asp
字号:
<!--#include file="config.asp"-->
<!--#include file="chkuser.asp"-->
<!--#include file="inc/user.asp"-->
<!--#include file="inc/md5.asp"-->
<!--#include file="mytop.asp"-->
<link href="css/user.css" rel="stylesheet" type="text/css">
<script language=javascript>
function manage(url)
{
window.open('manage.asp','manage','fullscren=yes');
}
</script>
<%
username=Request.Cookies("9cool_username")
if request("action")="update" then
sql="select * from [host] where id="&cint(request("groups"))
rs.open sql,conn,1,1
userdir2=rs("userdir")
bakfolder2=rs("bakfolder")
if cint(request("groups"))=rsuser("groups") then WriteErrMsg("对不起，您的空间类型已经是"&rs("name")&"！")
if rshost("type")="free" and rs("type")="free" then WriteErrMsg("对不起，您是免费用户，只可以升级成为付费用户！")
if rshost("price")>rs("price") then WriteErrMsg("对不起，您只可以升级为更高等级！")
if rs("ifreg")=False then WriteErrMsg("对不起，此类型空间已经暂停新用户注册！")
select case request("payway")
case "point"
if rsuser("point")<cint(rs("point")) then WriteErrMsg("对不起，您的帐户积分不足，升级失败！<br>当前帐户积分："&rsuser("point")&"点<br>支付此次升级需要："&rs("point")&"点")
case "money"
if rsuser("money")<rs("price") then WriteErrMsg("对不起，您的帐户余额不足，升级失败！<br>当前帐户余额：￥"&rsuser("money")&"元<br>支付此次升级需要：￥"&rs("price")&"元")
case else
WriteErrMsg("请选择升级所用的支付方式及新的空间类型！")
end select
'升级
set rsup=server.createobject("ADODB.Recordset")
sqlup="select * from [user] where username='"&Request.Cookies("9cool_username")&"'"
rsup.open sqlup,conn,1,3
rsup("space")=rs("space")
rsup("groups")=request("groups")
if request("payway")="money" then
rsup("money")=rsup("money")-rs("price")
elseif request("payway")="point" then
rsup("point")=rsup("point")-rs("point")
end if
rsup("stopdate")=Date()+rs("usedays")
rsup("ktdate")=Date()
rsup.update
'移动及删除目录
if userdir<>userdir2 and fso.FolderExists(userdir&username) then
fso.copyfolder userdir&username,userdir2,true
fso.deletefolder userdir&username,true
else
WriteErrMsg("移动用户目录失败，找不到您的网站目录，请与管理员联系！")
end if
if bakfolder<>bakfolder2 and fso.FolderExists(bakfolder&username) then
fso.copyfolder bakfolder&username,bakfolder2,true
fso.deletefolder bakfolder&username,true
end if
'判断原ftp
If not connftp.Execute("Select * From [User accounts] where User='"&username&"'").eof Then
set rsftp=Server.CreateObject("ADODB.Recordset")
sqlftp="select * from [User accounts] where User='"&username&"'"
rsftp.open sqlftp,connftp,1,3
rsftp("Access")=userdir2&username+"|RWAMLCDP"
rsftp("homedir")=userdir2&username
if rs("usedays")<>0 then
rsftp("Expiration")=Date+rs("usedays")
else
rsftp("Expiration")="1980-1-1"
end if
rsftp("QuotaMax")=rs("space")*1048576
rsftp("Groups")=rs("name")
rsftp("notes")=rs("name")
rsftp.update
end if
if rs("ftpreg")=True then
if connftp.Execute("Select * From [User accounts] where User='"&username&"'").eof then
call mb("您的空间已经成功升级为："&rs("name")&"\n\n您当前的帐户余额：￥"&rsup("money")&"元\n\n帐户积分：￥"&rsup("point")&"\n\n此类型空间支持FTP,请设置您的FTP密码并开通!","ftpreg.asp",1)
end if
end if
Response.Write "<script>alert('您的空间已经成功升级为："&rs("name")&"\n\n您当前的帐户余额：￥"&rsup("money")&"元\n\n帐户积分：￥"&rsup("point")&"');top.location.href='member.asp'</script>"
rs.close
rsftp.close
end if
sql="select * from [host] where type='vip'"
rs.open sql,conn,1,1
%>
<html><head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="css/user.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>
<table width="778" border="0" align="center" cellpadding="4" cellspacing="1" class="a2">
<form name="update" action="?action=update" method="post" onSubmit="return check();">
<tr align="center" class="a1">
<td height="25" colspan="2">帐户在线升级</td>
</tr>
<tr class="a3">
<td colspan="2" style="line-height:20px"><strong>提示：</strong> 会员在线升级功能支持<strong>免费用户</strong>升级为<strong>付费用户</strong>或<strong>付费用户</strong>升级为<strong>更高等级</strong>，请确保您的帐户有足够的积分或余额！</td>
</tr>
<tr class="a4">
<td>支付方式： </td>
<td><select name="payway" id="payway">
<option>请选择</option>
<option value="point">帐户积分支付</option>
<option value="money">帐户余额支付</option>
</select></td>
</tr>
<tr class="a3">
<td>选择新的空间类型： </td>
<td><select name="groups">
<option>请选择</option>
<%
if rs.eof and rs.bof then
dim button
button=" disabled"
%><option value="">暂时没有可供升级的空间</option>
<%
else
do while not rs.eof
%>
<option value=<%=rs("id")%>><%=rs("name")%>—<%=rs("space")%>M—<%=rs("price")%>元/年</option>
<%rs.movenext
loop
rs.close
set rs=nothing
end if
%>
</select></td>
</tr>
<tr class="a4">
<td height="40" colspan="2" align="center"><input name="button" type="submit" value="立即升级"<%=button%>></td>
</tr></form>
</table>
<!--#include file="links.asp"-->
<!--#include file="bottom.asp"-->⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -