国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 學院 > 開發設計 > 正文

用ASP讀INI配置文件的函數

2019-11-18 19:13:31
字體:
來源:轉載
供稿:網友

選擇自 mind_1220 的 Blog

要求: 
能夠讀取按照  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("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 
%> 
 
如何使用? 
 
看看這個: 
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 
%> 


發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板: 海门市| 砀山县| 惠安县| 巧家县| 武川县| 禹城市| 佛冈县| 东方市| 揭阳市| 兴隆县| 梅州市| 获嘉县| 庆元县| 九寨沟县| 连平县| 南投县| 花莲县| 托克托县| 龙游县| 石门县| 阆中市| 榕江县| 雷山县| 泉州市| 中超| 屯留县| 于田县| 甘谷县| 神农架林区| 阳信县| 安吉县| 柳河县| 阳山县| 绿春县| 南宫市| 泰兴市| 苏尼特左旗| 德庆县| 永清县| 青岛市| 连南|