当前位置：首页 > 资讯 > 技术文档

如何读取一个.ini文件？

时间：2022-03-19 11:01 编辑：来源：阅读：
扫一扫，手机访问

摘要：如何读取一个.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>

[b]

[/b]

[b]

[/b]

[b][1][/b]

全部评论(0)

上一篇：如何获知并显示文件的大小？
下一篇：为什么用磁盘序列号加密过的代码不能被复制安装？

资讯排行榜
更多>>