삐뽀 삐뽀 컴퓨팅 컴퓨팅... 명령 시퀀스 42 초기화 중...
음, 열혈 로봇들이 작업을 시작한 것 같습니다! 로봇들이 임무 받고, 이 페이지를 귀하의 언어로 번역했습니다. 로봇들은 자신의 철 심장 속에 선의만을 품고 있습니다. 그들은 도와 주고싶어합니다! 로봇들이 페이지 하단에 있는 버튼들을 어떻게 사용하는지 알아봅시다. 영어 버전으로 이동
ASP / ADO를 사용하여 MySQL 데이터베이스에 연결
이 예에서는 ASP / ADO를 사용하여 MySQL 데이터베이스에 연결하는 방법을 설명합니다.
your_ 로 시작하는 값을 데이터베이스 정보로 바꿉니다. mysql.secureserver.net 을 Hosting Control Panel의 데이터베이스 호스트 이름으로 바꿉니다.
<%
Dim oConn, oRs
Dim qry, connectstr
Dim db_name, db_username, db_userpassword
Dim db_server
db_server = "mysql.secureserver.net"
db_name = "your_dbusername"
db_username = "your_dbusername"
db_userpassword = "your_dbpassword"
fieldname = "your_field"
tablename = "your_table"
connectstr = "Driver={MySQL ODBC 3.51 Driver};SERVER=" & db_server & ";DATABASE=" & db_name & ";UID=" & db_username & ";PWD=" & db_userpassword
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open connectstr
qry = "SELECT * FROM " & tablename
Set oRS = oConn.Execute(qry)
if not oRS.EOF then
while not oRS.EOF
response.write ucase(fieldname) & ": " & oRs.Fields(fieldname) & "
"
oRS.movenext
wend
oRS.close
end if
Set oRs = nothing
Set oConn = nothing
%>
Dim oConn, oRs
Dim qry, connectstr
Dim db_name, db_username, db_userpassword
Dim db_server
db_server = "mysql.secureserver.net"
db_name = "your_dbusername"
db_username = "your_dbusername"
db_userpassword = "your_dbpassword"
fieldname = "your_field"
tablename = "your_table"
connectstr = "Driver={MySQL ODBC 3.51 Driver};SERVER=" & db_server & ";DATABASE=" & db_name & ";UID=" & db_username & ";PWD=" & db_userpassword
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open connectstr
qry = "SELECT * FROM " & tablename
Set oRS = oConn.Execute(qry)
if not oRS.EOF then
while not oRS.EOF
response.write ucase(fieldname) & ": " & oRs.Fields(fieldname) & "
"
oRS.movenext
wend
oRS.close
end if
Set oRs = nothing
Set oConn = nothing
%>
