readini.asp

来自「学ASP必看的100个小例子。觉得不错」· ASP 代码 · 共 60 行

ASP

60 行

<%
class IniFile
    private mFileName
    private mDictionary
    
    private sub class_initialize()
        set mDictionary=Server.CreateObject("Scripting.Dictionary")
    end sub
    
    public property Let FileName(vFileName)
        dim mFileSys 
        dim mIniFile
        dim mSection
        dim mKeyName
        dim mValue
        dim mString
        dim mStart
        mFileName=vFileName
        set mFileSys=server.CreateObject("Scripting.FileSystemObject")
        set mIniFile=mfilesys.OpenTextFile(mFileName,1)
        do while not mIniFile.AtEndOfStream
            mString=mIniFile.ReadLine
            if mString<>"" then
                if left(mString,1)<>";" then
                    if left(mString,1)="[" then
                        mSection=mid(mString,2,len(mstring)-2)
                    else
                        mStart=instr(mstring,"=")
                        mKeyName=left(mstring,mStart-1)
                        mDictionary.Add lcase(mSection) & "_" & lcase(mKeyName),mid(mString,mStart+1)
                    end if
                end if
            end if
        loop
        mIniFile.Close
        Set mFileSys=nothing
        set mIniFile=nothing
    end property
    
    Public Function GetIniValue(byval vSection,byval vKeyName)
        on error resume next
        GetIniValue=mDictionary(lcase(vSection) & "_" & lcase(vKeyName))
    End Function
    
End Class
%>
<Html>
<Title>读取INI文件</Title>
<Body>
<h2>读取INI文件</h2>
<%
dim mINI 
set mINI=new inifile
mINI.FileName = "d:\1.ini"
Response.Write "[Company]" & "<br>Phone="
Response.Write  mINI.GetIniValue("Company","phone")

%>
</Body>
</Html>

readini.asp - 源码说明

本页面展示了「学ASP必看的100个小例子。觉得不错」中的 readini.asp 源码文件，采用 ASP 编程语言编写，共 60 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与ASP相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C

搜索代码Ctrl + F

全屏模式F11

增大字号Ctrl + =

减小字号Ctrl + -

显示快捷键?