<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 = 1Const CONST_DB_SECTION = \”[DB_CONNECTION]\”Sub Application_OnStartOn 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 IfWhile 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 IfEnd IfEnd IfEnd IfWendobjTs.CloseSet objTs = NothingSet objFs = NothingEnd Sub</script>
[1]
