trSection) & "]" & vbCrlf &Trim(strName) & "=" & strSave & vbCrlf
                Else
                        WriteFile strFileName,strTemp & "[" &Trim(strSection) & "]" & vbCrlf & Trim(strName) & "="& strSave & vbCrlf
                End if
                setProfile = 1
                Exit Function
        End if
       
        Const ForReading = 1, ForWriting = 2, ForAppending = 8
        Dim fso, f1, f2
        Set fso = CreateObject("Scripting.FileSystemObject")
        Set f1 = fso.OpenTextFile(Server.MapPath(strFileName), ForReading, True)
        Set f2 = fso.OpenTextFile(Server.MapPath(strfileback), ForWriting, True)
       
        On Error Resume Next
        Do While  Flag
                EditFlag = 0
                strTemp = f1.ReadLine
                If Err Then
                        err.Clear
                        Exit Do
                End if
                strreturn = strTemp
                f2.Write strreturn+vbCrlf
                If InStr(1, Trim(strTemp), "[") <> 0 Then
                        If Trim(strTemp) = "["&Trim(strSection)&"]" Then
                                EditFlag = 1
                                Dim Flag1:Flag1=True
                                Do While Flag1
                                        strTemp = f1.ReadLine
                                        If Err Then
         

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