Bip bip bip… obliczam… obliczam… inicjuję sekwencję 42…

Wygląda na to, że te szalone roboty znów to zrobiły. Zajęły tę stroną i przetłumaczyły ją na Twój język. Metalowe serduszka tych robotów naprawdę chcą jak najlepiej. Chcą pomóc. Przy użyciu przycisków u dołu strony powiedz nam, jak idzie robotom. Przejdź do wersji angielskiej
Nawiązywanie połączenia z bazą danych programu Microsoft SQL Server przy użyciu ASP/ADO
W tym przykładzie opisano użycie ASP/ADO do nawiązania połączenia z bazą danych programu Microsoft SQL Server.
Aby używać pełnego zaufania, musisz mieć ustawiony plik web.config.
Aby uzyskać więcej informacji, patrz
Zastąp pola db_
informacjami dotyczącymi bazy danych z Hosting Control Panel. Aby uzyskać więcej informacji, patrzFind your connection strings aby uzyskać więcej informacji.
<%@ 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
%>