เอกสารมานานแล้วจัดเรียงและระลึกถึง
ใช้ VB เพื่อห่อหุ้ม ASP และสร้างโปรแกรมทดสอบ Sayhello
1. เปิด VB6 และสร้าง ActiveXdll ใหม่
2. เพิ่ม Microsoft ActiveserverpagesObjectLibrary ลงในการอ้างอิงโครงการ
3. กรอกรหัสดังนี้:
'codestart
'ส่วนประกาศ
PrivateMyScriptingContextAsscriptingContext
PrivatemyApplicationAsapplication
Privatemyrequestasrequest
PrivateMyResponseAsResponse
PrivateMySerAsserver
PrivateMySessionassession
'ต่อไปนี้กำหนดฟังก์ชั่นทั่วไป (การเข้าถึงวัตถุ ASP ใน VB นั่นคือใน VB MyApplication สามารถใช้เทียบเท่ากับแอปพลิเคชันใน ASP, MyRequest เทียบเท่ากับการร้องขอใน ASP, myResponse เทียบเท่ากับการตอบสนองใน ASP, myserver เทียบเท่ากับเซิร์ฟเวอร์
PublicsubonStartPage (PassedScriptingContextAsscriptingContext)
setMyScriptingContext = passedscriptingContext
setMyApplication = myScriptingContext.Application
setMyRequest = myscriptingContext.request
setMyResponse = myscriptingContext.response
setMyServer = myscriptingContext.server
setMySession = myscriptingContext.session
enddub
PublicsubonendPage ()
setMyScriptingContext = ไม่มีอะไร
setMyApplication = ไม่มีอะไร
SetMyRequest = ไม่มีอะไร
setMyResponse = ไม่มีอะไร
setMyServer = ไม่มีอะไร
setMySession = ไม่มีอะไร
enddub
'สร้างฟังก์ชั่นที่กำหนดเอง sayhello
Publicsubsayhello ()
MyResponse.write ("HelloWorld")
enddub
'codeend
4. เปลี่ยนชื่อคลาสเป็น: HelloWorld เปลี่ยนชื่อโครงการเป็น: testVBCode
5. สร้างไฟล์ testVbCode.dll และใช้ Windows เพื่อเรียกใช้ REGSVR32 PATH/TESTVBCODE.DLL เพื่อลงทะเบียนและใช้งาน (คำสั่งถอนการติดตั้งคือ regsvr32/u path/testvbcode.dll)
6. สร้างไฟล์ test.asp รหัสมีดังนี้
-
'รูปแบบการโทรที่สร้างขึ้นด้วยตนเอง VB
'ตั้งชื่อวัตถุ = Server.CreateObject ("ชื่อโครงการชื่อคลาส")
'ชื่อวัตถุ ชื่อฟังก์ชั่นที่สร้างขึ้นเอง
setMyTestObj = server.createObject ("testvbcode.helloworld")
mytestobj.sayhello
-
7. ผลลัพธ์ของการเรียกใช้ไฟล์ test.asp จะปรากฏขึ้นดังนี้:
HelloWorld
ตัวอย่างข้างต้นจะเปิดประตูสู่โลกการเขียนโปรแกรม VB ของคุณ
มาร่วมกันกันเถอะฮ่าฮ่า!