作者:virtualboy

功能是读取发布目录下的一个ini文件

  While 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