选择自 Mind_1220 的 المدونة
:
يتم تحديد قسم INI وقيمة المفتاح.
لا يوجد شيء آخر
SMSVote.ini
---------------------------------
[تصويت عبر الرسائل القصيرة]
الخادم=(محلي)
DB=SMSVote
المستخدم = سا
كلمة المرور=123
[DB2تصويت]
الخادم=192.168.0.1
ديسيبل=DB2
المستخدم = سا
كلمة المرور=
---------------------------------
主体程序(الاسم):
inifile.asp
-----------------------------------------------
<%
تعيين IniFileDictionary = CreateObject("Scripting.Dictionary")
Sub IniFileLoad (ByVal FilSpc)
IniFileDictionary.RemoveAll
FilSpc = lcase(FilSpc)
إذا ترك (FilSpc, 1) = "p" إذن
"المسار الجسدي."
PhyPth = mid(FilSpc, instr(FilSpc, "=) + 1)
آخر
"المسار الافتراضي."
PhyPth = Server.MapPath(mid(FilSpc, instr(FilSpc, "=") + 1))
نهاية إذا
تعيين FilSys = CreateObject("Scripting.FileSystemObject")
تعيين IniFil = FilSys.OpenTextFile(PhyPth, 1)
افعل بينما لا IniFil.AtEndOfStream
StrBuf = IniFil.ReadLine
إذا StrBuf <> "" ثم
"توجد بيانات على هذا الخط."
إذا بقي (StrBuf، 1) <> "؛" ثم
"إنه ليس تعليقًا."
إذا بقي (StrBuf، 1) = "[" ثم
'إنه رأس القسم
HdrBuf = منتصف (StrBuf، 2، لين (StrBuf) - 2)
آخر
"إنها قيمة."
StrPtr = instr(StrBuf, "=")
AltBuf = lcase(HdrBuf & " ¦" & left(StrBuf, StrPtr - 1))
افعل ذلك أثناء IniFileDictionary.Exists(AltBuf)
AltBuf = AltBuf & "_"
حلقة
IniFileDictionary.Add AltBuf, mid(StrBuf, StrPtr + 1)
نهاية إذا
نهاية إذا
نهاية إذا
حلقة
IniFil.Close
تعيين IniFil = لا شيء
تعيين FilSys = لا شيء
نهاية الفرعية
الدالة IniFileValue(ByVal ValSpc)
خافت ifarray
StrPtr = instr(ValSpc, " ¦")
ValSpc = lcase(ValSpc)
إذا StrPtr = 0 ثم
"إنهم يريدون القسم بأكمله."
ستربوف = ""
StrPtr = لين (ValSpc) + 1
ValSpc = ValSpc + " ¦"
ifarray = IniFileDictionary.Keys
لأني = 0 إلى IniFileDictionary.Count - 1
إذا بقي (ifarray (i)، StrPtr) = ValSpc إذن
"هذا من القسم"
إذا StrBuf <> "" ثم
StrBuf = StrBuf & "~"
نهاية إذا
StrBuf = StrBuf & ifarray(i) & "= & IniFileDictionary(ifarray(i))
نهاية إذا
التالي
آخر
"إنهم يريدون قيمة محددة."
StrBuf = IniFileDictionary(ValSpc)
نهاية إذا
IniFileValue = StrBuf
وظيفة النهاية
وظيفة مركز حقوق الإنسان (القسم، المفتاح)
char1=IniFileValue(القسم)
سلسلة البحث = char1
SearchChar = key
MyPos=Instr(1,SearchString,SearchChar,1)
'char2=section+key
char1=mid(char1,MyPos+len(key)+1,len(char1)-MyPos+1)
سلسلة البحث = char1
بحث شار = "~"
MyPos=Instr(1,SearchString,SearchChar,1)
إذا MyPos<>0 ثم
char1=منتصف(char1,1,MyPos-1)
آخر
char1 = منتصف (char1،1)
نهاية إذا
مركز حقوق الإنسان = char1
وظيفة النهاية
%>
ما هو السبب؟
القصة التالية:
conn.asp
-----------------------------------------------
<!--#include file="inifile.asp"-->
<%
على خطأ استئناف المقبل
خافت conn، connstr، dbuid، dbpwd، dbname، dbip
اتصل بـ IniFileLoad("virtual=SMSVote.ini")
dbuid=Chr("SMSVote"، "المستخدم") 'القسم = "SMSVote"، المفتاح = "المستخدم"
dbpwd=Chr("SMSVote"، "PassWord") 'القسم = "SMSVote"، المفتاح = "PassWord"
dbname=Chr("SMSVote"، "DB") 'القسم = "SMSVote"، المفتاح = "DB"
dbip=Chr("SMSVote"، "الخادم") 'القسم = "SMSVote"، المفتاح = "الخادم"
مجموعة conn=Server.CreateObject("adodb.Connection")
connstr="PROVIDER=SQLOLEDB;DATA SOURCE="&dbip&";UID="&dbuid&";PWD="&dbpwd&";قاعدة البيانات ="&dbname
conn.open connstr
'response.write conn
الاستجابة.كتابة الخطأ.الوصف
%>