📄 ftpreg.asp

📁 九酷网络个人主页系统破解版
💻 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>
<%
If not connftp.Execute("Select * From [User accounts] where user='"&Request.Cookies("9cool_username")&"'" ).eof Then WriteErrMsg("FTP帐号已经存在,或者您已经注册过了！")
if rshost("ftpreg")=False then
WriteErrMsg("您所属的帐户类型暂时未开放FTP权限！")
end if
%>
<HTML><HEAD><TITLE>申请 FTP</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<link href="css/user.css" rel="stylesheet" type="text/css">
<SCRIPT language=javascript>
<!--
function check()
{
	if (form1.userpass.value ==0){
		alert ("请输入密码");
		form1.userpass.focus();
		return false;
	}
	if (form1.userpass.value.length < 6 || form1.userpass.value.length > 8){
		alert ("对不起，密码应该为6-8位");
		form1.userpass.focus();
		return false;
	}
	if (form1.userpass2.value ==0){
		alert ("请再次确认您的密码");
		form1.userpass2.focus();
		return false;
	}
	if (document.form1.userpass2.value != document.form1.userpass.value){
		alert ("您的两次输入的密码不一致");
		document.form1.userpass2.focus();
		return false;
	}
	document.form1.submit.disabled=true;
	}
//-->
</SCRIPT>
</HEAD>
<BODY>
<%
select case request("step")
case ""
call step1
case 1
call step1
case 2
call step2
sub step1
%>
<table width="778" border="0" align="center" cellpadding="4" cellspacing="1" class="a2">
		  <form name="form1" method="post" action="?step=2" onSubmit="return check();">
            <tr align="center" class="a1">
              <td height="25" colspan="2">申请FTP</td>
            </tr>
            <tr class="a3"> 
              <td width="76">用户名：</td>
              <td width="354"><input name="username" type="text" value="<%=rsuser("username")%>" readonly>
                *FTP用户名 </td>
            </tr>
            <tr class="a4"> 
              <td>E-mail：</td>
              <td><input name="email" type="text" value="<%=rsuser("email")%>" readonly>               
                 * 用来接收系统发送的帐号信息 </td>
            </tr>
            <tr class="a3"> 
              <td>密　码：</td>
              <td><input name="password" type="password" id="userpass" maxlength="8">
                * 至少6位 </td>
            </tr>
            <tr class="a4"> 
              <td>确认密码：</td>
              <td><input name="userpass2" type="password" maxlength="8">
              *</td>
            </tr>
            <tr class="a3"> 
              <td colspan="2" align="center"><input name=submit type=submit value=" 递 交 "></td>
            </tr>
  </form>
</table>
		  <%
		  end sub
		  sub step2
username=request.form("username")
password=request.form("password")

sql="select * from [User accounts]"
rs.open sql,connftp,1,3
rs.addnew
rs("user")=username
rs("Access")=userdir&username+"|RWAMLCDP"
if rshost("ftp")=True then
rs("Disable")=False
else
rs("Disable")=True
end if
rs("Password")=SerUPassEnCode(password)
rs("ChangePass")=-1
rs("HomeDir")=userdir&username
rs("RelPaths")=0
rs("MaxUsers")=-1
rs("MaxUsers")=-1
if rshost("usedays")<>0 then
rs("Expiration")=Date+rshost("usedays")
else
rs("Expiration")="1980-1-1"
end if
rs("RatioUp")=1
rs("RatioDown")=1
rs("RatioCredit")=0
rs("RatioType")=0
rs("RatioCredit")=0
rs("RatioType")=0
rs("QuotaEnable")=-1
rs("QuotaMax")=rsuser("space")*1048576
rs("QuotaCurrent")=fso.getfolder(userdir&username).size
rs("Groups")=rshost("name")
rs("Privilege")=0
rs("PasswordType")=0
rs("Lock")=-1
rs("encryption")=0
rs("hide")=0
rs("alwayslogin")=0
rs("maxup")=0
rs("maxdown")=0
rs("maxuseronsameIP")=-1
rs("idletimeout")=600
rs("sessiontimeout")=0
rs("notes")=rshost("name")
rs.update
%>
		  <table width="778" height="120" border="0" align=center cellpadding="4" cellspacing="1" class="a2">
  <tr class="a1">
    <td height="25" align="center">注册成功</td>
  </tr>
  <tr class="a3">
    <td><font color="#FF0000"><%
	if rshost("ftp")=True then
	Response.Write("您的FTP已经开通")
	else
	Response.Write("FTP需要经过审核后才开通")
	end if
	%>，以下是您的帐号信息</font>：<br>
        <li></li>
        FTP地址：<%=ftphost%>
        <li></li>
        用户名：<%=username%>
    <li></li>密　码：<%=password%><li></li>    
    空　间：<%=rsuser("space")%>M</td>
</tr>
  <tr class="a4">
    <td height="25" align="center"><input name="button" type="button" onClick="javascript:history.back()" value=" 返 回 "></td>
  </tr>
</table>
<%
end sub
end select
%>
<!--#include file="links.asp"-->
<!--#include file="bottom.asp"-->
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -