| 标题 | 如何读取一个.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> |
| 随便看 |
|
在线学习网考试资料包含高考、自考、专升本考试、人事考试、公务员考试、大学生村官考试、特岗教师招聘考试、事业单位招聘考试、企业人才招聘、银行招聘、教师招聘、农村信用社招聘、各类资格证书考试等各类考试资料。