'********************************************************************************************************************************************************************************* * ***
'إنشاء خادم ويب
'المعلمات المطلوبة: WRoot، هو الدليل الفعلي الذي تم إنشاء الموقع فيه؛ WComment هو وصف الموقع؛ WPort هو منفذ ServerRun؛
' يُرجع 1 عندما يكون الإنشاء ناجحًا، ويطالب بالخروج ويعيد 0 عندما يفشل، ويُرجع 2 عندما يتم إنشاء الموقع بنجاح ولكن يفشل في البدء.
'********************************************************************************************************************************************************************************* * ****
'
'******************ملاحظة: WPort هو نوع القائمة، ويعني منفذ الخادم
' تمر هذه الوظيفة على IIS5.0، **يجب تسجيل الدخول كمسؤول**
"مثال المنفذ:
' Dim WPort,bindlists,createflag,oComputer
' oالكمبيوتر = """"المضيف المحلي""""
'binglists=صفيف(0)
' binglists(0)="""":80:"""""رقم المنفذ هو 80
' WPort=binglists
' createflag=CreateWebServer(""""D:myweb""""،"""My Home""""،WPort,False)'استدعاء وظيفة بناء موقع الويب
'إذا كان creatflag=0 إذن
' Response.Write """"فشل في إنشاء الموقع! يرجى التأكد من حصولك على إذن """"
' ElseIf createflag=1 ثم
' Response.اكتب """"تم إنشاء الموقع بنجاح! """"
' ElseIf createflag=2 ثم
' Response.Write """"تم إنشاء الموقع بنجاح، ولكن الفشل في بدء تشغيل الموقع، قد يكون هناك تعارض في المنفذ! """"
'انتهى إذا
'********************************************************************************************************************************************************************************* * *********
'حول إنشاء موقع Ftp، قمت بنشره في إصدار ASP، ويمكن للأصدقاء المهتمين التحقق من ذلك بأنفسهم.
'إذا كانت لديك أي أسئلة، فلا تتردد في الاتصال بي: [email protected]
الوظيفة CreateWebServer(WRoot,WComment,WPort,ServerRun)
على خطأ استئناف التالي
Dim ServiceObj,ServerObj,VDirObj
Set ServiceObj = GetObject(""""IIS://"""&oComputer&""""/W3SVC""")' قم أولاً بإنشاء مثيل خدمة
WNumber=1
افعل بينما IsObject(ServiceObj.GetObject(""""IIsWebServer"""",WNumber))
إذا Err.number<>0 ثم
خطأ.مسح ()
قم بالخروج
نهاية إذا
رقم WNumber=WNumber+1
Loop
Set ServerObj = ServiceObj.Create(""""IIsWebServer""""، WNumber)' ثم قم بإنشاء خادم ويب إذا
(Err.Number <> 0) ثم هل هناك خطأ؟
'Response.Write """"خطأ: فشلت عملية ADSI لإنشاء خادم الويب! """"
إنشاء خادم ويب = 0
وظيفة الخروج
نهاية إذا
"ثم قم بتكوين الخادم
ServerObj.ServerSize = 1 ' حجم متوسط
ServerObj.ServerComment = WComment 'Description
ServerObj.ServerBindings = WPort 'Port
ServerObj.EnableDefaultDoc=صحيح
' إرسال المعلومات
ServerObj.SetInfo
' وأخيرًا، قم بإنشاء دليل ظاهري
تعيين VDirObj = ServerObj.Create(""""IIsWebVirtualDir"""", """"ROOT"""")
إذا كان (Err.Number <> 0) فهل هناك خطأ؟
'Response.Write """"خطأ: فشلت عملية ADSI لإنشاء دليل ظاهري! """"
إنشاء خادم ويب = 0
وظيفة الخروج
إنهاء إذا كان
"تكوين الدليل الظاهري".
VDirObj.Path = WRoot
VDirObj.AccessRead = صحيح
VDirObj.AccessWrite = صحيح
VDirObj.EnableDirBrowsing = خطأ
VDirObj.EnableDefaultDoc=صحيح
VDirObj.AccessScript=صحيح
VDirObj.AppCreate2 2
VDirObj.AppFriendlyName = """"التطبيق الافتراضي""""
VDirObj.SetInfo
إذا كان ServerRun = True إذن
ServerObj.Start
إذا كان (Err.Number <> 0) ثم خطأ!
'Response.Write """"خطأ: خطأ في بدء تشغيل الخادم! برجاء تشغيل خادم الويب """"&WComment&"""" يدويًا! <br>""""
إنشاء خادم ويب=2
وظيفة الخروج
نهاية إذا
نهاية إذا
اضبط VDirObj=لا شيء
تعيين ServerObj=لا شيء
تعيين ServiceObj=لا شيء
إنشاء خادم ويب = 1
وظيفة النهاية