ASP เรียก dll และสรุปอินสแตนซ์ dll ลงใน dll ซึ่งสามารถให้ประสิทธิภาพในการทำงานและเข้ารหัสโค้ดได้ เปิด VB6 และสร้าง ActiveX DLL ใหม่
2. เพิ่มการเลือก Microsoft Active Server Pages Object Library ไปยังการอ้างอิงโครงการ
3. กรอกโค้ดดังนี้:
คัดลอกรหัสรหัสดังต่อไปนี้:
'รหัสเริ่มต้น
'ส่วนหนึ่งของการประกาศ
MyScriptingContext ส่วนตัวเป็น ScriptingContext
MyApplication ส่วนตัวเป็นแอปพลิเคชัน
MyRequest ส่วนตัวตามคำขอ
MyResponse ส่วนตัวเป็นการตอบกลับ
MyServer ส่วนตัวเป็นเซิร์ฟเวอร์
MySession ส่วนตัวเป็นเซสชัน
'ต่อไปนี้จะกำหนดฟังก์ชันทั่วไป (ในการเข้าถึงออบเจ็กต์ ASP ใน VB นั่นคือใน VB คุณสามารถใช้ MyApplication ให้เทียบเท่ากับ Application ใน ASP, MyRequest ให้เทียบเท่ากับ Request ใน ASP, MyResponse ให้เทียบเท่ากับ Response ใน ASP และ MyServer จะเทียบเท่ากับ Server ใน ASP , MySession เทียบเท่ากับการใช้งาน Session ใน ASP)
OnStartPage ย่อยสาธารณะ (PassedScriptingContext เป็น ScriptingContext)
ตั้งค่า MyScriptingContext = PassedScriptingContext
ตั้งค่า MyApplication = MyScriptingContext.Application
ตั้งค่า MyRequest = MyScriptingContext.Request
ตั้งค่า MyResponse = MyScriptingContext.Response
ตั้งค่า MyServer = MyScriptingContext.Server
ตั้งค่า MySession = MyScriptingContext.Session
จบหมวดย่อย
ย่อยสาธารณะ OnEndPage()
ตั้งค่า MyScriptingContext = ไม่มีเลย
ตั้งค่า MyApplication = ไม่มีเลย
ตั้งค่า MyRequest = ไม่มีเลย
ตั้งค่า MyResponse = ไม่มีเลย
ตั้งค่า MyServer = ไม่มีเลย
ตั้งค่า MySession = ไม่มีเลย
จบหมวดย่อย
'สร้างฟังก์ชันที่กำหนดเอง SayHello
ย่อยสาธารณะ SayHello()
MyResponse.Write(สวัสดีชาวโลก)
จบหมวดย่อย
'โค้ดสิ้นสุด
4. เปลี่ยนชื่อคลาสเป็น: HelloWorld และเปลี่ยนชื่อโครงการเป็น: TestVBCode
5. สร้างไฟล์ TestVBCode.DLL และใช้คำสั่งคอมโพเนนต์การลงทะเบียนการรัน Windows Regsvr32 path/TestVBCode.DLL เพื่อลงทะเบียนเพื่อใช้งาน (คำสั่งในการถอนการติดตั้งส่วนประกอบคือ Regsvr32 /u path/TestVBCode.DLL)
6. สร้างไฟล์ Test.asp โดยมีโค้ดดังนี้
คัดลอกรหัสรหัสดังต่อไปนี้:
-
'รูปแบบการเรียกฟังก์ชัน VB ที่สร้างขึ้นเอง
'ตั้งชื่อวัตถุ = Server.CreateObject (ชื่อโครงการ. ชื่อคลาส)
'ชื่อวัตถุ ชื่อฟังก์ชันที่สร้างขึ้นเอง
ตั้งค่า MyTestObj = Server.CreateObject(TestVBCode.HelloWorld)
MyTestObj.SayHello
-
7. ผลลัพธ์ของการรันไฟล์ Test.asp มีดังนี้:
สวัสดีชาวโลก
================================================== =========
สำหรับแอปพลิเคชันที่ซับซ้อนมากขึ้น คุณสามารถขยายออกไปด้านนอกผ่านตัวอย่างนี้ได้
ชอบ:
คัดลอกรหัสรหัสดังต่อไปนี้:
สาธารณะย่อย connstr2()
ตั้งค่า conn = MyServer.CreateObject(ADODB.Connection)
conn.Open driver={ไดรเวอร์ Microsoft Access (*.mdb)};dbq= & MyServer.MapPath(codata.mdb)
ตั้งค่า rs = conn.Execute(เลือก * จากข่าวสาร)
ทำในขณะที่ไม่ใช่ rs.EOF
MyResponse.Write (rs(news_title) & <br>)
rs.MoveNext
วนซ้ำ
rs.ปิด
ตั้งค่าคอน = ไม่มีอะไร
จบหมวดย่อย
ซึ่งถูกห่อหุ้มด้วยรหัสการเชื่อมต่อฐานข้อมูล แน่นอนว่า จำเป็นต้องเพิ่มการอ้างอิง ADO ที่นี่