يتطلب جزء كبير من برنامج التعلم عمليات اتصال بقاعدة البيانات، فيما يلي ملخص موجز لبعض رموز الوصول إلى اتصال asp لراحة الأصدقاء الذين يحتاجون إليها 1. بالمقارنة مع البيئات القديمة، يوصى باستخدام الثانية
تعيين dbconnection=Server.CREATEOBJECT(ADODB.CONNECTION)
DBPath = Server.MapPath(customer.mdb)
dbconnection.Open driver={Microsoft Access Driver (*.mdb)};dbq= & DBPath
SQL=اختر * من المصادقة حيث id=' & user_id &'
تعيين uplist=dbconnection.EXECUTE(SQL)
2. بالنسبة للأجهزة التي تعمل بنظام التشغيل win2003 أو أعلى، يوصى باستخدام هذه الطريقة، وهي أكثر كفاءة.
تعيين dbconnection=Server.CreateObject(ADODB.Connection)
DBPath = Server.MapPath(customer.mdb)
dbconnection.Open Provider=microsoft.jet.oledb.4.0;مصدر البيانات=&dbpath
SQL=اختر * من المصادقة حيث id=' & user_id &'
تعيين uplist=dbconnection.EXECUTE(SQL)
3.
DBPath = Server.MapPath(customer.mdb)
تعيين الجلسة (rs) = Server.CreateObject (ADODB.Recordset)
'rs=Server.CreateObject(ADODB.Recordset)
connstr=provider=microsoft.jet.oledb.4.0;مصدر البيانات=&dbpath
SQL=اختر * من المصادقة حيث id=' & user_id &'
جلسة (RS).فتح SQL، connstr، 1،3
4.
بناء مصدر odbc xxx
تعيين conn=server.createobject(Adodb.connection)
conn.open DSN=xxx;UID=;PWD=;Database=customer
5. مرفق رمز اتصال قاعدة البيانات شائع الاستخدام لـ sqlserver والوصول.
انسخ رمز الكود كما يلي:
<%
نوع قاعدة بيانات Const = 1
إذا كان DataBaseType=0 إذن
DBPath=/jb51/news.asp
SqlNowString = الآن ()
ystr=صحيح
nstr=false
سويجي = رند (معرف)
آخر
'إذا كانت قاعدة بيانات SQL، يرجى تعديل خيارات قاعدة البيانات التالية بعناية
DataServer = wwwjb51net 'IP خادم قاعدة البيانات
DataUser = jb51net 'اسم مستخدم قاعدة بيانات الوصول
DataBaseName = jb51net 'اسم قاعدة البيانات
DataBasePsw = كلمة المرور'كلمة مرور قاعدة بيانات الوصول
SqlNowString = getdate()
يستر=1
نستر=0
سويجي = نيويد ()
انتهي إذا
على خطأ استئناف التالي
إذا كان DataBaseType = 1 ثم
ConnStr=driver={SQL Server};server=&dataserver&;UID=&datauser&;PWD=&databasepsw&;Database=&databasename
آخر
ConnStr = Provider=Microsoft.Jet.OLEDB.4.0;مصدر البيانات= & Server.MapPath(DBPath)
نهاية إذا
تعيين conn = Server.CreateObject(ADODB.Connection)
conn.open ConnStr
إذا Err ثم Err.Clear:Set conn = Nothing:Response.Write خطأ في اتصال قاعدة البيانات، الرجاء التحقق من إعدادات معلمة قاعدة البيانات في ملف Conn.asp. :الرد.انتهى
%>