如何读取一个.ini文件?

OBJECT ID=”agobjOraSession” RUNAT=”Server”
PROGID=”OracleInProcServer.XOraSession” SCOPE=”Application”/OBJECTscript
LANGUAGE=VBScript RUNAT=ServerConst 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]

You can leave a response, or trackback from your own site.

Leave a Reply

网站地图xml地图