欢迎来到入门教程网!

编程问答

当前位置:主页 > 网络编程 > 编程问答 >

如何读取一个.ini文件?

来源:本站原创|时间:2020-01-11|栏目:编程问答|点击:

<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<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" />

 

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文件?

本文地址:https://www.xiuzhanwang.com/a1/bianchengwenda/12067.html

网页制作CMS教程网络编程软件编程脚本语言数据库服务器

如果侵犯了您的权利,请与我们联系,我们将在24小时内进行处理、任何非本站因素导致的法律后果,本站均不负任何责任。

联系QQ:835971066 | 邮箱:835971066#qq.com(#换成@)

Copyright © 2002-2020 脚本教程网 版权所有