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