ASP教程之我做的可上传下载控件，接待利用。

ASP一般认为只能运行在IIS上，正如前面所提到的，这并不是十分正确，事实上，ASP也能运行在Apache上。ApacheASP可在任意Apache服务器上运行有限的ASP功能，所需做的，只需打开mod_perl。控件|上传|下载|下载控件这是控件的源程序：
工程名：MY
控件名：TESTFTP

DimFileNameAsString
DimconnectAsBoolean


PrivateSubCmdCd_Click()

CallLink
Inet1.Execute,"cdc2000"
connect=True

EndSub

PrivateSubCmdList_Click()

Ifconnect=TrueThen
Inet1.Execute,"LS"
Else
Label1.Caption="pleaseclickconnectfirst!"
EndIf

EndSub


PrivateSubCombo1_Click()

FileName=Combo1.Textfilenameofdownloadfile

EndSub

PrivateSubCmdDown_Click()

DimFileLastAsStringlastnameoffile
DimSaveFileNameAsStringfilenameinftpserver
CallLink

IfFileName=""Then
Label1.Caption="pleaseselectfiletodownload!"
Else
FileLast=""
Fori=1ToLen(FileName)
IfMid(FileName,i,1)"."Then
FileLast=FileLast+Mid(FileName,i,1)
Else
FileLast=""
EndIf
Next
REDO:CommonDialog1.ShowSave

IfInStr(1,CommonDialog1.FileName,"",1)>0Then
Label1.Caption="Thefilecantincludespace!"
MyVar=MsgBox("Redoit?",65,"Downloadfile")
IfMyVar="1"Then
GoToREDO:
Else
GoToNODO:
EndIf
EndIf

SaveFileName=CommonDialog1.FileName&"."&FileLast
Inet1.Execute,"GET"&FileName&""&SaveFileName
EndIf
NODO:

EndSub

PrivateSubCmdUpload_Click()

DimSaveFileNameAsString
DimUpFileNameAsStringfilenameofuploadfileincludepath
DimMyVar
SaveFileName=""
CallLink

REDO:CommonDialog1.ShowOpen

IfInStr(1,CommonDialog1.FileName,"",1)>0Then
MsgBox"Thefilecantincludespace!"
MyVar=MsgBox("Redoit?",65,"Uploadfile")
IfMyVar="1"Then
GoToREDO:
Else
GoToNODO:
EndIf
EndIf

UpFileName=CommonDialog1.FileName
MsgBoxUpFileName

Fori=1ToLen(UpFileName)
IfMid(UpFileName,i,1)""Then
SaveFileName=SaveFileName+Mid(UpFileName,i,1)
Else
SaveFileName=""
EndIf
Next

IfSaveFileName=""Then
Label1.Caption="nofile!"
Else
Inet1.Execute,"PUT"&UpFileName&""&SaveFileName
EndIf
NODO:

EndSub




PrivateSubInet1_StateChanged(ByValStateAsInteger)

SelectCaseState
Case1
Label1.Caption="正在查询所指定的主机的IP地点"
Case2
Label1.Caption="乐成地找到所指定的主机的IP地点。"
</p>ASP由于使用了COM组件所以它会变的十分强大，但是这样的强大由于WindowsNT系统最初的设计问题而会引发大量的安全问题。只要在这样的组件或是操作中一不注意，哪么外部攻击就可以取得相当高的权限而导致网站瘫痪或者数据丢失；

ASP（ActiveServerPages）是Microsfot公司1996年11月推出的WEB应用程序开发技术，它既不是一种程序语言，也不是一种开发工具，而是一种技术框架，不须使用微软的产品就能编写它的代码，能产生和执行动态、交互式、高效率的站占服务器的应用程序。

学习ASP其实应该上升到如何学习程序设计这种境界，其实学习程序设计又是接受一种编程思想。比如ASP如何学习，你也许在以前的学习中碰到过。以下我仔细给你说几点:

我可以结合自己的经验大致给你说一说，希望对你有所帮助，少走些弯路。

跟学别的语言一样，先掌握变量，流程控制语句(就是ifwhileselect)等，函数/过程，数组

代码逻辑混乱，难于管理：由于ASP是脚本语言混合html编程，所以你很难看清代码的逻辑关系，并且随着程序的复杂性增加，使得代码的管理十分困难，甚至超出一个程序员所能达到的管理能力，从而造成出错或这样那样的问题。

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

ASP.Net和ASP的最大区别在于编程思维的转换，而不仅仅在于功能的增强。ASP使用VBS/JS这样的脚本语言混合html来编程，而那些脚本语言属于弱类型、面向结构的编程语言，而非面向对象，这就明显产生以下几个问题：

他的语法和设计思路和VB完全相同，导致很多ASP的书都留一句“相关内容请参考VB的相关教材....”更糟糕的是，相当多的ASP教程混合了Javascript,VBscript等等脚本语言，搞的初学者。