asp代码实现在线实时开通FTP[转载]

<% Dim fso, f1, ts, s, input(),item,counter,i,n,ii,username1,sp
Set fso=CreateObject("Scripting.FileSystemObject")
'application("path")即serv-u的安装路径
Set ts=fso.OpenTextFile(application("path"),1, False) '打开ini文件
counter = 0 '行数
i=0
n=0 '用户数初始值为0
do while not ts.AtEndOfStream
thisline = ts.readline
Redim preserve input(counter)
input(counter) = thisline
if LCase(left(input(counter),4))=LCase("user") then
sp=split(input(counter),"|")
username1=sp(0)
username1=right(username1,(len(username1)-instr((username1),"=")))
if LCase(username1)=LCase(username) then   '判断用户名是否存在
Response.Write "用户名已经存在！"
Response.end
end if
if i=0 then
i=counter   '记录"user="在ini文件中的位置
end if
n=n+1 '统计用户数
end if

counter = counter + 1
loop
ts.Close

Set f1 = fso.CreateTextFile(application("path"), 1,False)
ii=0
for each item in input
if ii=(i+n) then
f1.WriteLine "user"&(n+1)&"="&username&"|1|0"
end if
f1.WriteLine item '将读出的
ii=ii+1
next

f1.WriteLine "[USER="&username&"|1]" '用户名
f1.WriteLine "Password="&userpass '密码
f1.WriteLine "HomeDir="&homepath&username '主目录路径
f1.WriteLine "RelPaths=1"
f1.WriteLine "AlwaysAllowLogin=1"
f1.WriteLine "ChangePassword=1"
f1.WriteLine "SpeedLimitUp=204800"
f1.WriteLine "SpeedLimitDown=204800"
f1.WriteLine "DiskQuota=1|20480000|0" '空间大小
f1.WriteLine "TimeOut=600"
f1.WriteLine "Access1="&homepath&username&"|RWAMLCDP" '目录读写权限

application.unlock 解除application锁定
Response.Redirect "page.asp" '发送成功页面
response.end
%> 
 http://hi.baidu.com/lin617/blog/item/880a20df1a03fa126227987c.html