马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
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的收费是根据软件的类型、客制化程度、用户数量、服务期限来定的,对客户来说这笔费用是可以预见的。方便于客户应用软件的升级。 |