================================================================================
شكرًا لك على استخدام برنامج الوظائف العملية التي طورتها ASP001 Studio
'http://www.asp001.net
"========================================================================================================================
QQ: 1974229
البريد الإلكتروني: [email protected]
لمزيد من البرامج ، يرجى الانتقال إلى http://www.asp001.net
'===============================================================================
مقدمة الوظيفة: ابدأ/توقف عن تحديد موقع الويب باستخدام ASP
تستخدم هذه الوظيفة ADSI وتتطلب أذونات مستخدم مجموعة المسؤولين
اسم الوظيفة: adminwebsite (الكمبيوتر ، webitenum ، dowhat)
"تطوير البرنامج: ASP001 Studio Chuqi
'الاستخدام: adminwebsite (اسم الكمبيوتر ، رقم الموقع ، بدء/توقف)
مثال: ابدأ موقعًا مع رقم الموقع 1 على جهاز الكمبيوتر 127.0.0.1
"AdminWebsite" 127.0.0.1 "،" 1 "، 1
مثال: أوقف الموقع برقم الموقع 1 على جهاز الكمبيوتر 127.0.0.1
"adminwebsite" 127.0.0.1 "،" 1 "، 0
'===============================================================================
FunctionAdMinwebsite (الكمبيوتر ، webitenum ، dowhat)
onerrorresumenext
setObjServer = getObject ("iis: //" & computer & "/w3svc/" & WebSitenum)
iferr.number <> 0then
Response.Writenow & ". رمز الخطأ:" & hex (err) & "-" & "لا يمكن فتح الموقع المحدد <br>"
Endif
ifdowhat = 1th
استخدام بدء الموقع
objserver.start
iferr.number <> 0then
استجابة. "لا يمكن بدء تشغيل موقع الويب المحدد <br>"
آخر
Response.write "لقد تم بدء موقع الويب المحدد <br>"
Endif
elseifdowhat = 0then
توقف عن الموقع باستخدام التوقف
objserver.stop
iferr.number <> 0then
استجابة. "لا يمكن التوقف عن تحديد موقع الويب <br>"
آخر
reponse.write "تحديد موقع الويب قد توقف <br>"
Endif
Endif
الوظيفية