选择自 mind_1220 의 블로그
要求:
能够读取按光 INI文件的Section and Key来读取按的Value.
比如一个配置文件
SMSVote.ini
---------------------------------
[SMS투표]
서버=(로컬)
DB=SMS투표
사용자=sa
비밀번호=123
[DB2투표]
서버=192.168.0.1
DB=DB2
사용자=sa
비밀번호=
---------------------------------
主体程序(방법) :
inifile.asp
----------------------------------
<%
set IniFileDictionary = CreateObject("Scripting.Dictionary")
하위 IniFileLoad(ByVal FilSpc)
IniFileDictionary.RemoveAll
FilSpc = lcase(FilSpc)
left(FilSpc, 1) = "p"인 경우
'물리적 경로
PhyPth = mid(FilSpc, instr(FilSpc, "=") + 1)
또 다른
'가상 경로
PhyPth = Server.MapPath(mid(FilSpc, instr(FilSpc, "=") + 1))
종료하면
set FilSys = CreateObject("Scripting.FileSystemObject")
IniFil = FilSys.OpenTextFile(PhyPth, 1) 설정
IniFil.AtEndOfStream이 아닌 동안 수행
StrBuf = IniFil.ReadLine
StrBuf <> ""이면
'이 줄에 데이터가 있습니다
왼쪽이면(StrBuf, 1) <> ";" 그 다음에
'댓글이 아니야.
if left(StrBuf, 1) = "[" 다음
'섹션 헤더입니다.
HdrBuf = mid(StrBuf, 2, len(StrBuf) - 2)
또 다른
'이건 가치야.
StrPtr = instr(StrBuf, "=")
AltBuf = lcase(HdrBuf & " ¦" & 왼쪽(StrBuf, StrPtr - 1))
IniFileDictionary.Exists(AltBuf) 동안 수행합니다.
AltBuf = AltBuf & "_"
고리
IniFileDictionary.AltBuf 추가, mid(StrBuf, StrPtr + 1)
종료하면
종료하면
종료하면
고리
IniFil.닫기
IniFil = 아무것도 설정하지 않음
FilSys = 아무것도 설정하지 않음
서브 끝
함수 IniFileValue(ByVal ValSpc)
희미한 ifarray
StrPtr = instr(ValSpc, " ¦")
ValSpc = lcase(ValSpc)
StrPtr = 0이면
'그들은 전체 섹션을 원해요
StrBuf = ""
StrPtr = len(ValSpc) + 1
ValSpc = ValSpc + " ¦"
ifarray = IniFileDictionary.Keys
i = 0에서 IniFileDictionary.Count - 1까지
left(ifarray(i), StrPtr) = ValSpc인 경우
'이 부분에서 나온 것입니다.
StrBuf <> ""이면
StrBuf = StrBuf & "~"
종료하면
StrBuf = StrBuf & ifarray(i) & "=" & IniFileDictionary(ifarray(i))
종료하면
다음
또 다른
'그들은 특정한 가치를 원한다
StrBuf = IniFileDictionary(ValSpc)
종료하면
IniFileValue = StrBuf
기능 종료
기능 Chr(섹션,키)
char1=IniFileValue(섹션)
검색 문자열 =char1
SearchChar = 키
MyPos=Instr(1,SearchString,SearchChar,1)
'char2=섹션+키
char1=mid(char1,MyPos+len(키)+1,len(char1)-MyPos+1)
검색 문자열 =char1
SearchChar = "~"
MyPos=Instr(1,SearchString,SearchChar,1)
MyPos<>0이면
char1=mid(char1,1,MyPos-1)
또 다른
char1=중간(문자1,1)
종료하면
Chr = 문자1
기능 종료
%>
어떤 용도인가요?
看看这个:
conn.asp
----------------------------------
<!--#include 파일="inifile.asp"-->
<%
오류 발생 시 다음 재개
희미한 conn,connstr,dbuid,dbpwd,dbname,dbip
call IniFileLoad("virtual=SMSVote.ini") '配置文件의 이름
dbuid=Chr("SMSVote","사용자") 'Section="SMSVote",Key="사용자"
dbpwd=Chr("SMSVote","비밀번호") 'Section="SMSVote",Key="비밀번호"
dbname=Chr("SMSVote","DB") 'Section="SMSVote",Key="DB"
dbip=Chr("SMSVote","서버") 'Section="SMSVote",Key="서버"
set conn=Server.CreateObject("adodb.Connection")
connstr="PROVIDER=SQLOLEDB;DATA SOURCE="&dbip&";UID="&dbuid&";PWD="&dbpwd&";DATABASE="&dbname
conn.open 연결
'response.write conn
응답.쓰기 오류.설명
%>