Несколько способов подключения ASP к базе данных Access

Большая часть программы обучения требует операций подключения к базе данных. Вот краткое описание некоторых кодов доступа к asp-подключению для удобства друзей, которым это необходимо. 1. По сравнению со старыми средами рекомендуется использовать второй.

set dbconnection=Server.CREATEOBJECT(ADODB.CONNECTION)

DBPath = Server.MapPath(customer.mdb)

dbconnection.Open driver={Драйвер Microsoft Access (*.mdb)};dbq= & DBPath

SQL=select * from auth где id=' & user_id &'

SET uplist=dbconnection.EXECUTE(SQL)

2. Для машин с Win2003 или выше рекомендуется использовать этот метод, который более эффективен.

set dbconnection=Server.CreateObject(ADODB.Connection)

DBPath = Server.MapPath(customer.mdb)

dbconnection.Open поставщик = microsoft.jet.oledb.4.0; источник данных = & dbpath

SQL=select * from auth где id=' & user_id &'

SET uplist=dbconnection.EXECUTE(SQL)

3.

DBPath = Server.MapPath(customer.mdb)

set session(rs)=Server.CreateObject(ADODB.Recordset)

'rs=Server.CreateObject(ADODB.Recordset)

connstr=provider=microsoft.jet.oledb.4.0;источник данных=&dbpath

SQL=select * from auth где id=' & user_id &'

сеанс (rs). Открыть sql, connstr, 1,3

4.

Сборка исходного кода odbc xxx

set conn=server.createobject(Adodb.connection)

conn.open DSN=xxx;UID=;PWD=;База данных=клиент

5. Прилагается широко используемый код подключения к базе данных для sqlserver и доступа.

Скопируйте код кода следующим образом:

<%

Константный тип базы данных=1

Если ТипБазы данных=0, то

DBPath=/jb51/news.asp

SqlNowString = Сейчас()

устр=истина

нстр = ложь

suiji=rnd(id)

Еще

«Если это база данных SQL, внимательно измените следующие параметры базы данных.

DataServer = wwwjb51net 'IP-адрес сервера базы данных

DataUser = jb51net 'Имя пользователя базы данных доступа

DataBaseName = jb51net 'Имя базы данных

DataBasePsw = Пароль для доступа к базе данных

SqlNowString = getdate()

устр=1

нстр=0

суиджи=newid()

Конец, если

При ошибке Возобновить Далее

Если ТипБазы данных = 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

Если Err then Err.Clear:Set conn = Nothing:Response.Write Ошибка подключения к базе данных, проверьте настройки параметров базы данных в файле Conn.asp. :Response.End

%>