用ASP读INI配置文件的函数

选择自 mind_1220 的 Blog

要求： 
能够读取按照  INI文件的Section和Key来读出相应的Value。 
比如一个配置文件   
SM***te.ini ;
--------------------------------- 
[SMSVote] 
Server=(local) 
DB=SMSVote 
User=sa 
PassWord=123 
[DB2Vote] 
Se***r=192.168.0.1 ;
DB=DB2 
User=sa 
PassWord= 
--------------------------------- 
 
 
主体程序（方法）  ： 
 
in***le.asp ;
----------------------------------------------- 
<% 
set  IniFileDictionary  =  CreateObject("Sc***ting.Dictionary") 
 
Sub  IniFileLoad(ByVal  FilSpc) 
   In***leDictionary.RemoveAll ;
   FilSpc  =  lcase(FilSpc) 
   if  left(FilSpc,  1)  =  "p"  then 
       'Physical  path 
       PhyPth  =  mid(FilSpc,  instr(FilSpc,  "=")  +  1) 
   else 
       'Virtual  path 
       PhyPth  =  Se***r.MapPath(mid(FilSpc,  instr(FilSpc,  "=")  +  1)) 
   end  if 
 
   set  FilSys  =  CreateObject("Sc***ting.FileSystemObject") 
   set  IniFil  =  Fi***s.OpenTextFile(PhyPth,  1) 
   do  while  not  In***l.AtEndOfStream ;
       StrBuf  =  In***l.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  In***leDictionary.Exists(AltBuf) 
                       AltBuf  =  AltBuf  &  "_" 
                   loop 
                   In***leDictionary.Add ; AltBuf,  mid(StrBuf,  StrPtr  +  1) 
               end  if 
           end  if 
       end  if 
   loop 
   In***l.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  =  In***leDictionary.Keys ;
       for  i  =  0  to  In***leDictionary.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 
%> 
 
如何使用？ 
 
看看这个： 
co***asp ;
----------------------------------------------- 
   
 
<% 
         on  error  resume  next 
         dim  conn,connstr,dbuid,dbpwd,dbname,dbip 
         call  IniFileLoad("vi***al=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  co***Server.CreateObject("ad***.Connection") 
connstr="PROVIDER=SQLOLEDB;DATA  SOURCE="&dbip&";UID="&dbuid&";PWD="&dbpwd&";DATABASE="&dbname 
co***open ; connstr 
're***nse.write ; conn 
re***nse.write ; er***escription ;
%>