'******************************************************* ***
'Buat Server Web
'Parameter yang diperlukan: WRoot, adalah direktori fisik tempat situs dibuat; WComment adalah deskripsi situs; WPort adalah port situs;
' Mengembalikan 1 ketika pembuatan berhasil, meminta untuk keluar dan mengembalikan 0 ketika gagal, mengembalikan 2 ketika situs berhasil dibuat tetapi gagal untuk memulai.
'******************************************************* ****
'
'******************Catatan: WPort adalah tipe Daftar, artinya port server
' Fungsi ini diteruskan pada IIS5.0, **Harus login sebagai administrator**
'Contoh pelabuhan:
' Redupkan WPort,bindlist,createflag,oComputer
' oKomputer=""""Host Lokal""""
'binglist=Array(0)
' binglists(0)="""":80:""""'Nomor portnya adalah 80
' WPort=daftar bing
' createflag=CreateWebServer(""""D:myweb"""",""""Rumahku"""",WPort,False)'Panggil fungsi pembuatan situs web
' Jika creatflag=0 Lalu
' Response.Write """"Gagal membuat situs! Harap pastikan Anda memiliki izin""""
' ElseIf createflag=1 Lalu
' Response.Write """"Situs berhasil dibuat! """"
' ElseIf createflag=2 Lalu
' Response.Write """"Membuat situs berhasil, tetapi gagal memulai situs, mungkin ada konflik port! """"
'Akhiri Jika
'******************************************************* *********
'Tentang pembuatan situs Ftp sudah saya publikasikan dalam versi asp. Teman-teman yang berminat bisa memeriksanya sendiri.
'Jika Anda memiliki pertanyaan, jangan ragu untuk menghubungi saya: [email protected]
Fungsi CreateWebServer(WRoot,WComment,WPort,ServerRun)
Pada Kesalahan Lanjutkan Berikutnya
Redupkan ServiceObj,ServerObj,VDirObj
Set ServiceObj = GetObject(""""IIS://""""&oComputer&""""/W3SVC""")' Pertama buat instance layanan
WNumber=1
Lakukan Sementara IsObject(ServiceObj.GetObject(""""IIsWebServer"""",WNumber))
Jika Err.number<>0 Lalu
Err.Hapus()
Keluar Lakukan
Akhiri Jika
Nomor W=Nomor W+1
Loop
Set ServerObj = ServiceObj.Create(""""IIsWebServer"""", WNumber)' Kemudian buat server WEBJika
(Err.Number <> 0) Lalu' Apakah ada kesalahan?
'Response.Write """"Kesalahan: Operasi ADSI untuk membuat server web gagal! """"
BuatWebServer=0
Fungsi Keluar
Akhiri Jika
' Kemudian konfigurasikan servernya
ServerObj.ServerSize = 1 ' Ukuran sedang
ServerObj.ServerComment = WComment 'Deskripsi
ServerObj.ServerBindings = WPort 'Port
ServerObj.EnableDefaultDoc=Benar
' Kirimkan informasi
ServerObj.SetInfo
' Terakhir, buat direktori virtual
Setel VDirObj = ServerObj.Create(""""IIsWebVirtualDir"""", """"ROOT"""")
If (Err.Number <> 0) Lalu 'Apakah ada kesalahan?
'Response.Write """"Kesalahan: Operasi ADSI untuk membuat direktori virtual gagal! """"
BuatWebServer=0
Fungsi Keluar
Berakhir Jika
'Konfigurasi direktori virtual
VDirObj.Path = WRoot
VDirObj.AccessRead = Benar
VDirObj.AccessWrite = Benar
VDirObj.EnableDirBrowsing = Salah
VDirObj.EnableDefaultDoc=Benar
VDirObj.AccessScript=Benar
VDirObj.AppCreate2 2
VDirObj.AppFriendlyName=""""Aplikasi Bawaan""""
VDirObj.SetInfo
Jika ServerRun = Benar Lalu
ServerObj.Mulai
Jika (Err.Number <> 0) Maka ' Error!
'Response.Write """"Kesalahan: Kesalahan memulai server! Silakan mulai WebServer """"&WComment&"""" secara manual! <br>""""
BuatWebServer=2
Fungsi Keluar
Akhiri Jika
Akhiri Jika
Setel VDirObj=Tidak Ada
Setel ServerObj=Tidak Ada
Setel ServiceObj=Tidak Ada
BuatWebServer=1
Fungsi Akhir