Asp中关于Global.asa文件的编程（二）

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