โปรแกรมการเรียนรู้ส่วนใหญ่ต้องการการดำเนินการเชื่อมต่อกับฐานข้อมูล นี่คือบทสรุปโดยย่อของรหัสบางส่วนสำหรับการเข้าถึงการเชื่อมต่อ asp เพื่อความสะดวกของเพื่อนที่ต้องการ 1. เมื่อเทียบกับสภาพแวดล้อมที่เก่ากว่า ขอแนะนำให้ใช้อันที่สอง
ตั้งค่า dbconnection=Server.CREATEOBJECT(ADODB.CONNECTION)
DBPath = เซิร์ฟเวอร์ MapPath (customer.mdb)
dbconnection.Open driver={ไดรเวอร์ Microsoft Access (*.mdb)};dbq= & DBPath
SQL=select * จาก auth โดยที่ id=' & user_id &'
SET uplist=dbconnection.EXECUTE(SQL)
2. สำหรับเครื่องที่มี win2003 ขึ้นไป ขอแนะนำให้ใช้วิธีนี้ซึ่งมีประสิทธิภาพมากกว่า
ตั้งค่า dbconnection=Server.CreateObject(ADODB.Connection)
DBPath = เซิร์ฟเวอร์ MapPath (customer.mdb)
dbconnection.Open provider=microsoft.jet.oledb.4.0;แหล่งข้อมูล=&dbpath
SQL=select * จาก auth โดยที่ id=' & user_id &'
SET uplist=dbconnection.EXECUTE(SQL)
3.
DBPath = เซิร์ฟเวอร์ MapPath (customer.mdb)
ตั้งค่าเซสชัน (rs) = Server.CreateObject (ADODB.Recordset)
'rs=Server.CreateObject(ADODB.Recordset)
connstr=provider=microsoft.jet.oledb.4.0;แหล่งข้อมูล=&dbpath
SQL=select * จาก auth โดยที่ id=' & user_id &'
เซสชัน (rs) เปิด sql, connstr, 1,3
4.
สร้างแหล่งที่มา odbc xxx
ตั้งค่า conn=server.createobject (Adodb.connection)
conn.open DSN=xxx;UID=;PWD=;ฐานข้อมูล=ลูกค้า
5. สิ่งที่แนบมาคือรหัสการเชื่อมต่อฐานข้อมูลที่ใช้กันทั่วไปสำหรับ sqlserver และการเข้าถึง
คัดลอกรหัสรหัสดังต่อไปนี้:
-
ค่าคงที่ DataBaseType=1
ถ้า DataBaseType=0 แล้ว
DBPath=/jb51/news.asp
SqlNowString = ตอนนี้()
ystr=จริง
nstr=เท็จ
ซุยจิ=rnd(id)
อื่น
'หากเป็นฐานข้อมูล SQL โปรดแก้ไขตัวเลือกฐานข้อมูลต่อไปนี้อย่างระมัดระวัง
DataServer = wwwjb51net 'IP เซิร์ฟเวอร์ฐานข้อมูล
DataUser = jb51net 'เข้าถึงชื่อผู้ใช้ฐานข้อมูล
DataBaseName = jb51net 'ชื่อฐานข้อมูล
DataBasePsw = รหัสผ่าน'รหัสผ่านฐานข้อมูลการเข้าถึง
SqlNowString = getdate()
ystr=1
nstr=0
ซุยจิ=newid()
จบถ้า
เมื่อเกิดข้อผิดพลาด ดำเนินการต่อต่อไป
ถ้า DataBaseType = 1 แล้ว
ConnStr=driver={SQL Server};server=&dataserver&;UID=&datauser&;PWD=&databasepsw&;Database=&databasename
อื่น
ConnStr = ผู้ให้บริการ = Microsoft.Jet.OLEDB.4.0; แหล่งข้อมูล = & Server.MapPath (DBPath)
สิ้นสุดถ้า
ตั้งค่า conn = Server.CreateObject (ADODB.Connection)
conn.open ConnStr
หากเกิดข้อผิดพลาดแล้ว Err.Clear:Set conn = Nothing:Response.Write ข้อผิดพลาดในการเชื่อมต่อฐานข้อมูล โปรดตรวจสอบการตั้งค่าพารามิเตอร์ฐานข้อมูลในไฟล์ Conn.asp :การตอบสนองสิ้นสุด
-