大灰狼的ASP工具箱――用ASP读INI配置文件的函数。

要求：  
能够读取按照  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