err.Clear
                                                Exit Do
                                        End if
                                        If InStr(1, Trim(strTemp), Trim(strName)) <> 0 Then Exit Do  '找到所要修改的字段值
                                        strreturn = strTemp
                                        f2.Write strreturn+vbCrlf
                                Loop
                                If EditFlag = 1 Then       
                                        strreturn = strName & "=" & strSave
                                        f2.Write strreturn+vbCrlf
                                End if
                        Else
                                EditFlag = 2
                        End If
                End If
        Loop
        f1.Close
        f2.Close
       
        WriteFile strFileName,ReadFile(strfileback)

        fso.DeleteFile(Server.MapPath(strfileback))
        Set fso = Nothing
       
        setProfile = 1
End Function
'返回值Empty 为操作失败
Function GetProfile(strFileName, strSection, strName)
        Dim strTemp,strcharA, strcharB,Flag:Flag=True
        Dim fso, f1
        strTemp = ReadFile(strFileName)
        If InStr(1,strTemp,"["&Trim(strS

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