Create an ASP component modify the password of the serv-u FTP

Create a new "Serv-u" FTP server, in the ASP to modify the specified account password, wrote an ASP component to modify the "Serv-u" ftp password.
Start "Vb6.0", select the new ActiveX DLL, change engineering properties in the project name "FtpCommand", the class name to Xjnftp, the source program is as follows:
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
' Modify the FTP password main program