Буп, бип, боп...вычисление... вычисление...запуск последовательности 42...

Да, похоже эти сумасшедшие роботы опять взялись за свое! Они перевели эту страницу на ваш язык. Роботы действовали из лучших побуждений своих металлических сердец. Они хотели помочь вам! Давайте посмотрим, как они справились со своей задачей, используя кнопки в нижней части страницы. Перейти к английской версии
Подключение к базе данных Microsoft SQL Server с помощью ASP / ADO
В этом примере описывается использование ASP / ADO для подключения к базе данных Microsoft SQL Server.
Для использования полного доверия необходимо настроить файл web.config.
Для получения дополнительной информации см.
Замените поля db_
информацией о вашей базе данных из Hosting Control Panel. Для получения дополнительной информации см.Find your connection strings для получения дополнительной информации.
<%@ Page aspcompat=true %>
<%
'Sample Database Connection Syntax for ASP and SQL Server.
Dim oConn, oRs
Dim qry, connectstr
Dim db_name, db_username, db_userpassword
Dim db_server
db_server = "server name"
db_name = "db username"
db_username = "db username"
db_userpassword = "db password"
dim fieldname = "your_field"
dim tablename = "your_table"
connectstr = "Driver={SQL Server};SERVER=" & db_server & ";DATABASE=" & db_name & ";UID=" & db_username & ";PWD=" & db_userpassword
oConn = Server.CreateObject("ADODB.Connection")
oConn.Open(connectstr)
qry = "SELECT * FROM " & tablename
oRS = oConn.Execute(qry)
Do until oRs.EOF
Response.Write(ucase(fieldname) & ": " & oRs.Fields(fieldname))
oRS.MoveNext
Loop
oRs.Close
oRs = nothing
oConn = nothing
%>
<%
'Sample Database Connection Syntax for ASP and SQL Server.
Dim oConn, oRs
Dim qry, connectstr
Dim db_name, db_username, db_userpassword
Dim db_server
db_server = "server name"
db_name = "db username"
db_username = "db username"
db_userpassword = "db password"
dim fieldname = "your_field"
dim tablename = "your_table"
connectstr = "Driver={SQL Server};SERVER=" & db_server & ";DATABASE=" & db_name & ";UID=" & db_username & ";PWD=" & db_userpassword
oConn = Server.CreateObject("ADODB.Connection")
oConn.Open(connectstr)
qry = "SELECT * FROM " & tablename
oRS = oConn.Execute(qry)
Do until oRs.EOF
Response.Write(ucase(fieldname) & ": " & oRs.Fields(fieldname))
oRS.MoveNext
Loop
oRs.Close
oRs = nothing
oConn = nothing
%>