ASP编程：ASP在线晋级类文件
ASP由于使用了COM组件所以它会变的十分强大，但是这样的强大由于WindowsNT系统最初的设计问题而会引发大量的安全问题。只要在这样的组件或是操作中一不注意，哪么外部攻击就可以取得相当高的权限而导致网站瘫痪或者数据丢失；在线<%Rem#####################################################################################
Rem##在线晋级类声明
ClassCls_oUpdate
Rem#################################################################
Rem##形貌:ASP在线晋级类
Rem##版本:1.0.0
Rem##作者:萧月痕
Rem##MSN:xiaoyuehen(at)msn.com
Rem##请将(at)以@交换
Rem##版权:既然共享,就无所谓版权了.但必需限于收集传布,不得用于传统媒体!
Rem##假如您能保存这些申明信息,自己加倍感激!
Rem##假如您有更好的代码优化,相干改善,请记得告知我,十分感谢!
Rem#################################################################
PublicLocalVersion,LastVersion,FileType
PublicUrlVersion,UrlUpdate,UpdateLocalPath,Info
PublicUrlHistory
PrivatesstrVersionList,sarrVersionList,sintLocalVersion,sstrLocalVersion
PrivatesstrLogContent,sstrHistoryContent,sstrUrlUpdate,sstrUrlLocal
Rem#################################################################
PrivateSubClass_Initialize()
Rem##版本信息完全URL,以http://开端
Rem##例:http://localhost/software/Version.htm
UrlVersion=""
Rem##晋级URL,以http://开端,/开头
Rem##例:http://localhost/software/
UrlUpdate=""
Rem##当地更新目次,以/开端,/开头.以/开端是为以后站点更新.避免写到其他目次.
Rem##程序将检测目次是不是存在,不存在则主动创立
UpdateLocalPath="/"
Rem##天生的软件汗青文件
UrlHistory="history.htm"
Rem##最初的提醒信息
Info=""
Rem##以后版本
LocalVersion="1.0.0"
Rem##最新版本
LastVersion="1.0.0"
Rem##各版本信息文件后缀名
FileType=".asp"
EndSub
Rem#################################################################
Rem#################################################################
PrivateSubClass_Terminate()
EndSub
Rem#################################################################
Rem##实行晋级举措
Rem#################################################################
PublicfunctiondoUpdate()
doUpdate=False
UrlVersion=Trim(UrlVersion)
UrlUpdate=Trim(UrlUpdate)
Rem##晋级网址检测
If(Left(UrlVersion,7)"http://")Or(Left(UrlUpdate,7)"http://")Then
Info="版本检测网址为空,晋级网址为空或格局毛病(#1)"
Exitfunction
EndIf
IfRight(UrlUpdate,1)"/"Then
sstrUrlUpdate=UrlUpdate&"/"
Else
sstrUrlUpdate=UrlUpdate
EndIf
IfRight(UpdateLocalPath,1)"/"Then
sstrUrlLocal=UpdateLocalPath&"/"
Else
sstrUrlLocal=UpdateLocalPath
EndIf
Rem##以后版本信息(数字)
sstrLocalVersion=LocalVersion
sintLocalVersion=Replace(sstrLocalVersion,".","")
sintLocalVersion=toNum(sintLocalVersion,0)
Rem##版本检测(初始化版本信息,并举行对照)
IfIsLastVersionThenExitfunction
Rem##入手下手晋级
doUpdate=NowUpdate()
LastVersion=sstrLocalVersion
Endfunction
Rem#################################################################
Rem##检测是不是为最新版本
Rem#################################################################
PrivatefunctionIsLastVersion()
Rem##初始化版本信息(初始化sarrVersionList数组)
IfiniVersionListThen
Rem##若乐成,则对照版本
Dimi
IsLastVersion=True
Fori=0toUBound(sarrVersionList)
IfsarrVersionList(i)>sintLocalVersionThen
Rem##如有最新版本,则加入轮回
IsLastVersion=False
Info="已是最新版本!"
ExitFor
EndIf
Next
Else
Rem##不然前往堕落信息
IsLastVersion=True
Info="猎取版本信息时堕落!(#2)"
EndIf
Endfunction
Rem#################################################################
Rem##检测是不是为最新版本
Rem#################################################################
PrivatefunctioniniVersionList()
iniVersionList=False
DimstrVersion
strVersion=getVersionList()
Rem##若前往值为空,则初始化失利
IfstrVersion=""Then
Info="堕落......."
Exitfunction
EndIf
sstrVersionL</p>帮助用户快速实现各种应用服务，ASP商有整合各方面资源的能力，可在短期内为用户提供所需的解决方案。例如，典型的ERP安装，如果要在客户端安装的话需要半年到二年的时间，但是美国的一些ASP商如USI和CORIO能在90—120天内提供ERP应用方案。 没有坚实的理论做基础，那么我们连踏入社会第一步的资本都没有，特别对于计算机专业的学生学好专业知识是置关重要的。在这里我侧重讲一下如何学习ASP，从平时的学习过程中。 如何更好的使自己的东西看上去很不错等等。其实这些都不是问题的实质，我们可以在实践中不断提升自己，不断充实自己。 它可通过内置的组件实现更强大的功能，如使用A-DO可以轻松地访问数据库。 还有如何才能在最短的时间内学完?我每天可以有效学习2小时，双休日4小时。 运用ASP可将VBscript、javascript等脚本语言嵌入到HTML中，便可快速完成网站的应用程序，无需编译，可在服务器端直接执行。容易编写，使用普通的文本编辑器编写，如记事本就可以完成。由脚本在服务器上而不是客户端运行，ASP所使用的脚本语言都在服务端上运行。 Server:这个表示的服务器，操作服务器的一些东西使用这个，如Server.Mappath转换服务器路径,Server.CreateObject实例化一个组件 不是很难但是英文要有一点基础网上的教程很少有系统的详细的去买书吧,另不用专门学习vb关于vbscript脚本在asp教材都有介绍 以HTML语言整合(HTML负责界面上，ASP则负责功能上)形成一个B/S(浏览器/服务器)模式的网页程序。 我认为比较好的方法是找一些比较经典的例子，每个例子比较集中一种编程思想而设计的。
页:
[1]