บี๊บ บี๊บ บี๊บ… คำนวณ… คำนวณ… เริ่มขั้นตอน 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
%>