=========================================================ieben
'Vielen Dank für die Verwendung des von ASP001 Studio entwickelten praktischen Funktionsprogramms
'Http://www.asp001.net
'==========================================================================='ASP001 Studio provides you with customized program development and enterprise Internet expansion services
'QQ: 1974229
E-Mail: [email protected]
'Für weitere Programme herunterladen Bitte unter http://www.asp001.net
'====================================================================================
'Funktion Einführung: Starten/Stoppen Sie die Website mit ASP an
'Diese Funktion verwendet ADSI und erfordert Administratorengruppen -Benutzerberechtigungen
'Funktionsname: AdminWebsite (Computer, Websitenum, Dowhat)
'Programmentwicklung: ASP001 Studio Chuqi
'Nutzung: AdminWebsite (Computername, Standortnummer, Start/Stopp)
Beispiel: Starten Sie eine Website mit Standortnummer 1 auf dem Computer 127.0.0.1
'Adminwebsite "127.0.0.1", "1", 1
Beispiel: Stoppen Sie die Site mit der Standortnummer 1 auf dem Computer 127.0.0.1
'Adminwebsite "127.0.0.1", "1", 0
'====================================================================================
FunctionAdminWebsite (Computer, Websitenum, Dowhat)
OnErrorresumeNext
SetObjserver = getObject ("iis: //" & computer & "/w3svc/" & Websitenum)
Ifr.number <> 0Then
Antwort.WriteNow & "Fehlercode:" & Hex (err) & "-" & "Die angegebene Site kann nicht öffnen. <br>"
Endif
ifdowhat = 1Then
'Verwenden Sie die Website starten Sie
objserver.start
Ifr.number <> 0Then
Response.write "Die angegebene Website kann nicht starten <br>"
anders
Antwort.Write "Die angegebene Website wurde gestartet <br>"
Endif
elseifdowhat = 0Then
'Stop die Site mit Stop Stop
objserver.stop
Ifr.number <> 0Then
Response.write "Die Website kann nicht aufhören, <br>" anzugeben "
anders
Response.write "Angabe der Website hat <br> gestoppt" gestoppt "
Endif
Endif
Endfunktion