麻豆小视频在线观看_中文黄色一级片_久久久成人精品_成片免费观看视频大全_午夜精品久久久久久久99热浪潮_成人一区二区三区四区

首頁(yè) > 學(xué)院 > 開發(fā)設(shè)計(jì) > 正文

用ASP讀INI配置文件的函數(shù)

2019-11-18 19:13:31
字體:
供稿:網(wǎng)友

選擇自 mind_1220 的 Blog

要求: 
能夠讀取按照  INI文件的Section和Key來讀出相應(yīng)的Value。 
比如一個(gè)配置文件   
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("Scr 
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 
%> 
 
如何使用? 
 
看看這個(gè): 
conn.asp 
----------------------------------------------- 
<!--#include  file="inifile.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 
%> 


發(fā)表評(píng)論 共有條評(píng)論
用戶名: 密碼:
驗(yàn)證碼: 匿名發(fā)表
主站蜘蛛池模板: 99精品国产成人一区二区 | av免费不卡国产观看 | 毛片韩国 | 久久色播| 日本欧美一区二区三区在线播 | 久久超| 国产在线免费 | 一级国产免费 | 国产女同疯狂激烈互摸 | 黄色毛片一级 | 久久久日韩精品一区二区三区 | 亚洲午夜在线观看 | 久久一级 | 日本aaaa片毛片免费观看视频 | 欧美视频在线一区二区三区 | 免费在线性爱视频 | 免费淫视频| h视频免费看 | 亚洲国产精品久久久久久久久 | 精品国产一区二区三区在线观看 | 欧美特黄一级高清免费的香蕉 | 成人国产精品齐天大性 | 日韩视频一区二区在线观看 | 少妇淫片免费一级毛片 | 国产午夜精品久久久久久免费视 | 黄色一级片免费在线观看 | 草久在线观看视频 | 男人久久天堂 | 91精品国产九九九久久久亚洲 | 亚洲成人免费电影 | 看毛片电影| 一区国产视频 | 精品国产精品久久 | 成人免费看视频 | 久久精品视频一区二区三区 | 九九热视频这里只有精品 | 午夜精品久久久久久中宇 | 黄色网址免费进入 | 99精品视频在线免费观看 | 亚州精品天堂中文字幕 | 羞羞的小视频 |