功能是读取发布目录下的一个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