gaga

???

简单，给你原代码！
QQ:25785926

麻烦发到我邮箱把 
zcm821214@yahoo.com.cn

只要能进行添加修改就行了

up

修改是有这个问题。你可以试试先删除，再添加看看

不行啊
Dim usenum As String
Dim d_Password As String
         
         Call ProfilePath
         
         WriteIni "Domain1", usenum, vbNullString, sPath
         
         Shell "D:\Program Files\Serv-U\ServUAdmin.exe  /s"
         
         usenum = "USER" & listUsenameNo_(wUsename)
         
         If listUsenameNo_(wUsename) = 0 Then usenum = "USER" & "1"
         
         WriteIni "Domain1", usenum, wUsename & "|1|0", sPath
         
         If wPassword <> "" Then
            d_Password = TPassword(wPassword)
            WriteIni "USER=" & wUsename & "|1", "Password", d_Password, sPath
         End If
         
         If wHomeDir <> "" Then
           
           WriteIni "USER=" & wUsename & "|1", "HomeDir", wHomeDir, sPath
           
           Pmd wHomeDir
           
           If cTimeOut = "" Then WriteIni "USER=" & wUsename & "|1", "TimeOut", "600", sPath
           
           WriteIni "USER=" & wUsename & "|1", "Access1", wHomeDir & "|RLP", sPath
         
         End If
        
         WriteIni "USER=" & wUsename & "|1", "SKEYValues", "", sPath
         
         Shell "D:\Program Files\Serv-U\ServUAdmin.exe  /n /f"

现在ServU支持数据库的了～不用控制INI的了！

to:cxty(沉酗天涯) 

即便是数据库也存在更新修改内容这个问题的。

我又开了200分贴  希望大家能够给我解答



http://community.csdn.net/Expert/TopicView.asp?id=3273474

分不够可以在加

我发觉用了数据库后，serv-u服务器便不能自动启动，必须手动才行。不知道有没有办法解决？

up

up

下面的代码， 就可以满足你了！

