创建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 lAclearcase/" target="_blank" >ccessType 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中通过。
ZT:http://www.luckybbs.com

原文转自：http://www.ltesting.net