内容简介：如何读取一个.ini文件？
<OBJECT ID="agobjOraSession" RUNAT="Server" PROGID="OracleInProcServer.XOraSession" SCOPE="Application">
</OBJECT>
<script LANGUAGE=VBScript RUNAT=Server>
Const CONST_FL_NAME = "\GetAttributeCode.ini"
Const CONST_FL_FORREADING = 1
Const CONST_DB_SECTION = "[DB_CONNECTION]"Sub Application_OnStart
On Error Resume Next
Dim objFs
Dim objTs
Dim strLineData
Dim flgSection
Dim strTempData
Application("Service") = ""
Application("User") = ""
strLineData = ""
strTempData = ""
flgSection = False
Set objFs = Server.CreateObject ("Scripting.FileSystemObject")
Set objTs = objFs.OpenTextFile(Server.MapPath(CONST_FL_NAME),CONST_FL_FORREADING,False)
If Err.Number <> 0 Then
Err.Clear
Set objTs = Nothing
Set objFs = Nothing
Exit Sub
End If
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
If flgSection = True Then
If Mid(strLineData,1,7) = "Service" Then
strTempData = Trim(Mid(strLineData,8,Len(strLineData)-7))
If Mid(strTempData,1,1) = "=" Then
strTempData = Trim(Mid(strTempData,2,Len(strTempData)-1))
Application.Lock
Application("Service") = Mid(strTempData,2,Len(strTempData)-2)
Application.UnLock
End If
End If
If Mid(strLineData,1,4) = "User" Then
strTempData = Trim(Mid(strLineData,5,Len(strLineData)-4))
If Mid(strTempData,1,1) = "=" Then
strTempData = Trim(Mid(strTempData,2,Len(strTempData)-1))
Application.Lock
Application("User") = Mid(strTempData,2,Len(strTempData)-2)
Application.UnLock
End If
End If
End If
End If
Wend
objTs.Close
Set objTs = Nothing
Set objFs = Nothing
End Sub
</script>
[1]
以上所述就是小编给大家介绍的《如何读取一个.ini文件？》，希望对大家有所帮助，如果大家有任何疑问请给我留言，小编会及时回复大家的。在此也非常感谢大家对 码农网 的支持！
猜你喜欢:
本站部分资源来源于网络，本站转载出于传递更多信息之目的，版权归原作者或者来源机构所有，如转载稿涉及版权问题，请联系我们。
JSP网站开发四“酷”全书
万峰科技 / 电子工业出版社 / 2005-9 / 49.00元
本书以JSP为开发语言，选取当前最流行、最具代表性的4类网站：新闻站点、论坛、电子商城和博客（Blog）系统为例，详细介绍了使用JSP开发网站的核心技术。掌握了本书所举4类网站的开发技术，将帮助你成为网站开发的“全能冠军”。 本书结合作者多年在网站系统开发方面的经验，从系统的需求分析开始，确定系统的流程与设计，到模块的划分，再到数据加结构的设计，最后开始每个模块编程开发，贯穿了网站开......一起来看看 《JSP网站开发四“酷”全书》 这本书的介绍吧!