<!--#include file="md5.asp"--> 
<% 
'************************************************** 
'* 测试环境：WIN2000SERVER，SERV-U 4.2-beta版 * 
'************************************************** 
Dim iniPath,iniFileName,iniStr,tmpStr,n 
Dim userName,passWord,tmp 
userName = "myfso222" '用户名 
passWord = "awaysrain" '密码 
tmp = "ai" '随机生成两个小写字母，（应该是随机生成的，但是我这里省略了） 
passWord = tmp & UCase(md5(passWord)) '密码，是MD5加密过的，用动网的MD5加密程序，具体算法是随机生成两位小写字母，然后和你的密码连接后进行MD5加密，把随机生成的密码和MD5加密后的结果作为密码存放，举个例子来说比如下面的awaysrain用户，我的密码为awaysrain先随机生成两位小写字母ai，和我的密码awaysrain连接得到aiawaysrain把aiawaysrain进行MD5加密得到9118BFD94A9CE9CF37AE5BAA947ED596把随机生成两位小写字母ai和MD5加密后的结果9118BFD94A9CE9CF37AE5BAA947ED596连接得到密码ai9118BFD94A9CE9CF37AE5BAA947ED596 
iniPath="D:\Program Files\Serv-U" 'ini文件的路径 
iniFileName = "ServUDaemon.ini" 'ini的文件名 
Set fso=Server.CreateObject("Scripting.FileSystemObject") 
Set ServUIni = fso.OpenTextFile(iniPath & "\" & iniFileName,1,false) 
iniStr = "" 
n = 0 
addedUserList = false 
Set tf = fso.CreateTextFile(iniPath & "\" & iniFileName & "._awaysrain.tmp", True) 
'生成新的临时INI文件 
Do While not ServUIni.AtEndOfStream 
tmpStr = ServUIni.ReadLine 
If Instr("awaysrain||" & tmpStr,"awaysrain||User")>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 & "|1|0") 
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:\Temp|RLP") '可访问目录,可以不是一个，比如 'Access2=E:\Temp1|RLP' 
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=222|1|0 
User2=myfso111|1|0 
[USER=222|1] 
Password=hwB1ECF70CDAF5DAE2B981AE394EEFCDC0 
HomeDir=E:\Temp 
RelPaths=1 
TimeOut=600 
Access1=E:\Temp|RLP 
[USER=myfso111|1] 
Password=ai9118BFD94A9CE9CF37AE5BAA947ED596 
HomeDir=e:\temp 
RelPaths=1 
TimeOut=600 
Access1=E:\Temp|RLP 
生成后的文件结构如下 
================================== 
[Domain1] 
User1=222|1|0 
User2=myfso111|1|0 
User3=myfso222|1|0 
[USER=222|1] 
Password=hwB1ECF70CDAF5DAE2B981AE394EEFCDC0 
HomeDir=E:\Temp 
RelPaths=1 
TimeOut=600 
Access1=E:\Temp|RLP 
[USER=myfso111|1] 
Password=ai9118BFD94A9CE9CF37AE5BAA947ED596 
HomeDir=e:\temp 
RelPaths=1 
TimeOut=600 
Access1=E:\Temp|RLP 
[USER=myfso222|1] 
Password=ai9118BFD94A9CE9CF37AE5BAA947ED596 
HomeDir=e:\temp 
RelPaths=1 
TimeOut=600 
Access1=E:\Temp|RLP 
附MD5.ASP 
========================================== 
<% 
Private Const BITS_TO_A_BYTE = 8 
Private Const BYTES_TO_A_WORD = 4 
Private Const BITS_TO_A_WORD = 32 
Private m_lOnBits(30) 
Private m_l2Power(30) 

Private Function LShift(lValue, iShiftBits) 
If iShiftBits = 0 Then 
LShift = lValue 
Exit Function 
ElseIf iShiftBits = 31 Then 
If lValue And 1 Then 
LShift = &H80000000 
Else 
LShift = 0 
End If 
Exit Function 
ElseIf iShiftBits < 0 Or iShiftBits > 31 Then 
Err.Raise 6 
End If 
If (lValue And m_l2Power(31 - iShiftBits)) Then 
LShift = ((lValue And m_lOnBits(31 - (iShiftBits + 1))) * m_l2Power(iShiftBits)) Or &H80000000 
Else 
LShift = ((lValue And m_lOnBits(31 - iShiftBits)) * m_l2Power(iShiftBits)) 
End If 
End Function 
Private Function RShift(lValue, iShiftBits) 
If iShiftBits = 0 Then 
RShift = lValue 
Exit Function 
ElseIf iShiftBits = 31 Then 
If lValue And &H80000000 Then 
RShift = 1 
Else 
RShift = 0 
End If 
Exit Function 
ElseIf iShiftBits < 0 Or iShiftBits > 31 Then 
Err.Raise 6 
End If 

RShift = (lValue And &H7FFFFFFE) \ m_l2Power(iShiftBits) 
If (lValue And &H80000000) Then 
RShift = (RShift Or (&H40000000 \ m_l2Power(iShiftBits - 1))) 
End If 
End Function 
Private Function RotateLeft(lValue, iShiftBits) 
RotateLeft = LShift(lValue, iShiftBits) Or RShift(lValue, (32 - iShiftBits)) 
End Function 
Private Function AddUnsigned(lX, lY) 
Dim lX4 
Dim lY4 
Dim lX8 
Dim lY8 
Dim lResult 

lX8 = lX And &H80000000 
lY8 = lY And &H80000000 
lX4 = lX And &H40000000 
lY4 = lY And &H40000000 

lResult = (lX And &H3FFFFFFF) + (lY And &H3FFFFFFF) 

If lX4 And lY4 Then 
lResult = lResult Xor &H80000000 Xor lX8 Xor lY8 
ElseIf lX4 Or lY4 Then 
If lResult And &H40000000 Then 
lResult = lResult Xor &HC0000000 Xor lX8 Xor lY8 
Else 
lResult = lResult Xor &H40000000 Xor lX8 Xor lY8 
End If 
Else 
lResult = lResult Xor lX8 Xor lY8 
End If 

AddUnsigned = lResult 
End Function 
Private Function md5_F(x, y, z) 
md5_F = (x And y) Or ((Not x) And z) 
End Function 
Private Function md5_G(x, y, z) 
md5_G = (x And z) Or (y And (Not z)) 
End Function 
Private Function md5_H(x, y, z) 
md5_H = (x Xor y Xor z) 
End Function 
Private Function md5_I(x, y, z) 
md5_I = (y Xor (x Or (Not z))) 
End Function 
Private Sub md5_FF(a, b, c, d, x, s, ac) 
a = AddUnsigned(a, AddUnsigned(AddUnsigned(md5_F(b, c, d), x), ac)) 
a = RotateLeft(a, s) 
a = AddUnsigned(a, b) 
End Sub 
Private Sub md5_GG(a, b, c, d, x, s, ac) 
a = AddUnsigned(a, AddUnsigned(AddUnsigned(md5_G(b, c, d), x), ac)) 
a = RotateLeft(a, s) 
a = AddUnsigned(a, b) 
End Sub 
Private Sub md5_HH(a, b, c, d, x, s, ac) 
a = AddUnsigned(a, AddUnsigned(AddUnsigned(md5_H(b, c, d), x), ac)) 
a = RotateLeft(a, s) 
a = AddUnsigned(a, b) 
End Sub 

Private Sub md5_II(a, b, c, d, x, s, ac) 
a = AddUnsigned(a, AddUnsigned(AddUnsigned(md5_I(b, c, d), x), ac)) 
a = RotateLeft(a, s) 
a = AddUnsigned(a, b) 
End Sub 
Private Function ConvertToWordArray(sMessage) 
Dim lMessageLength 
Dim lNumberOfWords 
Dim lWordArray() 
Dim lBytePosition 
Dim lByteCount 
Dim lWordCount 

Const MODULUS_BITS = 512 
Const CONGRUENT_BITS = 448 

lMessageLength = Len(sMessage) 

lNumberOfWords = (((lMessageLength + ((MODULUS_BITS - CONGRUENT_BITS) \ BITS_TO_A_BYTE)) \ (MODULUS_BITS \ BITS_TO_A_BYTE)) + 1) * (MODULUS_BITS \ BITS_TO_A_WORD) 
ReDim lWordArray(lNumberOfWords - 1) 

lBytePosition = 0 
lByteCount = 0 
Do Until lByteCount >= lMessageLength 
lWordCount = lByteCount \ BYTES_TO_A_WORD 
lBytePosition = (lByteCount Mod BYTES_TO_A_WORD) * BITS_TO_A_BYTE 
lWordArray(lWordCount) = lWordArray(lWordCount) Or LShift(Asc(Mid(sMessage, lByteCount + 1, 1)), lBytePosition) 
lByteCount = lByteCount + 1 
Loop 
lWordCount = lByteCount \ BYTES_TO_A_WORD 
lBytePosition = (lByteCount Mod BYTES_TO_A_WORD) * BITS_TO_A_BYTE 
lWordArray(lWordCount) = lWordArray(lWordCount) Or LShift(&H80, lBytePosition) 
lWordArray(lNumberOfWords - 2) = LShift(lMessageLength, 3) 
lWordArray(lNumberOfWords - 1) = RShift(lMessageLength, 29) 

ConvertToWordArray = lWordArray 
End Function 
Private Function WordToHex(lValue) 
Dim lByte 
Dim lCount 

For lCount = 0 To 3 
lByte = RShift(lValue, lCount * BITS_TO_A_BYTE) And m_lOnBits(BITS_TO_A_BYTE - 1) 
WordToHex = WordToHex & Right("0" & Hex(lByte), 2) 
Next 
End Function 
Public Function MD5(sMessage) 
m_lOnBits(0) = CLng(1) 
m_lOnBits(1) = CLng(3) 
m_lOnBits(2) = CLng(7) 
m_lOnBits(3) = CLng(15) 
m_lOnBits(4) = CLng(31) 
m_lOnBits(5) = CLng(63) 
m_lOnBits(6) = CLng(127) 
m_lOnBits(7) = CLng(255) 
m_lOnBits(8) = CLng(511) 
m_lOnBits(9) = CLng(1023) 
m_lOnBits(10) = CLng(2047) 
m_lOnBits(11) = CLng(4095) 
m_lOnBits(12) = CLng(8191) 
m_lOnBits(13) = CLng(16383) 
m_lOnBits(14) = CLng(32767) 
m_lOnBits(15) = CLng(65535) 
m_lOnBits(16) = CLng(131071) 
m_lOnBits(17) = CLng(262143) 
m_lOnBits(18) = CLng(524287) 
m_lOnBits(19) = CLng(1048575) 
m_lOnBits(20) = CLng(2097151) 
m_lOnBits(21) = CLng(4194303) 
m_lOnBits(22) = CLng(8388607) 
m_lOnBits(23) = CLng(16777215) 
m_lOnBits(24) = CLng(33554431) 
m_lOnBits(25) = CLng(67108863) 
m_lOnBits(26) = CLng(134217727) 
m_lOnBits(27) = CLng(268435455) 
m_lOnBits(28) = CLng(536870911) 
m_lOnBits(29) = CLng(1073741823) 
m_lOnBits(30) = CLng(2147483647) 

m_l2Power(0) = CLng(1) 
m_l2Power(1) = CLng(2) 
m_l2Power(2) = CLng(4) 
m_l2Power(3) = CLng(8) 
m_l2Power(4) = CLng(16) 
m_l2Power(5) = CLng(32) 
m_l2Power(6) = CLng(64) 
m_l2Power(7) = CLng(128) 
m_l2Power(8) = CLng(256) 
m_l2Power(9) = CLng(512) 
m_l2Power(10) = CLng(1024) 
m_l2Power(11) = CLng(2048) 
m_l2Power(12) = CLng(4096) 
m_l2Power(13) = CLng(8192) 
m_l2Power(14) = CLng(16384) 
m_l2Power(15) = CLng(32768) 
m_l2Power(16) = CLng(65536) 
m_l2Power(17) = CLng(131072) 
m_l2Power(18) = CLng(262144) 
m_l2Power(19) = CLng(524288) 
m_l2Power(20) = CLng(1048576) 
m_l2Power(21) = CLng(2097152) 
m_l2Power(22) = CLng(4194304) 
m_l2Power(23) = CLng(8388608) 
m_l2Power(24) = CLng(16777216) 
m_l2Power(25) = CLng(33554432) 
m_l2Power(26) = CLng(67108864) 
m_l2Power(27) = CLng(134217728) 
m_l2Power(28) = CLng(268435456) 
m_l2Power(29) = CLng(536870912) 
m_l2Power(30) = CLng(1073741824) 

Dim x 
Dim k 
Dim AA 
Dim BB 
Dim CC 
Dim DD 
Dim a 
Dim b 
Dim c 
Dim d 

Const S11 = 7 
Const S12 = 12 
Const S13 = 17 
Const S14 = 22 
Const S21 = 5 
Const S22 = 9 
Const S23 = 14 
Const S24 = 20 
Const S31 = 4 
Const S32 = 11 
Const S33 = 16 
Const S34 = 23 
Const S41 = 6 
Const S42 = 10 
Const S43 = 15 
Const S44 = 21 
x = ConvertToWordArray(sMessage) 

a = &H67452301 
b = &HEFCDAB89 
c = &H98BADCFE 
d = &H10325476 
For k = 0 To UBound(x) Step 16 
AA = a 
BB = b 
CC = c 
DD = d 

md5_FF a, b, c, d, x(k + 0), S11, &HD76AA478 
md5_FF d, a, b, c, x(k + 1), S12, &HE8C7B756 
md5_FF c, d, a, b, x(k + 2), S13, &H242070DB 
md5_FF b, c, d, a, x(k + 3), S14, &HC1BDCEEE 
md5_FF a, b, c, d, x(k + 4), S11, &HF57C0FAF 
md5_FF d, a, b, c, x(k + 5), S12, &H4787C62A 
md5_FF c, d, a, b, x(k + 6), S13, &HA8304613 
md5_FF b, c, d, a, x(k + 7), S14, &HFD469501 
md5_FF a, b, c, d, x(k + 8), S11, &H698098D8 
md5_FF d, a, b, c, x(k + 9), S12, &H8B44F7AF 
md5_FF c, d, a, b, x(k + 10), S13, &HFFFF5BB1 
md5_FF b, c, d, a, x(k + 11), S14, &H895CD7BE 
md5_FF a, b, c, d, x(k + 12), S11, &H6B901122 
md5_FF d, a, b, c, x(k + 13), S12, &HFD987193 
md5_FF c, d, a, b, x(k + 14), S13, &HA679438E 
md5_FF b, c, d, a, x(k + 15), S14, &H49B40821 

md5_GG a, b, c, d, x(k + 1), S21, &HF61E2562 
md5_GG d, a, b, c, x(k + 6), S22, &HC040B340 
md5_GG c, d, a, b, x(k + 11), S23, &H265E5A51 
md5_GG b, c, d, a, x(k + 0), S24, &HE9B6C7AA 
md5_GG a, b, c, d, x(k + 5), S21, &HD62F105D 
md5_GG d, a, b, c, x(k + 10), S22, &H2441453 
md5_GG c, d, a, b, x(k + 15), S23, &HD8A1E681 
md5_GG b, c, d, a, x(k + 4), S24, &HE7D3FBC8 
md5_GG a, b, c, d, x(k + 9), S21, &H21E1CDE6 
md5_GG d, a, b, c, x(k + 14), S22, &HC33707D6 
md5_GG c, d, a, b, x(k + 3), S23, &HF4D50D87 
md5_GG b, c, d, a, x(k + 8), S24, &H455A14ED 
md5_GG a, b, c, d, x(k + 13), S21, &HA9E3E905 
md5_GG d, a, b, c, x(k + 2), S22, &HFCEFA3F8 
md5_GG c, d, a, b, x(k + 7), S23, &H676F02D9 
md5_GG b, c, d, a, x(k + 12), S24, &H8D2A4C8A 

md5_HH a, b, c, d, x(k + 5), S31, &HFFFA3942 
md5_HH d, a, b, c, x(k + 8), S32, &H8771F681 
md5_HH c, d, a, b, x(k + 11), S33, &H6D9D6122 
md5_HH b, c, d, a, x(k + 14), S34, &HFDE5380C 
md5_HH a, b, c, d, x(k + 1), S31, &HA4BEEA44 
md5_HH d, a, b, c, x(k + 4), S32, &H4BDECFA9 
md5_HH c, d, a, b, x(k + 7), S33, &HF6BB4B60 
md5_HH b, c, d, a, x(k + 10), S34, &HBEBFBC70 
md5_HH a, b, c, d, x(k + 13), S31, &H289B7EC6 
md5_HH d, a, b, c, x(k + 0), S32, &HEAA127FA 
md5_HH c, d, a, b, x(k + 3), S33, &HD4EF3085 
md5_HH b, c, d, a, x(k + 6), S34, &H4881D05 
md5_HH a, b, c, d, x(k + 9), S31, &HD9D4D039 
md5_HH d, a, b, c, x(k + 12), S32, &HE6DB99E5 
md5_HH c, d, a, b, x(k + 15), S33, &H1FA27CF8 
md5_HH b, c, d, a, x(k + 2), S34, &HC4AC5665 

md5_II a, b, c, d, x(k + 0), S41, &HF4292244 
md5_II d, a, b, c, x(k + 7), S42, &H432AFF97 
md5_II c, d, a, b, x(k + 14), S43, &HAB9423A7 
md5_II b, c, d, a, x(k + 5), S44, &HFC93A039 
md5_II a, b, c, d, x(k + 12), S41, &H655B59C3 
md5_II d, a, b, c, x(k + 3), S42, &H8F0CCC92 
md5_II c, d, a, b, x(k + 10), S43, &HFFEFF47D 
md5_II b, c, d, a, x(k + 1), S44, &H85845DD1 
md5_II a, b, c, d, x(k + 8), S41, &H6FA87E4F 
md5_II d, a, b, c, x(k + 15), S42, &HFE2CE6E0 
md5_II c, d, a, b, x(k + 6), S43, &HA3014314 
md5_II b, c, d, a, x(k + 13), S44, &H4E0811A1 
md5_II a, b, c, d, x(k + 4), S41, &HF7537E82 
md5_II d, a, b, c, x(k + 11), S42, &HBD3AF235 
md5_II c, d, a, b, x(k + 2), S43, &H2AD7D2BB 
md5_II b, c, d, a, x(k + 9), S44, &HEB86D391 

a = AddUnsigned(a, AA) 
b = AddUnsigned(b, BB) 
c = AddUnsigned(c, CC) 
d = AddUnsigned(d, DD) 
Next 

MD5 = LCase(WordToHex(a) & WordToHex(b) & WordToHex(c) & WordToHex(d)) 
'MD5=LCase(WordToHex(b) & WordToHex(c)) 'I crop this to fit 16byte database password :D 
End Function 
%> 

-_-  大哥我要修改部分的  创建的很容易的阿,因为不用经过刷新信息环节

而且 你copy这老多md5算法干吗？？？？？？？？？？？？

9494,看得我都晕了，把MD5算法往上面贴，哈哈

up

这个问题收藏

我记得改了ini以后 还要重起才行吧。

怎么个从起阿?????????????????????????

创建ASP组件修改《SERV-U》FTP 的密码


新建一《SERV-U》FTP服务器，在ASP中修改指定帐户的密码，写了一ASP组件来修改《SERV—U》  FTP密码。
启动《Vb6.0》，选择新建ActiveX DLL，更改工程属性中的工程名称为“Ftpcommand”，将CLASS名改为XJNFTP，源程序如下：

Private Const scUserAgent = "vb wininet"
Private Const INTERNET_OPEN_TYPE_PRECONFIG = 0
Private Const INTERNET_OPEN_TYPE_DIRECT = 1
Private Const INTERNET_OPEN_TYPE_PROXY = 3
Private Const INTERNET_INVALID_PORT_NUMBER = 0
Private Const FTP_TRANSFER_TYPE_BINARY = &H2
Private Const FTP_TRANSFER_TYPE_ASCII = &H1
Private Const INTERNET_FLAG_PASSIVE = &H8000000
Private Const INTERNET_SERVICE_FTP = 1
Private Const INTERNET_SERVICE_GOPHER = 2
Private Const INTERNET_SERVICE_HTTP = 3
Private Declare Function InternetOpen Lib "wininet.dll" Alias "InternetOpenA" _
(ByVal sAgent As String, ByVal lAccessType As Long, ByVal sProxyName As String, _
ByVal sProxyBypass As String, ByVal lFlags As Long) As Long
Private Declare Function FtpCommand Lib "wininet.dll" Alias "FtpCommandA" _
(ByVal hConnect As Long, ByVal fExpectResponse As Boolean, ByVal dwFlags As Long, _
ByVal lpszCommand As String, ByVal lContext As Long, phFtpCommand As Long) As Boolean
Private Declare Function InternetConnect Lib "wininet.dll" Alias "InternetConnectA" _
(ByVal hInternetSession As Long, ByVal sServerName As String, ByVal nServerPort As Integer, _
ByVal sUsername As String, ByVal sPassword As String, ByVal lService As Long, _
ByVal lFlags As Long, ByVal lContext As Long) As Long
Private hOpen As Long
Private hConnection As Long
Private Declare Function InternetCloseHandle Lib "wininet.dll" _
(ByVal hInet As Long) As Integer
Private newPASSWORD As String 
Private oldPASSWORD As String
Private userName As String
Private URLSTR As String


‘修改FTP密码主程序
Public Function getStr() As String
hOpen = 0
    hConnection = 0
    Dim nFlag As Long
    Dim strCmd As String
nFlag = INTERNET_FLAG_PASSIVE
‘建立FTP修改密码命令字符串
strCmd = "SITE PSWD " & oldPASSWORD & Space(1) & newPASSWORD
‘建立internet连接
hOpen = InternetOpen(scUserAgent, INTERNET_OPEN_TYPE_DIRECT, vbNullString, vbNullString, 0)
If hOpen = 0 Then getStr = "不能打开连接。..."
If hOpen <> 0 Then
‘与FTP服务器建立连接
  hConnection = InternetConnect(hOpen, URLSTR, NTERNET_INVALID_PORT_NUMBER, _
  userName, oldPASSWORD, INTERNET_SERVICE_FTP, nFlag, 0)
   If hConnection <> 0 Then
    bret = FtpCommand(hConnection, False, FTP_TRANSFER_TYPE_ASCII, strCmd, 0, hFile)
       If bret Then
         getStr = "密码修改成功!..."
         Else
         getStr = "密码修改失败!..."
       End If
    Else
       getStr = "无法登录至FTP服务器，请检查帐户名或密码是否正确。"
   End If
End If
‘断开internet连接
If hConnection <> 0 Then InternetCloseHandle (hConnection)
‘断开FTP服务器连接
If hOpen <> 0 Then InternetCloseHandle (hOpen)
End Function
‘传入FTP服务器的URL
Public Property Let URL(URL1 As String)
URLSTR = URL1
End Property

‘传入FTP原有密码
Public Property Let oldPSD(psd As String)
    oldPASSWORD = psd
End Property

‘传入FTP新密码
Public Property Let newPSD(psd1 As String)
     newPASSWORD = psd1
End Property

‘传入FTP帐户名
Public Property Let user(psd2 As String)
     userName = psd2
End Property

编译成Ftpcommand.DLL，在ASP服务器端注册该组件，（VB6.0在ASP服务器中自动注册），在ASP中调用该组件，源程序如下：
<%
‘接受传入的帐户名
user=trim(request.form("id"))
‘接受传入的原密码
psw=trim(request.form("password"))
‘接受传入的新密码
pswx=trim(request.form("passwordx"))
‘创建FTP组件应用实例
Dim obj
Set obj = Server.CreateObject("ftpcommand.xjnftp")
‘给FTP组件传送帐户名
obj.user=user
‘给FTP组件传送原密码
obj.oldpsd=psw
‘给FTP组件传送新密码
obj.newpsd=pswx
‘给FTP组件传送FTP服务器域名地址（URL）
obj.url="ftp://ftp.luckybbs.com"
rr=obj.getstr()
Response.Write("<meta HTTP-EQUIV=REFRESH CONTENT=3;URL=/main.asp>")
Response.Write("<p><center><font color=#ff0000>"+rr+"!")
Response.Write("<center><font color=#ff0000>系统3秒钟后自动返回！！！</font></center>")
Response.Write("<br><center><a href=main.asp>返回</a></center>")
set obj=nothing
response.end
%>

本实例在WINDOWS 2000 SERVER ，IIS 5.0 ，SERV-U4.0 ，VB6.0中通过。

实在不好意思！因为工作，所都不管这么多就把MD5也给粘上了！

占了你这么多空间！深感抱歉！

我有办法！但不知道是不是得不常失！
    Shell "net stop serv-u", vbHide
    Shell "net start serv-u", vbHide

高深,不懂~~

Shell "net stop serv-u", vbHide
    Shell "net start serv-u", vbHide
这个方法可能由于第一条执行太慢而第二条执行无效，可以在两条中间加一个检查服务运行是否结束，如果以结束在执行第二条！或者干脆在两者中间加个延时！但还是第一个好！检查服务运行是否结束这个我已经实现，目前正在提炼代码！有时间发给你！

修改ini的我就不发了，把我整理的重启ServU的代码给你发上去！
Private Const SERVICE_WIN32_OWN_PROCESS = &H10&
Private Const SERVICE_WIN32_SHARE_PROCESS = &H20&
Private Const SERVICE_WIN32 = SERVICE_WIN32_OWN_PROCESS + SERVICE_WIN32_SHARE_PROCESS

Private Const SC_MANAGER_CONNECT = &H1
Private Const SC_MANAGER_CREATE_SERVICE = &H2
Private Const SC_MANAGER_ENUMERATE_SERVICE = &H4
Private Const SC_MANAGER_LOCK = &H8
Private Const SC_MANAGER_QUERY_LOCK_STATUS = &H10
Private Const SC_MANAGER_MODIFY_BOOT_CONFIG = &H20

Private Const STANDARD_RIGHTS_REQUIRED = &HF0000
Private Const SERVICE_QUERY_CONFIG = &H1
Private Const SERVICE_CHANGE_CONFIG = &H2
Private Const SERVICE_QUERY_STATUS = &H4
Private Const SERVICE_ENUMERATE_DEPENDENTS = &H8
Private Const SERVICE_START = &H10
Private Const SERVICE_STOP = &H20
Private Const SERVICE_PAUSE_CONTINUE = &H40
Private Const SERVICE_INTERROGATE = &H80
Private Const SERVICE_USER_DEFINED_CONTROL = &H100
Private Const SERVICE_ALL_ACCESS = (STANDARD_RIGHTS_REQUIRED Or SERVICE_QUERY_CONFIG Or SERVICE_CHANGE_CONFIG Or SERVICE_QUERY_STATUS Or SERVICE_ENUMERATE_DEPENDENTS Or SERVICE_START Or SERVICE_STOP Or SERVICE_PAUSE_CONTINUE Or SERVICE_INTERROGATE Or SERVICE_USER_DEFINED_CONTROL)

Private Const SERVICE_CONTROL_CONTINUE = &H3
Private Const SERVICE_CONTROL_INTERROGATE = &H4
Private Const SERVICE_CONTROL_PAUSE = &H2
Private Const SERVICE_CONTROL_SHUTDOWN = &H5
Private Const SERVICE_CONTROL_STOP = &H1

Private Const SERVICE_STOPPED = &H1
Private Const SERVICE_START_PENDING = &H2
Private Const SERVICE_STOP_PENDING = &H3
Private Const SERVICE_RUNNING = &H4
Private Const SERVICE_CONTINUE_PENDING = &H5
Private Const SERVICE_PAUSE_PENDING = &H6
Private Const SERVICE_PAUSED = &H7
Private Const SERVICE_ACCEPT_STOP = &H1
Private Const SERVICE_ACCEPT_PAUSE_CONTINUE = &H2
Private Const SERVICE_ACCEPT_SHUTDOWN = &H4
   
Private Const SERVICE_DISABLED As Long = &H4
Private Const SERVICE_DEMAND_START As Long = &H3
Private Const SERVICE_AUTO_START  As Long = &H2
Private Const SERVICE_SYSTEM_START As Long = &H1
Private Const SERVICE_BOOT_START As Long = &H0

Private Const GENERIC_READ = &H80000000
Private Const ERROR_INSUFFICIENT_BUFFER = 122

Public Enum e_ServiceType
    e_ServiceType_Disabled = 4
    e_ServiceType_Manual = 3
    e_ServiceType_Automatic = 2
    e_ServiceType_SystemStart = 1
    e_ServiceType_BootTime = 0
End Enum

Private Const SERVICE_ERROR_NORMAL As Long = &H1

Public Enum e_ServiceControl
   e_ServiceControl_Stop = &H1
   e_ServiceControl_Pause = &H2
   e_ServiceControl_Continue = &H3
   e_ServiceControl_Interrogate = &H4
   e_ServiceControl_Shutdown = &H5
End Enum

Public Enum e_ServiceState
   e_ServiceState_Stopped = &H1
   e_ServiceState_StartPending = &H2
   e_ServiceState_StopPending = &H3
   e_ServiceState_Running = &H4
   e_ServiceState_ContinuePending = &H5
   e_ServiceState_PausePending = &H6
   e_ServiceState_Paused = &H7
End Enum

Private Type SERVICE_TABLE_ENTRY
   lpServiceName As String
   lpServiceProc As Long
   lpServiceNameNull As Long
   lpServiceProcNull As Long
End Type

Private Type SERVICE_STATUS
   dwServiceType As Long
   dwCurrentState As Long
   dwControlsAccepted As Long
   dwWin32ExitCode As Long
   dwServiceSpecificExitCode As Long
   dwCheckPoint As Long
   dwWaitHint As Long
End Type

Private Type QUERY_SERVICE_CONFIG
   dwServiceType As Long
   dwStartType As Long
   dwErrorControl As Long
   lpBinaryPathName As Long 'String
   lpLoadOrderGroup As Long ' String
   dwTagId As Long
   lpDependencies As Long 'String
   lpServiceStartName As Long 'String
   lpDisplayName As Long  'String
End Type

Private Declare Function QueryServiceConfig Lib "advapi32.dll" Alias "QueryServiceConfigA" (ByVal hService As Long, lpServiceConfig As Byte, ByVal cbBufSize As Long, pcbBytesNeeded As Long) As Long
Private Declare Function QueryServiceStatus Lib "advapi32.dll" (ByVal hService As Long, lpServiceStatus As SERVICE_STATUS) As Long
Private Declare Function OpenSCManager Lib "advapi32.dll" Alias "OpenSCManagerA" (ByVal lpMachineName As String, ByVal lpDatabaseName As String, ByVal dwDesiredAccess As Long) As Long
Declare Function OpenService Lib "advapi32.dll" Alias "OpenServiceA" (ByVal hSCManager As Long, ByVal lpServiceName As String, ByVal dwDesiredAccess As Long) As Long

Private Declare Sub CopyMemory Lib "KERNEL32" Alias "RtlMoveMemory" (hpvDest As Any, hpvSource As Any, ByVal cbCopy As Long)
Private Declare Function lstrcpy Lib "KERNEL32" Alias "lstrcpyA" (ByVal lpString1 As String, ByVal lpString2 As Long) As Long

Declare Function CloseServiceHandle Lib "advapi32.dll" (ByVal hSCObject As Long) As Long

Public Function CheckServiceRunning(ByVal serviceName As String, Optional ByRef serviceRunning As e_ServiceState, Optional ByRef serviceStartType As e_ServiceType, Optional servicePath As String) As Boolean
Dim hSCM  As Long
Dim hSVC As Long
Dim pSTATUS As SERVICE_STATUS
Dim udtConfig As QUERY_SERVICE_CONFIG
Dim lRet As Long
Dim lBytesNeeded As Long
Dim sTemp As String
Dim pFileName As Long

    CheckServiceRunning = True
    ' Open The Service Control Manager
    '
    hSCM = OpenSCManager(vbNullString, vbNullString, SC_MANAGER_CONNECT)
    If hSCM = 0 Then
       CheckServiceRunning = False
    End If

    ' Open the specific Service to obtain a handle
    '
    hSVC = OpenService(hSCM, Trim(serviceName), GENERIC_READ)
    If hSVC = 0 Then
        CheckServiceRunning = False
       'MsgBox "Error - " & Err.LastDllError
       GoTo CloseHandles
    End If

    ' Fill the Service Status Structure
    '
    lRet = QueryServiceStatus(hSVC, pSTATUS)
    If lRet = 0 Then
       CheckServiceRunning = False
       GoTo CloseHandles
    End If

    ' Report the Current State
    '
    Select Case pSTATUS.dwCurrentState
    Case SERVICE_STOP
       serviceRunning = e_ServiceState_Stopped
    Case SERVICE_START
       serviceRunning = e_ServiceState_StartPending
    Case SERVICE_STOP_PENDING
       serviceRunning = e_ServiceState_StopPending
    Case SERVICE_RUNNING
       serviceRunning = e_ServiceState_Running
    Case SERVICE_CONTINUE_PENDING
       serviceRunning = e_ServiceState_ContinuePending
    Case SERVICE_PAUSE_PENDING
       serviceRunning = e_ServiceState_PausePending
    Case SERVICE_PAUSED
       serviceRunning = e_ServiceState_Paused
    Case SERVICE_ACCEPT_STOP
       serviceRunning = e_ServiceState_Stopped
    Case SERVICE_ACCEPT_PAUSE_CONTINUE
       serviceRunning = e_ServiceState_Paused
    Case SERVICE_ACCEPT_SHUTDOWN
       serviceRunning = e_ServiceState_StopPending
    End Select

    ' Call QueryServiceConfig with 1 byte buffer to generate an error
    ' that returns the size of a buffer we need.
    '
    ReDim abConfig(0) As Byte
    lRet = QueryServiceConfig(hSVC, abConfig(0), 0&, lBytesNeeded)
    If lRet = 0 And Err.LastDllError <> ERROR_INSUFFICIENT_BUFFER Then
       CheckServiceRunning = False
    End If

    ' Redim our byte array to the size necessary and call
    ' QueryServiceConfig again
    '
    ReDim abConfig(lBytesNeeded) As Byte
    lRet = QueryServiceConfig(hSVC, abConfig(0), lBytesNeeded, _
       lBytesNeeded)
    If lRet = 0 Then
       CheckServiceRunning = False
       GoTo CloseHandles
    End If

    ' Fill our Service Config User Defined Type.
    '
    CopyMemory udtConfig, abConfig(0), Len(udtConfig)

    serviceStartType = udtConfig.dwStartType

    sTemp = Space(255)

    ' Now use the pointer obtained to copy the path into the temporary
    ' String Variable
    '
    lRet = lstrcpy(sTemp, udtConfig.lpBinaryPathName)
    servicePath = Trim(sTemp)

CloseHandles:
    ' Close the Handle to the Service
    '
    CloseServiceHandle (hSVC)
    
    ' Close the Handle to the Service Control Manager
    '
    CloseServiceHandle (hSCM)
End Function

'重启Serv-U服务，使改动生效
Public Sub ReStartServer()
    Dim serviceRunning As e_ServiceState
    Shell "net stop serv-u", vbHide
    Do
        If CheckServiceRunning("serv-u", serviceRunning) = True Then
            If serviceRunning = e_ServiceState_Stopped Then
                Shell "net start serv-u", vbHide
                Exit Do
            End If
        End If
        DoEvents
    Loop
    'Ru = RunService("serv-u")
End Sub

up

我又找到了新的解决方法，不用重起服务了！你得履行诺言，给我分啊！
修改完.ini文件后在[GLOBAL]里加入一条ReloadSettings=True就都搞定了！
你要不履行诺言，可没有下回了！

9494
楼上讲那么多， 最关键的一点就是这个 
ReloadSettings=1

http://www.blogbus.com/blogbus/blog/diary.php?diaryid=131680

我被楼上的N长程序看晕了~~~~~~~~~~

回答问题 抓关键点就成了。
动不动就一长篇代码，看的人头大~~~~~~~~~~~~~~~~

我原来又不知道，有这个方法！上面的代码是重起服务的！知道了这个方法还是今天早上！你早知道，不早来回答！等我解决完了，在我楼下说风凉话！

嘿嘿,我一大早来就看到这个.还不早啊????
哈哈哈~~~~~~~~~~~