<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

If flgSection = True Then

If Mid(strLineData,1,7) = "Service" Then

　　strTempData = Trim(Mid(strLineData,8,Len(strLineData)-7))

　　If Mid(strTempData,1,1) = "=" Then

　　　　strTempData = Trim(Mid(strTempData,2,Len(strTempData)-1))

　　　　Application.Lock

　　　　 Application("Service") = Mid(strTempData,2,Len(strTempData)-2)

　　　　Application.UnLock

　　 End If

End If

If Mid(strLineData,1,4) = "User" Then

　　strTempData = Trim(Mid(strLineData,5,Len(strLineData)-4))

　　If Mid(strTempData,1,1) = "=" Then

　　strTempData = Trim(Mid(strTempData,2,Len(strTempData)-1))

　　Application.Lock

　　Application("User") = Mid(strTempData,2,Len(strTempData)-2)

　　Application.UnLock

End If

End If

End If

End If

Wend

objTs.Close

Set objTs = Nothing

Set objFs = Nothing

End Sub

</script>

更多信息請查看IT技術(shù)專欄