register.asp

主要实现三大功能：记录统计功能、账号控制功能、文件上载自动校验功能

<!--#include file="inc/ftp.asp"-->
<!--#include file="inc/md5.asp"-->
<%
Head()
	'if CheckAdmin()= false then response.end
%>

<br>
<H1 align='center'>Ftp用户注册</H1>
<br>

<%
if request("action")="update" then
call update
else
call newuser
end if

sub update()
on error resume next
dim ftpinfo,iid
set rs = logconn.execute("select id,ftp from ftpconfig where id="&request("ftpid"))
if rs.eof then
	bbsftp_error("请选择Ftp服务器！")
	exit sub
end if
ftpinfo = rs("ftp")
iid = rs("id")
set rs =nothing
set rs = server.createobject("adodb.recordset")
rs.open "select * from FtpUserDown where UserName='"&request("UserName")&"' and FTP='"&ftpinfo&"'",bbsconn,1,3
if rs.eof then
	rs.addnew
else
	bbsftp_error "该用在选定的Ftp服务器已存在！"
	rs.close
	set rs=nothing
	exit sub
end if
rs("username") = request("username")
rs("userpassword") = MD5(request("password"),16)
rs("ftp") = ftpinfo
rs("maxdownsize") = request("maxdownsize")
rs("maxdownspeed") = request("maxdownspeed")
rs("quotaused") = request("quotaused")
rs("quotamax") = request("quotamax")
rs("allowip") = request("allowip")
rs("linkname") = GetDefaultLinkName(ftpinfo)
rs.update
rs.close
set rs=nothing
if err then
bbsftp_error(err.description)
err.clear
else
bbsftp_suc("新用户注册成功！")
end if
end sub

sub newuser()
%>
<table cellpadding="2" cellspacing="1" border="0" width="95%" class="tableBorder" align=center>
<FORM METHOD=POST ACTION="?action=update">
<tr><th colspan=6 height=23 align=center>新用户注册</th></tr>
<tr>
<td width=20% class=forumrow>用户名</td>
<td width=80% class=forumrow colspan=5><input size=45 name="username" type=text value=""></td>
</tr>
<tr>
<td width=20% class=forumrow>密码</td>
<td width=80% class=forumrow colspan=5><input size=45 name="password" type=text value=""></td>
</tr>
<tr>
<td width=20% class=forumrow>FTP服务器</td>
<td width=80% class=forumrow colspan=5>
<select size=1 name="ftpid">
<option value="0" selected>请选择服务器</option>
<%set rs=logconn.execute("select id,ftp from ftpconfig")
while not rs.eof
%>
<option value="<%=rs("id")%>" >服务器:<%=rs("ftp")%></option>
<%
rs.movenext
wend
set rs=nothing%>
</select>
</td>
</tr>
<tr>
<td width=20% class=forumrow>可用流量</td>
<td width=80% class=forumrow colspan=5><input size=45 name="maxdownsize" type=text value="-9876543210">&nbsp;字节<font color=red>[-9876543210 表示不限流量]</font></td>
</tr>
<tr>
<td width=20% class=forumrow>下载速度</td>
<td width=80% class=forumrow colspan=5> X + <input size=45 name="maxdownspeed" type=text value="150">&nbsp;KB/S</td>
</tr>
<tr>
<td width=20% class=forumrow>磁盘配额</td>
<td width=80% class=forumrow colspan=5><input size=45 name="quotamax" type=text value="0">&nbsp;字节[该值小于1024表示不限空间]</td>
</tr>
<tr>
<td width=20% class=forumrow>使用空间</td>
<td width=80% class=forumrow colspan=5><input size=45 name="quotaused" type=text value="0">&nbsp;字节</td>
</tr>
<tr>
<td width=20% class=forumrow>允许登录IP地址</td>
<td width=80% class=forumrow colspan=5><input size=45 name="allowip" type=text value="*">&nbsp;IP地址（范围）规则和ServU一样，如1：202.*.11?.12-35 如2： 202.112.*.*；</td>
</tr>
<tr>
<td colspan=6 align=center height=25 class="forumRowHighlight">
<input type=reset value="重置"> <input type=submit value="注册">
</td></tr>
</form></table>
<%
end sub
%>