|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
只要你想学,就没什么优缺点,上面那位大哥已经把网上的评论说了,但我认为想学哪个都一样,不然它就不可能在当今时代数字艺术方面存活到今天函数|函数请求:
可以读取依照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
-----------------------------------------------
<%
setIniFileDictionary=CreateObject("Scripting.Dictionary")
SubIniFileLoad(ByValFilSpc)
IniFileDictionary.RemoveAll
FilSpc=lcase(FilSpc)
ifleft(FilSpc,1)="p"then
Physicalpath
PhyPth=mid(FilSpc,instr(FilSpc,"=")+1)
else
Virtualpath
PhyPth=Server.MapPath(mid(FilSpc,instr(FilSpc,"=")+1))
endif
setFilSys=CreateObject("Scripting.FileSystemObject")
setIniFil=FilSys.OpenTextFile(PhyPth,1)
dowhilenotIniFil.AtEndOfStream
StrBuf=IniFil.ReadLine
ifStrBuf""then
Thereisdataonthisline
ifleft(StrBuf,1)";"then
Itsnotacomment
ifleft(StrBuf,1)="["then
Itsasectionheader
HdrBuf=mid(StrBuf,2,len(StrBuf)-2)
else
Itsavalue
StrPtr=instr(StrBuf,"=")
AltBuf=lcase(HdrBuf&" |
|