ASP + Serv-u 实现FTP的代码

ASP + Serv-u 实现FTP的代码(2) tmpStr = ServUIni.ReadLine

If Instr("awaysrain" & tmpStr,"awaysrainUser")>0 Then
'记录用户原来的数量
n = n+1
End If

If Instr("awaysrain" & tmpStr,"awaysrain[USER=")>0 and not addedUserList Then
'往用户列表的部分添加现在的用户
n = n +1
tf.WriteLine("User" & n & "=" & userName & "10")
addedUserList = true
End If
tf.WriteLine(tmpStr)
Loop
ServUIni.Close

'添加新用户的信息，具体内容可以在SERV-U中新建用户并对照INI文件

tf.WriteLine("[USER=" & userName & "1]") '用户名
tf.WriteLine("PassWord=" & passWord) '密码
tf.WriteLine("HomeDir=e:\temp") '主目录
tf.WriteLine("RelPaths=1") '是否锁定用户于主目录
tf.WriteLine("MaxUsersLoginPerIP=1") '相同IP同时登录数
tf.WriteLine("SpeedLimitDown=102400") '最大下载速度
tf.WriteLine("TimeOut=600") '空闲超时时间（秒）
tf.WriteLine("Access1=E:\TempRLP") '可访问目录,可以不是一个，比如 'Access2=E:\Temp1RLP'

tf.Close
'--------------------备份原来的INI文件--------------------------
Set f1 = fso.GetFile(iniPath & "\" & iniFileName)
f1.Copy (iniPath & "\" & iniFileName & "._awaysrain.bak")
f1.Delete
'--------------------把生成的临时INI文件改为正式的INI--------------------------
Set f1 = fso.GetFile(iniPath & "\" & iniFileName & "._awaysrain.tmp")
f1.Copy (iniPath & "\" & iniFileName)
f1.Delete

Set fso = nothing
%>

注：以上代码假设ServUDaemon.ini中的格式只有一个域并已经至少有一个用户

测试的ServUDaemon.ini文件结构如下：
==================================
[Domain1]
User1=22210
User2=myfso11110
[USER=2221]
PassWord=hwB1ECF70CDAF5DAE2B981AE394EEFCDC0