Asp中Global.asa的应用(-)

王朝asp·作者佚名  2006-12-16
窄屏简体版  字體: |||超大  

功能是读取发布目录下一个ini文件信息

<OBJECT ID="agobjOraSession" RUNAT="Server" PROGID="OracleInProcServer.XOraSession" SCOPE="APPLICATION">

</OBJECT>

<SCRIPT LANGUAGE=VBScript RUNAT=Server>

Const CONST_FL_NAME = "\GetAttributeCode.ini"

Const CONST_FL_FORREADING = 1

Const CONST_DB_SECTION = "[DB_CONNECTION]"Sub Application_OnStart

On Error Resume Next

Dim objFs

Dim objTs

Dim strLineData

Dim flgSection

Dim strTempData

Application("Service") = ""

Application("User") = ""

strLineData = ""

strTempData = ""

flgSection = False

Set objFs = Server.CreateObject ("Scripting.FileSystemObject")

Set objTs = objFs.OpenTextFile(Server.MapPath (CONST_FL_NAME),CONST_FL_FORREADING,False)

If Err.Number <> 0 Then

Err.Clear

Set objTs = Nothing

Set objFs = Nothing

Exit Sub

End If

While Not objTs.AtEndOfStream

strLineData = objTs.ReadLine

If Trim(strLineData) <> "" Then

If flgSection = True And Mid(strLineData,1,1) = "[" And _

Mid(strLineData,Len(strLineData),1) = "]" Then

objTs.Close

Set objTs = Nothing

Set objFs = Nothing

Exit Sub

End If

If strLineData = CONST_DB_SECTION Then

flgSection = True

End If

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
© 2005- 王朝網路 版權所有 導航