創建ASP組件修改《SERV-U》FTP 的密碼

創建ASP組件修改《SERV-U》FTP 的密碼

發佈者： [飛翔] 瀏覽： [ 79 ] 評論： [0]

新建一《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中透過。