仓酷云

 找回密码
 立即注册
搜索
热搜: 活动 交友 discuz
查看: 623|回复: 8
打印 上一主题 下一主题

[学习教程] ASP网页设计ASP中Global.asa的使用

[复制链接]
灵魂腐蚀 该用户已被删除
跳转到指定楼层
#
发表于 2015-1-16 22:16:03 | 只看该作者 回帖奖励 |正序浏览 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有帐号?立即注册

x
对于中小型web应用来说,php有很强的竞争力,linux+apache+mysql+php(lamp)的组合几乎可以胜任绝大多数网站的解决方案,对于大型应用来讲,对于系统架构要求更高,需要有成熟的框架支持,jsp的struts是个不错的框架,国内介绍它的资料也非常多,应用逐渐广泛起来。asp就不用说了,  功效是读取公布目次下一个ini文件信息
<OBJECTID="agobjOraSession"RUNAT="Server"PROGID="OracleInProcServer.XOraSession"SCOPE="APPLICATION">
</OBJECT>
<SCRIPTLANGUAGE=VBScriptRUNAT=Server>
ConstCONST_FL_NAME="GetAttributeCode.ini"
ConstCONST_FL_FORREADING=1
ConstCONST_DB_SECTION="[DB_CONNECTION]"SubApplication_OnStart
OnErrorResumeNext

DimobjFs
DimobjTs
DimstrLineData
DimflgSection
DimstrTempData

Application("Service")=""
Application("User")=""
strLineData=""
strTempData=""
flgSection=False
SetobjFs=Server.CreateObject("Scripting.FileSystemObject")
SetobjTs=objFs.OpenTextFile(Server.MapPath(CONST_FL_NAME),CONST_FL_FORREADING,False)
IfErr.Number0Then
  Err.Clear
 SetobjTs=Nothing
  SetobjFs=Nothing
  ExitSub
EndIf

WhileNotobjTs.AtEndOfStream
strLineData=objTs.ReadLine
 IfTrim(strLineData)""Then
IfflgSection=TrueAndMid(strLineData,1,1)="["And_
  Mid(strLineData,Len(strLineData),1)="]"Then
   objTs.Close
 SetobjTs=Nothing
   SetobjFs=Nothing
   ExitSub
  EndIf

  IfstrLineData=CONST_DB_SECTIONThen
   flgSection=True
  EndIf
IfflgSection=TrueThen
IfMid(strLineData,1,7)="Service"Then
  strTempData=Trim(Mid(strLineData,8,Len(strLineData)-7))
  IfMid(strTempData,1,1)="="Then
    strTempData=Trim(Mid(strTempData,2,Len(strTempData)-1))
    Application.Lock
    Application("Service")=Mid(strTempData,2,Len(strTempData)-2)
    Application.UnLock
  EndIf
EndIf
IfMid(strLineData,1,4)="User"Then
  strTempData=Trim(Mid(strLineData,5,Len(strLineData)-4))
  IfMid(strTempData,1,1)="="Then
  strTempData=Trim(Mid(strTempData,2,Len(strTempData)-1))
  Application.Lock
  Application("User")=Mid(strTempData,2,Len(strTempData)-2)
  Application.UnLock
EndIf
EndIf
EndIf
EndIf
Wend
objTs.Close
SetobjTs=Nothing
SetobjFs=Nothing
EndSub
</SCRIPT>
对用户来说可预见费用、节约费用,可以做到花少钱办大事。由于省去了购买软件和硬件等的前期费用,用户可以租用较高级的应用软件。ASP的收费是根据软件的类型、客制化程度、用户数量、服务期限来定的,对客户来说这笔费用是可以预见的。方便于客户应用软件的升级。
飘灵儿 该用户已被删除
8#
发表于 2015-3-28 03:34:17 | 只看该作者
还有如何才能在最短的时间内学完?我每天可以有效学习2小时,双休日4小时。
若相依 该用户已被删除
7#
发表于 2015-3-19 12:19:52 | 只看该作者
不是很难但是英文要有一点基础网上的教程很少有系统的详细的去买书吧,另不用专门学习vb关于vbscript脚本在asp教材都有介绍
再现理想 该用户已被删除
6#
发表于 2015-3-11 20:29:58 | 只看该作者
学习是为了用的,是为了让你的程序产生价值,把握住这个原则会比较轻松点。除此之外,课外时间一定要多参加一些社会实践活动,来锻炼自己的能力。
深爱那片海 该用户已被删除
5#
发表于 2015-2-15 22:44:41 | 只看该作者
如何更好的使自己的东西看上去很不错等等。其实这些都不是问题的实质,我们可以在实践中不断提升自己,不断充实自己。
若天明 该用户已被删除
地板
发表于 2015-2-6 10:01:00 | 只看该作者
Response:从字面上讲是“响应”,因此这个是服务端向客户端发送东西的,例如Response.Write
小妖女 该用户已被删除
板凳
发表于 2015-1-30 10:19:31 来自手机 | 只看该作者
Server:这个表示的服务器,操作服务器的一些东西使用这个,如Server.Mappath转换服务器路径,Server.CreateObject实例化一个组件
第二个灵魂 该用户已被删除
沙发
发表于 2015-1-21 06:57:57 | 只看该作者
Request:从字面上讲就是“请求”,因此这个是处理客户端提交的东东的,例如Resuest.Form,Request.QueryString,或者干脆Request("变量名")
柔情似水 该用户已被删除
楼主
发表于 2015-1-17 18:08:27 | 只看该作者
兴趣爱好,那么你无须学编程,申请一个域名和空间,在网上下载一些免费开源的CMS系统,你不用改代码,只须熟悉它们的后台操作,像office一样简单方便,很快就能建一个站点,很多站长都是这样做的
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|Archiver|手机版|仓酷云 鄂ICP备14007578号-2

GMT+8, 2024-12-24 02:13

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表