如何读取一个.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 = 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]