У меня есть старый сайт ASP (написанный давным-давно бывшим сотрудником), который подключается к базе данных ODBC 2003 года с помощью DSN. Серверы были обновлены нашими хостами до 2008 года, и мы больше не можем использовать ODBC, поэтому мне нужно установить соединения DSN-Less.
К сожалению, у меня очень мало знаний об ASP и подключениях к базе данных через ASP. Интересно, может ли кто-нибудь помочь мне изменить код для подключения к базе данных Access без ODBC?
Я думаю, что он подключается с помощью этого кода:
<%
' Get current name of region and intro text
Dim objRec, sql, introtext
sql="SELECT * FROM hometext WHERE home_id = 1"
set objRec=Server.CreateObject("ADODB.Recordset")
objRec.Open sql, "dsn=databasename"
introtext = Replace(objRec("home_introtext"), vbCrLf, "<br />")
' Get the 5 newest news items
Dim objRec2, sql2, newstext
sql2="SELECT TOP 5 news_date, news_text FROM news ORDER BY news_date DESC"
set objRec2=Server.CreateObject("ADODB.Recordset")
objRec2.Open sql2, "dsn=databasename"
' Get all images to appear to page
Dim objRec3, sql3
sql3="SELECT * FROM homeimages ORDER BY homeimage_date DESC"
set objRec3=Server.CreateObject("ADODB.Recordset")
objRec3.Open sql3, "dsn=databasename"
' Get the next 5 events from the current date
Dim objRec4, sql4
sql4="SELECT TOP 5 event_date, event_name FROM events WHERE event_date >= " & niceDateAccess(Date()) & " ORDER BY event_date"
set objRec4=Server.CreateObject("ADODB.Recordset")
objRec4.Open sql4, "dsn=databasename"
%>
Я не уверен, как все это связано, я не очень скриптер.
Любая (тупая) помощь будет оценена по достоинству!
Благодарность
РЕДАКТИРОВАТЬ: база данных находится в «частной» папке в корневой папке на сервере.
1 ответ
Вот пример кода. Измените имя базы данных и имя поля таблицы
set conob = Server.CreateObject("ADODB.Connection")
conob.Provider="Microsoft.Jet.OLEDB.4.0"
conob.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & server.MapPath("YourDatabaseName.mdb")
Set rsuni = Server.CreateObject("ADODB.Recordset")
sqlStr="select * from Student_Entry"
rsuni.open sqlStr,conob
Вы должны предоставить полный доступ к своей базе данных, под пользователем которой вы вошли в систему.
set conob = Server.CreateObject ("ADODB.Connection")
conob.Provider = "Microsoft.Jet.OLEDB.4.0"
conob.Open "Provider = Microsoft.Jet.OLEDB.4.0; Data Source =" & server.MapPath ("private / tvr.mdb")
Установить rsuni = Server.CreateObject ("ADODB.Recordset")
sqlStr = "ВЫБРАТЬ * ИЗ hometext WHERE home_id = 1"
objRec.Open sql, conob
Похожие вопросы
Новые вопросы
asp-classic
Active Server Pages (ASP), также известный как Classic ASP или ASP Classic, был первым серверным скриптовым движком Microsoft для динамически генерируемых веб-страниц. Введение ASP.NET привело к использованию термина Classic ASP для оригинальной технологии.
"dsn=databasename"
наconob
во всем коде, например:objRec.Open sql, conob
, и это вызовет код использовать соединение без DSN.