跳转到主要内容
联系我们
  • 新加坡 服务时间:9:00~18:00 周一至周五+65 6701 1359
联系电话和工作时间
预约回电

无须在线等候,提交预约我们将尽快回电。

预约回电
帮助中心

使用我们的在线帮助资源

帮助

Windows 主机 (Plesk) 帮助

我们尽最大努力为您翻译此页。 也可以使用英语页面。

使用ASP / ADO连接到MySQL数据库

本示例描述了如何使用ASP / ADO连接到MySQL数据库。

替换开头的值your_与您的数据库信息一起使用。替换mysql.secureserver.net以及数据库主机名。

<%
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

%>