返回首页
当前位置: 主页 > 电脑软件 >

创建ASP组件修改密码Serv-UFTP

时间:2018-01-16 14:22
   创建一个新的FTP服务器,修改为在ASP指定的帐户密码,写一个ASP组件修改服务U FTP密码。
启动VB6.0,选择新的ActiveX DLL,改变工程性质ftpcommand工程名称,并改变类的名称来xjnftp。源程序如下所示:

私人const scuseragent =VB程序
私人const internet_open_type_preconfig = 0
私人const internet_open_type_direct = 1
私人const internet_open_type_proxy = 3
私人const internet_invalid_port_number = 0
私人const ftp_transfer_type_binary = H2
私人const ftp_transfer_type_ascii = H1
私人const internet_flag_passive = h8000000
私人const internet_service_ftp = 1
私人const internet_service_gopher = 2
私人const internet_service_http = 3
私人声明函数internetopen libWinInet .dll别名internetopena_
ByVal(代理String ByVal lAccessType,为长,ByVal sProxyName为字符串,_
一个sproxybypass为字符串,ByVal as长)
私人声明函数ftpcommand libWinInet .dll别名ftpcommanda_
ByVal(hconnect Long ByVal fExpectResponse,布尔,ByVal dwFlags为长,_
一个lpszcommand为字符串,ByVal lContext为长,长为phftpcommand)
私人声明函数internetconnect libWinInet .dll别名internetconnecta_
ByVal(hinternetsession Long ByVal sServerName,为字符串,一个nserverport为整数,_
一个spassword ByVal susername字符串,字符串,ByVal lService为长,_
ByVal as长,一个lcontext只要长)
私人Hopen长
私人hconnection长
私人声明函数internetclosehandle libWinInet .dll_
(ByVal HiNet只要整数)
私人新密码字符串
私人oldpassword作为字符串
私有用户名作为字符串
私人urlstr作为字符串


修改FTP密码主程序
公共功能getstr()为字符串
Hopen = 0
hconnection = 0
昏暗的nFlag长
昏暗的strcmd作为字符串
internet_flag_passive nFlag =
设置FTP来修改密码命令字符串
strcmd =网站Pswdoldpassword空间(1)新密码
建立Internet连接
Hopen = internetopen(scuseragent,internet_open_type_direct,:,:,0)
如果getstr Hopen = 0 =无法打开连接的…
如果希望0
建立与FTP服务器的连接
hconnection = internetconnect(凯思昊鹏,urlstr,nternet_invalid_port_number,_
用户名,oldpassword,internet_service_ftp nFlag,0),
如果hconnection 0
布雷特= ftpcommand(hconnection,虚假,ftp_transfer_type_ascii,strcmd,0,文件)
如果布雷特再
getstr =密码已修改成功!
其他的
getstr =修改密码失败!
最后如果
其他的
getstr =无法登录到FTP服务器,请检查用户名或密码是正确的。
最后如果
最后如果
断开互联网连接
如果hconnection 0然后internetclosehandle(hconnection)
断开FTP服务器连接
如果希望0 internetclosehandle(Hopen)
端功能
URL到FTP服务器
公共财产让URL(url1字符串)
urlstr = url1
最后的财产

传入FTP原始密码
公共财产让oldpsd(PSD作为字符串)
oldpassword = PSD
最后的财产

传入的FTP新密码
公共财产让newpsd(分别为字符串)
新密码=实验
最后的财产

传入FTP帐户名
公共财产让用户(PSD2字符串)
用户名= PSD2
最后的财产

编译到Ftpcommand.DLL,登记在ASP服务器端的组件(VB6.0自动登记在ASP的服务器),打电话给在ASP的组成部分,源代码如下:
接受传入帐户名
用户=装饰(要求表单(ID))
接受传入密码
PSW =装饰(要求表单(密码))
接受新密码
pswx =装饰(要求表单(passwordx ))
创建FTP组件应用程序的实例
模糊的目标
设置obj = server.createobject(ftpcommand。xjnftp )
向FTP组件发送帐户名
目标用户=用户。
将原始密码发送到FTP组件
obj。oldpsd = PSW
向FTP组件发送新密码
newpsd = pswx OBJ。
将FTP服务器域名传输到FTP组件(URL)
目标URL = 。
RR = obj.getstr()
响应。写入()
响应。写入()
+!)
响应:写入()系统将在3秒后自动返回!!!!!)
响应。写入()

设置目标=没有
response.end
%>

这个例子是在Windows 2000服务器,通过IIS 5,serv-u4.0,VB6.0。
------分隔线----------------------------
推荐内容