ที่จริงแล้ว สิ่งที่ทุกคนกังวลมากที่สุดเมื่อเขียนโปรแกรม 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 ส่วนตัวเป็นเซิร์ฟเวอร์
เซสชั่นส่วนตัวเป็นเซสชั่น
สาธารณะย่อยบนหน้าเริ่มต้น (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
'จำเป็นต้องมีคำสั่งข้างต้น
'กำหนดสองฟังก์ชันสาธารณะ
Public Function rsresult (strsql As String) As Recordset
หรี่ mycnn เป็นการเชื่อมต่อ
หรี่ myset เป็นชุดระเบียน
Dim strconnstring As String
'strconnstring = "ผู้ให้บริการ=sqloledb.1;
รหัสผ่าน=;" & "user id=sa;" & "แคตตาล็อกเริ่มต้น=vlog;" & "แหล่งข้อมูล=hpe60;
เชื่อมต่อหมดเวลา = 15"
strconnstring = "driver={เซิร์ฟเวอร์ sql};server=yang;uid=sa;pwd=;
ฐานข้อมูล=dcss"
'mycnn.ConnectionString = strconnstring
mycnn.Open strconnstring
myset.ActiveConnection = mycnn
myset.Open strsql, mycnn, 3, adCmdText
ตั้งค่า rsresult = myset
ฟังก์ชันสิ้นสุด
() เป็นตัวแปร
แหล่งข้อมูล = "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")