'************************************************ * ***
'สร้างเว็บเซิร์ฟเวอร์
'พารามิเตอร์ที่จำเป็น: WRoot คือไดเร็กทอรีทางกายภาพที่สร้างไซต์; WComment คือคำอธิบายไซต์; WPort คือพอร์ตของไซต์;
' ส่งคืน 1 เมื่อการสร้างสำเร็จ แจ้งให้ออก และส่งคืนค่า 0 เมื่อล้มเหลว ส่งคืน 2 เมื่อสร้างไซต์สำเร็จแต่ไม่สามารถเริ่มต้นได้
'************************************************ * ****
-
'******************หมายเหตุ: WPort เป็นประเภทรายการ ซึ่งหมายถึงพอร์ตเซิร์ฟเวอร์
' ฟังก์ชั่นนี้ส่งต่อบน IIS5.0 **ต้องเข้าสู่ระบบในฐานะผู้ดูแลระบบ**
'ตัวอย่างพอร์ต:
' หรี่ WPort, รายการผูก, createflag, oComputer
' oคอมพิวเตอร์=""""LocalHost""""
'binglists=อาร์เรย์(0)
' binglists(0)="""":80:""""'หมายเลขพอร์ตคือ 80
' WPort=binglists
' createflag=CreateWebServer(""""D:myweb"""",""""My Home"""",WPort,False)'เรียกใช้ฟังก์ชันการสร้างเว็บไซต์
' ถ้า creatflag=0 แล้ว
' Response.Write """"สร้างเว็บไซต์ล้มเหลว! โปรดตรวจสอบให้แน่ใจว่าคุณได้รับอนุญาต""""
' ElseIf createflag=1 จากนั้น
' Response.Write """"สร้างไซต์สำเร็จแล้ว! -
' ElseIf createflag=2 จากนั้น
' Response.Write """"สร้างไซต์สำเร็จ แต่ไม่สามารถเริ่มไซต์ได้ อาจเกิดปัญหาพอร์ตขัดแย้งกัน! -
'สิ้นสุดถ้า
'************************************************ * *********
'เกี่ยวกับการสร้างไซต์ Ftp ฉันได้เผยแพร่ในเวอร์ชัน asp แล้ว เพื่อนๆ ที่สนใจสามารถตรวจสอบได้ด้วยตนเอง
'หากคุณมีคำถามใด ๆ โปรดติดต่อฉัน: [email protected]
Function CreateWebServer(WRoot,WComment,WPort,ServerRun)
เมื่อเกิดข้อผิดพลาด ดำเนินการต่อต่อไป
Dim ServiceObj, ServerObj, VDirObj
ตั้งค่า 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)' จากนั้นสร้าง WEB serverIf
(Err.Number <> 0) แล้ว' มีข้อผิดพลาดเกิดขึ้นหรือไม่?
'Response.Write """"ข้อผิดพลาด: การดำเนินการ ADSI เพื่อสร้างเว็บเซิร์ฟเวอร์ล้มเหลว! -
สร้างเว็บเซิร์ฟเวอร์=0
ออกจากฟังก์ชัน
สิ้นสุดถ้า
' จากนั้นกำหนดค่าเซิร์ฟเวอร์
ServerObj.ServerSize = 1 ' ขนาดกลาง
ServerObj.ServerComment = WComment 'คำอธิบาย'
ServerObj.ServerBindings = WPort 'พอร์ต
ServerObj.EnableDefaultDoc=True
' ส่งข้อมูล
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=True
VDirObj.AccessScript=จริง
VDirObj.AppCreate2 2
VDirObj.AppFriendlyName=""""แอปพลิเคชันเริ่มต้น""""
VDirObj.SetInfo
ถ้า ServerRun = True แล้ว
ServerObj.Start
ถ้า (Err.Number <> 0) ดังนั้น ' เกิดข้อผิดพลาด!
'Response.Write """"ข้อผิดพลาด: เกิดข้อผิดพลาดในการเริ่มเซิร์ฟเวอร์! กรุณาเริ่ม WebServer """"&WComment&"""" ด้วยตนเอง! <br>""""
สร้างเว็บเซิร์ฟเวอร์=2
ออกจากฟังก์ชัน
สิ้นสุดถ้า
สิ้นสุดถ้า
ตั้งค่า VDirObj=ไม่มีอะไร
ตั้งค่า ServerObj=ไม่มีอะไร
ตั้งค่า ServiceObj=ไม่มีอะไร
สร้างเว็บเซิร์ฟเวอร์=1
ฟังก์ชันสิ้นสุด