 |
|
|
 首页 |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
新建一《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.etoow.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中通过。 返回类别: 教程 上一教程: 用静态URL显示动态网页 下一教程: ASP数据库访问代码自动产生工具-ASPRUNNER 您可以阅读与"创建ASP组件修改SERV-U FTP的密码"相关的教程: · 透过ASP修改NT使用者的密码 · 手把手教你使用VB来创建ASP组件(3) · 如何在pb中创建COM组件，并在asp中调用并返回结果集？ · 手把手教你使用VB来创建ASP组件(7) · 手把手教你使用VB来创建ASP组件(1) |
  |
| 快精灵印艺坊 版权所有 |
首页 会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店
|
||
