ection)&"]")=0 Then
                GetProfile = Empty
                Exit Function
        End if
        Const ForReading = 1, ForWriting = 2, ForAppending = 8
        strSectionTemp = "":        strNameTemp = "":        strreturn = ""
        Set fso = CreateObject("Scripting.FileSystemObject")
        On Error Resume Next
       
        If Err Then
                err.Clear:                GetProfile = "":                f1.Close:                Exit Function
        End if
       
        Set f1 = fso.OpenTextFile(Server.MapPath(strFileName), ForReading, True)
        Do While Flag
                strcharA = f1.Read(1)
                If strcharA = "[" Then
                        Do While True
                                strcharB = f1.Read(1)
                                If strcharB = "]" Then Exit Do
                                strSectionTemp = strSectionTemp & strcharB
                        Loop
                End If
                If strSectionTemp = strSection Then
                        strcharA = f1.Read(2)
                        FindFlag = 1
                        Exit Do
                Else
                        FindFlag = 2
                        strSectionTemp = ""
                End If
        Loop
       
        If Err Then
    &

上一页  [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] 下一页