用ASP读INI配置文件的函数

2022-07-15 80酷酷网 80kuku.com

选择自 mind_1220 的 Blog

要求：
能够读取按照 INI文件的Section和Key来读出相应的Value。
比如一个配置文件
SMSVote.ini
---------------------------------
[SMSVote]
Server=(local)
DB=SMSVote
User=sa
PassWord=123
[DB2Vote]
Server=192.168.0.1
DB=DB2
User=sa
PassWord=
---------------------------------

主体程序（方法）：

inifile.asp
-----------------------------------------------
<%
set IniFileDictionary = CreateObject("Scripting.Dictionary")

Sub IniFileLoad(ByVal FilSpc)
   IniFileDictionary.RemoveAll
   FilSpc = lcase(FilSpc)
   if left(FilSpc, 1) = "p" then
       'Physical path
       PhyPth = mid(FilSpc, instr(FilSpc, "=") + 1)
   else
       'Virtual path
       PhyPth = Server.MapPath(mid(FilSpc, instr(FilSpc, "=") + 1))
   end if

   set FilSys = CreateObject("Scripting.FileSystemObject")
   set IniFil = FilSys.OpenTextFile(PhyPth, 1)
   do while not IniFil.AtEndOfStream
       StrBuf = IniFil.ReadLine
       if StrBuf <> "" then
           'There is data on this line
           if left(StrBuf, 1) <> ";" then
               'It's not a comment
               if left(StrBuf, 1) = "[" then
                   'It's a section header
                   HdrBuf = mid(StrBuf, 2, len(StrBuf) - 2)
               else
                   'It's a value
                   StrPtr = instr(StrBuf, "=")
                   AltBuf = lcase(HdrBuf & " |" & left(StrBuf, StrPtr - 1))
                   do while IniFileDictionary.Exists(AltBuf)
                       AltBuf = AltBuf & "_"
                   loop
                   IniFileDictionary.Add AltBuf, mid(StrBuf, StrPtr + 1)
               end if
           end if
       end if
   loop
   IniFil.Close
   set IniFil = nothing
   set FilSys = nothing
End Sub

Function IniFileValue(ByVal ValSpc)
   dim ifarray
   StrPtr = instr(ValSpc, " |")
   ValSpc = lcase(ValSpc)
   if StrPtr = 0 then
       'They want the whole section
       StrBuf = ""
       StrPtr = len(ValSpc) + 1
       ValSpc = ValSpc + " |"
       ifarray = IniFileDictionary.Keys
       for i = 0 to IniFileDictionary.Count - 1
           if left(ifarray(i), StrPtr) = ValSpc then
               'This is from the section
               if StrBuf <> "" then
                   StrBuf = StrBuf & "~"
               end if
               StrBuf = StrBuf & ifarray(i) & "=" & IniFileDictionary(ifarray(i))
           end if
       next
   else
       'They want a specific value
       StrBuf = IniFileDictionary(ValSpc)
   end if
   IniFileValue = StrBuf
End Function
Function Chr(section,key)
char1=IniFileValue(section)
SearchString =char1
SearchChar = key
MyPos=Instr(1,SearchString,SearchChar,1)
'char2=section+key
char1=mid(char1,MyPos+len(key)+1,len(char1)-MyPos+1)
SearchString =char1
SearchChar = "~"
MyPos=Instr(1,SearchString,SearchChar,1)
if MyPos<>0 then
char1=mid(char1,1,MyPos-1)
else
char1=mid(char1,1)
end if
Chr = char1
End Function
%>

如何使用？

看看这个：
conn.asp
-----------------------------------------------


<%
         on error resume next
         dim conn,connstr,dbuid,dbpwd,dbname,dbip
         call IniFileLoad("virtual=SMSVote.ini") '配置文件的名字
         dbuid=Chr("SMSVote","User")            'Section="SMSVote",Key="User"
         dbpwd=Chr("SMSVote","PassWord")    'Section="SMSVote",Key="PassWord"
         dbname=Chr("SMSVote","DB")              'Section="SMSVote",Key="DB"
         dbip=Chr("SMSVote","server")          'Section="SMSVote",Key="server"

set conn=Server.CreateObject("adodb.Connection")
connstr="PROVIDER=SQLOLEDB;DATA SOURCE="&dbip&";UID="&dbuid&";PWD="&dbpwd&";DATABASE="&dbname
conn.open connstr
'response.write conn
response.write err.description
%>