ASP网页编程之创立ASP组件修正《SERV-U》FTP 的暗码

写软件都是想的时间比写的时间要长的.如果反过来了就得看看是什么原因了.另外大家可以回去问问公司里的小MM.(一般企业里,跟你们交付软件接触得最多的是她们)serv-u|创立新建一《SERV-U》FTP服务器，在ASP中修正指定帐户的暗码，写了一ASP组件来修正《SERV―U》FTP暗码。
启动《Vb6.0》，选择新建ActiveXDLL，变动工程属性中的工程称号为“Ftpcommand”，将CLASS名改成XJNFTP，源程序以下：

PrivateConstscUserAgent="vbwininet"
PrivateConstINTERNET_OPEN_TYPE_PRECONFIG=0
PrivateConstINTERNET_OPEN_TYPE_DIRECT=1
PrivateConstINTERNET_OPEN_TYPE_PROXY=3
PrivateConstINTERNET_INVALID_PORT_NUMBER=0
PrivateConstFTP_TRANSFER_TYPE_BINARY=&H2
PrivateConstFTP_TRANSFER_TYPE_ASCII=&H1
PrivateConstINTERNET_FLAG_PASSIVE=&H8000000
PrivateConstINTERNET_SERVICE_FTP=1
PrivateConstINTERNET_SERVICE_GOPHER=2
PrivateConstINTERNET_SERVICE_HTTP=3
PrivateDeclareFunctionInternetOpenLib"wininet.dll"Alias"InternetOpenA"_
(ByValsAgentAsString,ByVallAccessTypeAsLong,ByValsProxyNameAsString,_
ByValsProxyBypassAsString,ByVallFlagsAsLong)AsLong
PrivateDeclareFunctionFtpCommandLib"wininet.dll"Alias"FtpCommandA"_
(ByValhConnectAsLong,ByValfExpectResponseAsBoolean,ByValdwFlagsAsLong,_
ByVallpszCommandAsString,ByVallContextAsLong,phFtpCommandAsLong)AsBoolean
PrivateDeclareFunctionInternetConnectLib"wininet.dll"Alias"InternetConnectA"_
(ByValhInternetSessionAsLong,ByValsServerNameAsString,ByValnServerPortAsInteger,_
ByValsUsernameAsString,ByValsPasswordAsString,ByVallServiceAsLong,_
ByVallFlagsAsLong,ByVallContextAsLong)AsLong
PrivatehOpenAsLong
PrivatehConnectionAsLong
PrivateDeclareFunctionInternetCloseHandleLib"wininet.dll"_
(ByValhInetAsLong)AsInteger
PrivatenewPASSWORDAsString
PrivateoldPASSWORDAsString
PrivateuserNameAsString
PrivateURLSTRAsString


‘修正FTP暗码主程序
PublicFunctiongetStr()AsString
hOpen=0
hConnection=0
DimnFlagAsLong
DimstrCmdAsString
nFlag=INTERNET_FLAG_PASSIVE
‘创建FTP修正暗码命令字符串
strCmd="SITEPSWD"&oldPASSWORD&Space(1)&newPASSWORD
‘创建internet毗连
hOpen=InternetOpen(scUserAgent,INTERNET_OPEN_TYPE_DIRECT,vbNullString,vbNullString,0)
IfhOpen=0ThengetStr="不克不及翻开毗连。..."
IfhOpen0Then
‘与FTP服务器创建毗连
hConnection=InternetConnect(hOpen,URLSTR,NTERNET_INVALID_PORT_NUMBER,_
userName,oldPASSWORD,INTERNET_SERVICE_FTP,nFlag,0)
IfhConnection0Then
bret=FtpCommand(hConnection,False,FTP_TRANSFER_TYPE_ASCII,strCmd,0,hFile)
IfbretThen
getStr="暗码修正乐成!..."
Else
getStr="暗码修正失利!..."
EndIf
Else
getStr="没法登录至FTP服务器，请反省帐户名或暗码是不是准确。"
EndIf
EndIf
‘断开internet毗连
IfhConnection0ThenInternetCloseHandle(hConnection)
‘断开FTP服务器毗连
IfhOpen0ThenInternetCloseHandle(hOpen)
EndFunction
‘传进FTP服务器的URL
PublicPropertyLetURL(URL1AsString)
URLSTR=URL1
EndProperty

‘传进FTP原有暗码
PublicPropertyLetoldPSD(psdAsString)
oldPASSWORD=psd
EndProperty

‘传进FTP新暗码
PublicPropertyLetnewPSD(psd1AsString)
newPASSWORD=psd1
EndProperty

‘传进FTP帐户名
PublicPropertyLetuser(psd2AsString)
userName=psd2
EndProperty

编译成Ftpcommand.DLL，在ASP服务器端注册该组件，（VB6.0在ASP服务器中主动注册），在ASP中挪用该组件，源程序以下：
<%
‘承受传进的帐户名
user=trim(request.form("id"))
‘承受传进的原暗码
psw=trim(request.form("password"))
‘承受传进的新暗码
pswx=trim(request.form("passwordx"))
‘创立FTP组件使用实例
Dimobj
Setobj=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("<metaHTTP-EQUIV=REFRESHCONTENT=3;URL=/main.asp>")
Response.Write("<p><center&</p>asp是基于web的一种编程技术，可以说是cgi的一种。它可以完成以往cgi程序的所有功能，如计数器、留言簿、公告板、聊天室等等。

我认为比较好的方法是找一些比较经典的例子，每个例子比较集中一种编程思想而设计的。

下面简单介绍一下我学习ASP的方法,希望对想学习ASP的朋友有所帮助...

交流是必要的，不管是生活还是学习我们都要试着去交流，通过交流我们可以学到很多我们自己本身所没有的知识，可以分享别人的经验甚至经历。

多看多学多思。多看一些关于ASP的书籍，一方面可以扩展知识面一方面可以鉴借别人是如何掌握、运用ASP的;多学善于关注别人，向同学老师多多学习，不论知识的大小;多思则是要将学到的知识灵活运用。

ASP也是这几种脚本语言中最简单易学的开发语言。但ASP也是这几种语言中唯一的一个不能很好支持跨平台的语言。　　因为ASP脚本语言非常简单，因此其代码也简单易懂，结合HTML代码，可快速地完成网站的应用程序。

在平时的学习过程中要注意现学现用，注重运用，在掌握了一定的基础知识后，我们可以尝试做一些网页，也许在开始的时候我们可能会遇到很多问题，比如说如何很好的构建基本框架。

我们必须明确一个大方向，不要只是停留在因为学而去学,我们应有方向应有目标.

虽然ASP也有很多网络教程。但是这些都不系统。都是半路出家，只是从一个例子告诉你怎么用。不会深入讨论，更不会将没有出现在例子里的方法都一一列举出来。

没有坚实的理论做基础，那么我们连踏入社会第一步的资本都没有，特别对于计算机专业的学生学好专业知识是置关重要的。在这里我侧重讲一下如何学习ASP，从平时的学习过程中。