ที่จริงแล้ว สิ่งที่ทุกคนกังวลมากที่สุดเมื่อเขียนโปรแกรม ASP ก็คือ ข้อมูลการเชื่อมต่อฐานข้อมูลจะถูกบางคนเห็นและทำให้เกิดความเสียหาย ต่อไปเราใช้ vb6.0 เพื่อสร้างไดนามิกลิงก์ไลบรารี (.dll) เพื่อซ่อนข้อมูลการเชื่อมต่อฐานข้อมูล
เริ่ม vb6.0 สร้างใหม่ -> โครงการ Active dll คลิก "โครงการ" -> การอ้างอิงและเลือก "ไลบรารีวัตถุ Microsoft Active Server Pages"
และ "ไลบรารีวัตถุข้อมูล microsoft activeX 2.1" สองรายการ เปลี่ยนชื่อของคลาสโมดูลเป็น dcss เปลี่ยนชื่อของโปรเจ็กต์เป็น yygwy บันทึกไฟล์โปรเจ็กต์ yygwy.vbp และไฟล์คลาส dcss.cls
เขียนใน dcss.cls:
myscriptingcontext ส่วนตัวเป็น ScriptingContext
myapplication ส่วนตัวเป็นแอปพลิเคชัน
คำขอของฉันส่วนตัวตามคำขอ
การตอบสนองของฉันเป็นการส่วนตัว เป็นการตอบกลับ
myserver ส่วนตัวเป็นเซิร์ฟเวอร์
mysession ส่วนตัวในฐานะเซสชัน
ย่อยสาธารณะบนหน้าเริ่มต้น (passedscriptingcontext As ScriptingContext)
ตั้งค่า myscriptingcontext = passscriptingcontext
ตั้งค่า myapplication = myscriptingcontext.Application
ตั้งค่า myrequest = myscriptingcontext.Request
ตั้งค่า myresponse = myscriptingcontext.Response
ตั้งค่า myserver = myscriptingcontext.Server
ตั้งค่า mysession = myscriptingcontext.Session
สิ้นสุด
ย่อยสาธารณะย่อย onendpage()
ตั้งค่า myscriptingcontext = ไม่มีเลย
ตั้งค่า myapplication = ไม่มีเลย
ตั้งค่า myrequest = ไม่มีเลย
ตั้งค่าการตอบสนองของฉัน = ไม่มีเลย
ตั้งค่า myserver = ไม่มีเลย
ตั้งค่า mysession = ไม่มีเลย
End Sub
'จำเป็นต้องมีคำสั่งข้างต้น
'กำหนด
แหล่งข้อมูลฟังก์ชันสาธารณะสองรายการ () เป็นตัวแปร
แหล่งข้อมูล = "driver={เซิร์ฟเวอร์ sql};server=yang;uid=sa;pwd=; ฐานข้อมูล=dcss"
End Function
คอมไพล์และสร้างไฟล์ dcss.dll ลงทะเบียนเส้นทาง regsvr32dcss.dll
เปิดไฟล์ global.asa ด้วย Visual Interdev แน่นอนว่าคุณสามารถใช้มันในไฟล์อื่นได้เช่นกัน
ตั้ง dcss=server.CreateObject("yygwy.dcss")
oconn=dcss.แหล่งข้อมูล()
application("strconn")=oconn
สามารถเรียกได้ดังต่อไปนี้ในหน้าอื่น:
ตั้ง objConn = Server.CreateObject("ADODB.Connection")
objConn.เปิดแอปพลิเคชัน ("strconn")