1 2 3 下一页

　　要求：　

　　能够读取按照　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,　"=")　

(责任编辑：admin)